*                                                                       00010002
*        %GOTO JFCBXBSL;      /*                                        00012002
         MACRO                                                          00020000
         IEFJFCBX                                                       00030000
*    OS/VS2 RELEASE 2, 09/28/73, LEVEL=2                                00032002
*                                                                       00034002
JFCBXTTR DS    CL3 -    DIRECT ACCESS ADDRESS FOR NEXT EXTENSION BLOCK  00040000
         DS    CL1 -    RESERVED                                        00060000
JFCBXVOL DS    15CL6 -  MAXIMUM NO. OF 15-SIX BYTE VOL. SER. NUMBERS    00070000
         DS    CL2 -    RESERVED                                        00073002
JFCBXNAM DS    CL44 -   ALIAS NAME FOR DSNAME IN THE JFCB  (MDC002)     00076002
*                                                                YM3584 00079002
JFCBXDEV DS    CL4 -    DEVICE TYPE RETRIEVED FROM CATALOG FOR          00082002
*                       RECATALOG  (MDC003)                      YM3584 00085002
         DS    CL28 -   RESERVED                                        00090002
JFCBXNXT DS    A -      ADDRESS OF NEXT JFCB EXTENSION           MDC001 00092002
         MEND  , -    */                                                00110002
*%JFCBXBSL : ;                                                          00120002
* /* OS/VS2 RELEASE 2, 09/28/73, LEVEL=2                             */ 00122002
*                                                                       00124002
* DECLARE                                                               00130000
* 1 JFCBX BASED (JFCBXPTR) BDY(DWORD) ,                                 00140000
*      5 JFCBXTTR CHAR(3),            /* DIRECT  ACCESS ADDRESS FOR     00150002
*                                        NEXT EXTENSION BLOCK        */ 00154002
*      5 *    CHAR(1),                /* RESERVED                    */ 00158002
*      5 JFCBXVOL (15) CHAR(6),       /* MAXIMUM NO. OF 15-SIX BYTE     00162002
*                                        VOL. SER. NUMBERS           */ 00166002
*      5 *             CHAR(2),       /* RESERVED                    */ 00170002
*      5 JFCBXNAM      CHAR(44),      /* ALIAS NAME FOR DSNAME IN       00174002
*                                        THE JFCB  (MDC002)    YM3584*/ 00178002
*      5 JFCBXDEV      CHAR(4),       /* DEVICE TYPE RETRIEVED FROM     00182002
*                                        CATALOG FOR RECATALOG          00186002
*                                        (MDC003)              YM3584*/ 00190002
*      5 *             CHAR(28),      /* RESERVED                    */ 00200002
*      5 JFCBXNXT      PTR(31);       /* ADDRESS OF NEXT JFCB           00250002
*                                        EXTENSION             MDC001*/ 00300002