* %GOTO PLSRECB; /* BILINGUAL HEADER 03000010 MACRO 08000020 TRECBD 16000020 IEDQRECB DSECT . RESOURCE ELEMENT CNTRL BLOCK 24000020 * 32000020 * DISPLACEMENT 40000020 * 48000020 RECBKEY DS FL1 . KEY FIELD 0 56000020 RECBQCBA DS 3X . QCB ADDRESS +1 64000020 RECBPRI DS FL1 . PRIORITY +4 72000020 RECBLINK DS 3X . LINK FIELD +5 80000020 MEND */ 88000010 *%PLSRECB:; 89000010 * DECLARE 90000010 * 1 IEDQRECB BASED BDY(WORD), /*RESOURCE ELEMENT CNTRL BLK */ 91000010 */* */ 92000010 */* DISPLACEMENT */ 93000010 */* */ 94000010 * 2 RECBKEY PTR(8), /* KEY FIELD 0 */ 95000010 * 2 RECBQCBA PTR(24), /* QCB ADDRESS +1 */ 96000010 * 2 RECBPRI PTR(8), /* PRIORITY +4 */ 97000010 * 2 RECBLINK PTR(24); /* LINK FIELD +5 */ 98000010