* %GOTO PF1PLS; /* BILINGUAL HEADER 01000000 MACRO 02000000 TPF1D 03000000 .*A000000-999999 @Y17XAXF 04000000 IEDPF1 DSECT 05000000 * 06000000 * DSECT FOR BUFFER PREFIX 07000000 * 08000000 PF1RH DS CL3 . RH 09000000 PF1FLAGS DS CL1 . FLAG BYTE 10000000 PF1FIDI EQU X'80' . FID INDICATOR 11000000 PF1EXPI EQU X'40' . EXPIDITED/NORMAL INDICATOR 12000000 *PF1FORM BITS 2&3 DESCRIBES 2ND WORD OF PREFIX 13000000 PF1PTRI EQU X'20' . PF1SEQP IS PRESENT 14000000 PF1IDI EQU X'10' . PF1SEQID ONLY IS PRESENT 15000000 PF1SEQRI EQU X'30' PF1SEQID AND PF1RULEN PRESENT 16000000 * EQU X'08'-X'01' . RESERVED 17000000 PF1WORD2 DS 0AL4 . 2ND WORD FORMATED AS INDICATED 18000000 * IN PF1FORM 19000000 PF1SEQP DS 0AL4 . PTR TO AN AREA INTO WHICH THE 20000000 * ASSIGNED SEQ# WILL BE 21000000 * STORED(FID1 ONLY) 22000000 PF1SEQID DS CL2 . FOR FID1 - SEQ# OR ID 23000000 * FID0 - IND 24000000 PF1RULEN DS CL2 . FOR FID1 ONLY - CONTAINS LENGTH 25000000 * OF RU(DATA) ON 0 LENGTH ERROR 26000000 * BUFFERS 27000000 PF1LEN EQU *-IEDPF1 . LENGTH OF THIS PREFIX 28000000 MEND 29000000 * */ 30000000 *%PF1PLS:; 31000000 *DECLARE 32000000 * 1 IEDPF1 BASED BDY(WORD), 33000000 */* */ 34000000 */* DSECT FOR BUFFER PREFIX */ 35000000 */* */ 36000000 * 2 PF1RH CHAR(3), /* RH */ 37000000 * 2 PF1FLAGS CHAR(1), /* FLAG BYTE */ 38000000 * 3 PF1FIDI BIT(1), /* FID INDICATOR */ 39000000 * 3 PF1EXPI BIT(1), /* EXPEDITED/NORMAL IND */ 40000000 * 3 PF1FORM BIT(2), /* DESCRIBES 2ND WORD OF PF1*/ 41000000 * 3 * BIT(4), /* RESERVED */ 42000000 * 2 PF1WORD2 PTR(32), /* 2ND WORD FORMATED AS */ 43000000 * /* INDICATED IN PF1FORM */ 44000000 * 4 PF1SEQP PTR(32), /* PTR TO AN AREA INTO WHICH */ 45000000 * /* THE ASSIGNED SEQ# WILL BE*/ 46000000 * /* STORED(FID1 ONLY) */ 47000000 * 5 PF1SEQID BIT(16), /* FOR FID1 - SEQ# OR ID */ 48000000 * /* FID0 - IND */ 49000000 * 5 PF1RULEN BIT(16); /* FOR FID1 ONLY - CONTAINS */ 50000000 * /* LEN OF RU(DATA) ON 0 */ 51000000 * /* LENGTH ERROR BUFFERS */ 52000000 * %PF1LEN='LENGTH(IEDPF1)'; /* LENGTH OF THIS PREFIX */ 53000000 */* PF1FORM VALUES */ 54000000 * DCL PF1IDI BIT(2) CONSTANT('01'B); /* PF1SEQP IS PRESENT */ 55000000 * DCL PF1PTRI BIT(2) CONSTANT('10'B); /* PF1SEQID ONLY IS PRESENT */ 56000000 * DCL PF1SEQRI BIT(2) CONSTANT('11'B); /* PF1SEQID & PF1RULEN ARE */ 57000000