TITLE 'IGG019SI - CHECKPOINT DATA SET SECURITY INTERFACE ' 00001000 IGG019SI CSECT , 0001 00002000 @PROLOG BALR @12,0 0001 00003000 @PSTART DS 0H 0001 00004000 USING @PSTART,@12 0001 00005000 * /***************************************************************/ 00006000 * /* */ 00007000 * /* LOGIC */ 00008000 * /* */ 00009000 * /***************************************************************/ 00010000 * R2 = R1; /*SAVE PTR TO DECB */ 00011000 LR R2,R1 0015 00012000 * R0 = LENGTH(MSGLIST); /*GETMAIN LENGTH YM5746*/ 00013000 LA R0,78 0016 00014000 * GEN (GETMAIN R,LV=(0)); /*ISSUE GETMAIN */ 00015000 GETMAIN R,LV=(0) 00016000 * R3 = R1; /*SAVE PTR GOTTEN CORE YM5746*/ 00017000 LR R3,R1 0018 00018000 * MESSAGE = MSGLIST; /*MOVE IN WTO MSG SKELETON */ 00019000 MVC MESSAGE(78,R1),MSGLIST 0019 00020000 * MSGDDNM = TIOEDDNM; /*DDNAME TO MESSAGE */ 00021000 L @15,CVTPTR 0020 00022000 L @15,CVTTCBP(,@15) 0020 00023000 L @15,TCBPTR(,@15) 0020 00024000 L @14,DECDCBAD(,R2) 0020 00025000 LH @14,DCBTIOT(,@14) 0020 00026000 A @14,TCBTIO(,@15) 0020 00027000 MVC MSGDDNM(8,R1),TIOEDDNM(@14) 0020 00028000 * GEN(WTO MF=(E,(1))); /*ISSUE IEC954I MSG YM5746*/ 00029000 WTO MF=(E,(1)) 00030000 * R0 = LENGTH(MSGLIST); /*GET LENGTH TO FREE YM5746*/ 00031000 LA R0,78 0022 00032000 * GEN(FREEMAIN R,LV=(0),A=(3)); /*FREE MESSAGE CORE YM5746*/ 00033000 FREEMAIN R,LV=(0),A=(3) 00034000 * GEN(ABEND 575,DUMP,,SYSTEM); /*ISSUE S23F ABEND YM5746*/ 00035000 ABEND 575,DUMP,,SYSTEM 00036000 * END IGG019SI; 0025 00037000 @EL00001 L @13,4(,@13) 0025 00038000 @EF00001 DS 0H 0025 00039000 @ER00001 BR @14 0025 00040000 @DATA DS 0H 00041000 @DATD DSECT 00042000 DS 0F 00043000 @SA00001 DS 18F 00044000 IGG019SI CSECT 00045000 DS 0F 00046000 @DATD DSECT 00047000 DS 0D 00048000 @ENDDATD EQU * 00049000 IGG019SI CSECT 00050000 DS 0F 00051000 @SIZDATD DC AL1(0) 00052000 DC AL3(@ENDDATD-@DATD) 00053000 DS 0D 00054000 MSGLIST DS CL78 00055000 ORG MSGLIST 00056000 @NM00008 DC AL2(74) 00057000 @NM00009 DC X'8000' 00058000 @NM00010 DC CL70'IEC954I 23F INVALID ATTEMPT TO ACCESS A CHECKPOINT C00059000 DATA SET ( )' 00060000 @NM00011 DC X'0400' 00061000 @NM00012 DC X'0020' 00062000 ORG MSGLIST+78 00063000 @00 EQU 00 EQUATES FOR REGISTERS 0-15 00064000 @01 EQU 01 00065000 @02 EQU 02 00066000 @03 EQU 03 00067000 @04 EQU 04 00068000 @05 EQU 05 00069000 @06 EQU 06 00070000 @07 EQU 07 00071000 @08 EQU 08 00072000 @09 EQU 09 00073000 @10 EQU 10 00074000 @11 EQU 11 00075000 @12 EQU 12 00076000 @13 EQU 13 00077000 @14 EQU 14 00078000 @15 EQU 15 00079000 R0 EQU @00 00080000 R1 EQU @01 00081000 R2 EQU @02 00082000 R3 EQU @03 00083000 CVTPTR EQU 16 00084000 CVT EQU 0 00085000 CVTTCBP EQU CVT 00086000 TCBWORDS EQU 0 00087000 TCBPTR EQU TCBWORDS+4 00088000 TCB EQU 0 00089000 TCBTIO EQU TCB+12 00090000 DECB EQU 0 00091000 DECDCBAD EQU DECB+8 00092000 DCB EQU 0 00093000 DCBTIOT EQU DCB+40 00094000 TIOENTRY EQU 0 00095000 TIOEDDNM EQU TIOENTRY+4 00096000 MESSAGE EQU 0 00097000 MSGDDNM EQU MESSAGE+65 00098000 AGO .@UNREFD START UNREFERENCED COMPONENTS 00099000 @NM00007 EQU MESSAGE+73 00100000 @NM00006 EQU MESSAGE 00101000 @NM00005 EQU TIOENTRY 00102000 @NM00004 EQU DCB 00103000 @NM00003 EQU DECB 00104000 @NM00002 EQU TCB 00105000 @NM00001 EQU TCBWORDS 00106000 .@UNREFD ANOP END UNREFERENCED COMPONENTS 00107000 @ENDDATA EQU * 00108000 END IGG019SI,(C'PL/S-II',0402,74035) 00109000