( first to read ,write and update create KSDS and through REPRO pas data in P.S as given below)
EDIT MTPLP06.RACH.PDS(KSDS) - 01.05
****** ***************************** Top of Data *****
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //EXEC1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //SYSIN DD *
000500 DEFINE CLUSTER -
000600 (NAME(MTPLP06.RACH.KSDS) -
000700 VOLUME(USER01) -
000800 TRK(2,3) -
000900 CISZ(512) -
001000 KEYS(5,0) -
001100 FREESPACE(10,10) -
001110 RECORDSIZE(80,80) -
001200 INDEXED)
001300 /*
001400 //
EDIT MTPLP06.RACH.PDS(REPRO) - 01.02
****** ***************************** Top of Data
000100 //MTPLP06A JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IDCAMS
000300 //SYSPRINT DD SYSOUT=*
000400 //DD1 DD DSN=MTPLP06.RACH.PS,DISP=SHR
000500 //DD2 DD DSN=MTPLP06.RACH.KSDS,DISP=SHR
000600 //SYSIN DD *
000700 REPRO -
000800 INFILE(DD1) -
000900 OUTFILE(DD2)
001000 /*
PS CREATED IS
EDIT MTPLP06.RACH.PS
****** *********************
000100 D0001 C001
000200 D0002 C002
000300 D0003 C003
READ
EDIT MTPLP06.RACH.PDS(READ1) - 01.15 Columns 000
****** ***************************** 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.
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.
001410 MOVE LOW-VALUE TO TESTO.
001420 MOVE LOW-VALUE TO TESTI.
001430 MOVE LOW-VALUE TO REC1.
001440 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC')
001450 END-EXEC.
001460 EXEC CICS RECEIVE MAP('TEST') MAPSET('SMIRAC')
001470 END-EXEC.
001480 MOVE DEPTTI TO DEPTT.
001600 EXEC CICS READ
001700 FILE('RACH2')
001800 INTO(REC1)
001900 LENGTH(LENGTH OF REC1)
002000 RESP(WS-RESP)
002100 RIDFLD(DEPTT)
002300 END-EXEC.
002400 * IF WS-RESP = DFHRESP(NORMAL)
002500 MOVE DEPTT TO DEPTTO
002600 MOVE CODD TO CODDO
002700 * MOVE "RECORD READ " TO MSGO
002800 * ELSE
002900 MOVE "RECORD READ " TO MSGO .
003000 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC')
003100 END-EXEC.
003200 EXEC CICS RETURN
003300 END-EXEC.
First run READ pgm then run MAP and after getting Max cc 0 ) in CICS area def.ins ,trans id – then def, ins file name RACH2 by following commands
CEDA DEF FILE(RACH2) G(RS)---ENTER
THEN TYPE BELOW KSDS NAME MTPLP06.RACH.PDS
THEN TYPE REC LENT 080
THEN KEYLENT—5
THEN MAKE IT—F
THEN MAKE ALL OPTIONS YES
AND WILL GET DEFINED THEN INSTAL IT BY
CEDA INS FILE(RACH2) G(RS)—EN
CEMT I FILE(RACH2)---EN
THEN OPEN IT BY OPE
AND THEN ENTER
THEN GIVE TRANS ID- R009
AND BU CEDF MODE WILL GET O/P
WHEN U WILL GIV D0001
U WILL GET C001 AND IN MESG
RECORD READ.
WRITE
EDIT MTPLP06.RACH.PDS(WRITE) - 01.18 Columns 00001 0
****** ***************************** 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.
000610 01 WS-RBA 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.
001301 MOVE LOW-VALUE TO TESTO.
001302 MOVE LOW-VALUE TO TESTI.
001310 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC') END-EXEC.
001320 EXEC CICS RECEIVE MAP('TEST') MAPSET('SMIRAC') END-EXEC.
001330 MOVE DEPTTI TO DEPTT.
001340 MOVE CODDI TO CODD.
001400 EXEC CICS WRITE
001500 FILE('SMIT')
001600 FROM(REC1)
001700 LENGTH(LENGTH OF REC1)
001800 RESP(WS-RESP)
001900 RIDFLD(DEPTT)
002100 END-EXEC.
002200 IF WS-RESP = DFHRESP(NORMAL)
002500 MOVE 'RECORD WRITE' TO MSGO
002600 ELSE
002700 MOVE 'RECORD NOT READ' TO MSGO.
002800 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC') END-EXEC.
002900 EXEC CICS RETURN END-EXEC.
First run WRITE pgm then (IF already map installed don’t inst it) run MAP and after getting Max cc 0 ) in CICS area def.ins ,trans id – then def, ins file name SMIT by following commands AS ABOVE
TRANS ID S001
In this giv different deptt no. like D0098 and differ codd like c0d2 then will get message in msg- RECORD WRITE and check in ksds .
EDIT MTPLP06.RACH.PDS(UPDATE) - 01.06 Columns 00001
****** ***************************** 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')
001710 ERASE
001800 END-EXEC.
001900 EXEC CICS RECEIVE MAP('TEST') MAPSET('SMIRAC')
002000 END-EXEC.
002100 MOVE DEPTTI TO DEPTT.
002200 EXEC CICS READ
002300 FILE('RACH3')
002400 INTO(REC1)
002500 LENGTH(LENGTH OF REC1)
002600 RESP(WS-RESP)
002700 RIDFLD(DEPTT)
002710 UPDATE
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 RECEIVE MAP('TEST') MAPSET('SMIRAC')
003800 END-EXEC.
004000 MOVE CODDI TO CODD.
004100 EXEC CICS REWRITE
004200 FILE('RACH3')
004300 FROM(REC1)
004400 LENGTH(LENGTH OF REC1)
004500 RESP(WS-RESP)
004510 END-EXEC.
004600 IF WS-RESP = DFHRESP(NORMAL)
004700 MOVE "RECORD REWRITE" TO MSGO
004800 ELSE
004900 MOVE " RECORD NOT REWRITE" TO MSGO.
005000 EXEC CICS SEND MAP('TEST') MAPSET('SMIRAC')
5100 END-EXEC.
5101 005200 EXEC CICS RETURN
5102 005300 END-EXEC.
First run UPDATE pgm then (IF already map installed don’t inst it) run MAP and after getting Max cc 0 ) in CICS area def.ins ,trans id – then def, ins file name RACH3 by following commands as above .
Then it o/p first u wiil get blank map then again blank where type only D0001 then u will get c001 and message that – RECORED READ.
Then again get blank map so type there same D0001 then different codd i.e u001 and will get mesg—RECORD REWRITE
And chek in ksds.