Paging

IDENTIFICATION DIVISION. 000002 PROGRAM-ID. SAMPLE. 000003 DATA DIVISION. 000004 WORKING-STORAGE SECTION. 000005 01 NREC. 000006 05 NU PIC 99. 000007 05 NA PIC X(18). 000008 COPY KUMSET. 000009 COPY DFHBMSCA. 000010 01 NNN. 000011 05 N1 PIC 99. 000012 05 N2 PIC X(18). 000013 01 A PIC 99 COMP VALUE 1. 000014 01 WSS PIC X(5). 000015 01 LSS PIC 9(2) COMP. 000016 01 ITM PIC S9(4) COMP. 000017 01 AAA. 000018 05 D PIC 99. 000019 05 B PIC 99. 000020 05 C PIC 99. 000021 PROCEDURE DIVISION. 000022 MAIN-CODE. 000023*EACH KEY HAS ITS OWN FUNCTION 000024 EXEC CICS HANDLE AID 000025 PF1(0001) 000026 PF2(0006) 000027 PF3(0007) 000028 PF4(0008) 000029 PF5(00001) 000030 PF6(0606) 000031 PF7(0707) 000032 PF8(0808) 000033 END-EXEC. 000034 EXEC CICS HANDLE CONDITION 000035 ENDFILE(0505) 000036 NOTFND(0505) 000037 QZERO(0505) 000038 ERROR(0404) 000039 END-EXEC. 000040 MOVE 'WELCOME' TO WSS. 000041 EXEC CICS SEND CONTROL ALARM 000042 END-EXEC. 000043 EXEC CICS SEND TEXT 000044 FROM(WSS) 000045 ERASE 000046 END-EXEC. 000047 EXEC CICS SEND 000048 MAP('KUMMAP') 000049 MAPSET('KUMSET') 000050 FROM(KUMMAPO) 000051 ALARM 000052 ERASE 000053 END-EXEC. 000054 EXEC CICS RECEIVE 000055 MAP('KUMMAP') 000056 MAPSET('KUMSET') 000057 INTO(KUMMAPI) 000058 END-EXEC.

000059 000060 000061 000062 000063 000064 000065 000066 000067 000068 000069 000070 000071 000072 000073 000074 000075 000076 000077 000078 000079 000080 000081 000082 000083 0404. 000084 000085 000086 000087 000088 000089 000090 000091 000092 000093 000094 000095 000096 000097 000098 000099 000100 000101 000102 000103 000104 0001. 000105 000106 0003. 000107 000108 000109 000110 000111 000112 000113 000114 000115 000116

MOVE NUMI TO NU. MOVE NAMEI TO NA. EXEC CICS WRITE FILE('MACF') FROM(NREC) RIDFLD(NU) END-EXEC. EXEC CICS READ FILE('MACF') INTO(NREC) RIDFLD(NU) END-EXEC. MOVE 'OUTPUT' TO ABCO. MOVE NA TO NAMEO. MOVE NU TO NUMO. EXEC CICS SEND MAP('KUMMAP') MAPSET('KUMSET') FROM(KUMMAPO) CURSOR(300) ERASE END-EXEC. EXEC CICS RETURN END-EXEC. MOVE 'ERROR' TO WSS. MOVE 5 TO LSS. EXEC CICS LINK PROGRAM('CA3') COMMAREA(WSS) LENGTH(LSS) END-EXEC. MOVE 'RETURN' TO ABCO. MOVE 'SUCCESS' TO NAMEO. MOVE 55 TO NUMO. MOVE -1 TO NUML. EXEC CICS SEND MAP('KUMMAP') MAPSET('KUMSET') FROM(KUMMAPO) CURSOR ERASE END-EXEC. EXEC CICS RETURN END-EXEC. MOVE 'PF1' TO ABC1O. MOVE A TO NUM1O. MOVE 'ACCUM' TO NAME1O. EXEC CICS SEND MAP('KUMMAP1') MAPSET('KUMSET') FROM(KUMMAP1O) ACCUM PAGING END-EXEC. MOVE 'ERROR' TO ABC2O.

000117 000118 000119 000120 000121 000122 000123 000124 000125 000126 000127 000128 000129 000130 0006. 000131 000132 000133 000134 000135 000136 000137 000138 000139 000140 000141 000142 000143 000144 000145 000146 000147 000148 000149 000150 000151 000152 000153 000154 000155 0007. 000156 000157 000158 000159 000160 000161 000162 000163 000164 000165 000166 000167 000168 000169 000170 000171 000172 0008. 000173 000174

EXEC CICS SEND MAP('KUMMAP2') MAPSET('KUMSET') FROM(KUMMAP2O) ACCUM PAGING END-EXEC. COMPUTE A = A + 1. IF A < 5 GO TO 0003. EXEC CICS SEND PAGE END-EXEC. EXEC CICS RETURN END-EXEC. MOVE 25 TO NU. MOVE 'CCCCC' TO NA. EXEC CICS WRITEQ QUEUE('SUMA') FROM(NREC) ITEM(ITM) MAIN END-EXEC. MOVE 1 TO ITM. EXEC CICS READQ QUEUE('SUMA') INTO(NREC) ITEM(ITM) END-EXEC. MOVE 'QUEUE' TO ABCO. MOVE NA TO NAMEO. MOVE NU TO NUMO. EXEC CICS SEND MAP('KUMMAP') MAPSET('KUMSET') FROM(KUMMAPO) ERASE END-EXEC. EXEC CICS RETURN END-EXEC. MOVE 'ACCUM' TO NAME1O. EXEC CICS SEND MAP('KUMMAP1') MAPSET('KUMSET') FROM(KUMMAP1O) ACCUM END-EXEC. MOVE 'ERROR' TO ABC2O. EXEC CICS SEND MAP('KUMMAP2') MAPSET('KUMSET') FROM(KUMMAP2O) ACCUM END-EXEC. EXEC CICS SEND PAGE END-EXEC. EXEC CICS RETURN END-EXEC. MOVE 0 TO NU. EXEC CICS STARTBR

000175 000176 000177 000178 000179 000180 000181 000182 000183 000184 000185 000186 000187 000188 000189 000190 000191 000192 000193 000194 000195 000196 000197 000198 000199 000200 000201 000202 000203 000204 000205 000206 000207 000208 000209 000210 000211 000212 000213 000214 000215 000216 000217 000218 000219 000220 000221 000222 000223 000224 000225 000226 000227 000228 000229 000230 000231 000232

FILE('MACF') RIDFLD(NU) END-EXEC. 00001. EXEC CICS READNEXT FILE('MACF') INTO(NREC) RIDFLD(NU) END-EXEC. MOVE 'OUTPUT' TO ABCO. MOVE NA TO NAMEO. MOVE NU TO NUMO. EXEC CICS SEND MAP('KUMMAP') MAPSET('KUMSET') FROM(KUMMAPO) END-EXEC. GO TO 00001. 0505. MOVE 'ENDED' TO WSS. EXEC CICS SEND TEXT FROM(WSS) ERASE END-EXEC. EXEC CICS RETURN END-EXEC. 0606. EXEC MOVE EXEC EXEC

CICS ASKTIME END-EXEC. 223344 TO AAA. CICS SEND FROM(AAA) ERASE END-EXEC. CICS RECEIVE INTO(AAA) END-EXEC. EXEC CICS SEND FROM(AAA) ERASE END-EXEC. EXEC CICS RETURN END-EXEC. 0707. MOVE 'NEGA' TO WSS. EXEC CICS SEND TEXT FROM(WSS) ERASE END-EXEC. EXEC CICS SEND MAP('KUMMAP') MAPSET('KUMSET') FROM(KUMMAPO) ERASE END-EXEC. EXEC CICS RECEIVE MAP('KUMMAP') MAPSET('KUMSET') INTO(KUMMAPI) END-EXEC. MOVE NUMI TO N1. MOVE NAMEI TO N2. MOVE 'NEGGG' TO ABCO. MOVE N1 TO NUMO.

000233 000234 000235 000236 000237 000238 000239 000240 000241 0808. 000242 000243 000244 000245 000246 000247 000248 000249

MOVE N2 TO NAMEO. EXEC CICS SEND MAP('KUMMAP') MAPSET('KUMSET') FROM(KUMMAPO) ERASE END-EXEC. EXEC CICS RETURN END-EXEC. MOVE DFHBMEOF TO NAMEA. EXEC CICS SEND MAP('KUMMAP') MAPSET('KUMSET') CURSOR ERASE END-EXEC. EXEC CICS RETURN END-EXEC.

http://ibmmainframes.com/viewtopic.php?t=41536&highlight=paging