MACRO 00010001 &MACNAME GETJSCB &SYSTEM=AOS2 00020001 .* 00022001 .* THIS MACRO SHOULD BE USED TO GET CORE FOR A JSCB BECAUSE 00024001 .* IT ALLOWS FOR A LENGTH CHANGE OF THE JSCB WITHOUT CAUSING 00026001 .* ANY RECODING IN A MODULE. THIS MACRO DOES NOT NEED TO BE 00028001 .* UPDATED IF THE JSCB LENGTH CHANGES BECAUSE IT USES SYMBOLS 00028401 .* FOR THE LENGTH OF THE JSCB AND FOR THE DISPLACEMENT OF THE 00028801 .* FIRST BYTE. THESE SYMBOLS ARE EQU'S PUT OUT BY THE IEZJSCB 00029201 .* MACRO SO THE IEZJSCB MACRO MUST BE USED IN ANY MODULE 00029601 .* WHICH ISSUES A GETJSCB. 00032201 .* 00034801 .* OS/VS1 RELEASE 3, OS/VS2 RELEASE 2, 07/20/73, LEVEL=1 00037402 .* 00039401 AIF ('&SYSTEM' EQ 'AOS1' OR '&SYSTEM' EQ 'MFT').GETAOS1 00040001 &MACNAME GETMAIN R,LV=JSCBAOS2,SP=253 00050001 XC 0(JSCBAOS2,1),0(1) CLEAR JSCB CORE 00060001 AGO .SETADDR 00062001 .GETAOS1 ANOP 00070001 &MACNAME GETMAIN R,LV=JSCBAOS1,SP=245 00080001 XC 0(JSCBAOS1,1),0(1) CLEAR CORE OF JSCB 00090001 .SETADDR ANOP 00140001 LA 15,JSCBDISP(0,0) LOAD DISPLACEMENT OF FIRST BYTE YM1995 00150002 SR 1,15 - COMPUTE ADDR TO BE STORED IN TCB 00160002 MEND 00180001