/* NAME - IDAVBPL */ 01400002 /* COMMON NAME - LOGICAL GROUP CHAIN BLOCK (LGCB) */ 01450002 /* OWNER - VIRTUAL BLOCK PROCESSOR */ 01500002 /* LANGUAGE - PLS2 */ 01550002 /* FUNCTION - HAS INDICATION OF WHETHER THE DATASET(LOGICAL */ 01600002 /* GROUP) IS JOURNALED OR NOT AND WHETHER THE */ 01650002 /* NO STORED IS THE LOGICAL GROUP NUMBER */ 01660002 /* OR THE STORAGE LOCATOR SYMBOL */ 01700002 /* LOCATION - IS CHAINED OFF OF ASCB IN CSA IN SUBPOOL 241 */ 01800002 /* STORAGE ACQUIRED BY - */ 01850002 /* IDAVBPO1, IDAVBPJ2 */ 01900002 /* BLOCK UPDATED BY - */ 01950002 /* IDAVBPJ2,IDAVBPJ1,IDAVBPS1 */ 02000002 /* AND IDAVBPS2 */ 02050002 /* */ 02100002 /* 16 BYTE LGCB */ 02150002 DCL 1 LGCB BASED BDY(WORD), 02200002 2 LGCBCPTR PTR(31),/* ADDR OF NEXT LGCB OR 0(LAST LGCB)*/02250002 2 LGCBLGN CHAR(8), /* LOGICAL GROUP NO. */ 02300002 3 LGCBSSYM CHAR(8), /* STORAGE LOCATOR SYMBOL */ 02350002 2 LGCBFLAG BIT(8), /* STATUS FLAG BYTE */ 02400002 3 LGCBJNL BIT(1), /* IF ON, LOG.GROUP JOURNALD 02450002 AND S-SYMBOL STORED IN LGCB ELSE LGN STORED */ 02460030 3 * BIT(7), /* NOT USED */ 02650002 2 * CHAR(1), /* NOT USED */ 02700002 2 LGCBASID CHAR(2);/* ASID OF THE MEMORY */ 02750002