EDIT MTPLP04.RACHNA.CICS(SEND) - 01.02 Colu
Command ===> S
****** ***************************** Top of Data **************
000100 ID DIVISION.
000110 PROGRAM-ID. RACH.
000200 ENVIRONMENT DIVISION.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 WS-OUTPUT PIC X(20).
000600 01 WS-LENGTH PIC S9(4) USAGE COMP.
000700 PROCEDURE DIVISION.
000800 MOVE 24 TO WS-LENGTH.
000900 MOVE 'WELCOME TO CICS REGION' TO WS-OUTPUT.
001000 EXEC CICS SEND
001100 FROM (WS-OUTPUT)
001200 LENGTH (WS-LENGTH)
001300 END-EXEC.
001400 EXEC CICS RETURN END-EXEC.
COMPILE WITH COMPILER GIVEN BELOW.
IN O/P WILL AFTER DEFINING AND INSTALLING TRANS ID ..R001
WHEN WE WIL TYPE R001 WILL GET O/P
WELCOME TO CICS REGION.
RECEIVE
EDIT MTPLP04.RACHNA.CICS(RECE) - 01.00
Command ===>
****** ***************************** Top of Data
000100 ID DIVISION.
000200 PROGRAM-ID. RAC.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 WS-INPUT.
000610 02 TRAN PIC X(4).
000620 02 TEX PIC X(10).
000630 01 WS-OUTPUT.
000640 02 OUT PIC X(10).
000700 01 WS-LENGTH S9(4) USAGE COMP.
000800 PROCEDURE DIVISION.
000900 MOVE 14 TO WS-LENGTH.
001000 EXEC CICS RECEIVE
001100 INTO(WS-INPUT)
001200 LENGTH(WS-LENGTH)
001300 END-EXEC.
001400 MOVE TEX TO OUT.
001500 EXEC CICS SEND
001600 FROM(WS-OUTPUT)
001700 ERASE
001800 END-EXEC.
001900 EXEC CICS RETURN
002000 END-EXEC.
SEUDO TEQNIQ 1—PROG 1
EDIT MTPLP04.RACHNA.CICS(SUDO1PG1) - 01.04
Command ===>
****** ***************************** Top of Data
000100 ID DIVISION.
000110 PROGRAM-ID. RAC.
000200 ENVIRONMENT DIVISION.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 WS-TEXT PIC X(20).
000600 PROCEDURE DIVISION.
000700 MOVE 'ENTER NO' TO WS-TEXT.
000800 EXEC CICS SEND
000900 FROM (WS-TEXT)
001000 LENGTH (LENGTH OF WS-TEXT)
001100 ERASE
001200 END-EXEC.
001300 EXEC CICS RETURN
001400 TRANS-ID('R002')
001500 END-EXEC.
SEUDO TEQNIQ 1-PROG 2
EDIT MTPLP04.RACHNA.CICS(SUDO1PG2) - 01.03 C
Command ===>
****** ***************************** Top of Data ***********
000100 ID DIVISION.
000200 PROGRAM-ID. RAC.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 WS-INPUT.
000700 02 WS-TEXT PIC X(20).
000800 02 WS-NUM PIC 9(2).
000900 01 WS-OUTPUT.
001000 02 WS-RESULT PIC X(20) VALUE 'RESULT IS'.
001100 02 PIC X.
001200 02 WS-NUM1 PIC 9(2).
001300 PROCEDURE DIVISION.
001400 EXEC CICS RECEIVE
001500 INTO(WS-INPUT)
001600 LENGTH(LENGTH OF WS-INPUT)
001700 END-EXEC.
O/P-- FIRST COMPILE PG-1 THEN PG-2 THEN GIVE R002 T ID TO PG-2 THEN WHEN WILL GIVE R000 T-ID OF PG 1 IT WILL DISPLAY FIRST
ENTER NO :
THEN AFTER 20 SPACES AS INPUT GIVEN WHEN WE ILL TYPE 10 IT WILL ADD 05 TO IT AND WILL DISPLAY
RESULT IS : 15.
TECHNIQUE-3
EDIT MTPLP04.RACHNA.CICS(SEUDO3) - 01.01
Command ===>
****** ***************************** Top of Data **********
000100 ID DIVISION.
000200 PROGRAM-ID. CDF.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 WS-INPUT.
000700 02 WS-TEXT PIC X(15) VALUE SPACES.
000800 02 WS-NUM PIC 9(2).
000900 01 WS-OUTPUT REDEFINES WS-INPUT.
001000 02 WS-RESULT PIC X(10).
001100 02 WS-NUM1 PIC 9(2).
001200 01 WS-COM PIC X(4).
001300 LINKAGE SECTION.
001400 01 DFHCOMMAREA.
001500 02 LK-COM PIC X(4).
001600 PROCEDURE DIVISION.
001700 IF EIBCALEN = 0
001800 GO TO PARA-1.
001900 IF EIBCALEN NOT = 0
002000 GO TO PARA-2.
002100 PARA-1.
002200 MOVE 'ENTER NUMBER :' TO WS-TEXT.
002300 EXEC CICS SEND
002400 FROM(WS-TEXT)
002500 LENGTH(LENGTH OF WS-TEXT)
002600 ERASE
002700 END-EXEC.
002800 EXEC CICS RETURN TRANSID('R003')
002900 COMMAREA(WS-COM)
003000 LENGTH(LENGTH OF WS-COM)
003100 END-EXEC.
003200 PARA-2.
003300 EXEC CICS RECEIVE
003400 INTO(WS-INPUT)
003500 LENGTH(LENGTH OF WS-INPUT)
003600 END-EXEC.
003700 ADD 05 TO WS-NUM.
003800 MOVE WS-NUM TO WS-NUM1.
003900 MOVE 'RESULT IS :' TO WS-RESULT.
004000 EXEC CICS SEND
004100 FROM(WS-OUTPUT)
004200 LENGTH(LENGTH OF WS-OUTPUT)
004300 ERASE
004400 END-EXEC.
004500 EXEC CICS RETURN END-EXEC.
O/P---- SAME AS ABOVE TEQ-1 IT WILL GIVE OP
.BUT HERE IT WILL IDENTIFY COMMAREA THEN WILL MOVE ACCORDINGLY TO PARA -1 AND PARA-2.
TECH-2
EDIT MTPLP04.RACHNA.CICS(SEUDO2) - 01.02
Command ===>
****** ***************************** Top of Data ********
000100 ID DIVISION.
000200 PROGRAM-ID. RAC.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 WS-INPUT.
000700 02 WS-TEXT PIC X(15) VALUE SPACES.
000800 02 WS-NUM PIC 9(2).
000900 01 WS-OUTPUT REDEFINES WS-INPUT.
001000 02 WS-RESULT PIC X(10).
001100 02 WS-NUM1 PIC 9(2).
001200 PROCEDURE DIVISION.
001300 IF EIBTRNID = 'R004'
001400 PERFORM TSK1-RTN.
001500 IF EIBTRNID = 'R005'
001600 PERFORM TSK2-RTN.
001700 TSK1-RTN.
001800 MOVE 'ENTER NUMBER :' TO WS-TEXT.
001900 EXEC CICS SEND
002000 FROM(WS-TEXT)
002100 LENGTH(LENGTH OF WS-TEXT)
002200 ERASE
002300 END-EXEC.
002400 EXEC CICS RETURN TRANSID('R005')
002500 END-EXEC.
002600 TSK2-RTN.
002700 EXEC CICS RECEIVE
002800 INTO(WS-INPUT)
002900 LENGTH(LENGTH OF WS-INPUT)
003000 END-EXEC.
003100 ADD 05 TO WS-NUM.
003200 MOVE WS-NUM TO WS-NUM1.
003300 MOVE 'RESULT IS :' TO WS-RESULT.
003400 EXEC CICS SEND
003500 FROM(WS-OUTPUT)
003600 LENGTH(LENGTH OF WS-OUTPUT)
003700 ERASE
003800 END-EXEC.
003900 EXEC CICS RETURN END-EXEC.
O/P--- IN THIS ALSO OP WILL BE SAME AS ABOVE.
BUT HERE WE HAVE TO GIVE DIFFERENT TRANS ID TO SAME PROG AND WHEN WILL TYPE R004 ID OF FIRST PROG IT AUTOMATICALLY GO TO R005 AND WILL GIV OP.
RESP
EDIT MTPLP04.RACHNA.CICS(RESP) - 01.04
Command ===>
****** ***************************** Top of Data **
000100 ID DIVISION.
000200 PROGRAM-ID. RACH.
000300 DATA DIVISION.
000400 WORKING-STORAGE SECTION.
000500 01 INPUT1.
000510 02 TRANS PIC X(4).
000520 02 PIC X.
000600 02 IP PIC X(10).
000700 01 LEN PIC S9(4) USAGE COMP.
000710 01 RES PIC S9(8) USAGE COMP.
000800 01 OUTPUT1.
000900 02 OP PIC X(10).
001010 01 ERROR1.
001020 02 E PIC X(10).
001030 PROCEDURE DIVISION.
001100 MOVE LOW-VALUE TO INPUT1.
001200 MOVE LOW-VALUE TO OUTPUT1.
001300 MOVE 15 TO LEN.
001400 EXEC CICS RECEIVE
001500 INTO(INPUT1)
001600 LENGTH(LEN)
001610 RESP(RES)
001700 END-EXEC.
001710 IF RES = DFHRESP(LENGERR)
001720 PERFORM PARA1 ELSE PERFORM PARA2.
001730 PARA1.
001800 MOVE "ERROR HAS OCCURED" TO E.
001900 EXEC CICS SEND
002000 FROM(E)
002100 ERASE
002200 END-EXEC.
002300 EXEC CICS RETURN END-EXEC.
002400 PARA2.
002500 MOVE IP TO OP.
002600 EXEC CICS SEND
002700 FROM(OP)
002800 ERASE
002900 END-EXEC.
003000 EXEC CICS RETURN END-EXEC.
O/P---- HERE WHEN WILL GIVE R006 THEN AGAIN AFTER ENTER WILL TYPE R006 SPACE AND TEXT MESSAGE.IF MESAGE WILL SHORT LIKE 'HI' IT ILL GIVE SAME DISPLAY BUT IF MESAGE LENGTH EXCEEDS IT WILL DISPLAY 'THE ERROR HAS OCCURED.'
BELOW IS COB-COMPILER FOR ABOVE PROGS.
EDIT MTPLP04.RACHNA.CICS(COB) - 01.10 Columns 00001 000
Command ===> Scroll ===> PA
****** ***************************** Top of Data ***************************
000100 //MTPLP04J JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H
000200 //JOBPROC JCLLIB ORDER=IBMUSER.COMPILER.JCLS
000300 //CICSCOB EXEC CICSCOB1,
000400 // SRCLIB=MTPLP04.RACHNA.CICS, --> SOURCE LIB NAME
000500 // MEM=RESP, --> MEMBER
000600 // COPYLIB=MTPLP04.RACHNA.COPYLIB, --> BMS MAP LIB
000700 // LOADLIB=MTPLTRG.CICS.LOADLIB ** DO NOT CHANGE **
MAPPING
EDIT MTPLP04.RACHNA.CICS(MAP1) - 01.00 Columns 00001 00072
Command ===> Scroll ===> PAGE
000100 CHETAN DFHMSD TYPE=&SYSPARM, X
000200 MODE=INOUT, X
000300 LANG=COBOL, X
000400 CTRL=(FREEKB,ALARM,FRSET), X
000500 TIOAPFX=YES, X
000600 STORAGE=AUTO, X
000700 EXTATT=YES
000800 TEST DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
000900 DFHMDF POS=(5,20),LENGTH=7,ATTRB=PROT, X
001000 INITIAL='MAINTEC',COLOR=RED,HILIGHT=BLINK
001100 DFHMDF POS=(10,15),LENGTH=6,ATTRB=PROT, X
001200 INITIAL='ECODE:',COLOR=BLUE
001300 EMPCOD DFHMDF POS=(10,22),LENGTH=4,ATTRB=(UNPROT,IC), X
001400 INITIAL='____'
001500 DFHMDF POS=(10,27),LENGTH=1,ATTRB=ASKIP
001600 DFHMDF POS=(13,15),LENGTH=6,ATTRB=(NORM,PROT), X
001700 INITIAL='ENAME:',COLOR=BLUE
001800 ENAME DFHMDF POS=(13,22),LENGTH=10,ATTRB=(NORM,UNPROT), X
001900 INITIAL='__________'
002000 DFHMDF POS=(13,33),LENGTH=1,ATTRB=ASKIP
002100 DFHMDF POS=(16,1),LENGTH=5,ATTRB=(NORM,PROT), X
002200 INITIAL='EMSG:',COLOR=BLUE
002300 MSG DFHMDF POS=(16,7),LENGTH=50,ATTRB=(NORM,UNPROT), X
002400 INITIAL='______________________________________________'
002500 DFHMDF POS=(16,58),LENGTH=1,ATTRB=ASKIP
002600 DFHMSD TYPE=FINAL
002700 END
COMPILER FOR MAPPING
EDIT MTPLP04.RACHNA.CICS(MAPJCL) - 01.11 Columns 00001 000
Command ===> Scroll ===> PA
****** ***************************** Top of Data ***************************
000100 //MAPJCLR JOB ,,CLASS=A,
000200 // MSGCLASS=H,MSGLEVEL=(1,1),
000300 // NOTIFY=&SYSUID
000400 //JOBPROC JCLLIB ORDER=IBMUSER.COMPILER.JCLS
000500 //CICSMAP EXEC CICSMAP1,
000600 // OUTC=*,
000700 // COPYLIB=MTPLP04.RACHNA.COPYLIB, --> BMS MAP LIB
000800 // LOADLIB=MTPLTRG.CICS.LOADLIB, ** DO NOT CHANGE
000900 // MAPNAME=SMIRAC --> MAPSET NAME
001000 //COPY.SYSUT1 DD DSN=MTPLP04.RACHNA.CICS(SMIRAC), --> SRC LIB
001100 // DISP=SHR
WILL GET O/P AS FOLLOWS:
TYPE :-- CEDA DEF MAPSET(SMIRAC) G(RS)
CEDA INS MAPSET(SMIRAC) G(RS)
CECI SEND MAP(TEST) MAPSET(SMIRAC)
AND PRESS ENTER .
WILL GET O/P AS BELOW.
RACHANA
DEPARTMENT : -----
CODE : ----