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