venkat1111_a1
New User
Joined: 14 Feb 2006 Posts: 8
|
|
|
|
hai this is venkat,
i have a small problem how to escute a CICS program.
my program goes on like this.
IDENTIFICATION DIVISION.
PROGRAM-ID. ABCCICS.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 LEN1 PIC S9(4) COMP.
77 MSG1 PIC X(7).
PROCEDURE DIVISION.
MAIN-PARA.
MOVE 7 TO LEN1.
MOVE "WELCOME" TO MSG1
EXEC CICS SEND
FROM (MSG1)
LENGTH(LEN1)
END-EXEC.
EXEC CICS
RETURN
END-EXEC.
and my compile JCL is
//SSSMSTCC JOB (20,FB3),IBMUSER,MSGLEVEL=(1,1),TIME=20,
// CLASS=A,MSGCLASS=H,NOTIFY=&SYSUID,REGION=6M
//JOBPROC JCLLIB ORDER=SSSMST.ADMN.PROCLIB
//CICSCOB EXEC CICSCOB,
// COPYLIB=SSSMST.ADMN.COPYLIB,
// LOADLIB=TRAINING.LOADLIB
//*TRN.SYSIN DD DSN=SSSMST.ADMN.SOURCE(ABCCICS),DISP=SHR
//TRN.SYSIN DD DSN=SSS029.BAT11.PDS(ABCCICS),DISP=SHR
//LKED.SYSIN DD *
NAME CICMAPGM(R)
//
can any one help me how see the out put of the program in CICS
plz send me step by step process plz
with regards,
venkatkumar1111@gmail.com |
|