CICS-COBOL 기본 사항

CICS 프로그램은 메인 프레임에서 COBOL 언어로 작성됩니다. 간단한 COBOL-CICS 프로그램 작성, 컴파일 및 실행에 대해 논의 할 것입니다.

CICS 프로그램

CICS 출력 화면에 일부 메시지를 표시하는 간단한 COBOL-CICS 프로그램을 작성합니다. 이 프로그램은 COBOL-CICS 프로그램 실행과 관련된 단계를 보여줍니다. 다음은 간단한 프로그램을 코딩하는 단계입니다.

1 단계

메인 프레임에 로그인하고 TSO 세션을 엽니 다.

2 단계

프로그램을 코딩 할 새 PDS를 만듭니다.

3 단계

PDS 내부에 새 멤버를 만들고 다음 프로그램을 코딩하십시오.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-MESSAGE PIC X(40).
01 WS-LENGTH  PIC S9(4) COMP.
PROCEDURE DIVISION.
A000-MAIN-PARA.
   MOVE 'Hello World' TO WS-MESSAGE
   MOVE '+12' TO WS-LENGTH
   EXEC CICS SEND TEXT 
      FROM (WS-MESSAGE)
      LENGHT(WS-LENGTH)  
   END-EXEC
   EXEC CICS RETURN
   END-EXEC.

4 단계

프로그램을 코딩 한 후 컴파일해야합니다. 다음 JCL을 사용하여 프로그램을 컴파일 할 수 있습니다.

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C  
//CICSCOB  EXEC CICSCOB,                                                
//COPYLIB = ABC.XYZ.COPYLIB,                            
//LOADLIB = ABC.XYZ.LOADLIB 
//LIB        JCLLIB ORDER = CICSXXX.CICS.XXXPROC                
//CPLSTP     EXEC DFHEITVL                                
//TRN.SYSIN  DD DSN = ABC.XYZ.PDS(HELLO),DISP = SHR     
//LKED.SYSIN DD *                                        
   NAME HELLO(R)                                          
//