COBOL PROGRAMMING

ไม่ได้เข้ามาอัพเดท Blog ซะนาน วันนี้พอมีเวลาก็เลยจัดซักหน่อย
ในวันนี้เปลี่ยนมาศึกษา ภาษาเก่าๆอย่าง Cobol ดูบ้าง ซึ่งมันก็ออกจากเป็นภาษาที่โครงสร้างไม่ซับซ้อนเท่าไหร่ โดย Cobol นั้น จะมีส่วนสำคัญๆ ที่จะต้องมีอยู่4 ส่วน (4 Division)
เริ่มต้นด้วยส่วนแรก Identification Division หรือส่วนที่ใช้ในการประกาศว่า เป็นโปรแกรมอะไร
ต่อมาเป็นส่วนของ Environment Division เป็นส่วนที่ใช้ในการประกา่ศเกี่ยวกับเครื่องที่จะใช้ RUN program
ส่วนที่ 3 คือ ส่วน Data Division ส่วนนี้เป็นส่วนที่ใช้ในการประกาศตัวแปรต่างๆซึ่งจะ รวมไปถึงการประกาศค่า COMMAREA (ส่วนที่ใช้ในการ ส่งค่าไปให้กับโปรแกรมอื่นๆตอน ทำ CICS Program)
และส่วนสุดท้ายคือส่วน Procedure Division หรือส่วนที่ใช้ในการเขียน Code เพื่อที่จะทำงานจริงๆ

ตัวอย่างการเขียนโปรแกรม Hello world ด้วยภาษา Cobol

IDENTIFICATION DIVISION.                                          
PROGRAM-ID. HWORLD.
AUTHOR.          RUJJI.                          
DATE-WRITTEN.       18/04/12.                    
DATE-COMPILED.                                  
ENVIRONMENT DIVISION.          
CONFIGURATION SECTION.        
SOURCE-COMPUTER. IBM-370.      
OBJECT-COMPUTER. IBM-370.      
DATA DIVISION.
WORKING-STORAGE SECTION.
      01   WS-MSG.
              03  WS-TXT-MSG                           PIC X(60)     VALUE
                     'HELLO WORLD'.
PROCEDURE DIVISION.
MAIN-ROUTINE.
*
                  DISPLAY 'WS-TXT-MSG' WS-TXT-MSG.
*
EXIT-ROUTINE.
       STOP-RUN.

Encoder/Decoder Base64 using package JAVA

เนื่องด้วย จะเริ่มลอง Develop โดยใช้ JAVA ก็เลยลองเขียนเล่นๆ ดู

    private String DecoderBase64(java.lang.String strEncryptData)
    {
        String strReturn = "";
        strReturn = com.sun.xml.internal.messaging.saaj.util.Base64.base64Decode(strEncryptData);
        return strReturn;
    }
   
    private String EncoderBase64(java.lang.String strData)
    {
        String strReturn = "";
         strReturn = com.sun.org.apache.xml.internal.security.utils.Base64.encode(strData.getBytes());
        return strReturn;