* %GOTO BSLPRF; /* 00100022 MACRO 00300008 TPRFD 00400008 .*A-000000-999999 @X31X8X0 00500008 .* CHANGE ACTIVITY = AS FOLLOWS: 00600122 .*C144000 SA51078 00600222 .*A055000,061000,144600-146400 SA51078 00600322 .*C066000 SA51783 00600422 .*A067000-068000 SA51783 00600522 .*C01000,093000 S22029 00603022 .*D126000-129000 S22029 00606022 .*A009000,051000 S21101 00610020 .*D249000-948000 S21101 00620020 .*A006200,132000 S22025 00710022 .*C010000 S22025 00800022 .*A000000,054000,249000 S22024 00830022 .*C246000 S22024 00860022 .*A053700,115000,361000,751000-752000 X03039 00870008 .*C010000,274000,358000,414000,493000 X03039 00880008 .*D055001 X03039 00890008 .*C010000,274000 @Z30X8XE 00895000 .*A055000,171000,729000,638000 @Y17XAXF 00896000 .*C138000,473000-477000 @Y17XAXF 00897000 IEDQPRF DSECT 00900020 * UPDATED 6/7/74 @Z30X8XE 01000000 .* CONVERT TO A BILINGUAL DSECT 07/17/72 S22024 01100022 SPACE 01200020 SPACE 01500020 PRFRCB DS 0D . RESOURCE CONTROL BLOCK 01800020 PRFOPCDE DS 0XL1 . CCW OPERATION CODE 02100020 PRFKEY DS XL1 . ELEMENT KEY OF BUFFER 02400020 PRFIOADR DS 0AL3 . NEXT DATA BYTE(ADDRESS) TO BE 02700020 * TRANSFERED(READ) 03000020 PRFQCBA DS XL3 . QCB ADDRESS 03300020 PRFFLAGS DS 0XL1 . CCW FLAGS 03600020 PRFPRI DS XL1 . PRIORITY OF BUFFER 03900020 PRFLINK DS 0XL3 . LINK FIELD OF BUFFER 04200020 DS XL1 . UNUSED WHEN CCW 04500020 PRFCOUNT DS H . CCW (READ/WRITE) COUNT 04800020 PRFTIC DS 0A . TIC CCW & LINK TO NEXT UNIT 05100000 * @Y17XAXF 05130000 PRFTICC DS XL1 . TIC CCW @Y17XAXF 05160000 PRFEOMSG EQU X'80' . TEMPORARY END OF MESSAGE S21101 05200020 * S21101 05250020 PRFBFMM EQU X'40' . HEADER CONVERTED TO TEXT S21101 05300020 * S21101 05350020 PRFTICON EQU X'08' . TIC COMMAND CODE X03039 05370008 PRFTI0 DS AL3 . TIC ADDRESS @Y17XAXF 05380000 PRFSUNIT DS 0XL1 . START OF LOGICAL UNIT 05400020 PRFPLQCB DS 0XL1 . PRIORITY INDEX SA51078 05500022 PRFPIUO DS 0XL1 . OFFSET TO PIU @Y17XAXF 05600000 PRFNBUNT DS XL1 . NO. UNITS IN THIS BUFFER 05700020 PRFLCB DS AL3 . POINTER TO LCB 06000020 PRFSVFFO DS 0XL3 . FEFO PTR TO MARK SVCD SA51078 06100022 PRFSRCE DS H . SRCE INDEX TO TERMNAME TBL 06300020 PRFSIZE DS 0H . SIZE OF DATA IN THIS BFRSA51783 06600022 DS XL1 . LAST BYTE OF SVFFO SA51783 06700022 PRFSVFLG DS XL1 . SAVED DATA FLAGS SA51783 06800022 PRFSTAT1 DS XL1 . STATUS BYTE 06900020 * BIT DEFINITIONS 07200020 PRFCNCLN EQU X'80' . CANCEL MESSAGE EXECUTED 07500020 PRFCNCLF EQU X'FF'-PRFCNCLN . MESSAGE NOT CANCELLED 07800020 PRFERMGN EQU X'40' . ERROR MESSAGE IN THIS BFR 08100020 PRFERMGF EQU X'BF' . NOT ERROR MESSAGE BUFFER 08400020 PRFITCPN EQU X'20' . MESSAGE BEING HELD 08700020 PRFITCPF EQU X'DF' . MESSAGE NOT BEING HELD 09000020 PRFTSMSG EQU X'10' . THIS IS A TSO MESSAGE S22029 09300022 PRFDUPLN EQU X'08' . DUPLICATE HEADER BUFFER 09600020 PRFDUPLF EQU X'F7' . ORIGINAL BUFFER 09900020 PRFEOFN EQU X'04' . SETEOF WAS EXECUTED 10200020 PRFEOFF EQU X'FB' . SETEOF NOT EXECUTED 10500020 PRFLOCK EQU PRFEOFN . LOCK EXECUTED THIS MESSAGE 10800020 PRFNLSTN EQU X'02' . NOT LAST BUFFER 11100020 PRFNLSTF EQU X'FD' . LAST BUFFER 11400020 PRFESCAP EQU X'FC' . OP CONTROL ESCAPE BUFFER X03039 11500008 PRFNHDRN EQU X'01' . NOT HEADER BUFFER 11700020 PRFNHDRF EQU X'FE' . HEADER BUFFER 12000020 * 12300020 PRFXTRA DS 0AL3 . POINTER TO ADDL RCDS - CURR 13200020 ORG PRFXTRA+1 SET DISP TO EOB S22025 13270022 PRFEOB DS 0H EOB OFFSET SAVE AREA S22025 13340022 ORG PRFXTRA S22025 13410022 PRFCORE DS AL3 . POINTER TO CURR RCD - COREQ 13500020 PRFSCAN DS 0H SCAN POINTER @Y17XAXF 13800000 DS CL1 . RESERVED @Y17XAXF 13900000 PRFISIZE DS CL1 . NUMBER OF RESERVES @Y17XAXF 14000000 PRFNTXT DS 0AL3 . POINTER TO NEXT TEXT SEG 14100020 PRFEOBOF DS 0XL1 . OFFSET INTO RECORD SA51078 14400022 PRFSVPRI DS 0XL1 . PQCB INDEX TO MARK SVCD SA51078 14460022 PRFTQBCK DS 0XL3 . BACK-CHAIN TEXT SEGS SA51078 14520022 DS XL1 . SA51078 14580022 PRFSVSEQ DS XL2 . SEQ NO FOR MARK SVCD SA51078 14640022 PRFCRCD DS AL3 . POINTER TO CURRENT SEGMENT 14700020 PRFNHDR DS 0AL3 . POINTER TO NEXT HDR SEG 15000020 PRFCHDR DS AL3 . POINTER TO HDR OF CURR MSG 15300020 PRFSTXT DS 0XL1 . START OF TEXT LABEL 15600020 * 15900020 PRFHQBCK DS AL3 . BACK CHAIN - HDR SEGMENTS 16200020 PRFISEQ DS H . INPUT SEQUENCE NUMBER 16500020 PRFDEST DS H . DEST INDEX TO TERMNAME TBL 16800020 PRFSHDR DS 0XL1 . START OF HEADER LABEL 17100020 SPACE 3 @Y17XAXF 17107000 IEDPF1 DSECT @Y17XAXF 17114000 * @Y17XAXF 17121000 * DSECT FOR BUFFER PREFIX @Y17XAXF 17128000 * @Y17XAXF 17135000 PRF1RH DS CL3 . RH @Y17XAXF 17142000 PRF1FLG1 DS XL1 . FLAG BYTE @Y17XAXF 17149000 PRF1FIDI EQU X'80' . FID1 INDICATOR @Y17XAXF 17156000 PRFIEXPI EQU X'40' . EXPIDITED/NORMAL IND @Y17XAXF 17163000 *PRF1FORM BITS 2&3 DESC 2ND WORD OF PREF @Y17XAXF 17170000 PRF1PTRI EQU X'10' . PRF1SEQP IS PRESENT @Y17XAXF 17177000 PRF1IDI EQU X'20' . PRF1SQID ONLY IS @Y17XAXF 17181000 * PRESENT @Y17XAXF 17186000 PRF1SQLI EQU X'30' PRF1SQID AND @Y17XAXF 17191000 * PRF1RULN PRESENT @Y17XAXF 17196000 PRF1USS EQU X'08' . CONV FROM USS TO FSS @Y17XAXF 17201000 PRF1LOGD EQU X'04' . BUFFER CONTAINS LOGON DATA 17212000 * @Y17XAXF 17214000 * EQU X'02'-X'01' . RESERVED @Y17XAXF 17216000 PRF1WD2 DS 0A . 2ND WORD FORMAT AS IND @Y17XAXF 17219000 * IN PRFFORM @Y17XAXF 17226000 PRF1SEQP DS 0A . PTR TO AN AREA INTO @Y17XAXF 17233000 * WHICH ASSIGNED NUMBER @Y17XAXF 17234000 * WILL BE STORED(FID1) @Y17XAXF 17247000 PRF1SQID DS 0H . FOR FID1 - SEQ @Y17XAXF 17254000 * FID0 - IND @Y17XAXF 17261000 PRF1TAG1 DS XL1 . FIRST TAG BYTE @Y17XAXF 17262000 * USE TTHTAGS VALUES FOR PRF1TAGS @Y17XAXF 17263000 *PRF1TAGS BITS 0-3 . TAG ROUTING AND TYPE @Y17XAXF 17264000 * BITS 4-7 . RESERVED .. @Y17XAXF 17265000 * USE TTHTAG2 TP OP CODE VALUES FOR PRF1TAG2 @Y17XAXF 17265500 PRF1TAG2 DS XL1 . SECOND TAG BYTE @Y17XAXF 17266000 * (WHEN USED AS A TP OP @Y17XAXF 17266500 * CODE, PRF1TAG1 MUST @Y17XAXF 17267000 * BE 0) @Y17XAXF 17267500 PRF1RULN DS H . FOR FID1 ONLY - LENGTH @Y17XAXF 17268000 * OF RU(DATA) ON 0 LEN @Y17XAXF 17275000 * ERROR BUFFERS @Y17XAXF 17282000 PRF1LEN EQU *-IEDPF1 . LENGTH OF BUFFER PREF @Y17XAXF 17289000 SPACE 2 @Y17XAXF 17296000 IEDPF2 DSECT PIU PREFIX @Y17XAXF 17303000 * @Y17XAXF 17310000 * DSECT FOR PIU PREFIX @Y17XAXF 17317000 * @Y17XAXF 17324000 PRF2FLG2 DS XL1 . FLAG BYTE @Y17XAXF 17331000 PRF2TNTI EQU X'80' . TNT OFFSETS EXIST @Y17XAXF 17338000 * IN PIU @Y17XAXF 17345000 PRF2FORM EQU X'40' . 2ND WORD IN PREFIX @Y17XAXF 17346000 * CONTAINS A POINTER @Y17XAXF 17347000 * TO A SEQ NO AREA @Y17XAXF 17348000 PRF2SMI EQU X'20' . START MI INDICATOR(TSO ONLY) 17352000 * @Y17XAXF 17353000 PRF2TERM EQU X'10' . FORCED TERMINATE IN @YM08991 17353310 * PROGRESS @YM08991 17353610 * EQU X'08'-X'01' . RESERVED @YM08991 17354010 DS CL3 . RESERVED @Y17XAXF 17355000 PRF2WD2 DS 0A 2ND WORD(FORMAT DEFINED@Y17XAXF 17359000 * BY PRF2FORM FIELD @Y17XAXF 17361000 PRF2SEQP DS A . PTR TO SEQ NO AREA @Y17XAXF 17363000 PRF2LEN EQU *-IEDPF2 . LEN OF PIU PREFIX @Y17XAXF 17366000 SPACE 2 @Y17XAXF 17400000 * ************************************************************* 17420000 * 0 * KEY * QCBA * 17700020 * ************************************************************* 18000020 * 4 * PRI * LINK * 18300020 * ************************************************************* 18600020 * 8 * TIC * 18900020 * ************************************************************* 19200020 * 12 * NBUNT/BTUA * LCB * 19500022 * ************************************************************* 19800020 * 16 * SRCE * SIZE * 20100020 * ************************************************************* 20400020 * 20 * STAT1 * XTRA/CORE * 20700020 * ************************************************************* 21000020 * 24 * SCAN * NTXT/TQBCK * 21300020 * ************************************************************* 21600020 * 28 * NTXT/TQBCK * CRCD * 21900020 * ************************************************************* 22200020 * 32 * NHDR/CHDR * STXT/HQBCK * 22500020 * ************************************************************* 22800020 * 36 * STXT/HQBCK * ISEQ * 23100020 * ************************************************************* 23400020 * 40 * DEST * 23700020 * ******************************* 24000020 * 24300020 MEND , */ 24600022 *%BSLPRF : ; 25300022 *DECLARE 26000022 * 1 IEDQPRF BDY(DWORD) BASED(IEDQPPTR), 26700022 */* UPDATED 6/7/74 Y30X8XE*/ 27400008 * 2 PRFRCB CHAR(8) BDY(DWORD), /* RESOURCE CONTROL BLOCK */ 28100022 * 3 PRFKEY CHAR(1), /* ELEMENT KEY OF BUFFER */ 28800022 * 4 PRFOPCDE CHAR(1), /* CCW OPERATION CODE */ 29500022 * 3 PRFQCBA PTR(24) BDY(BYTE), /* QCB ADDRESS */ 30200022 * 4 PRFIOADR PTR(24) BDY(BYTE), /* NEXT DATA BYTE(ADDRESS) 30900022 * TO BE TRANSFERRED(READ) */ 31600022 * 3 PRFPRI CHAR(1), /* PRIORITY OF BUFFER */ 32300022 * 4 PRFFLAGS CHAR(1), /* CCW FLAGS */ 33000022 * 3 PRFLINK PTR(24) BDY(BYTE), /* LINK FIELD OF BUFFER */ 33700022 * 4 * CHAR(1), /* UNUSED WHEN CCW */ 34400022 * 4 PRFCOUNT FIXED(15) BDY(BYTE), /* CCW (READ/WRITE) COUNT */ 35100022 * 2 PRFTIC CHAR(4), /* TIC CCW AND NEXT UNIT ADDR 35800008 * X03039*/ 36100008 * 3 PRFTICC CHAR(1), /* TIC CCW @Y17XAXF*/ 36500000 * 4 PRFEOMSG BIT(1), /* TEMPORARY END OF 37200022 * MESSAGE S21101*/ 37900022 * 4 PRFBFMM BIT(1), /* HEADER CONVERTED TO 38600022 * TEXT S21101*/ 39300022 * 4 * BIT(1), /* RESERVED */ 40000022 * 4 * BIT(1), /* RESERVED */ 40700022 * 4 PRFTICON BIT(1), /* TIC COMMAND CODE X03039*/ 41400008 * 4 * BIT(1), /* RESERVED */ 42100022 * 4 * BIT(1), /* RESERVED */ 42800022 * 4 * BIT(1), /* RESERVED */ 43500022 * 3 PRFTI0 PTR(24), /* TIC ADDRESS */ 44200022 * 2 PRFNBUNT PTR(8), /* NUMBER OF UNITS IN THIS 44900022 * BUFFER */ 45600022 * 3 PRFSUNIT CHAR(1), /* START OF LOGICAL UNIT */ 46300022 * 4 PRFPLQCB PTR(8), /* PRIORITY INDEX SA51078*/ 47000000 * 5 PRFPIUO PTR(8), /* OFFSET TO PIU @Y17XAXF*/ 47300000 * 2 PRFLCB PTR(24) BDY(BYTE), /* POINTER TO LCB */ 48400022 * 2 * CHAR(4), /* START OF SRCE AND SIZE */ 49100000 * 3 PRFSVFFO PTR(24) BDY(BYTE), /* FEFO PTR TO MARK SVCD 49300008 * SA51078*/ 49500000 * /* SRCE INDEX TO TERMNAME TBL*/ 49700000 * 4 PRFSRCE FIXED(15) BDY(HWORD), 49900000 * /* SIZE OF DATA IN THIS BFR */ 50100000 * 4 PRFSIZE FIXED(15) BDY(HWORD), 50300000 * 3 PRFSVFLG PTR(8), /* SAVED DATA FLAGS SA51783*/ 50500000 * 2 PRFSTAT1 CHAR(1), /* STATUS BYTE */ 51200022 * 3 PRFCNCLN BIT(1), /* CANCEL MESSAGE EXECUTED */ 51900022 * 3 PRFERMGN BIT(1), /* ERROR MESSAGE IN THIS BFR */ 52600022 * 3 PRFITCPN BIT(1), /* MESSAGE BEING HELD */ 53300022 * 3 PRFTSMSG BIT(1), /* THIS IS A TSO MSG S05331*/ 54000022 * 3 PRFDUPLN BIT(1), /* DUPLICATE HEADER BUFFER */ 54700022 * 3 PRFEOFN BIT(1), /* SETEOF WAS EXECUTED */ 55400022 * 4 PRFLOCK BIT(1), /* MESSAGE EXECUTED BY LOCK */ 56100022 * 3 PRFNLSTN BIT(1), /* NOT LAST BUFFER */ 56800022 * 3 PRFNHDRN BIT(1), /* NOT HEADER BUFFER */ 57500022 * 2 PRFCORE PTR(24) BDY(BYTE), /* POINTER TO CURRENT RCD - 58200022 * COREQ */ 58900022 * 3 PRFXTRA PTR(24) BDY(BYTE), /* POINTER TO ADDL RCDS - 59600022 * CURR */ 60300022 * 4 PRFSTSO CHAR(1), /* START OF TIME SHARING 61000022 * DATA TSO*/ 61700022 * 4 PRFEOB CHAR(2), /* EOB OFFSET SAVE AREA 62400022 * S22025*/ 63100022 * 2 PRFSCAN FIXED(15), /* SCAN POINTER */ 63800022 * 3 * CHAR(1), /* RESERVED @Y17XAXF*/ 64000000 * 3 PRFISIZE CHAR(1), /* NUMBER OF RESERVE@Y17XAXF*/ 64200000 * 2 PRFTQBCK PTR(24) BDY(BYTE), /* BACK CHAIN - TEXT 64500022 * SEGMENTS */ 65200022 * 3 PRFNTXT PTR(24) BDY(BYTE), /* POINTER TO NEXT TEXT SEG */ 65900022 * 4 PRFEOBOF PTR(8), /* OFFSET INTO RECORD SA51078*/ 66000000 * 5 PRFSVPRI PTR(8), /* PQCB INDEX TO MARK SVCD 66100000 * SA51078*/ 66200000 * 4 PRFSVSEQ CHAR(2), /* SEQ NO FOR MARK SVCD 66300000 * SA51078*/ 66400000 * 2 PRFCRCD PTR(24) BDY(BYTE), /* POINTER TO CURRENT 66600022 * SEGMENT */ 67300022 * 2 PRFCHDR PTR(24) BDY(BYTE), /* POINTER TO HDR OF CURR 68000022 * MSG */ 68700022 * 3 PRFNHDR PTR(24) BDY(BYTE), /* POINTER TO NEXT HDR SEG */ 69400022 * 2 PRFHQBCK PTR(24) BDY(BYTE), /* BACK CHAIN - HDR SEGMENTS */ 70100022 * 3 PRFSTXT CHAR(1), /* START OF TEXT LABEL */ 70800022 * 2 PRFISEQ FIXED(15), /* INPUT SEQUENCE NUMBER */ 71500022 * 2 PRFDEST FIXED(15); /* DEST INDEX TO TERMNAME 72200022 * TABLE */ 72900022 *DECLARE /* @Y17XAXF*/ 72910000 * 1 IEDPF1 BASED(ADDR(IEDQPRF)-LENGTH(IEDPF1)), /* @Y17XAXF*/ 72920000 */* @Y17XAXF*/ 72930000 */* DSECT FOR BUFFER PREFIX @Y17XAXF*/ 72940000 */* @Y17XAXF*/ 72950000 * 2 PRF1RH CHAR(3), /* RH @Y17XAXF*/ 72960000 * 2 PRF1FLG1 BIT(8), /* FLAG BYTE @Y17XAXF*/ 72967000 * 3 PRF1FIDI BIT(1), /* FID1 INDICATOR @Y17XAXF*/ 72974000 * 3 PRF1EXPI BIT(1), /* EXPED/NORMAL IND @Y17XAXF*/ 72981000 * 3 PRF1FORM BIT(2), /* DESC 2ND WORD @Y17XAXF*/ 72988000 * 3 PRF1USS BIT(1), /* CONV FROM USS @Y17XAXF*/ 72995000 * /* TO FSS @Y17XAXF*/ 73002000 * 3 PRF1LOGD BIT(1), /* BUFFER CONTAINS LOGON DATA 73010000 * @Y17XAXF*/ 73013000 * 3 * BIT(2), /* RESERVED @Y17XAXF*/ 73016000 * 2 PRF1WD2 PTR(31), /* 2ND WORD FORM'T A @Y17XAXF*/ 73020000 * /* IND IN PRFFORM @Y17XAXF*/ 73030000 * 4 PRF1SEQP PTR(31), /* POINTER TO AREA @Y17XAXF*/ 73040000 * /* INTO WHICH THE @Y17XAXF*/ 73046000 * /* ASSIGNED NUMBER @Y17XAXF*/ 73049000 * /* IS STORED(FID1) @Y17XAXF*/ 73060000 * 5 PRF1SQID FIXED(16), /* FOR FID1 - SEQ @Y17XAXF*/ 73065000 * /* FID0 - IND @Y17XAXF*/ 73080000 * 6 PRF1TAG1 BIT(8), /* FIRST TAG BYTE @Y17XAXF*/ 73081000 */* CAN USE TTHTAGS VALUES FOR PRF1TAGS @Y17XAXF*/ 73082000 * 7 PRF1TAGS BIT(4), /* TAG ROUT + TYPE @Y17XAXF*/ 73083000 * 7 * BIT(4), /* RESERVED. @Y17XAXF*/ 73084000 */* TTHTAG2 TP OP CODE VALUES TO BE USED FOR PRF1TAG2 @Y17XAXF*/ 73085000 * 6 PRF1TAG2 BIT(8), /* SECOND TAG BYTE 73086000 * (WHEN USED AS A TP OP 73087000 * PRF1TAG1 MUST BE 0 73088000 * @Y17XAXF*/ 73089000 * 5 PRF1RULN FIXED(16); /* FOR FID1 ONLY @Y17XAXF*/ 73090000 * /* LEN OF RUDATA ON @Y17XAXF*/ 73100000 * /* 0 LEN ERROR BUFS @Y17XAXF*/ 73110000 * %PRF1LEN='LENGTH(IEDPF1)'; /* LEN OF BUFFER PRF @Y17XAXF*/ 73120000 */* PRF1FORM VALUES @Y17XAXF*/ 73130000 * DCL PRF1PTRI BIT(2) CONSTANT('01'B); /* PRF1SEQP IS PRES @YM07397*/ 73140000 * DCL PRF1IDI BIT(2) CONSTANT('10'B); /* PRF1SQID IS PRES @Y17XAXF*/ 73150000 * DCL PRF1SQLI BIT(2) CONSTANT('11'B); /* PRF1SQID,PRF1RULN @Y17XAXF*/ 73160000 * /* ARE PRESENT @Y17XAXF*/ 73170000 * DECLARE /* @Y17XAXF*/ 73180000 * 1 IEDPF2 BASED(ADDR(IEDQPRF)-LENGTH(IEDPF2)), /* @Y17XAXF*/ 73190000 */* @Y17XAXF*/ 73192000 */* DSECT FOR PIU BUFFER @Y17XAXF*/ 73194000 */* @Y17XAXF*/ 73196000 * 2 PRF2FLG2 BIT(8), /* FLAGS @Y17XAXF*/ 73200000 * 3 PRF2TNTI BIT(1), /* TTCIN OFFSETS @Y17XAXF*/ 73205000 * /* EXIST IN PIU @Y17XAXF*/ 73210000 * 3 PRF2FORM BIT(1), /* 2ND WORD IN THIS @Y17XAXF*/ 73215000 * /* PREFIX CONTAINS @Y17XAXF*/ 73220000 * /* A PTR TO A SEQ @Y17XAXF*/ 73225000 * /* NUMBER AREA @Y17XAXF*/ 73230000 * 3 PRF2SMI BIT(1), /* START MI INDICATOR(TSO ONLY 73235000 * @Y17XAXF*/ 73236000 * 3 PRF2TERM BIT(1), /* FORCED TERMINATE @YM08991*/ 73236310 * /* IN PROGRESS @YM08991*/ 73236610 * 3 * BIT(4), /* RESERVED @YM08991*/ 73237010 * 2 * CHAR(3), /* RESERVED @Y17XAXF*/ 73240000 * 2 PRF2WD2 PTR(31), /* 2ND WORK-FORMAT @Y17XAXF*/ 73241000 * /* DEFINED BY @Y17XAXF*/ 73242000 * /* PRF2FORM FIELD @Y17XAXF*/ 73243000 * 3 PRF2SEQP PTR(31); /* PTR TO SEQUENCE @Y17XAXF*/ 73244000 * /* NUMBER AREA @Y17XAXF*/ 73245000 * %PRF2LEN='LENGTH(IEDPF2)'; /* LEN OF PIU PREFIX @Y17XAXF*/ 73250000 *DECLARE PRFSHDR CHAR(1) DEF(IEDQPRF) 73600000 * POS(LENGTH(IEDQPRF)+1); /* @Y17XAXF*/ 74300000 * /* START OF HEADER LABEL */ 75000022 */* @Y17XAXF*/ 75010000 */* PREFIX CONSTANTS @Y17XAXF*/ 75020000 */* @Y17XAXF*/ 75030000 *DECLARE PRFINTIC BIT(32) CONSTANT('08000002'X); /* @Y17XAXF*/ 75040000 * /* INVALID TIC ADDR @Y17XAXF*/ 75050000 *DECLARE PRFESCAP BIT(8) CONSTANT('FC'X); /* OPERATOR CONTROL ESCAPE 75100008 * BUFFER (IN PRFSTAT1) X03039*/ 75200008 */* */ 75700022 */* */ 76400022 */* ************************************************************ */ 77100022 */* 0 * KEY * QCBA * */ 77800022 */* ************************************************************ */ 78500022 */* 4 * PRI * LINK * */ 79200022 */* ************************************************************ */ 79900022 */* 8 * TIC * */ 80600022 */* ************************************************************ */ 81300022 */* 12 * NBUNT/BTUA * LCB * */ 82000022 */* ************************************************************ */ 82700022 */* 16 * SRCE * SIZE * */ 83400022 */* ************************************************************ */ 84100022 */* 20 * STAT1 * XTRA/CORE * */ 84800022 */* ************************************************************ */ 85500022 */* 24 * SCAN * NTXT/TQBCK * */ 86200022 */* ************************************************************ */ 86900022 */* 28 * NTXT/TQBCK * CRCD * */ 87600022 */* ************************************************************ */ 88300022 */* 32 * NHDR/CHDR * STXT/HQBCK * */ 89000022 */* ************************************************************ */ 89700022 */* 36 * STXT/HQBCK * ISEQ * */ 90400022 */* ************************************************************ */ 91100022 */* 40 * DEST * */ 91800022 */* ******************************* */ 92500022 */* */ 93200022