EDIT MTPLP06.RACH.PDS(DEL) - 01.01 Columns 00
Command ===> Scroll
****** ***************************** Top of Data ********************
000100 ID DIVISION.
000200 PROGRAM-ID. RACH.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 WS-RESP PIC S9(8) USAGE COMP.
000700 01 REC1.
000800 02 DEPTT PIC X(5).
000900 02 PIC X.
001000 02 CODD PIC X(4).
001100 02 PIC X(70).
001200 COPY SMIRAC.
001300 PROCEDURE DIVISION.
001400 MOVE LOW-VALUE TO TESTO.
001500 MOVE LOW-VALUE TO TESTI.
001600 MOVE LOW-VALUE TO REC1.
001700 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC')
001800 END-EXEC.
001900 EXEC CICS RECEIVE MAP('TEST') MAPSET('SMIRAC')
002000 END-EXEC.
002100 MOVE DEPTTI TO DEPTT.
002110 EXEC CICS DELETE
002120 FILE('RACH4')
002130 RIDFLD(DEPTT)
002140 END-EXEC.
002200 EXEC CICS READ
002300 FILE('RACH4')
002400 INTO(REC1)
002500 LENGTH(LENGTH OF REC1)
002600 RESP(WS-RESP)
002700 RIDFLD(DEPTT)
002800 END-EXEC.
002900 IF WS-RESP = DFHRESP(NORMAL)
003000 MOVE DEPTT TO DEPTTO
003100 MOVE CODD TO CODDO
003200 MOVE "RECORD READ " TO MSGO
003300 ELSE
003400 MOVE "RECORD READ " TO MSGO .
003500 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC')
003600 END-EXEC.
003700 EXEC CICS RETURN
003800 END-EXEC.
EDIT MTPLP06.RACH.PDS(BROWSE) - 01.04 Columns 00001
Command ===> Scroll ===>
****** ***************************** Top of Data ************************
000100 IDENTIFICATION DIVISION.
000200 PROGRAM-ID. RACH.
000300 ENVIRONMENT DIVISION.
000400 DATA DIVISION.
000500 WORKING-STORAGE SECTION.
000600 01 WS-RESP PIC S9(8) USAGE COMP.
000800 01 REC1.
000900 02 DEPTT PIC X(5).
001000 02 PIC X.
001100 02 CODD PIC X(4).
001200 02 PIC X(70).
001300 COPY SMIRAC.
001400 PROCEDURE DIVISION.
001500 MOVE LOW-VALUE TO TESTO.
001600 MOVE LOW-VALUE TO TESTI.
001610 MOVE LOW-VALUE TO REC1.
001700 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC') END-EXEC.
001800 EXEC CICS RECEIVE MAP('TEST') MAPSET('SMIRAC') END-EXEC.
001900 MOVE DEPTTI TO DEPTT.
002000 MOVE CODDI TO CODD.
002100 EXEC CICS STARTBR
002200 FILE('RACH5')
002300 RIDFLD(DEPTT)
002400 END-EXEC.
002500 READ-PARA.
002600 EXEC CICS READNEXT
002700 FILE('RACH5')
002800 INTO(REC1)
002900 LENGTH(LENGTH OF REC1)
003000 RIDFLD(DEPTT)
003100 RESP(WS-RESP)
003200 END-EXEC.
003300 IF WS-RESP = DFHRESP(NORMAL)
003400 MOVE DEPTT TO DEPTTO
003500 MOVE CODD TO CODDO
003600 MOVE "RECORD READ" TO MSGO
003700 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC') END-EXEC
003900 EXEC CICS DELAY INTERVAL(000001) END-EXEC
004200 GO TO READ-PARA
004300 ELSE IF
004400 WS-RESP = DFHRESP(ENDFILE)
004500 MOVE " END OF FILE REACHED" TO MSGO
004600 ELSE
004700 MOVE " RECORD NOT READ " TO MSGO
004800 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC')
004900 END-EXEC.
005000 EXEC CICS RETURN
005100 END-EXEC.
EDIT MTPLP06.RACH.PDS(SMIRAC) - 01.21 Columns
Command ===> Scro
****** ***************************** Top of Data *****************
000100 SMIRAC DFHMSD TYPE=&SYSPARM,
000200 MODE=INOUT,
000300 LANG=COBOL,
000400 STORAGE=AUTO,
000500 TIOAPFX=YES,
000600 CTRL=(FREEKB,ALARM,FRSET),
000610 MAPATTS=(COLOR,HILIGHT),
000620 DSATTS=(COLOR,HILIGHT)
000700 TEST DFHMDI SIZE=(24,80),LINE=1,COLUMN=1
000800 DFHMDF POS=(10,25),LENGTH=7,ATTRB=PROT,
000900 INITIAL='RACHANA',COLOR=GREEN,HILIGHT=BLINK
001000 DFHMDF POS=(15,20),LENGTH=12,ATTRB=PROT,
001100 INITIAL='DEPARTMENT :',COLOR=BLUE
001200 DEPTT DFHMDF POS=(15,33),LENGTH=5,ATTRB=(UNPROT,IC),
001300 INITIAL='-----',COLOR=YELLOW
001400 DFHMDF POS=(15,39),LENGTH=1,ATTRB=ASKIP
001500 DFHMDF POS=(20,20),LENGTH=6,ATTRB=PROT,
001600 INITIAL='CODE :',COLOR=BLUE
001700 CODD DFHMDF POS=(20,31),LENGTH=4,ATTRB=(UNPROT),
001800 INITIAL='----',COLOR=YELLOW
001900 DFHMDF POS=(20,36),LENGTH=1,ATTRB=ASKIP
001910 DFHMDF POS=(23,23),LENGTH=6,ATTRB=PROT,
001920 INITIAL='EMSG :',COLOR=BLUE
001930 MSG DFHMDF POS=(23,30),LENGTH=20,ATTRB=(NORM,UNPROT),
001940 INITIAL='--------------------',COLOR=YELLOW
001950 DFHMDF POS=(23,51),LENGTH=1,ATTRB=ASKIP
002000 DFHMSD TYPE=FINAL
002100 END
EDIT MTPLP06.RACH.PDS(MAPJCL) - 01.12 Columns 00001
Command ===> Scroll ===
****** ***************************** 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=MTPLP06.RACHNA.COPYLIB, --> BMS MAP L
000800 // LOADLIB=MTPLTRG.CICS.LOADLIB, ** DO NOT CH
000900 // MAPNAME=SMIRAC --> MAPSET NAME
001000 //COPY.SYSUT1 DD DSN=MTPLP06.RACH.PDS(SMIRAC), --> SRC LIB
001100 // DISP=SHR
EDIT MTPLP06.RACH.PDS(COB) - 01.19 Columns 00001 00
Command ===> Scroll ===> P
****** ***************************** Top of Data **************************
000100 //MTPLP06J JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H
000200 //JOBPROC JCLLIB ORDER=IBMUSER.COMPILER.JCLS
000300 //CICSCOB EXEC CICSCOB1,
000400 // SRCLIB=MTPLP06.RACH.PDS, --> SOURCE LIB NAME
000500 // MEM=XCT, --> MEMBER
000600 // COPYLIB=MTPLP06.RACHNA.COPYLIB, --> BMS MAP LIB
000700 // LOADLIB=MTPLTRG.CICS.LOADLIB ** DO NOT CHANGE **