1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1 External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0MAIN SD 00000001 00000000 00000266 06 XCOPY ER 00000002 STRERR ER 00000003 STRREA ER 00000004 1 Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 1 *********************************************************************** 2 * * 3 * SEGMENT NAME: * 4 * * 5 * MAIN MAIN ENTRY POINT * 6 * * 7 * THIS MODULE DRIVES XCOPY WHICH IN TURN DRIVES OTHER ROUTINES * 8 * PATHS ARE HARDCODED INTO THIS ROUTINE * 9 * * 10 *********************************************************************** 0 12 MAIN AMODE 31 13 MAIN RMODE ANY 14 MAIN RENTR BASE=11,PARM=10,WORK=(WORKLEN,WORKAREA), X ENV=OS,MAIN=YES 000000 00000 00266 15+MAIN CSECT 01-RENTR 000000 90EC D00C 0000C 16+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 000004 47F0 F014 00014 17+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000008 00000000 18+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 00000C 00000558 19+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000010 00000000 20+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 000014 18BF 21+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00000 22+ USING MAIN,11 01-RENTR 000016 18A1 23+ LR 10,1 PARM ADDRESS 01-RENTR 24+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000018 5800 B00C 0000C 25+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00001C 4510 B020 00020 28+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000020 0A0A 29+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 000022 50D0 1004 00004 30+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000026 5010 D008 00008 31+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00002A 18D1 32+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 34+ USING WORKAREA,13 01-RENTR 1 Page 4 Active Usings: MAIN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 36 ********************************************************************** 37 * CALL XCOPY 38 * 39 * REGISTER USAGE: 40 * R10 -> PARM LIST 41 * R11 -> PROGRAM BASE 42 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 43 ********************************************************************** 0 45 CALL XCOPY,(FROM, FROM PATH X TO, TO PATH X ERRNO, X REASON, X ERRFILE, X RC),VL,MF=(E,CALLLIST) 00002C 47+ CNOP 0,4 01-CALL 00002C 47F0 B034 00034 48+ B *+8 BRANCH AROUND VCON 01-CALL 000030 00000000 49+IHB0004B DC V(XCOPY) ENTRY POINT ADDRESS 01-CALL 000034 4110 D088 00088 54+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000038 41E0 B184 00184 55+ LA 14,FROM PICKUP PARAMETER 02-IHBOP 00003C 41F0 B18A 0018A 56+ LA 15,TO PICKUP PARAMETER 02-IHBOP 000040 4100 D068 00068 57+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 000044 90E0 1000 00000 58+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000048 41E0 D06C 0006C 59+ LA 14,REASON PICKUP PARAMETER 02-IHBOP 00004C 41F0 D156 00156 60+ LA 15,ERRFILE PICKUP PARAMETER 02-IHBOP 000050 4100 D070 00070 61+ LA 0,RC PICKUP PARAMETER 02-IHBOP 000054 90E0 100C 0000C 62+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 000058 9680 1014 00014 63+ OI 20(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00005C 58F0 B030 00030 64+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 000060 05EF 65+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000062 58F0 D070 00070 67 L R15,RC GET THE RETURN CODE 000066 12FF 68 LTR R15,R15 DID IT WORK? 000068 4780 B164 00164 69 BZ RETURN 0 71 CALL STRERR,(ERRNO,LEN,MSGADDR),VL,MF=(E,CALLLIST) 00006C 73+ CNOP 0,4 01-CALL 00006C 47F0 B074 00074 74+ B *+8 BRANCH AROUND VCON 01-CALL 000070 00000000 75+IHB0010B DC V(STRERR) ENTRY POINT ADDRESS 01-CALL 000074 4110 D088 00088 80+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000078 41E0 D068 00068 81+ LA 14,ERRNO PICKUP PARAMETER 02-IHBOP 00007C 41F0 D074 00074 82+ LA 15,LEN PICKUP PARAMETER 02-IHBOP 000080 4100 D07C 0007C 83+ LA 0,MSGADDR PICKUP PARAMETER 02-IHBOP 000084 90E0 1000 00000 84+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000088 9680 1008 00008 85+ OI 8(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00008C 58F0 B070 00070 86+ L 15,IHB0010B LOAD 15 WITH ENTRY ADR 01-CALL 000090 05EF 87+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 88 CALL STRREA,(REASON,LEN2,MSGADDR2),VL,MF=(E,CALLLIST) 000092 0700 90+ CNOP 0,4 01-CALL 000094 47F0 B09C 0009C 91+ B *+8 BRANCH AROUND VCON 01-CALL 000098 00000000 92+IHB0016B DC V(STRREA) ENTRY POINT ADDRESS 01-CALL 00009C 4110 D088 00088 97+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0000A0 41E0 D06C 0006C 98+ LA 14,REASON PICKUP PARAMETER 02-IHBOP 0000A4 41F0 D078 00078 99+ LA 15,LEN2 PICKUP PARAMETER 02-IHBOP 0000A8 4100 D080 00080 100+ LA 0,MSGADDR2 PICKUP PARAMETER 02-IHBOP 1 Page 5 Active Usings: MAIN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00000AC 90E0 1000 00000 101+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0000B0 9680 1008 00008 102+ OI 8(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0000B4 58F0 B098 00098 103+ L 15,IHB0016B LOAD 15 WITH ENTRY ADR 01-CALL 0000B8 05EF 104+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL -0000BA D265 D0C8 B190 000C8 00190 107 MVC WTOAREA(CONWTOL),CONWTO SET UP WTO FRAME 0000C0 D25D D0CC B208 000CC 00208 108 MVC WTOAREA+4(94),=CL94' ' 0000C6 58F0 D074 00074 109 L R15,LEN 0000CA 12FF 110 LTR R15,R15 0000CC 4780 B0F4 000F4 111 BZ LINE2 00000D0 59F0 B200 00200 113 C R15,=F'94' 0000D4 4740 B0DC 000DC 114 BL *+8 0000D8 41F0 005E 0005E 115 LA R15,94 0000DC 06F0 116 BCTR R15,0 0000DE 58E0 D07C 0007C 117 L R14,MSGADDR 0000E2 59E0 B204 00204 118 C R14,=A(PLINULL) 0000E6 4780 B0F4 000F4 119 BE LINE2 00000EA 44F0 B1F6 001F6 121 EX R15,MOVEWTO 0 123 WTO MF=(E,WTOAREA) 0000EE 4110 D0C8 000C8 125+ LA 1,WTOAREA LOAD PARAMETER REG 1 02-IHBIN 0000F2 0A23 126+ SVC 35 ISSUE SVC 35 @L6A 01-WTO 00000F4 128 LINE2 DS 0H 0000F4 D265 D0C8 B190 000C8 00190 129 MVC WTOAREA(CONWTOL),CONWTO SET UP WTO FRAME 0000FA D25D D0CC B208 000CC 00208 130 MVC WTOAREA+4(94),=CL94' ' 000100 58F0 D078 00078 131 L R15,LEN2 000104 12FF 132 LTR R15,R15 000106 4780 B12E 0012E 133 BZ LINE3 000010A 59F0 B200 00200 135 C R15,=F'94' 00010E 4740 B116 00116 136 BL *+8 000112 41F0 005E 0005E 137 LA R15,94 000116 06F0 138 BCTR R15,0 000118 58E0 D080 00080 139 L R14,MSGADDR2 00011C 59E0 B204 00204 140 C R14,=A(PLINULL) 000120 4780 B12E 0012E 141 BE LINE3 0000124 44F0 B1F6 001F6 143 EX R15,MOVEWTO 0 145 WTO MF=(E,WTOAREA) 000128 4110 D0C8 000C8 147+ LA 1,WTOAREA LOAD PARAMETER REG 1 02-IHBIN 00012C 0A23 148+ SVC 35 ISSUE SVC 35 @L6A 01-WTO 000012E 150 LINE3 DS 0H 00012E D265 D0C8 B190 000C8 00190 151 MVC WTOAREA(CONWTOL),CONWTO SET UP WTO FRAME 000134 D25D D0CC B208 000CC 00208 152 MVC WTOAREA+4(94),=CL94' ' 00013A 48F0 D156 00156 153 LH R15,ERRFILE 00013E 12FF 154 LTR R15,R15 IS THERE ANYTHING TO OUTPUT? 000140 4780 B160 00160 155 BZ SETRC 000144 59F0 B200 00200 156 C R15,=F'94' 000148 4740 B150 00150 157 BL *+8 1 Page 6 Active Usings: MAIN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000014C 41F0 005E 0005E 158 LA R15,94 000150 06F0 159 BCTR R15,0 000152 41E0 D158 00158 160 LA R14,ERRFILE+2 000156 44F0 B1F6 001F6 161 EX R15,MOVEWTO 0 163 WTO MF=(E,WTOAREA) 00015A 4110 D0C8 000C8 165+ LA 1,WTOAREA LOAD PARAMETER REG 1 02-IHBIN 00015E 0A23 166+ SVC 35 ISSUE SVC 35 @L6A 01-WTO 0000160 168 SETRC DS 0H 000160 41F0 000C 0000C 169 LA R15,12 SET RETURN CODE 0000164 171 RETURN DS 0H 172 REXIT ENV=OS,RC=(15) 000164 4110 D000 00000 173+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 000168 58D0 D004 00004 174+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 00016C 58E0 D010 00010 175+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000170 580E 000C 0000C 176+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000174 50F0 D010 00010 177+ ST 15,16(0,13) SAVE RETURN CODE 01-REXIT 000178 4110 1000 00000 180+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 00017C 0A0A 181+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 00017E 98EC D00C 0000C 182+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000182 07FE 183+ BR 14 RETURN 01-REXIT 0000184 00046185A383 185 FROM DC H'4',C'/etc' 00018A 000461A39497 186 TO DC H'4',C'/tmp' 0 188 CONWTO WTO '.......................................................- .......................................',ROUTCDE=11,MF=L 000190 189+CONWTO DS 0F 01-WTO 000190 0062 190+ DC AL2(98) TEXT LENGTH @YA17152 01-WTO 000192 8000 191+ DC B'1000000000000000' MCSFLAGS 01-WTO 000194 4B4B4B4B4B4B4B4B 192+ DC C'......................................................X01-WTO 00019C 4B4B4B4B4B4B4B4B + ........................................' X 0001A4 4B4B4B4B4B4B4B4B + MESSAGE TEXT @L6C 0001F2 0000 193+ DC B'0000000000000000' DESCRIPTOR CODES 01-WTO 0001F4 0020 194+ DC B'0000000000100000' ROUTING CODES 01-WTO 00066 195 CONWTOL EQU *-CONWTO 0001F6 D200 D0CC E000 000CC 00000 196 MOVEWTO MVC WTOAREA+4(*-*),0(R14) 0000000 00000 00558 198 WORKAREA DSECT 000000 199 DS 26F 000068 200 ERRNO DS F 00006C 201 REASON DS F 000070 202 RC DS F 000074 203 LEN DS F 000078 204 LEN2 DS F 00007C 205 MSGADDR DS A 000080 206 MSGADDR2 DS A 000088 207 CALLLIST DS 8D 0000C8 208 WTOAREA DS 0F 0000C8 209 DS XL(142) 000156 210 ERRFILE DS H,CL1024 00558 211 WORKLEN EQU *-WORKAREA 1 Page 7 Active Usings: MAIN(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 000000 213 PLINULL EQU X'FF000000' 214 print nogen 215 SYMBAR MODE=DEC 232 DROP R11,R13 233 END 000200 0000005E 234 =F'94' 000204 FF000000 235 =A(PLINULL) 000208 4040404040404040 236 =CL94' ' 1 Relocation Dictionary Page 8 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000030 00000001 00000003 1C 00000070 00000001 00000004 1C 00000098 1 Ordinary Symbol and Literal Cross Reference Page 9 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0CALLLIST 8 00000088 FFFFFFFF D 207 54 80 97 CONWTO 4 00000190 00000001 F 189 107 129 151 195 CONWTOL 1 00000066 00000001 A U 195 107 129 151 ERRFILE 2 00000156 FFFFFFFF H 210 60 153 160 ERRNO 4 00000068 FFFFFFFF F 200 57 81 FROM 2 00000184 00000001 H 185 55 IHB0004B 4 00000030 00000001 V 49 64 IHB0010B 4 00000070 00000001 V 75 86 IHB0016B 4 00000098 00000001 V 92 103 LEN 4 00000074 FFFFFFFF F 203 82 109 LEN2 4 00000078 FFFFFFFF F 204 99 131 LINE2 2 000000F4 00000001 H 128 111B 119B LINE3 2 0000012E 00000001 H 150 133B 141B MAIN 1 00000000 00000001 J 15 12 13 22U MOVEWTO 6 000001F6 00000001 I 196 121X 143X 161X MSGADDR 4 0000007C FFFFFFFF A 205 83 117 MSGADDR2 4 00000080 FFFFFFFF A 206 100 139 PLINULL 1 FF000000 FFFFFFFF A U 213 235 RC 4 00000070 FFFFFFFF F 202 61 67 REASON 4 0000006C FFFFFFFF F 201 59 98 RETURN 2 00000164 00000001 H 171 69B R11 1 0000000B FFFFFFFF A U 227 232D R13 1 0000000D FFFFFFFF A U 229 232D R14 1 0000000E FFFFFFFF A U 230 117M 118 139M 140 160M 196 R15 1 0000000F FFFFFFFF A U 231 67M 68M 68 109M 110M 110 113 115M 116M 121 131M 132M 132 135 137M 138M 143 153M 154M 154 156 158M 159M 161 169M SETRC 2 00000160 00000001 H 168 155B STRERR 1 00000000 00000003 T 75 75 STRREA 1 00000000 00000004 T 92 92 TO 2 0000018A 00000001 H 186 56 WORKAREA 1 00000000 FFFFFFFF J 198 34U 211 WORKLEN 1 00000558 FFFFFFFF A U 211 19 WTOAREA 4 000000C8 FFFFFFFF F 208 107M 108M 125 129M 130M 147 151M 152M 165 196M XCOPY 1 00000000 00000002 T 49 49 =A(PLINULL) 4 00000204 00000001 A 235 118 140 =CL94' ' 94 00000208 00000001 C 236 108 130 152 =F'94' 4 00000200 00000001 F 234 113 135 156 1 Macro and Copy Code Source Summary Page 10 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA CALL FREEMAIN GETMAIN IHBINNRA IHBINNRR IHBOPLTX SYSSTATE WTO L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1 Dsect Cross Reference Page 11 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0WORKAREA 00000558 FFFFFFFF 198 1 Using Map Page 12 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 22 00000016 00000001 USING ORDINARY 00000000 00001000 00000001 11 208 161 MAIN,11 34 0000002C 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 158 196 WORKAREA,13 232 00000558 FFFFFFFF DROP 11 R11 232 00000558 FFFFFFFF DROP 13 R13 1 General Purpose Register Cross Reference Page 13 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 16 25M 57M 58 61M 62 83M 84 100M 101 176M 182M 1(1) 16 23 28M 30 31 32 54M 58 62 63 80M 84 85 97M 101 102 125M 147M 165M 173M 180M 180 182M 2(2) 16 182M 3(3) 16 182M 4(4) 16 182M 5(5) 16 182M 6(6) 16 182M 7(7) 16 182M 8(8) 16 182M 9(9) 16 182M 10(A) 16 23M 182M 11(B) 16 21M 22U 25 182M 232D 12(C) 16 182M 13(D) 16 30 31 32M 34U 173 174M 174 175 177 182 232D 14(E) 16 55M 58 59M 62 65M 81M 84 87M 98M 101 104M 117M 118 139M 140 160M 175M 176N 182M 183B 196 15(F) 16 17 21 56M 58 60M 62 64M 65B 67M 68M 68 82M 84 86M 87B 99M 101 103M 104B 109M 110M 110 113 115M 116M 121 131M 132M 132 135 137M 138M 143 153M 154M 154 156 158M 159M 161 169M 177 182M 1 Diagnostic Cross Reference and Assembler Summary Page 14 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: MAIN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 MAIN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000102.? 4768K allocated to Buffer Pool, 753K would be required for this to be an In-Storage Assembly 126 Primary Input Records Read 8895 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 356 Primary Print Records Written 0 Work File Writes 24 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.05 Stop Time: 12.09.07 Processor Time: 00.00.01.2738 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1 External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0XCOPY1 SD 00000001 00000000 0000041B 06 XCOPY LD 00000008 00000001 OPENDIR ER 00000002 BPX1MKD ER 00000003 READDIR ER 00000004 ISDIR ER 00000005 XCOPY ER 00000006 COPYHFS ER 00000007 CLOSDIR ER 00000008 1 Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 1 *********************************************************************** 2 * * 3 * SEGMENT NAME: * 4 * * 5 * XCOPY -- OMVS_COPY_TREE_ROUTINE * 6 * * 7 * THIS MODULE COPIES AN HFS DIRECTORY TREE STRUCTURE TO ANOTHER * 8 * DIRECTORY. THE ROUTINE STOPS ON THE FIRST ERROR. * 9 * * 10 * INPUTS (*TO FUNCTIONS): * 11 * FROM_PATH - VARYING CHAR (*) 2 BYTE LEN FOLLOWED BY DATA * 12 * THIS IS GENERALLY THE FULLY QUALIFIED PATH OF THE DIRECTORY * 13 * TO COPY. HOWEVER, THERE IS NOTHING TO PREVENT USING RELATIVE * 14 * PATHS PROVIDED YOU KNOW WHAT DIRECTORY YOU ARE IN. THIS * 15 * STRING IS CASE SENSITIVE. * 16 * * 17 * TO_PATH - VARYING CHAR (*) 2 BYTE LEN FOLLOWED BY DATA * 18 * THIS IS THE TARGET DIRECTORY. A DIRECTORY WITH THE LAST * 19 * QUALIFIER OF THE FROM_PATH WILL BE CREATED IN THIS DIRECTORY * 20 * AND ALL THE FILES COPIED INTO THAT NEW DIRECTORY. * 21 * THIS STRING IS CASE SENSITIVE. * 22 * * 23 * FUNCTIONS: * 24 * * 25 * 1. CREATE THE NEW DIRECTORY. * 26 * * 27 * 2. OPEN THE FROM DIRECTORY AND READ ITS CONTENTS * 28 * * 29 * 3. FOR FILES, COPY THE FILE TO THE NEW DIRECTORY * 30 * * 31 * 4. FOR DIRECTORIES, CALL THIS ROUTINE RECURSIVELY * 32 * * 33 * OUTPUTS (*FROM FUNCTIONS): * 34 * * 35 * RC - INT * 36 * 0 - THIS ROUTINE WORKED * 37 * -1 - FAILURE, ERRNO AND REASON GIVE THE DETAILS * 38 * * 39 * ERRNO - INT * 40 * ON ERROR, THE UNIX SYSTEM SERVICES ERRNO * 41 * * 42 * REASON - INT * 43 * ON ERROR, THE EXTENED IBM REASON CODE * 44 * * 45 * ERRFILE- SHORT FOLLOWED BY 1023 BYTE CHAR STRING * 46 * ON ERROR, THE FROM FILE IN ERROR IS PLACED HERE * 47 * * 48 * NOTES: * 49 * CALL XCOPY,(FROM, FROM PATH X 50 * TO, TO PATH X 51 * ERRNO, X 52 * REASON, X 53 * ERRFILE, X 54 * RC),VL,MF=(E,CALLLIST) 55 * 1 Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 56 * FROM DC H'4',C'/ETC' 57 * TO DC H'2',C'/TMP' 58 * ERRNO DS F 59 * REASON DS F 60 * ERRFILE DS CL1024 61 * RC DS F 62 * * 63 * * 64 *********************************************************************** 0 66 XCOPY1 AMODE 31 67 XCOPY1 RMODE ANY 68 XCOPY RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS 000000 00000 0041B 69+XCOPY1 CSECT , 01-RENTR 70+ ENTRY XCOPY INDICATE ENTRY POINT 01-RENTR 000000 71+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 4040 72+ DC CL2' ' PADDING TO 8 BYTES 01-RENTR 000002 E7C3D6D7E805 73+ DC C'XCOPY',AL1(5) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 74+XCOPY DS 0H 01-RENTR 000008 90EC D00C 0000C 75+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 76+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 77+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 000009F0 78+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 79+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 80+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 81+ USING XCOPY,11 01-RENTR 00001E 18A1 82+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 83+ USING PARMS,10 01-RENTR 84+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000020 5800 B00C 0000C 85+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000024 4510 B020 00028 88+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000028 0A0A 89+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00002A 50D0 1004 00004 90+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00002E 5010 D008 00008 91+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000032 18D1 92+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 94+ USING WORKAREA,13 01-RENTR 1 Page 5 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 96 ********************************************************************** 97 * INITIALIZE THE RETURNED PARMS TO NOTHING. 98 * 99 * REGISTER USAGE: 100 * R10 -> PARM LIST 101 * R11 -> PROGRAM BASE 102 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 103 ********************************************************************** 0000034 1F00 105 SLR R0,R0 GET A ZERO 000036 5000 D068 00068 106 ST R0,DIRTOKEN 00003A 58F0 A008 00008 107 L R15,PRMERRNO 00003E 5000 F000 00000 108 ST R0,0(,R15) 000042 58F0 A00C 0000C 109 L R15,PRMREA 000046 5000 F000 00000 110 ST R0,0(,R15) 00004A 58F0 A010 00010 111 L R15,PRMERRFL 00004E 4000 F000 00000 112 STH R0,0(,R15) 000052 58F0 A014 00014 113 L R15,PRMRC 000056 D203 F000 B400 00000 00408 114 MVC 0(4,R15),=F'-1' PREPARE FOR FAILURE 0 116 ********************************************************************** 117 * SAVE THE FROM AND TO PATHS FOR LATER USE. WE WILL BE ADDING TO 118 * THEM. 119 * 120 * REGISTER USAGE: 121 * R2 -> PARM FROM PARM LIST (TO AND FROM) 122 * R3 - LENGTH OF PARM FROM PARM LIST 123 * R4 -> TARGET LOCAL STORAGE 124 * R5 - COPY OF R3 125 * R10 -> PARM LIST 126 * R11 -> PROGRAM BASE 127 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 128 ********************************************************************** 000005C 58F0 A004 00004 130 L R15,PRMTO POINT TO PATH LENGTH 000060 4830 F000 00000 131 LH R3,0(,R15) LOAD THE LENGTH 000064 5930 B404 0040C 132 C R3,=F'1024' TOO LONG? 000068 47B0 B3A0 003A8 133 BNL TOOLONG IF TOO LONG, WE CANNOT PROCESS 00006C 5030 D470 00470 134 ST R3,TOPATHL SAVE AS A FULLWORD 000070 5030 D880 00880 135 ST R3,TOPATHB SAVE BASE LENGTH 000074 1853 136 LR R5,R3 GET A COPY FOR THE MVCL 000076 4120 D474 00474 137 LA R2,TOPATH POINT TO THE TARGET 00007A 414F 0002 00002 138 LA R4,2(R15) POINT TO THE SOURCE 00007E 4113 D474 00474 139 LA R1,TOPATH(R3) POINT TO END OF TO PATH LOCAL 000082 5010 D87C 0087C 140 ST R1,TOAPPEND THIS WHERE WE APPEND STUFF 000086 0E24 141 MVCL R2,R4 COPY THE TO DIRECTORY PATH 0000088 58F0 A000 00000 143 L R15,PRMFROM POINT TO PATH LENGTH 00008C 4830 F000 00000 144 LH R3,0(,R15) LOAD THE LENGTH 000090 5930 B404 0040C 145 C R3,=F'1024' TOO LONG? 000094 47B0 B3A0 003A8 146 BNL TOOLONG IF TOO LONG, WE CANNOT PROCESS 000098 5030 D06C 0006C 147 ST R3,FRPATHL SAVE AS A FULLWORD 00009C 5030 D878 00878 148 ST R3,FRPATHB SAVE BASE LENGTH 0000A0 1853 149 LR R5,R3 GET A COPY FOR THE MVCL 0000A2 4120 D070 00070 150 LA R2,FRPATH POINT TO THE TARGET 1 Page 6 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00000A6 414F 0002 00002 151 LA R4,2(R15) POINT TO THE SOURCE 0000AA 4113 D070 00070 152 LA R1,FRPATH(R3) POINT TO END OF TO PATH LOCAL 0000AE 5010 D874 00874 153 ST R1,FRAPPEND THIS WHERE WE APPEND STUFF 0000B2 0E24 154 MVCL R2,R4 COPY THE FROM DIRECTORY PATH 00000B4 5820 A008 00008 156 L R2,PRMERRNO USE THE PASSED PARMS IN THE CALL 0000B8 5830 A00C 0000C 157 L R3,PRMREA TO OPENDIR. 0000BC 5840 A000 00000 158 L R4,PRMFROM 0 160 CALL OPENDIR,((R4), FROM PATH PARM X (R2), ERRNO ON FAILURE X (R3), EXTENDED ERROR CODE X DIRTOKEN),VL,MF=(E,CALLLIST) DIRECTORY OPAQUE TOKEN 0000C0 162+ CNOP 0,4 01-CALL 0000C0 47F0 B0C0 000C8 163+ B *+8 BRANCH AROUND VCON 01-CALL 0000C4 00000000 164+IHB0004B DC V(OPENDIR) ENTRY POINT ADDRESS 01-CALL 0000C8 4110 D9B0 009B0 169+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0000CC 18E4 170+ LR 14,(R4) PICK UP PARAMETER 02-IHBOP 0000CE 18F2 171+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 0000D0 1803 172+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 0000D2 90E0 1000 00000 173+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0000D6 41E0 D068 00068 174+ LA 14,DIRTOKEN PICKUP PARAMETER 02-IHBOP 0000DA 50E0 100C 0000C 175+ ST 14,12(0,1) STORE INTO PARAM. LIST 02-IHBOP 0000DE 9680 100C 0000C 176+ OI 12(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0000E2 58F0 B0BC 000C4 177+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 0000E6 05EF 178+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00000E8 58F0 D068 00068 180 L R15,DIRTOKEN GET RETURNED VALUE 0000EC 12FF 181 LTR R15,R15 0 IS RETURNED ON ERROR 0000EE 4780 B33E 00346 182 BZ RETURN RETURN ON FAILURE, ERRNO ALREADY SET. 0 184 ********************************************************************** 185 * CREATE THE TARGET DIRECTORY 186 * FIRST WE BUILD THE NAME OF THE TARGET DIRECTORY 187 * IT IS THE LAST QUALIFIER OF THE SOURCE DIRECTORY TACKED ON TO THE 188 * TARGET DIRECTORY PATH. 189 * . 190 * REGISTER USAGE: 191 * R10 -> PARM LIST 192 * R11 -> PROGRAM BASE 193 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 194 ********************************************************************** 00000F2 58F0 D06C 0006C 196 L R15,FRPATHL FROM PATH LENGTH 0000F6 06F0 197 BCTR R15,0 BACK UP 1 TO POINT AT THE LAST CHR 0000F8 12FF 198 LTR R15,R15 WAS THERE ONLY ONE CHAR? 0000FA 4780 B10A 00112 199 BZ SETTONME IF SO, THIS WAS A RELATIVE NAME. 00000FE 201 SLASH1 DS 0H 0000FE 41EF D070 00070 202 LA R14,FRPATH(R15) POINT TO TEST CHAR 000102 9561 E000 00000 203 CLI 0(R14),C'/' IS IT THE SEPARATOR 000106 4780 B10A 00112 204 BE SETTONME GO BUILD THE NEW NAME 00010A 46F0 B0F6 000FE 205 BCT R15,SLASH1 TRY AGAIN 000010E 5BE0 B408 00410 207 S R14,=F'1' FELL OUT THE BOTTOM 1 Page 7 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000112 209 SETTONME DS 0H 000112 11FF 210 LNR R15,R15 MAKE R15 NEGATIVE 000114 5AF0 D06C 0006C 211 A R15,FRPATHL GET LEN OF THE LAST PART 000118 5830 D470 00470 212 L R3,TOPATHL CURRENT TO PATH LENGTH 00011C 4113 F000 00000 213 LA R1,0(R3,R15) GET NEW LENGTH OF TO STRING 000120 5010 D470 00470 214 ST R1,TOPATHL SAVE NEW LENGTH 000124 5010 D880 00880 215 ST R1,TOPATHB SAVE NEW BASE LENGTH 000128 4123 D474 00474 216 LA R2,TOPATH(R3) POINT TO END OF STRING 00012C 183F 217 LR R3,R15 LENGTH TO MOVE 00012E 4111 D474 00474 218 LA R1,TOPATH(R1) POINT TO END OF TO PATH LOCAL 000132 5010 D87C 0087C 219 ST R1,TOAPPEND THIS WHERE WE APPEND STUFF 000136 0E2E 220 MVCL R2,R14 COPY THE DATA 0000138 5820 A014 00014 222 L R2,PRMRC 00013C 5830 A008 00008 223 L R3,PRMERRNO 000140 5840 A00C 0000C 224 L R4,PRMREA 0 226 CALL BPX1MKD,(TOPATHL, LENGTH OF PATHNAME X TOPATH, PATHNAME X WIDEOPEN, MODE X (R2), UNIX RC X (R3), ERRNO X (R4)),VL,MF=(E,CALLLIST) REASON 000144 228+ CNOP 0,4 01-CALL 000144 47F0 B144 0014C 229+ B *+8 BRANCH AROUND VCON 01-CALL 000148 00000000 230+IHB0010B DC V(BPX1MKD) ENTRY POINT ADDRESS 01-CALL 00014C 4110 D9B0 009B0 235+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000150 41E0 D470 00470 236+ LA 14,TOPATHL PICKUP PARAMETER 02-IHBOP 000154 41F0 D474 00474 237+ LA 15,TOPATH PICKUP PARAMETER 02-IHBOP 000158 4100 B3F8 00400 238+ LA 0,WIDEOPEN PICKUP PARAMETER 02-IHBOP 00015C 90E0 1000 00000 239+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000160 18E2 240+ LR 14,(R2) PICK UP PARAMETER 02-IHBOP 000162 18F3 241+ LR 15,(R3) PICK UP PARAMETER 02-IHBOP 000164 1804 242+ LR 0,(R4) PICK UP PARAMETER 02-IHBOP 000166 90E0 100C 0000C 243+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 00016A 9680 1014 00014 244+ OI 20(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00016E 58F0 B140 00148 245+ L 15,IHB0010B LOAD 15 WITH ENTRY ADR 01-CALL 000172 05EF 246+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000174 58F0 2000 00000 248 L R15,0(,R2) GET THE RETURN CODE, 000178 12FF 249 LTR R15,R15 IS IT ZERO 00017A 4770 B35C 00364 250 BNZ BAIL IF NOT BAILOUT. 0 252 ********************************************************************** 253 * READ EACH DIRECTORY ENTRY, SKIP . AND .. 254 * . 255 * REGISTER USAGE: 256 * R10 -> PARM LIST 257 * R11 -> PROGRAM BASE 258 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 259 ********************************************************************** 000017E 261 READLOOP DS 0H 00017E 5820 A008 00008 262 L R2,PRMERRNO 000182 5830 A00C 0000C 263 L R3,PRMREA 1 Page 8 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 264 CALL READDIR,(DIRTOKEN, DIRECTORY OPAQUE TOKEN X (R2), ERRNO ON FAILURE X (R3), EXTENDED ERROR CODE X DIRNAMEL),VL,MF=(E,CALLLIST) RETURNED NAME 000186 0700 266+ CNOP 0,4 01-CALL 000188 47F0 B188 00190 267+ B *+8 BRANCH AROUND VCON 01-CALL 00018C 00000000 268+IHB0016B DC V(READDIR) ENTRY POINT ADDRESS 01-CALL 000190 4110 D9B0 009B0 273+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000194 41E0 D068 00068 274+ LA 14,DIRTOKEN PICKUP PARAMETER 02-IHBOP 000198 18F2 275+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 00019A 1803 276+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 00019C 90E0 1000 00000 277+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0001A0 41E0 D884 00884 278+ LA 14,DIRNAMEL PICKUP PARAMETER 02-IHBOP 0001A4 50E0 100C 0000C 279+ ST 14,12(0,1) STORE INTO PARAM. LIST 02-IHBOP 0001A8 9680 100C 0000C 280+ OI 12(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0001AC 58F0 B184 0018C 281+ L 15,IHB0016B LOAD 15 WITH ENTRY ADR 01-CALL 0001B0 05EF 282+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00001B2 58F0 2000 00000 284 L R15,0(,R2) GET ERRNO 0001B6 12FF 285 LTR R15,R15 WAS AN ERROR FLAGGED? 0001B8 4770 B35C 00364 286 BNZ BAIL BAIL ON ERROR 00001BC 48F0 D884 00884 288 LH R15,DIRNAMEL NAME LEN IS ZERO ON EOF 0001C0 12FF 289 LTR R15,R15 CHECK NAME LEN 0001C2 4780 B306 0030E 290 BZ EOF SHUT DOWN ON EOF 00001C6 D502 D884 B410 00884 00418 292 CLC DIRNAMEL(3),=XL3'00014B' CHECK FOR ONE CHAR LONG '.' 0001CC 4780 B176 0017E 293 BE READLOOP SKIP '.' 0001D0 D503 D884 B40C 00884 00414 294 CLC DIRNAMEL(4),=XL4'00024B4B' CHECK FOR TWO CHAR LONG '.. 0001D6 4780 B176 0017E 295 BE READLOOP SKIP '..' 0 297 ********************************************************************** 298 * APPEND THE NAME READ ONTO THE END OF THE FROM NAME AND SEE IF IT 299 * IS A DIRECTORY. 300 * 301 * REGISTER USAGE: 302 * R10 -> PARM LIST 303 * R11 -> PROGRAM BASE 304 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 305 ********************************************************************** 00001DA 4830 D884 00884 307 LH R3,DIRNAMEL LENGTH OF DIR NAME 0001DE 58F0 D878 00878 308 L R15,FRPATHB CURRENT LENGTH OF FROM PATH 0001E2 58E0 D874 00874 309 L R14,FRAPPEND POINT TO END OF PATH 0001E6 41FF 3001 00001 310 LA R15,1(R15,R3) NEW LENGTH OF FROM PATH 0001EA 59F0 B404 0040C 311 C R15,=F'1024' CHECK FOR MAX LENGTH 0001EE 4720 B3A0 003A8 312 BH TOOLONG BAIL ON ERROR 00001F2 50F0 D06C 0006C 314 ST R15,FRPATHL NEW FROM PATH LENGTH 0001F6 9261 E000 00000 315 MVI 0(R14),C'/' ADD THE SLASH FOR THE NEXT LEVEL 0001FA 0630 316 BCTR R3,0 SUB 1 FOR THE EXECUTE 0001FC 4430 B3F2 003FA 317 EX R3,APPEND BUILD THE NEW NAME 0 319 CALL ISDIR,(FRPATHL, LENGTH OF PATH TO CHECK X FRPATH, PATH TO CHECK X 1 Page 9 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 EXISTS, IT BETTER EXIST X ISADIR, NONZERO IF A DIR X ISASYM),VL,MF=(E,CALLLIST) NONZERO IF A SYMLINK 000200 321+ CNOP 0,4 01-CALL 000200 47F0 B200 00208 322+ B *+8 BRANCH AROUND VCON 01-CALL 000204 00000000 323+IHB0022B DC V(ISDIR) ENTRY POINT ADDRESS 01-CALL 000208 4110 D9B0 009B0 328+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00020C 41E0 D06C 0006C 329+ LA 14,FRPATHL PICKUP PARAMETER 02-IHBOP 000210 41F0 D070 00070 330+ LA 15,FRPATH PICKUP PARAMETER 02-IHBOP 000214 4100 D986 00986 331+ LA 0,EXISTS PICKUP PARAMETER 02-IHBOP 000218 90E0 1000 00000 332+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00021C 41E0 D987 00987 333+ LA 14,ISADIR PICKUP PARAMETER 02-IHBOP 000220 41F0 D988 00988 334+ LA 15,ISASYM PICKUP PARAMETER 02-IHBOP 000224 90EF 100C 0000C 335+ STM 14,15,12(1) STORE INTO PARAM. LIST 02-IHBOP 000228 9680 1010 00010 336+ OI 16(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00022C 58F0 B1FC 00204 337+ L 15,IHB0022B LOAD 15 WITH ENTRY ADR 01-CALL 000230 05EF 338+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000232 95FF D986 00986 340 CLI EXISTS,X'FF' IS THE NAME GOOD? 000236 4770 B176 0017E 341 BNE READLOOP IF NOT, SKIP IT 000023A 95FF D988 00988 343 CLI ISASYM,X'FF' IS IT A SYM LINK? 00023E 4780 B176 0017E 344 BE READLOOP IF SO, SKIP IT 0000242 9500 D987 00987 346 CLI ISADIR,X'00' IS IT A DIRECTORY? 000246 4780 B298 002A0 347 BE COPYFILE IF NOT, COPY IT 000024A 5820 A008 00008 349 L R2,PRMERRNO 00024E 5830 A00C 0000C 350 L R3,PRMREA 000252 5840 A014 00014 351 L R4,PRMRC 000256 5850 A010 00010 352 L R5,PRMERRFL 0 354 ********************************************************************** 355 * IT IS A DIRECTORY, CALL THIS ROUTINE RECURSIVELY TO PROCESS IT 356 ********************************************************************** 000025A 58F0 D880 00880 358 L R15,TOPATHB GET BASE TO PATH LENGTH 00025E 50F0 D470 00470 359 ST R15,TOPATHL MAKE IT THE CURRENT LENGTH 0 361 CALL XCOPY,(FRPATHL+2, CALL RECURSIVELY X TOPATHL+2, NEW TARGET PATH X (R2), ERRNO ON FAILURE X (R3), EXTENDED ERROR CODE X (R5), ERROR FILE X (R4)),VL,MF=(E,CALLLIST) RETURN CODE 000262 0700 363+ CNOP 0,4 01-CALL 000264 47F0 B264 0026C 364+ B *+8 BRANCH AROUND VCON 01-CALL 000268 00000000 365+IHB0028B DC V(XCOPY) ENTRY POINT ADDRESS 01-CALL 00026C 4110 D9B0 009B0 370+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000270 41E0 D06E 0006E 371+ LA 14,FRPATHL+2 PICKUP PARAMETER 02-IHBOP 000274 41F0 D472 00472 372+ LA 15,TOPATHL+2 PICKUP PARAMETER 02-IHBOP 000278 1802 373+ LR 0,(R2) PICK UP PARAMETER 02-IHBOP 00027A 90E0 1000 00000 374+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00027E 18E3 375+ LR 14,(R3) PICK UP PARAMETER 02-IHBOP 000280 18F5 376+ LR 15,(R5) PICK UP PARAMETER 02-IHBOP 1 Page 10 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000282 1804 377+ LR 0,(R4) PICK UP PARAMETER 02-IHBOP 000284 90E0 100C 0000C 378+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 000288 9680 1014 00014 379+ OI 20(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00028C 58F0 B260 00268 380+ L 15,IHB0028B LOAD 15 WITH ENTRY ADR 01-CALL 000290 05EF 381+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000292 58F0 4000 00000 383 L R15,0(,R4) GET THE RETURN CODE 000296 12FF 384 LTR R15,R15 ZERO RC? 000298 4770 B35C 00364 385 BNZ BAIL IF NOT, BAIL OUT. 00029C 47F0 B176 0017E 386 B READLOOP GO GET THE NEXT ONE 0 388 ********************************************************************** 389 * THE ENTRY IS A FILE, BUILD THE TARGET NAME AND COPY IT 390 * 391 * REGISTER USAGE: 392 * R10 -> PARM LIST 393 * R11 -> PROGRAM BASE 394 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 395 ********************************************************************** 00002A0 397 COPYFILE DS 0H 0002A0 4830 D884 00884 398 LH R3,DIRNAMEL LENGTH OF DIR NAME 0002A4 58F0 D880 00880 399 L R15,TOPATHB CURRENT LENGTH OF FROM PATH 0002A8 58E0 D87C 0087C 400 L R14,TOAPPEND POINT TO END OF PATH 0002AC 41FF 3001 00001 401 LA R15,1(R15,R3) NEW LENGTH OF FROM PATH 0002B0 59F0 B404 0040C 402 C R15,=F'1024' CHECK FOR MAX LENGTH 0002B4 4720 B3A0 003A8 403 BH TOOLONG BAIL ON ERROR 00002B8 50F0 D470 00470 405 ST R15,TOPATHL NEW FROM PATH LENGTH 0002BC 9261 E000 00000 406 MVI 0(R14),C'/' ADD THE SLASH FOR THE NEXT LEVEL 0002C0 0630 407 BCTR R3,0 SUB 1 FOR THE EXECUTE 0002C2 4430 B3F2 003FA 408 EX R3,APPEND BUILD THE NEW NAME 00002C6 5820 A008 00008 410 L R2,PRMERRNO 0002CA 5830 A00C 0000C 411 L R3,PRMREA 0002CE 5840 A014 00014 412 L R4,PRMRC 0 414 CALL COPYHFS,(FRPATHL+2, CALL RECURSIVELY X TOPATHL+2, NEW TARGET PATH X (R2), ERRNO ON FAILURE X (R3), EXTENDED ERROR CODE X (R4)),VL,MF=(E,CALLLIST) RETURN CODE 0002D2 0700 416+ CNOP 0,4 01-CALL 0002D4 47F0 B2D4 002DC 417+ B *+8 BRANCH AROUND VCON 01-CALL 0002D8 00000000 418+IHB0034B DC V(COPYHFS) ENTRY POINT ADDRESS 01-CALL 0002DC 4110 D9B0 009B0 423+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0002E0 41E0 D06E 0006E 424+ LA 14,FRPATHL+2 PICKUP PARAMETER 02-IHBOP 0002E4 41F0 D472 00472 425+ LA 15,TOPATHL+2 PICKUP PARAMETER 02-IHBOP 0002E8 1802 426+ LR 0,(R2) PICK UP PARAMETER 02-IHBOP 0002EA 90E0 1000 00000 427+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0002EE 18E3 428+ LR 14,(R3) PICK UP PARAMETER 02-IHBOP 0002F0 18F4 429+ LR 15,(R4) PICK UP PARAMETER 02-IHBOP 0002F2 90EF 100C 0000C 430+ STM 14,15,12(1) STORE INTO PARAM. LIST 02-IHBOP 0002F6 9680 1010 00010 431+ OI 16(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0002FA 58F0 B2D0 002D8 432+ L 15,IHB0034B LOAD 15 WITH ENTRY ADR 01-CALL 1 Page 11 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00002FE 05EF 433+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000300 58F0 4000 00000 435 L R15,0(,R4) GET THE RETURN CODE 000304 12FF 436 LTR R15,R15 ZERO RC? 000306 4770 B35C 00364 437 BNZ BAIL IF NOT, BAIL OUT. 00030A 47F0 B176 0017E 438 B READLOOP GO GET THE NEXT ONE 0 440 ********************************************************************** 441 * NORMAL EOF, SHOW RC = 0, AND THEN CLOSE FHE FILE 442 ********************************************************************** 00030E 443 EOF DS 0H 00030E 58E0 A014 00014 444 L R14,PRMRC POINT TO THE RC PARM 000312 1FFF 445 SLR R15,R15 GET A ZERO 000314 50F0 E000 00000 446 ST R15,0(,R14) SHOW RC = 0, SUCCESS 447 ********************************************************************** 448 * ALWAYS CLOSE THE DIRECTORY BEFORE WE QUIT, ONCE IT IS OPEN 449 ********************************************************************** 450 CALL CLOSDIR,(DIRTOKEN, X LCLERRNO, X LCLREA, X LCLRC),VL,MF=(E,CALLLIST) RETURN CODE 000318 452+ CNOP 0,4 01-CALL 000318 47F0 B318 00320 453+ B *+8 BRANCH AROUND VCON 01-CALL 00031C 00000000 454+IHB0040B DC V(CLOSDIR) ENTRY POINT ADDRESS 01-CALL 000320 4110 D9B0 009B0 459+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000324 41E0 D068 00068 460+ LA 14,DIRTOKEN PICKUP PARAMETER 02-IHBOP 000328 41F0 D98C 0098C 461+ LA 15,LCLERRNO PICKUP PARAMETER 02-IHBOP 00032C 4100 D990 00990 462+ LA 0,LCLREA PICKUP PARAMETER 02-IHBOP 000330 90E0 1000 00000 463+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000334 41E0 D994 00994 464+ LA 14,LCLRC PICKUP PARAMETER 02-IHBOP 000338 50E0 100C 0000C 465+ ST 14,12(0,1) STORE INTO PARAM. LIST 02-IHBOP 00033C 9680 100C 0000C 466+ OI 12(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000340 58F0 B314 0031C 467+ L 15,IHB0040B LOAD 15 WITH ENTRY ADR 01-CALL 000344 05EF 468+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000346 470 RETURN DS 0H 471 REXIT ENV=OS 000346 4110 D000 00000 472+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 00034A 58D0 D004 00004 473+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 00034E 58E0 D010 00010 474+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000352 580E 000C 0000C 475+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000356 4110 1000 00000 478+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 00035A 0A0A 479+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 00035C 98EC D00C 0000C 480+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000360 1FFF 481+ SLR 15,15 ZERO RETURN CODE 01-REXIT 000362 07FE 482+ BR 14 RETURN 01-REXIT 0 484 ********************************************************************** 485 * ON BAILOUT, SAVE THE BAD FILE AND CLOSE THE DIR 486 ********************************************************************** 000364 487 BAIL DS 0H 000364 4110 D06C 0006C 488 LA R1,FRPATHL 000368 45E0 B3C6 003CE 489 BAL R14,RETERRFL 0 491 CALL CLOSDIR,(DIRTOKEN, X 1 Page 12 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 LCLERRNO, X LCLREA, X LCLRC),VL,MF=(E,CALLLIST) RETURN CODE 00036C 493+ CNOP 0,4 01-CALL 00036C 47F0 B36C 00374 494+ B *+8 BRANCH AROUND VCON 01-CALL 000370 00000000 495+IHB0049B DC V(CLOSDIR) ENTRY POINT ADDRESS 01-CALL 000374 4110 D9B0 009B0 500+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000378 41E0 D068 00068 501+ LA 14,DIRTOKEN PICKUP PARAMETER 02-IHBOP 00037C 41F0 D98C 0098C 502+ LA 15,LCLERRNO PICKUP PARAMETER 02-IHBOP 000380 4100 D990 00990 503+ LA 0,LCLREA PICKUP PARAMETER 02-IHBOP 000384 90E0 1000 00000 504+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000388 41E0 D994 00994 505+ LA 14,LCLRC PICKUP PARAMETER 02-IHBOP 00038C 50E0 100C 0000C 506+ ST 14,12(0,1) STORE INTO PARAM. LIST 02-IHBOP 000390 9680 100C 0000C 507+ OI 12(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000394 58F0 B368 00370 508+ L 15,IHB0049B LOAD 15 WITH ENTRY ADR 01-CALL 000398 05EF 509+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 000039A 58F0 A014 00014 511 L R15,PRMRC 00039E D203 F000 B400 00000 00408 512 MVC 0(4,R15),=F'-1' 0003A4 47F0 B33E 00346 513 B RETURN 0 515 ********************************************************************** 516 * NAME IS TOO LONG, SET ERRNO, REASON, AND RC AND THEN BAIL OUT. 517 ********************************************************************** 0003A8 518 TOOLONG DS 0H 0003A8 58E0 A008 00008 519 L R14,PRMERRNO 0003AC 41F0 007E 0007E 520 LA R15,ENAMETOOLONG 0003B0 50F0 E000 00000 521 ST R15,0(,R14) 0003B4 58E0 A00C 0000C 522 L R14,PRMREA 0003B8 41F0 0039 00039 523 LA R15,JRPATHTOOLONG 0003BC 50F0 E000 00000 524 ST R15,0(,R14) 0003C0 58E0 A014 00014 525 L R14,PRMRC 0003C4 D203 E000 B400 00000 00408 526 MVC 0(4,R14),=F'-1' 0003CA 47F0 B35C 00364 527 B BAIL 528 ********************************************************************** 529 * COPY THE ERRFILE POINTED TO BY R1 TO THE PRMERRFL 530 * R1 POINTS TO THE 4 BYTE LENGTH 531 * USES R14 FOR RETURN 532 ********************************************************************** 0003CE 533 RETERRFL DS 0H 0003CE 90E2 D998 00998 534 STM R14,R2,SMALLSV SAVE SOME REGS 0003D2 5830 1000 00000 535 L R3,0(,R1) POINT TO PATH LENGTH 0003D6 4120 1004 00004 536 LA R2,4(,R1) POINT TO THE SOURCE 0003DA 58E0 A010 00010 537 L R14,PRMERRFL POINT TO THE OUTPUT PARM 0003DE 48F0 E000 00000 538 LH R15,0(,R14) IS THERE ALREADY SOMETHING THERE? 0003E2 12FF 539 LTR R15,R15 IF SO, SKIP IT. 0003E4 4770 B3EC 003F4 540 BNZ SKIPIT 00003E8 4030 E000 00000 542 STH R3,0(,R14) SAVE THE LEN IN THE RETURNED PARM 0003EC 41E0 E002 00002 543 LA R14,2(,R14) POINT TO TEXT PART OF THE PARM 0003F0 18F3 544 LR R15,R3 GET A COPY OF THE LENGTH 0003F2 0EE2 545 MVCL R14,R2 COPY THE TO RETURNED PARM 00003F4 547 SKIPIT DS 0H 0003F4 98E2 D998 00998 548 LM R14,R2,SMALLSV SAVE SOME REGS 1 Page 13 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00003F8 07FE 549 BR R14 00003FA D200 E001 D886 00001 00886 551 APPEND MVC 1(*-*,R14),DIRNAME 000400 000001FF 552 WIDEOPEN DC A(511) /* OCTAL 0777 */ 0000000 00000 009F0 554 WORKAREA DSECT 000000 555 DS 26F 000068 556 DIRTOKEN DS A 00006C 557 FRPATHL DS F 000070 558 FRPATH DS CL1024 000470 559 TOPATHL DS F 000474 560 TOPATH DS CL1024 000874 561 FRAPPEND DS A POINTS INTO FRPATH TO SPOT TO APPEND NAMES 000878 562 FRPATHB DS F LENGTH OF FRPATH UP TO FRAPPEND 00087C 563 TOAPPEND DS A POINTS INTO TOPATH TO SPOT TO APPEND NAMES 000880 564 TOPATHB DS F LENGTH OF TOPATH UP TO TOAPPEND 000884 565 DIRNAMEL DS H 000886 566 DIRNAME DS CL256 000986 567 EXISTS DS XL1 000987 568 ISADIR DS XL1 000988 569 ISASYM DS XL1 00098C 570 LCLERRNO DS F 000990 571 LCLREA DS F 000994 572 LCLRC DS F 000998 573 SMALLSV DS 6A 0009B0 574 CALLLIST DS 8D 009F0 575 WORKLEN EQU *-WORKAREA 0000000 00000 00018 577 PARMS DSECT 000000 578 PRMFROM DS A POINTER TO PATH 2 BYTE LEN FOLLOWED BY PATH 000004 579 PRMTO DS A POINTER TO PATH 2 BYTE LEN FOLLOWED BY PATH 000008 580 PRMERRNO DS A ERRNO VALUE 00000C 581 PRMREA DS A REASON CODE 000010 582 PRMERRFL DS A ERROR PATH COPIED HERE 000014 583 PRMRC DS A RETURN CODE, -1 ON ERROR, ZERO ON SUCCESS - 586 BPXYOPNF 587+** BPXYOPNF: File status flags 588+** Used By: FCT OPN 000000 00000 00004 589+O_FLAGS DSECT , 01-BPXYO 000000 590+O_FLAGS1 DS B Open flags - byte 1 01-BPXYO 00080 591+OPNFHIGH EQU X'80' DO NOT USE THIS BIT! 01-BPXYO 592+* O_FLAGS must never be < 0 0000001 594+O_FLAGS2 DS B Open flags - byte 2 01-BPXYO 00080 595+OPNFEXEC EQU X'80' Execute access requested - 01-BPXYO 596+* authorization required for use 0000002 598+O_FLAGS3 DS B Open flags - byte 3 01-BPXYO 00008 599+O_NOLARGEFILE EQU X'08' Large Files not allowed @D5A 01-BPXYO 00004 600+O_LARGEFILE EQU X'04' Ignored @D5A 01-BPXYO 00002 601+O_ASYNCSIG EQU X'02' An asynchronous signal may occur @D4A 01-BPXYO 00001 602+O_SYNC EQU X'01' Force synchronous updates @D3A 01-BPXYO 1 Page 14 Active Usings: PARMS(X'1000'),R10 XCOPY(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000003 604+O_FLAGS4 DS B Open flags - byte 4 01-BPXYO 000C0 605+O_CREXCL EQU X'C0' Create file only if non-existent 01-BPXYO 00080 606+O_CREAT EQU X'80' Create file 01-BPXYO 00040 607+O_EXCL EQU X'40' Exclusive flag 01-BPXYO 00020 608+O_NOCTTY EQU X'20' Not a controlling terminal 01-BPXYO 00010 609+O_TRUNC EQU X'10' Truncate flag 01-BPXYO 00008 610+O_APPEND EQU X'08' Set offset to EOF on write 01-BPXYO 00004 611+O_NONBLOCK EQU X'04' Don't block this file 01-BPXYO 00004 612+FNDELAY EQU X'04' Don't block this file @D2A 01-BPXYO 00003 613+O_RDWR EQU X'03' Open for Read and Write 01-BPXYO 00002 614+O_RDONLY EQU X'02' Open for Read Only 01-BPXYO 00001 615+O_WRONLY EQU X'01' Open for Write Only 01-BPXYO 00003 616+O_ACCMODE EQU X'03' Mask for file access modes 01-BPXYO 0000F 617+O_GETFL EQU X'0F' Mask for file access modes and 01-BPXYO 618+* file status flags together @P4A 0 00004 620+OPNF#LENGTH EQU *-O_FLAGS Length of this structure 01-BPXYO 621+** BPXYOPNF End - 623 PRINT NOGEN 624 BPXYERNO 3789 SYMBAR MODE=DEC 3806 DROP R10,R11,R13 3807 END 000408 FFFFFFFF 3808 =F'-1' 00040C 00000400 3809 =F'1024' 000410 00000001 3810 =F'1' 000414 00024B4B 3811 =XL4'00024B4B' 000418 00014B 3812 =XL3'00014B' 1 Relocation Dictionary Page 15 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 000000C4 00000001 00000003 1C 00000148 00000001 00000004 1C 0000018C 00000001 00000005 1C 00000204 00000001 00000006 1C 00000268 00000001 00000007 1C 000002D8 00000001 00000008 1C 0000031C 00000001 00000008 1C 00000370 1 Ordinary Symbol and Literal Cross Reference Page 16 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0APPEND 6 000003FA 00000001 I 551 317X 408X BAIL 2 00000364 00000001 H 487 250B 286B 385B 437B 527B BPX1MKD 1 00000000 00000003 T 230 230 CALLLIST 8 000009B0 FFFFFFFF D 574 169 235 273 328 370 423 459 500 CLOSDIR 1 00000000 00000008 T 454 454 495 COPYFILE 2 000002A0 00000001 H 397 347B COPYHFS 1 00000000 00000007 T 418 418 DIRNAME 256 00000886 FFFFFFFF C 566 551 DIRNAMEL 2 00000884 FFFFFFFF H 565 278 288 292 294 307 398 DIRTOKEN 4 00000068 FFFFFFFF A 556 106M 174 180 274 460 501 ENAMETOOLONG 1 0000007E FFFFFFFD A U 657 520 EOF 2 0000030E 00000001 H 443 290B EXISTS 1 00000986 FFFFFFFF X 567 331 340 FRAPPEND 4 00000874 FFFFFFFF A 561 153M 309 FRPATH 1024 00000070 FFFFFFFF C 558 150 152 202 330 FRPATHB 4 00000878 FFFFFFFF F 562 148M 308 FRPATHL 4 0000006C FFFFFFFF F 557 147M 196 211 314M 329 371 424 488 IHB0004B 4 000000C4 00000001 V 164 177 IHB0010B 4 00000148 00000001 V 230 245 IHB0016B 4 0000018C 00000001 V 268 281 IHB0022B 4 00000204 00000001 V 323 337 IHB0028B 4 00000268 00000001 V 365 380 IHB0034B 4 000002D8 00000001 V 418 432 IHB0040B 4 0000031C 00000001 V 454 467 IHB0049B 4 00000370 00000001 V 495 508 ISADIR 1 00000987 FFFFFFFF X 568 333 346 ISASYM 1 00000988 FFFFFFFF X 569 334 343 ISDIR 1 00000000 00000005 T 323 323 JRPATHTOOLONG 1 00000039 FFFFFFFD A U 893 523 LCLERRNO 4 0000098C FFFFFFFF F 570 461 502 LCLRC 4 00000994 FFFFFFFF F 572 464 505 LCLREA 4 00000990 FFFFFFFF F 571 462 503 O_FLAGS 1 00000000 FFFFFFFD J 589 620 OPENDIR 1 00000000 00000002 T 164 164 PARMS 1 00000000 FFFFFFFE J 577 83U PRMERRFL 4 00000010 FFFFFFFE A 582 111 352 537 PRMERRNO 4 00000008 FFFFFFFE A 580 107 156 223 262 349 410 519 PRMFROM 4 00000000 FFFFFFFE A 578 143 158 PRMRC 4 00000014 FFFFFFFE A 583 113 222 351 412 444 511 525 PRMREA 4 0000000C FFFFFFFE A 581 109 157 224 263 350 411 522 PRMTO 4 00000004 FFFFFFFE A 579 130 READDIR 1 00000000 00000004 T 268 268 READLOOP 2 0000017E 00000001 H 261 293B 295B 341B 344B 386B 438B RETERRFL 2 000003CE 00000001 H 533 489B RETURN 2 00000346 00000001 H 470 182B 513B R0 1 00000000 FFFFFFFD A U 3790 105M 105 106 108 110 112 R1 1 00000001 FFFFFFFD A U 3791 139M 140 152M 153 213M 214 215 218M 218 219 488M 535 536 R10 1 0000000A FFFFFFFD A U 3800 3806D R11 1 0000000B FFFFFFFD A U 3801 3806D R13 1 0000000D FFFFFFFD A U 3803 3806D R14 1 0000000E FFFFFFFD A U 3804 202M 203 207M 220M 309M 315 400M 406 444M 446 489M 519M 521 522M 524 525M 526 534 537M 538 542 543M 543 545M 1 Ordinary Symbol and Literal Cross Reference Page 17 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 548M 549B 551 R15 1 0000000F FFFFFFFD A U 3805 107M 108 109M 110 111M 112 113M 114 130M 131 138 143M 144 151 180M 181M 181 196M 197M 198M 198 202 205M 210M 210 211M 213 217 248M 249M 249 284M 285M 285 288M 289M 289 308M 310M 310 311 314 358M 359 383M 384M 384 399M 401M 401 402 405 435M 436M 436 445M 445 446 511M 512 520M 521 523M 524 538M 539M 539 544M R2 1 00000002 FFFFFFFD A U 3792 137M 141M 150M 154M 156M 171 216M 220M 222M 240 248 262M 275 284 349M 373 410M 426 534 536M 545M 548M R3 1 00000003 FFFFFFFD A U 3793 131M 132 134 135 136 139 144M 145 147 148 149 152 157M 172 212M 213 216 217M 223M 241 263M 276 307M 310 316M 317 350M 375 398M 401 407M 408 411M 428 535M 542 544 R4 1 00000004 FFFFFFFD A U 3794 138M 141M 151M 154M 158M 170 224M 242 351M 377 383 412M 429 435 R5 1 00000005 FFFFFFFD A U 3795 136M 149M 352M 376 SETTONME 2 00000112 00000001 H 209 199B 204B SKIPIT 2 000003F4 00000001 H 547 540B SLASH1 2 000000FE 00000001 H 201 205B SMALLSV 4 00000998 FFFFFFFF A 573 534M 548 TOAPPEND 4 0000087C FFFFFFFF A 563 140M 219M 400 TOOLONG 2 000003A8 00000001 H 518 133B 146B 312B 403B TOPATH 1024 00000474 FFFFFFFF C 560 137 139 216 218 237 TOPATHB 4 00000880 FFFFFFFF F 564 135M 215M 358 399 TOPATHL 4 00000470 FFFFFFFF F 559 134M 212 214M 236 359M 372 405M 425 WIDEOPEN 4 00000400 00000001 A 552 238 WORKAREA 1 00000000 FFFFFFFF J 554 94U 575 WORKLEN 1 000009F0 FFFFFFFF A U 575 78 XCOPY 2 00000008 00000001 H 74 70 81U XCOPY 1 00000000 00000006 T 365 365 XCOPY1 1 00000000 00000001 J 69 66 67 =F'-1' 4 00000408 00000001 F 3808 114 512 526 =F'1' 4 00000410 00000001 F 3810 207 =F'1024' 4 0000040C 00000001 F 3809 132 145 311 402 =XL3'00014B' 3 00000418 00000001 X 3812 292 =XL4'00024B4B' 4 00000414 00000001 X 3811 294 1 Macro and Copy Code Source Summary Page 18 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO BPXYOPNF CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1 Dsect Cross Reference Page 19 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0O_FLAGS 00000004 FFFFFFFD 589 PARMS 00000018 FFFFFFFE 577 WORKAREA 000009F0 FFFFFFFF 554 1 Using Map Page 20 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 81 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 410 540 XCOPY,11 83 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 014 537 PARMS,10 94 00000034 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 9B0 551 WORKAREA,13 3806 00000004 FFFFFFFD DROP 10 R10 3806 00000004 FFFFFFFD DROP 11 R11 3806 00000004 FFFFFFFD DROP 13 R13 1 General Purpose Register Cross Reference Page 21 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 75 85M 105M 105 106 108 110 112 172M 173 238M 239 242M 243 276M 277 331M 332 373M 374 377M 378 426M 427 462M 463 475M 480M 503M 504 534 548M 1(1) 75 82 88M 90 91 92 139M 140 152M 153 169M 173 175 176 213M 214 215 218M 218N 219 235M 239 243 244 273M 277 279 280 328M 332 335 336 370M 374 378 379 423M 427 430 431 459M 463 465 466 472M 478M 478 480M 488M 500M 504 506 507 534 535 536 548M 2(2) 75 137M 141M 150M 154M 156M 171 216M 220M 222M 240 248 262M 275 284 349M 373 410M 426 480M 534 536M 545M 548M 3(3) 75 131M 132 134 135 136 139N 141M 144M 145 147 148 149 152N 154M 157M 172 212M 213N 216N 217M 220M 223M 241 263M 276 307M 310 316M 317 350M 375 398M 401 407M 408 411M 428 480M 535M 542 544 545M 4(4) 75 138M 141M 151M 154M 158M 170 224M 242 351M 377 383 412M 429 435 480M 5(5) 75 136M 141M 149M 154M 352M 376 480M 6(6) 75 480M 7(7) 75 480M 8(8) 75 480M 9(9) 75 480M 10(A) 75 82M 83U 480M 3806D 11(B) 75 80M 81U 85 480M 3806D 12(C) 75 480M 13(D) 75 90 91 92M 94U 472 473M 473 474 480 3806D 14(E) 75 170M 173 174M 175 178M 202M 203 207M 220M 236M 239 240M 243 246M 274M 277 278M 279 282M 309M 315 329M 332 333M 335 338M 371M 374 375M 378 381M 400M 406 424M 427 428M 430 433M 444M 446 460M 463 464M 465 468M 474M 475N 480M 482B 489M 501M 504 505M 506 509M 519M 521 522M 524 525M 526 534 537M 538 542 543M 543 545M 548M 549B 551 15(F) 75 76 80 107M 108 109M 110 111M 112 113M 114 130M 131 138N 143M 144 151N 171M 173 177M 178B 180M 181M 181 196M 197M 198M 198 202N 205M 210M 210 211M 213 217 220M 237M 239 241M 243 245M 246B 248M 249M 249 275M 277 281M 282B 284M 285M 285 288M 289M 289 308M 310M 310N 311 314 330M 332 334M 335 337M 338B 358M 359 372M 374 376M 378 380M 381B 383M 384M 384 399M 401M 401N 402 405 425M 427 429M 430 432M 433B 435M 436M 436 445M 445 446 461M 463 467M 468B 480M 481M 481 502M 504 508M 509B 511M 512 520M 521 523M 524 534 538M 539M 539 544M 545M 548M 1 Diagnostic Cross Reference and Assembler Summary Page 22 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: XCOPY PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 XCOPY L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000103.? 4768K allocated to Buffer Pool, 1405K would be required for this to be an In-Storage Assembly 435 Primary Input Records Read 9614 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 836 Primary Print Records Written 0 Work File Writes 42 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.07 Stop Time: 12.09.09 Processor Time: 00.00.01.7861 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1 External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0COPYHFS1 SD 00000001 00000000 0000029C 06 COPYHFS LD 00000008 00000001 FOPEN ER 00000002 FREAD ER 00000003 FWRITE ER 00000004 FCLOSE ER 00000005 1 Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 1 *********************************************************************** 2 * * 3 * SEGMENT NAME: * 4 * * 5 * COPYHFS -- COPY AN HFS FILE * 6 * * 7 * THIS MODULE COPIES AN HFS FILE FROM ONE PLACE TO ANOTHER. * 8 * * 9 * INPUTS (*TO FUNCTIONS): * 10 * FROM_PATH - VARYING CHAR (*) 2 BYTE LEN FOLLOWED BY DATA * 11 * THIS IS GENERALLY THE FULLY QUALIFIED PATH OF THE FILE * 12 * TO COPY. HOWEVER, THERE IS NOTHING TO PREVENT USING RELATIVE * 13 * PATHS PROVIDED YOU KNOW WHAT DIRECTORY YOU ARE IN. THIS * 14 * STRING IS CASE SENSITIVE. * 15 * * 16 * TO_PATH - VARYING CHAR (*) 2 BYTE LEN FOLLOWED BY DATA * 17 * THIS IS THE TARGET FILE. IF IT EXISTS IT WILL BE REPLACED. * 18 * * 19 * FUNCTIONS: * 20 * * 21 * 1. COPY THE FILE USING FOPEN, FREAD, AND FWRITE * 22 * * 23 * * 24 * OUTPUTS (*FROM FUNCTIONS): * 25 * * 26 * RC - INT * 27 * 0 - THIS ROUTINE WORKED * 28 * -1 - FAILURE, ERRNO AND REASON GIVE THE DETAILS * 29 * * 30 * ERRNO - INT * 31 * ON ERROR, THE UNIX SYSTEM SERVICES ERRNO * 32 * * 33 * REASON - INT * 34 * ON ERROR, THE EXTENED IBM REASON CODE * 35 * * 36 * NOTES: * 37 * THE ROUTINES CALLED IN THIS MODULE (FOPEN, FREAD, FWRITE, FCLOSE)* 38 * WERE MADE TO BE CALLED FROM PL/I, LOCATOR DESCRIPTORS ARE BUILT * 39 * FOR THE CALLS. * 40 * * 41 *********************************************************************** 0 43 COPYHFS1 AMODE 31 44 COPYHFS1 RMODE ANY 45 COPYHFS RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS 000000 00000 0029C 46+COPYHFS1 CSECT , 01-RENTR 47+ ENTRY COPYHFS INDICATE ENTRY POINT 01-RENTR 000000 48+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 C3D6D7E8C8C6E207 49+ DC C'COPYHFS',AL1(7) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 50+COPYHFS DS 0H 01-RENTR 000008 90EC D00C 0000C 51+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 52+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 53+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00001108 54+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 1 Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000018 00000000 55+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 56+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 57+ USING COPYHFS,11 01-RENTR 00001E 18A1 58+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 59+ USING PARMS,10 01-RENTR 60+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000020 5800 B00C 0000C 61+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000024 4510 B020 00028 64+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000028 0A0A 65+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00002A 50D0 1004 00004 66+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00002E 5010 D008 00008 67+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000032 18D1 68+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 70+ USING WORKAREA,13 01-RENTR 1 Page 5 Active Usings: PARMS(X'1000'),R10 COPYHFS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 72 ********************************************************************** 73 * INITIALIZE THE RETURNED PARMS TO NOTHING. 74 * 75 * REGISTER USAGE: 76 * R10 -> PARM LIST 77 * R11 -> PROGRAM BASE 78 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 79 ********************************************************************** 0000034 1F00 81 SLR R0,R0 GET A ZERO 000036 58F0 A008 00008 82 L R15,PRMERRNO 00003A 5000 F000 00000 83 ST R0,0(,R15) 00003E 58F0 A00C 0000C 84 L R15,PRMREA 000042 5000 F000 00000 85 ST R0,0(,R15) 000046 58F0 A010 00010 86 L R15,PRMRC 00004A D203 F000 B280 00000 00288 87 MVC 0(4,R15),=F'-1' PREPARE FOR FAILURE 0000050 D203 D084 B284 00084 0028C 89 MVC ONE(4),=F'1' 0 91 ********************************************************************** 92 * SAVE THE PATH LENGTHS FROM THE PARMS AS FULLWORDS FOR THE OMVS 93 * CALLS. 94 * 95 * REGISTER USAGE: 96 * R10 -> PARM LIST 97 * R11 -> PROGRAM BASE 98 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 99 ********************************************************************** 0000056 58F0 A004 00004 101 L R15,PRMTO POINT TO PATH LENGTH 00005A 48E0 F000 00000 102 LH R14,0(,R15) LOAD THE LENGTH 00005E 50E0 D070 00070 103 ST R14,TOPATHL SAVE AS A FULLWORD 000062 41F0 F002 00002 104 LA R15,2(,R15) POINT TO PATH TEXT 000066 50F0 D07C 0007C 105 ST R15,TOLD SAVE IN LOCATOR DESCRIPTOR 00006A 40E0 D080 00080 106 STH R14,TOLD+4 SAVE LENGTH IN LOCATOR DESCRIPTOR 000006E 58F0 A000 00000 108 L R15,PRMFROM POINT TO PATH LENGTH 000072 48E0 F000 00000 109 LH R14,0(,R15) LOAD THE LENGTH 000076 50E0 D06C 0006C 110 ST R14,FRPATHL SAVE AS A FULLWORD 00007A 41F0 F002 00002 111 LA R15,2(,R15) POINT TO PATH TEXT 00007E 50F0 D074 00074 112 ST R15,FRLD SAVE IN LOCATOR DESCRIPTOR 000082 40E0 D078 00078 113 STH R14,FRLD+4 SAVE LENGTH IN LOCATOR DESCRIPTOR 0000086 41F0 D090 00090 115 LA R15,TYPE POINT TO TYPE 00008A 41E0 0001 00001 116 LA R14,1 LOAD THE LENGTH 00008E 50F0 D088 00088 117 ST R15,TYPELD 000092 40E0 D08C 0008C 118 STH R14,TYPELD+4 SAVE LENGTH IN LOCATOR DESCRIPTOR 0000096 41F0 D09C 0009C 120 LA R15,COMPONT POINT TO FAILING COMPONENT PARM 00009A 41E0 0008 00008 121 LA R14,8 LOAD THE DECLARED LENGTH 00009E 50F0 D094 00094 122 ST R15,COMPLD 0000A2 40E0 D098 00098 123 STH R14,COMPLD+4 SAVE LENGTH IN LOCATOR DESCRIPTOR 00000A6 41F0 D108 00108 125 LA R15,BUFF POINT TO WORK BUFFER 0000AA 58E0 B288 00290 126 L R14,=A(L'BUFF) LOAD THE DECLARED LENGTH 1 Page 6 Active Usings: PARMS(X'1000'),R10 COPYHFS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00000AE 50F0 D100 00100 127 ST R15,BUFFLD 0000B2 40E0 D104 00104 128 STH R14,BUFFLD+4 SAVE LENGTH IN LOCATOR DESCRIPTOR 00000B6 5820 A008 00008 130 L R2,PRMERRNO 0000BA 5830 A00C 0000C 131 L R3,PRMREA 0000BE 5840 A000 00000 132 L R4,PRMFROM 0 134 ********************************************************************** 135 * OPEN THE INPUT FILE. ERROR IS INDICATED BY THE RETURNED INFILE 136 * BEING SET TO PLINULL. 137 * 138 * REGISTER USAGE: 139 * R10 -> PARM LIST 140 * R11 -> PROGRAM BASE 141 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 142 ********************************************************************** 00000C2 92D9 D090 00090 144 MVI TYPE,C'R' 0 146 CALL FOPEN,(FRPATHL, FROM PATH LENGTH X FRLD, TEXT OF PATH X ONE, LENGTH OF NEXT PARM X TYPELD, TYPE IS 'R' X (R2), ERRNO X (R3), REASON CODE X COMPLD, FAILING COMPONENT X INFILE),VL,MF=(E,CALLLIST) FILE FROM FOPEN 0000C6 0700 148+ CNOP 0,4 01-CALL 0000C8 47F0 B0C8 000D0 149+ B *+8 BRANCH AROUND VCON 01-CALL 0000CC 00000000 150+IHB0004B DC V(FOPEN) ENTRY POINT ADDRESS 01-CALL 0000D0 4110 D0C0 000C0 155+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0000D4 41E0 D06C 0006C 156+ LA 14,FRPATHL PICKUP PARAMETER 02-IHBOP 0000D8 41F0 D074 00074 157+ LA 15,FRLD PICKUP PARAMETER 02-IHBOP 0000DC 4100 D084 00084 158+ LA 0,ONE PICKUP PARAMETER 02-IHBOP 0000E0 90E0 1000 00000 159+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0000E4 41E0 D088 00088 160+ LA 14,TYPELD PICKUP PARAMETER 02-IHBOP 0000E8 18F2 161+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 0000EA 1803 162+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 0000EC 90E0 100C 0000C 163+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0000F0 41E0 D094 00094 164+ LA 14,COMPLD PICKUP PARAMETER 02-IHBOP 0000F4 41F0 D0A4 000A4 165+ LA 15,INFILE PICKUP PARAMETER 02-IHBOP 0000F8 90EF 1018 00018 166+ STM 14,15,24(1) STORE INTO PARAM. LIST 02-IHBOP 0000FC 9680 101C 0001C 167+ OI 28(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000100 58F0 B0C4 000CC 168+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 000104 05EF 169+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000106 58F0 D0A4 000A4 171 L R15,INFILE GET RETURNED VALUE 00010A 59F0 B28C 00294 172 C R15,=A(PLINULL) DID IT FAIL? 00010E 4780 B25E 00266 173 BE RETURN RETURN ON FAILURE, ERRNO ALREADY SET. 0 175 ********************************************************************** 176 * OPEN THE OUTPUT FILE. ERROR IS INDICATED BY THE RETURNED INFILE 177 * BEING SET TO PLINULL. 178 * 179 * REGISTER USAGE: 1 Page 7 Active Usings: PARMS(X'1000'),R10 COPYHFS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 180 * R10 -> PARM LIST 181 * R11 -> PROGRAM BASE 182 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 183 ********************************************************************** 0000112 92E6 D090 00090 185 MVI TYPE,C'W' 0 187 CALL FOPEN,(TOPATHL, FROM PATH LENGTH X TOLD, TEXT OF PATH X ONE, LENGTH OF NEXT PARM X TYPELD, TYPE IS 'W' X (R2), ERRNO X (R3), REASON CODE X COMPLD, FAILING COMPONENT X OUTFILE),VL,MF=(E,CALLLIST) FILE FROM FOPEN 000116 0700 189+ CNOP 0,4 01-CALL 000118 47F0 B118 00120 190+ B *+8 BRANCH AROUND VCON 01-CALL 00011C 00000000 191+IHB0010B DC V(FOPEN) ENTRY POINT ADDRESS 01-CALL 000120 4110 D0C0 000C0 196+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000124 41E0 D070 00070 197+ LA 14,TOPATHL PICKUP PARAMETER 02-IHBOP 000128 41F0 D07C 0007C 198+ LA 15,TOLD PICKUP PARAMETER 02-IHBOP 00012C 4100 D084 00084 199+ LA 0,ONE PICKUP PARAMETER 02-IHBOP 000130 90E0 1000 00000 200+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000134 41E0 D088 00088 201+ LA 14,TYPELD PICKUP PARAMETER 02-IHBOP 000138 18F2 202+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 00013A 1803 203+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 00013C 90E0 100C 0000C 204+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 000140 41E0 D094 00094 205+ LA 14,COMPLD PICKUP PARAMETER 02-IHBOP 000144 41F0 D0A8 000A8 206+ LA 15,OUTFILE PICKUP PARAMETER 02-IHBOP 000148 90EF 1018 00018 207+ STM 14,15,24(1) STORE INTO PARAM. LIST 02-IHBOP 00014C 9680 101C 0001C 208+ OI 28(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000150 58F0 B114 0011C 209+ L 15,IHB0010B LOAD 15 WITH ENTRY ADR 01-CALL 000154 05EF 210+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000156 58F0 D0A4 000A4 212 L R15,INFILE GET RETURNED VALUE 00015A 59F0 B28C 00294 213 C R15,=A(PLINULL) DID IT FAIL? 00015E 4780 B22A 00232 214 BE BAIL1 RETURN ON FAILURE, ERRNO ALREADY SET. 0 216 ********************************************************************** 217 * READ A BUFFER FULL, THEN WRITE A BUFFER FULL. 218 * 219 * REGISTER USAGE: 220 * R10 -> PARM LIST 221 * R11 -> PROGRAM BASE 222 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 223 ********************************************************************** 0000162 225 READLOOP DS 0H 226 CALL FREAD,(BUFFLD, X ONE, X =F'4096', X INFILE, X (R2), X (R3), X COUNT),VL,MF=(E,CALLLIST) 1 Page 8 Active Usings: PARMS(X'1000'),R10 COPYHFS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000162 0700 228+ CNOP 0,4 01-CALL 000164 47F0 B164 0016C 229+ B *+8 BRANCH AROUND VCON 01-CALL 000168 00000000 230+IHB0016B DC V(FREAD) ENTRY POINT ADDRESS 01-CALL 00016C 4110 D0C0 000C0 235+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000170 41E0 D100 00100 236+ LA 14,BUFFLD PICKUP PARAMETER 02-IHBOP 000174 41F0 D084 00084 237+ LA 15,ONE PICKUP PARAMETER 02-IHBOP 000178 4100 B290 00298 238+ LA 0,=F'4096' PICKUP PARAMETER 02-IHBOP 00017C 90E0 1000 00000 239+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000180 41E0 D0A4 000A4 240+ LA 14,INFILE PICKUP PARAMETER 02-IHBOP 000184 18F2 241+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 000186 1803 242+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 000188 90E0 100C 0000C 243+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 00018C 41E0 D0AC 000AC 244+ LA 14,COUNT PICKUP PARAMETER 02-IHBOP 000190 50E0 1018 00018 245+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 000194 9680 1018 00018 246+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000198 58F0 B160 00168 247+ L 15,IHB0016B LOAD 15 WITH ENTRY ADR 01-CALL 00019C 05EF 248+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 000019E 58F0 D0AC 000AC 250 L R15,COUNT 0001A2 12FF 251 LTR R15,R15 0001A4 4780 B1EC 001F4 252 BZ EOF 0001A8 4740 B1F6 001FE 253 BM BAIL 0 255 CALL FWRITE,(BUFFLD, X ONE, X COUNT, X OUTFILE, X (R2), X (R3), X COUNT2),VL,MF=(E,CALLLIST) 0001AC 257+ CNOP 0,4 01-CALL 0001AC 47F0 B1AC 001B4 258+ B *+8 BRANCH AROUND VCON 01-CALL 0001B0 00000000 259+IHB0022B DC V(FWRITE) ENTRY POINT ADDRESS 01-CALL 0001B4 4110 D0C0 000C0 264+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0001B8 41E0 D100 00100 265+ LA 14,BUFFLD PICKUP PARAMETER 02-IHBOP 0001BC 41F0 D084 00084 266+ LA 15,ONE PICKUP PARAMETER 02-IHBOP 0001C0 4100 D0AC 000AC 267+ LA 0,COUNT PICKUP PARAMETER 02-IHBOP 0001C4 90E0 1000 00000 268+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0001C8 41E0 D0A8 000A8 269+ LA 14,OUTFILE PICKUP PARAMETER 02-IHBOP 0001CC 18F2 270+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 0001CE 1803 271+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 0001D0 90E0 100C 0000C 272+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0001D4 41E0 D0B0 000B0 273+ LA 14,COUNT2 PICKUP PARAMETER 02-IHBOP 0001D8 50E0 1018 00018 274+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 0001DC 9680 1018 00018 275+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0001E0 58F0 B1A8 001B0 276+ L 15,IHB0022B LOAD 15 WITH ENTRY ADR 01-CALL 0001E4 05EF 277+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00001E6 58F0 D0B0 000B0 279 L R15,COUNT2 0001EA 12FF 280 LTR R15,R15 0001EC 4740 B1F6 001FE 281 BM BAIL 0001F0 47F0 B15A 00162 282 B READLOOP GO GET THE NEXT ONE 0 284 ********************************************************************** 285 * NORMAL EOF, SHOW RC = 0, AND THEN CLOSE FHE FILE 1 Page 9 Active Usings: PARMS(X'1000'),R10 COPYHFS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 286 ********************************************************************** 00001F4 288 EOF DS 0H 0001F4 58E0 A010 00010 289 L R14,PRMRC POINT TO THE RC PARM 0001F8 1FFF 290 SLR R15,R15 GET A ZERO 0001FA 50F0 E000 00000 291 ST R15,0(,R14) SHOW RC = 0, SUCCESS 292 ********************************************************************** 293 * ALWAYS CLOSE THE DIRECTORY BEFORE WE QUIT, ONCE IT IS OPEN 294 ********************************************************************** 00001FE 296 BAIL DS 0H 297 CALL FCLOSE,(OUTFILE, X LCLERRNO, X LCLREA, X COMPLD, X LCLRC),VL,MF=(E,CALLLIST) RETURN CODE 0001FE 0700 299+ CNOP 0,4 01-CALL 000200 47F0 B200 00208 300+ B *+8 BRANCH AROUND VCON 01-CALL 000204 00000000 301+IHB0028B DC V(FCLOSE) ENTRY POINT ADDRESS 01-CALL 000208 4110 D0C0 000C0 306+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00020C 41E0 D0A8 000A8 307+ LA 14,OUTFILE PICKUP PARAMETER 02-IHBOP 000210 41F0 D0B4 000B4 308+ LA 15,LCLERRNO PICKUP PARAMETER 02-IHBOP 000214 4100 D0B8 000B8 309+ LA 0,LCLREA PICKUP PARAMETER 02-IHBOP 000218 90E0 1000 00000 310+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00021C 41E0 D094 00094 311+ LA 14,COMPLD PICKUP PARAMETER 02-IHBOP 000220 41F0 D0BC 000BC 312+ LA 15,LCLRC PICKUP PARAMETER 02-IHBOP 000224 90EF 100C 0000C 313+ STM 14,15,12(1) STORE INTO PARAM. LIST 02-IHBOP 000228 9680 1010 00010 314+ OI 16(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00022C 58F0 B1FC 00204 315+ L 15,IHB0028B LOAD 15 WITH ENTRY ADR 01-CALL 000230 05EF 316+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000232 318 BAIL1 DS 0H 319 CALL FCLOSE,(INFILE, X LCLERRNO, X LCLREA, X COMPLD, X LCLRC),VL,MF=(E,CALLLIST) RETURN CODE 000232 0700 321+ CNOP 0,4 01-CALL 000234 47F0 B234 0023C 322+ B *+8 BRANCH AROUND VCON 01-CALL 000238 00000000 323+IHB0034B DC V(FCLOSE) ENTRY POINT ADDRESS 01-CALL 00023C 4110 D0C0 000C0 328+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000240 41E0 D0A4 000A4 329+ LA 14,INFILE PICKUP PARAMETER 02-IHBOP 000244 41F0 D0B4 000B4 330+ LA 15,LCLERRNO PICKUP PARAMETER 02-IHBOP 000248 4100 D0B8 000B8 331+ LA 0,LCLREA PICKUP PARAMETER 02-IHBOP 00024C 90E0 1000 00000 332+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000250 41E0 D094 00094 333+ LA 14,COMPLD PICKUP PARAMETER 02-IHBOP 000254 41F0 D0BC 000BC 334+ LA 15,LCLRC PICKUP PARAMETER 02-IHBOP 000258 90EF 100C 0000C 335+ STM 14,15,12(1) STORE INTO PARAM. LIST 02-IHBOP 00025C 9680 1010 00010 336+ OI 16(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000260 58F0 B230 00238 337+ L 15,IHB0034B LOAD 15 WITH ENTRY ADR 01-CALL 000264 05EF 338+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000266 340 RETURN DS 0H 341 REXIT ENV=OS 000266 4110 D000 00000 342+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 1 Page 10 Active Usings: PARMS(X'1000'),R10 COPYHFS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000026A 58D0 D004 00004 343+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 00026E 58E0 D010 00010 344+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000272 580E 000C 0000C 345+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000276 4110 1000 00000 348+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 00027A 0A0A 349+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 00027C 98EC D00C 0000C 350+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000280 1FFF 351+ SLR 15,15 ZERO RETURN CODE 01-REXIT 000282 07FE 352+ BR 14 RETURN 01-REXIT 0000000 00000 01108 354 WORKAREA DSECT 000000 355 DS 26F 000068 356 DIRTOKEN DS A 00006C 357 FRPATHL DS F 000070 358 TOPATHL DS F 000074 359 FRLD DS 2A 00007C 360 TOLD DS 2A 000084 361 ONE DS F 000088 362 TYPELD DS 2A 000090 363 TYPE DS CL4 000094 364 COMPLD DS 2A 00009C 365 COMPONT DS CL8 0000A4 366 INFILE DS A 0000A8 367 OUTFILE DS A 0000AC 368 COUNT DS F 0000B0 369 COUNT2 DS F 0000B4 370 LCLERRNO DS F 0000B8 371 LCLREA DS F 0000BC 372 LCLRC DS F 0000C0 373 CALLLIST DS 8D 000100 374 BUFFLD DS 2A 000108 375 BUFF DS CL4096 01108 376 WORKLEN EQU *-WORKAREA 0000000 00000 00014 378 PARMS DSECT 000000 379 PRMFROM DS A POINTER TO PATH 2 BYTE LEN FOLLOWED BY PATH 000004 380 PRMTO DS A POINTER TO PATH 2 BYTE LEN FOLLOWED BY PATH 000008 381 PRMERRNO DS A ERRNO VALUE 00000C 382 PRMREA DS A REASON CODE 000010 383 PRMRC DS A RETURN CODE, -1 ON ERROR, ZERO ON SUCCESS - 000000 386 PLINULL EQU X'FF000000' - 389 BPXYOPNF 390+** BPXYOPNF: File status flags 391+** Used By: FCT OPN 000000 00000 00004 392+O_FLAGS DSECT , 01-BPXYO 000000 393+O_FLAGS1 DS B Open flags - byte 1 01-BPXYO 00080 394+OPNFHIGH EQU X'80' DO NOT USE THIS BIT! 01-BPXYO 395+* O_FLAGS must never be < 0 0000001 397+O_FLAGS2 DS B Open flags - byte 2 01-BPXYO 00080 398+OPNFEXEC EQU X'80' Execute access requested - 01-BPXYO 399+* authorization required for use 1 Page 11 Active Usings: PARMS(X'1000'),R10 COPYHFS(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000002 401+O_FLAGS3 DS B Open flags - byte 3 01-BPXYO 00008 402+O_NOLARGEFILE EQU X'08' Large Files not allowed @D5A 01-BPXYO 00004 403+O_LARGEFILE EQU X'04' Ignored @D5A 01-BPXYO 00002 404+O_ASYNCSIG EQU X'02' An asynchronous signal may occur @D4A 01-BPXYO 00001 405+O_SYNC EQU X'01' Force synchronous updates @D3A 01-BPXYO 0000003 407+O_FLAGS4 DS B Open flags - byte 4 01-BPXYO 000C0 408+O_CREXCL EQU X'C0' Create file only if non-existent 01-BPXYO 00080 409+O_CREAT EQU X'80' Create file 01-BPXYO 00040 410+O_EXCL EQU X'40' Exclusive flag 01-BPXYO 00020 411+O_NOCTTY EQU X'20' Not a controlling terminal 01-BPXYO 00010 412+O_TRUNC EQU X'10' Truncate flag 01-BPXYO 00008 413+O_APPEND EQU X'08' Set offset to EOF on write 01-BPXYO 00004 414+O_NONBLOCK EQU X'04' Don't block this file 01-BPXYO 00004 415+FNDELAY EQU X'04' Don't block this file @D2A 01-BPXYO 00003 416+O_RDWR EQU X'03' Open for Read and Write 01-BPXYO 00002 417+O_RDONLY EQU X'02' Open for Read Only 01-BPXYO 00001 418+O_WRONLY EQU X'01' Open for Write Only 01-BPXYO 00003 419+O_ACCMODE EQU X'03' Mask for file access modes 01-BPXYO 0000F 420+O_GETFL EQU X'0F' Mask for file access modes and 01-BPXYO 421+* file status flags together @P4A 0 00004 423+OPNF#LENGTH EQU *-O_FLAGS Length of this structure 01-BPXYO 424+** BPXYOPNF End - 426 PRINT NOGEN 427 BPXYERNO 3592 SYMBAR MODE=DEC 3609 DROP R10,R11,R13 3610 END 000288 FFFFFFFF 3611 =F'-1' 00028C 00000001 3612 =F'1' 000290 00001000 3613 =A(L'BUFF) 000294 FF000000 3614 =A(PLINULL) 000298 00001000 3615 =F'4096' 1 Relocation Dictionary Page 12 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 000000CC 00000001 00000002 1C 0000011C 00000001 00000003 1C 00000168 00000001 00000004 1C 000001B0 00000001 00000005 1C 00000204 00000001 00000005 1C 00000238 1 Ordinary Symbol and Literal Cross Reference Page 13 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0BAIL 2 000001FE 00000001 H 296 253B 281B BAIL1 2 00000232 00000001 H 318 214B BUFF 4096 00000108 FFFFFFFF C 375 125 3613 BUFFLD 4 00000100 FFFFFFFF A 374 127M 128M 236 265 CALLLIST 8 000000C0 FFFFFFFF D 373 155 196 235 264 306 328 COMPLD 4 00000094 FFFFFFFF A 364 122M 123M 164 205 311 333 COMPONT 8 0000009C FFFFFFFF C 365 120 COPYHFS 2 00000008 00000001 H 50 47 57U COPYHFS1 1 00000000 00000001 J 46 43 44 COUNT 4 000000AC FFFFFFFF F 368 244 250 267 COUNT2 4 000000B0 FFFFFFFF F 369 273 279 EOF 2 000001F4 00000001 H 288 252B FCLOSE 1 00000000 00000005 T 301 301 323 FOPEN 1 00000000 00000002 T 150 150 191 FREAD 1 00000000 00000003 T 230 230 FRLD 4 00000074 FFFFFFFF A 359 112M 113M 157 FRPATHL 4 0000006C FFFFFFFF F 357 110M 156 FWRITE 1 00000000 00000004 T 259 259 IHB0004B 4 000000CC 00000001 V 150 168 IHB0010B 4 0000011C 00000001 V 191 209 IHB0016B 4 00000168 00000001 V 230 247 IHB0022B 4 000001B0 00000001 V 259 276 IHB0028B 4 00000204 00000001 V 301 315 IHB0034B 4 00000238 00000001 V 323 337 INFILE 4 000000A4 FFFFFFFF A 366 165 171 212 240 329 LCLERRNO 4 000000B4 FFFFFFFF F 370 308 330 LCLRC 4 000000BC FFFFFFFF F 372 312 334 LCLREA 4 000000B8 FFFFFFFF F 371 309 331 O_FLAGS 1 00000000 FFFFFFFD J 392 423 ONE 4 00000084 FFFFFFFF F 361 89M 158 199 237 266 OUTFILE 4 000000A8 FFFFFFFF A 367 206 269 307 PARMS 1 00000000 FFFFFFFE J 378 59U PLINULL 1 FF000000 FFFFFFFE A U 386 3614 PRMERRNO 4 00000008 FFFFFFFE A 381 82 130 PRMFROM 4 00000000 FFFFFFFE A 379 108 132 PRMRC 4 00000010 FFFFFFFE A 383 86 289 PRMREA 4 0000000C FFFFFFFE A 382 84 131 PRMTO 4 00000004 FFFFFFFE A 380 101 READLOOP 2 00000162 00000001 H 225 282B RETURN 2 00000266 00000001 H 340 173B R0 1 00000000 FFFFFFFD A U 3593 81M 81 83 85 R10 1 0000000A FFFFFFFD A U 3603 3609D R11 1 0000000B FFFFFFFD A U 3604 3609D R13 1 0000000D FFFFFFFD A U 3606 3609D R14 1 0000000E FFFFFFFD A U 3607 102M 103 106 109M 110 113 116M 118 121M 123 126M 128 289M 291 R15 1 0000000F FFFFFFFD A U 3608 82M 83 84M 85 86M 87 101M 102 104M 104 105 108M 109 111M 111 112 115M 117 120M 122 125M 127 171M 172 212M 213 250M 251M 251 279M 280M 280 290M 290 291 R2 1 00000002 FFFFFFFD A U 3595 130M 161 202 241 270 R3 1 00000003 FFFFFFFD A U 3596 131M 162 203 242 271 R4 1 00000004 FFFFFFFD A U 3597 132M TOLD 4 0000007C FFFFFFFF A 360 105M 106M 198 TOPATHL 4 00000070 FFFFFFFF F 358 103M 197 TYPE 4 00000090 FFFFFFFF C 363 115 144M 185M 1 Ordinary Symbol and Literal Cross Reference Page 14 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0TYPELD 4 00000088 FFFFFFFF A 362 117M 118M 160 201 WORKAREA 1 00000000 FFFFFFFF J 354 70U 376 WORKLEN 1 00001108 FFFFFFFF A U 376 54 =A(L'BUFF) 4 00000290 00000001 A 3613 126 =A(PLINULL) 4 00000294 00000001 A 3614 172 213 =F'-1' 4 00000288 00000001 F 3611 87 =F'1' 4 0000028C 00000001 F 3612 89 =F'4096' 4 00000298 00000001 F 3615 238 1 Macro and Copy Code Source Summary Page 15 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO BPXYOPNF CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1 Dsect Cross Reference Page 16 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0O_FLAGS 00000004 FFFFFFFD 392 PARMS 00000014 FFFFFFFE 378 WORKAREA 00001108 FFFFFFFF 354 1 Using Map Page 17 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 57 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 290 337 COPYHFS,11 59 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 010 289 PARMS,10 70 00000034 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 108 334 WORKAREA,13 3609 00000004 FFFFFFFD DROP 10 R10 3609 00000004 FFFFFFFD DROP 11 R11 3609 00000004 FFFFFFFD DROP 13 R13 1 General Purpose Register Cross Reference Page 18 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 51 61M 81M 81 83 85 158M 159 162M 163 199M 200 203M 204 238M 239 242M 243 267M 268 271M 272 309M 310 331M 332 345M 350M 1(1) 51 58 64M 66 67 68 155M 159 163 166 167 196M 200 204 207 208 235M 239 243 245 246 264M 268 272 274 275 306M 310 313 314 328M 332 335 336 342M 348M 348 350M 2(2) 51 130M 161 202 241 270 350M 3(3) 51 131M 162 203 242 271 350M 4(4) 51 132M 350M 5(5) 51 350M 6(6) 51 350M 7(7) 51 350M 8(8) 51 350M 9(9) 51 350M 10(A) 51 58M 59U 350M 3609D 11(B) 51 56M 57U 61 350M 3609D 12(C) 51 350M 13(D) 51 66 67 68M 70U 342 343M 343 344 350 3609D 14(E) 51 102M 103 106 109M 110 113 116M 118 121M 123 126M 128 156M 159 160M 163 164M 166 169M 197M 200 201M 204 205M 207 210M 236M 239 240M 243 244M 245 248M 265M 268 269M 272 273M 274 277M 289M 291 307M 310 311M 313 316M 329M 332 333M 335 338M 344M 345N 350M 352B 15(F) 51 52 56 82M 83 84M 85 86M 87 101M 102 104M 104 105 108M 109 111M 111 112 115M 117 120M 122 125M 127 157M 159 161M 163 165M 166 168M 169B 171M 172 198M 200 202M 204 206M 207 209M 210B 212M 213 237M 239 241M 243 247M 248B 250M 251M 251 266M 268 270M 272 276M 277B 279M 280M 280 290M 290 291 308M 310 312M 313 315M 316B 330M 332 334M 335 337M 338B 350M 351M 351 1 Diagnostic Cross Reference and Assembler Summary Page 19 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: COPYHFS PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 COPYHFS L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000104.? 4768K allocated to Buffer Pool, 1389K would be required for this to be an In-Storage Assembly 265 Primary Input Records Read 9614 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 623 Primary Print Records Written 0 Work File Writes 30 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.10 Stop Time: 12.09.12 Processor Time: 00.00.01.6911 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1 External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0OPENDIR1 SD 00000001 00000000 00000154 06 OPENDIR LD 00000008 00000001 BPX1OPD ER 00000002 1 Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 1 *********************************************************************** 2 * * 3 * SEGMENT NAME: * 4 * * 5 * OPENDIR -- OMVS_READ_DIR_ROUTINES * 6 * * 7 * THIS MODULE PROVIDES MODULES OPENDIR (OPEN A UNIX DIRECTORY), * 8 * READDIR (READ A NAME FROM THE UNIX DIRECTORY), AND CLOSDIR * 9 * (CLOSE A UNIX DIRECTORY) * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * PATH -- VARYING CHAR(*) (*1,2) * 14 * THIS IS GENERALLY THE FULLY QUALIFIED PATH OF THE DIRECTORY * 15 * TO OPEN. HOWEVER, THERE IS NOTHING TO PREVENT USING RELATIVE * 16 * PATHS PROVIDED YOU KNOW WHAT DIRECTORY YOU ARE IN. THIS * 17 * STRING IS CASE SENSITIVE. * 18 * * 19 * FUNCTIONS: * 20 * * 21 * 1. ALLOCATE SPACE ON THE HEAP FOR THE STRUCTURE WHICH CONTAINS * 22 * INFORMATION ABOUT THE DIRECTORY. * 23 * * 24 * 2. OPEN THE DIRECTORY AND SAVE THE FILE DESCRIPTOR IN THE TARGET * 25 * STRUCTURE. FLAG OPEN ERRORS. * 26 * * 27 * OUTPUTS (*FROM FUNCTIONS): * 28 * * 29 * DIR_TOKEN -- POINTER * 30 * THIS TOKEN IS RETURNED AN REPRESENTS THE DIRECTORY WHICH IS * 31 * HAS BEEN OPENED. IT IS USED IN THE CALLS TO READDIR AND * 32 * CLOSEDIR. NULL IS BINARY ZERO. * 33 * VALUES: NULL - OPEN FAILED, SEE ERRNO AND REASON * 34 * ^NULL - OPEN SUCEEDED. * 35 * * 36 * ERRNO - INT * 37 * ON ERROR, THE UNIX SYSTEM SERVICES ERRNO * 38 * * 39 * REASON - INT * 40 * ON ERROR, THE EXTENED IBM REASON CODE * 41 * * 42 * NOTES: * 43 * * 44 * * 45 *********************************************************************** 0 47 OPENDIR1 AMODE 31 48 OPENDIR1 RMODE ANY 49 OPENDIR RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS 000000 00000 00154 50+OPENDIR1 CSECT , 01-RENTR 51+ ENTRY OPENDIR INDICATE ENTRY POINT 01-RENTR 000000 52+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 D6D7C5D5C4C9D907 53+ DC C'OPENDIR',AL1(7) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 54+OPENDIR DS 0H 01-RENTR 1 Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000008 90EC D00C 0000C 55+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 56+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 57+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 000000B0 58+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 59+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 60+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 61+ USING OPENDIR,11 01-RENTR 00001E 18A1 62+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 63+ USING PARMS,10 01-RENTR 64+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000020 5800 B00C 0000C 65+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000024 4510 B020 00028 68+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000028 0A0A 69+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00002A 50D0 1004 00004 70+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00002E 5010 D008 00008 71+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000032 18D1 72+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 74+ USING WORKAREA,13 01-RENTR 1 Page 5 Active Usings: PARMS(X'1000'),R10 OPENDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 76 ********************************************************************** 77 * INITIALIZE THE RETURNED PARMS TO NOTHING. 78 * 79 * REGISTER USAGE: 80 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 81 * R10 -> PARM LIST 82 * R11 -> PROGRAM BASE 83 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 84 ********************************************************************** 0000034 1F00 86 SLR R0,R0 GET A ZERO 000036 58F0 A004 00004 87 L R15,PRMERRNO 00003A 5000 F000 00000 88 ST R0,0(,R15) 00003E 58F0 A008 00008 89 L R15,PRMREA 000042 5000 F000 00000 90 ST R0,0(,R15) 000046 58F0 A00C 0000C 91 L R15,PRMDIRP 00004A 5000 F000 00000 92 ST R0,0(,R15) 0 94 GETMAIN RU,LV=DIRDATAL 00004E 0700 96+ CNOP 0,4 01-GETMA 000050 47F0 B054 0005C 97+ B IHB0004C BRANCH AROUND DATA 01-GETMA 000054 00001424 98+IHB0004L DC A(DIRDATAL) LENGTH 01-GETMA 000058 00 99+IHB0004F DC BL1'00000000' Flags. @L7C 01-GETMA 000059 00 100+ DC AL1(0) RESERVED 01-GETMA 00005A 00 101+ DC AL1(0) SUBPOOL 01-GETMA 00005B 02 102+ DC BL1'00000010' MODE BYTE @G860P30 01-GETMA 00005C 103+IHB0004C DS 0H 01-GETMA 00005C 5800 B04C 00054 104+ L 0,IHB0004L LOAD LENGTH 01-GETMA 000060 58F0 B050 00058 105+ L 15,IHB0004F LOAD GETMAIN PARMS 01-GETMA 000064 1B11 106+ SR 1,1 ZERO RESERVED REG 1 01-GETMA 000066 0A78 107+ SVC 120 ISSUE GETMAIN SVC 01-GETMA 0000068 1891 109 LR R9,R1 R:9 00000 110 USING DIRDATA,R9 000006A 1F00 112 SLR R0,R0 GET A ZERO 00006C 5000 900C 0000C 113 ST R0,BUFFPOS 000070 5000 9010 00010 114 ST R0,ENTSDONE 000074 5000 9014 00014 115 ST R0,READCNT 000078 5000 901C 0001C 116 ST R0,DIRPATHL 00007C 5000 9420 00420 117 ST R0,DIRBUFFL 000080 D203 9008 B140 00008 00148 118 MVC DIRFD(4),=F'-1' 000086 D207 9000 B138 00000 00140 119 MVC DIRTAG(8),=CL8'DIRDATA ' 0 121 ********************************************************************** 122 * BUILD THE PARAMETER LIST AND CALL DIROPEN 123 * THE RETURN CODE IS -1 IF IT FAILS. 124 * 125 * REGISTER USAGE: 126 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 127 * R10 -> PARM LIST 128 * R11 -> PROGRAM BASE 129 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 130 ********************************************************************** 1 Page 6 Active Usings: DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 OPENDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000008C 58F0 A000 00000 132 L R15,PRMPATH POINT TO PATH LENGTH 000090 4830 F000 00000 133 LH R3,0(,R15) LOAD THE LENGTH 000094 5930 B144 0014C 134 C R3,=F'1024' TOO LONG? 000098 47D0 B098 000A0 135 BNH *+8 IF NOT, SKIP 00009C 4130 0400 00400 136 LA R3,1024 0000A0 5030 901C 0001C 137 ST R3,DIRPATHL SAVE IN THE STRUCTURE 0000A4 1853 138 LR R5,R3 GET A COPY FOR THE MVCL 0000A6 4120 9020 00020 139 LA R2,DIRPATH POINT TO THE TARGET 0000AA 414F 0002 00002 140 LA R4,2(R15) POINT TO THE SOURCE 0000AE 0E24 141 MVCL R2,R4 COPY THE DIRECTORY PATH 00000B0 5820 A004 00004 143 L R2,PRMERRNO 0000B4 5830 A008 00008 144 L R3,PRMREA 0 146 * TRIGGER READ ON FIRST CALL TO READDIR */ 0000B8 D203 900C B148 0000C 00150 147 MVC BUFFPOS(4),=F'1' 0 149 CALL BPX1OPD,(DIRPATHL, LENGTH OF PATH X DIRPATH, PATH TO OPEN X DIRFD, RETURNED FILE DESCRIPTOR X (R2), ERRNO ON FAILURE X (R3)),VL,MF=(E,CALLLIST) EXTENDED ERROR 0000BE 0700 151+ CNOP 0,4 01-CALL 0000C0 47F0 B0C0 000C8 152+ B *+8 BRANCH AROUND VCON 01-CALL 0000C4 00000000 153+IHB0006B DC V(BPX1OPD) ENTRY POINT ADDRESS 01-CALL 0000C8 4110 D070 00070 158+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0000CC 41E0 901C 0001C 159+ LA 14,DIRPATHL PICKUP PARAMETER 02-IHBOP 0000D0 41F0 9020 00020 160+ LA 15,DIRPATH PICKUP PARAMETER 02-IHBOP 0000D4 4100 9008 00008 161+ LA 0,DIRFD PICKUP PARAMETER 02-IHBOP 0000D8 90E0 1000 00000 162+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0000DC 18E2 163+ LR 14,(R2) PICK UP PARAMETER 02-IHBOP 0000DE 18F3 164+ LR 15,(R3) PICK UP PARAMETER 02-IHBOP 0000E0 90EF 100C 0000C 165+ STM 14,15,12(1) STORE INTO PARAM. LIST 02-IHBOP 0000E4 9680 1010 00010 166+ OI 16(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0000E8 58F0 B0BC 000C4 167+ L 15,IHB0006B LOAD 15 WITH ENTRY ADR 01-CALL 0000EC 05EF 168+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00000EE 58F0 9008 00008 170 L R15,DIRFD GET RETURNED VALUE 0000F2 12FF 171 LTR R15,R15 -1 IS RETURNED ON ERROR 0000F4 4740 B116 0011E 172 BM FAIL IT WORKED 00000F8 58F0 A00C 0000C 174 L R15,PRMDIRP POINT TO DIRECTORY TOKEN 0000FC 5090 F000 00000 175 ST R9,0(,R15) SAVE THE STRUCTURE 0000100 177 RETURN DS 0H 178 REXIT ENV=OS 000100 4110 D000 00000 179+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 000104 58D0 D004 00004 180+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 000108 58E0 D010 00010 181+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 00010C 580E 000C 0000C 182+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000110 4110 1000 00000 185+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 000114 0A0A 186+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 000116 98EC D00C 0000C 187+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 00011A 1FFF 188+ SLR 15,15 ZERO RETURN CODE 01-REXIT 00011C 07FE 189+ BR 14 RETURN 01-REXIT 1 Page 7 Active Usings: DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 OPENDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000011E 191 FAIL DS 0H 192 FREEMAIN RU,LV=DIRDATAL,A=(R9) 00011E 0700 194+ CNOP 0,4 01-FREEM 000120 47F0 B124 0012C 195+ B *+12-4*0-2*0 BRANCH AROUND DATA @O2C 01-FREEM 000124 00001424 196+ DC A(DIRDATAL) LENGTH 01-FREEM 000128 00 197+IHB0015F DC BL1'00000000' Flags @O2A 01-FREEM 000129 00 198+ DC AL1(0) RESERVED 01-FREEM 00012A 00 199+ DC AL1(0) SUBPOOL NUMBER 01-FREEM 00012B 03 200+ DC BL1'00000011' MODE BYTE 01-FREEM 00012C 5800 B11C 00124 201+ L 0,*-8+2*0 LOAD LENGTH 01-FREEM 000130 1819 202+ LR 1,R9 LOAD AREA ADDRESS 01-FREEM 000132 58F0 B120 00128 203+ L 15,IHB0015F LOAD PARAMETERS 01-FREEM 000136 0A78 204+ SVC 120 ISSUE FREEMAIN SVC 01-FREEM 000138 47F0 B0F8 00100 205 B RETURN 0000000 00000 000B0 207 WORKAREA DSECT 000000 208 DS 26F 000068 209 PATHLEN DS F 000070 210 CALLLIST DS 8D 000B0 211 WORKLEN EQU *-WORKAREA 0000000 00000 00010 213 PARMS DSECT 000000 214 PRMPATH DS A POINTER TO PATH 2 BYTE LEN FOLLOWED BY PATH 000004 215 PRMERRNO DS A ERRNO VALUE 000008 216 PRMREA DS A REASON CODE 00000C 217 PRMDIRP DS A OPAQUE POINTER, ADDR OF THE DIRDATA OR ZERO 0 219 ********************************************************************** 220 * 221 * NOTE: 222 * THIS DSECT IS REPEATED IN ALL THREE ROUTINES IN THIS MODULE 223 * IT IS NOT VISIBLE OUTSIDE THIS MODULE 224 * 225 ********************************************************************** 000000 00000 01424 226 DIRDATA DSECT 000000 227 DIRTAG DS CL8 000008 228 DIRFD DS F 00000C 229 BUFFPOS DS A 000010 230 ENTSDONE DS F 000014 231 READCNT DS F 000018 232 DIRDONE DS F 00001C 233 DIRPATHL DS F 000020 234 DIRPATH DS CL1024 000420 235 DIRBUFFL DS F 000424 236 DIRBUFF DS CL4096 01424 237 DIRDATAL EQU *-DIRDATA 0 239 * BPXYOPNF 240 * BPXYMODE 241 SYMBAR MODE=DEC 00000 242+R0 EQU 0 PARAMETER PASSING REG./UTILITY 01-SYMBA 00001 243+R1 EQU 1 PARAMETER PASSING REG./UTILITY 01-SYMBA 00002 244+R2 EQU 2 UTILITY 01-SYMBA 00003 245+R3 EQU 3 UTILITY 01-SYMBA 00004 246+R4 EQU 4 UTILITY 01-SYMBA 1 Page 8 Active Usings: DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 OPENDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 00005 247+R5 EQU 5 UTILITY 01-SYMBA 00006 248+R6 EQU 6 UTILITY 01-SYMBA 00007 249+R7 EQU 7 UTILITY 01-SYMBA 00008 250+R8 EQU 8 UTILITY 01-SYMBA 00009 251+R9 EQU 9 UTILITY 01-SYMBA 0000A 252+R10 EQU 10 UTILITY 01-SYMBA 0000B 253+R11 EQU 11 UTILITY 01-SYMBA 0000C 254+R12 EQU 12 UTILITY 01-SYMBA 0000D 255+R13 EQU 13 NORMALLY CONTAINS SAVE AREA ADDRESS 01-SYMBA 0000E 256+R14 EQU 14 NORMALLY CONTAINS RETURN ADDRESS 01-SYMBA 0000F 257+R15 EQU 15 NORMALLY CONTAINS ENTRY POINT ADDRESS 01-SYMBA 258 DROP R9,R10,R11,R13 259 END 000140 C4C9D9C4C1E3C140 260 =CL8'DIRDATA ' 000148 FFFFFFFF 261 =F'-1' 00014C 00000400 262 =F'1024' 000150 00000001 263 =F'1' 1 Relocation Dictionary Page 9 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 000000C4 1 Ordinary Symbol and Literal Cross Reference Page 10 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0BPX1OPD 1 00000000 00000002 T 153 153 BUFFPOS 4 0000000C FFFFFFFD A 229 113M 147M CALLLIST 8 00000070 FFFFFFFF D 210 158 DIRBUFFL 4 00000420 FFFFFFFD F 235 117M DIRDATA 1 00000000 FFFFFFFD J 226 110U 237 DIRDATAL 1 00001424 FFFFFFFD A U 237 98 196 DIRFD 4 00000008 FFFFFFFD F 228 118M 161 170 DIRPATH 1024 00000020 FFFFFFFD C 234 139 160 DIRPATHL 4 0000001C FFFFFFFD F 233 116M 137M 159 DIRTAG 8 00000000 FFFFFFFD C 227 119M ENTSDONE 4 00000010 FFFFFFFD F 230 114M FAIL 2 0000011E 00000001 H 191 172B IHB0004C 2 0000005C 00000001 H 103 97B IHB0004F 1 00000058 00000001 B 99 105 IHB0004L 4 00000054 00000001 A 98 104 IHB0006B 4 000000C4 00000001 V 153 167 IHB0015F 1 00000128 00000001 B 197 203 OPENDIR 2 00000008 00000001 H 54 51 61U OPENDIR1 1 00000000 00000001 J 50 47 48 PARMS 1 00000000 FFFFFFFE J 213 63U PRMDIRP 4 0000000C FFFFFFFE A 217 91 174 PRMERRNO 4 00000004 FFFFFFFE A 215 87 143 PRMPATH 4 00000000 FFFFFFFE A 214 132 PRMREA 4 00000008 FFFFFFFE A 216 89 144 READCNT 4 00000014 FFFFFFFD F 231 115M RETURN 2 00000100 00000001 H 177 205B R0 1 00000000 FFFFFFFD A U 242 86M 86 88 90 92 112M 112 113 114 115 116 117 R1 1 00000001 FFFFFFFD A U 243 109 R10 1 0000000A FFFFFFFD A U 252 258D R11 1 0000000B FFFFFFFD A U 253 258D R13 1 0000000D FFFFFFFD A U 255 258D R15 1 0000000F FFFFFFFD A U 257 87M 88 89M 90 91M 92 132M 133 140 170M 171M 171 174M 175 R2 1 00000002 FFFFFFFD A U 244 139M 141M 143M 163 R3 1 00000003 FFFFFFFD A U 245 133M 134 136M 137 138 144M 164 R4 1 00000004 FFFFFFFD A U 246 140M 141M R5 1 00000005 FFFFFFFD A U 247 138M R9 1 00000009 FFFFFFFD A U 251 109M 110U 175 202 258D WORKAREA 1 00000000 FFFFFFFF J 207 74U 211 WORKLEN 1 000000B0 FFFFFFFF A U 211 58 =CL8'DIRDATA ' 8 00000140 00000001 C 260 119 =F'-1' 4 00000148 00000001 F 261 118 =F'1' 4 00000150 00000001 F 263 147 =F'1024' 4 0000014C 00000001 F 262 134 1 Macro and Copy Code Source Summary Page 11 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1 Dsect Cross Reference Page 12 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0DIRDATA 00001424 FFFFFFFD 226 PARMS 00000010 FFFFFFFE 213 WORKAREA 000000B0 FFFFFFFF 207 1 Using Map Page 13 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 61 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 148 205 OPENDIR,11 63 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 00C 174 PARMS,10 74 00000034 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 070 158 WORKAREA,13 110 0000006A 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 420 170 DIRDATA,R9 258 00001424 FFFFFFFD DROP 9 R9 258 00001424 FFFFFFFD DROP 10 R10 258 00001424 FFFFFFFD DROP 11 R11 258 00001424 FFFFFFFD DROP 13 R13 1 General Purpose Register Cross Reference Page 14 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 55 65M 86M 86 88 90 92 104M 112M 112 113 114 115 116 117 161M 162 182M 187M 201M 1(1) 55 62 68M 70 71 72 106M 106 109 158M 162 165 166 179M 185M 185 187M 202M 2(2) 55 139M 141M 143M 163 187M 3(3) 55 133M 134 136M 137 138 141M 144M 164 187M 4(4) 55 140M 141M 187M 5(5) 55 138M 141M 187M 6(6) 55 187M 7(7) 55 187M 8(8) 55 187M 9(9) 55 109M 110U 175 187M 202 258D 10(A) 55 62M 63U 187M 258D 11(B) 55 60M 61U 65 187M 258D 12(C) 55 187M 13(D) 55 70 71 72M 74U 179 180M 180 181 187 258D 14(E) 55 159M 162 163M 165 168M 181M 182N 187M 189B 15(F) 55 56 60 87M 88 89M 90 91M 92 105M 132M 133 140N 160M 162 164M 165 167M 168B 170M 171M 171 174M 175 187M 188M 188 203M 1 Diagnostic Cross Reference and Assembler Summary Page 15 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: DIROPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 DIROPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000105.? 4768K allocated to Buffer Pool, 505K would be required for this to be an In-Storage Assembly 168 Primary Input Records Read 5979 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 418 Primary Print Records Written 0 Work File Writes 20 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.12 Stop Time: 12.09.13 Processor Time: 00.00.00.8294 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1 External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0READDIR1 SD 00000001 00000000 0000017C 06 READDIR LD 00000008 00000001 BPX1RDD ER 00000002 1 Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * READDIR -- READ A NAME FROM A DIRECTORY * 7 * * 8 * THIS ROUTINE RETURNS ONE NAME FROM THE DIRECTORY. '.' AND * 9 * '..' ARE INCLUDED. * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * DIR_TOKEN -- POINTER (*1,2,3,4) * 14 * THIS IS THE TOKEN RETURNED BY OPENDIR. IT CONTAINS * 15 * INFORMATION ABOUT THE DIRECTORY BEING READ. * 16 * THE ACTUAL PARM IS A POINTER TO THE TOKEN. * 17 * * 18 * FUNCTIONS: * 19 * * 20 * 1. VALIDATE THE TOKEN PASSED. * 21 * * 22 * 2. IF THE BUFFER IS EMPTY, READ A BLOCK OF THE DIRECTORY. * 23 * * 24 * 3. ON EOF, RETURN AND EMPTY STRING. * 25 * * 26 * 4. EXTRACT ONE NAME FROM THE BLOCK AND RETURN IT. KEEP TRACK OF * 27 * POSITION IN THE BUFFER. * 28 * * 29 * OUTPUTS (*FROM FUNCTIONS): * 30 * * 31 * DIR_NAME -- VARYING CHAR(256) (*1,3,4) * 32 * THIS IS THE NAME OF THE NEXT DIRECTORY ENTRY. * 33 * VALUES: EMPTY STRING IS RETURNED ON EOF. * 34 * * 35 * ERRNO - INT * 36 * ON ERROR, THE UNIX SYSTEM SERVICES ERRNO * 37 * * 38 * REASON - INT * 39 * ON ERROR, THE EXTENED IBM REASON CODE * 40 * * 41 *********************************************************************** 0 43 READDIR1 AMODE 31 44 READDIR1 RMODE ANY 45 READDIR RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS 000000 00000 0017C 46+READDIR1 CSECT , 01-RENTR 47+ ENTRY READDIR INDICATE ENTRY POINT 01-RENTR 000000 48+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 D9C5C1C4C4C9D907 49+ DC C'READDIR',AL1(7) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 50+READDIR DS 0H 01-RENTR 000008 90EC D00C 0000C 51+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 52+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 53+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 000000B8 54+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 55+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 1 Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000001C 18BF 56+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 57+ USING READDIR,11 01-RENTR 00001E 18A1 58+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 59+ USING PARMS,10 01-RENTR 60+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000020 5800 B00C 0000C 61+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000024 4510 B020 00028 64+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000028 0A0A 65+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00002A 50D0 1004 00004 66+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00002E 5010 D008 00008 67+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000032 18D1 68+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 70+ USING WORKAREA,13 01-RENTR 1 Page 5 Active Usings: PARMS(X'1000'),R10 READDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 72 ********************************************************************** 73 * INITIALIZE THE RETURNED PARMS TO NOTHING AND POINT TO THE 74 * DIR DATA. 75 * 76 * REGISTER USAGE: 77 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 78 * R10 -> PARM LIST 79 * R11 -> PROGRAM BASE 80 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 81 ********************************************************************** 0000034 1F00 83 SLR R0,R0 GET A ZERO 000036 58F0 A004 00004 84 L R15,PRMERRNO 00003A 5000 F000 00000 85 ST R0,0(,R15) 00003E 58F0 A008 00008 86 L R15,PRMREA 000042 5000 F000 00000 87 ST R0,0(,R15) 000046 58F0 A00C 0000C 88 L R15,PRMNAME 00004A 4000 F000 00000 89 STH R0,0(,R15) 00004E 41F0 D06C 0006C 90 LA R15,ALETZERO 000052 5000 F000 00000 91 ST R0,0(,R15) 0000056 5890 A000 00000 93 L R9,PRMDIRP POINT TO DIR TOKEN POINTER VAR 00005A 5890 9000 00000 94 L R9,0(,R9) LOAD POINTER TO DIR DATA R:9 00000 95 USING DIRDATA,R9 00005E 1299 96 LTR R9,R9 CHECK FOR NULL POINTER 000060 4780 B066 0006E 97 BZ BAD 000064 D507 9000 B168 00000 00170 98 CLC DIRTAG(8),=CL8'DIRDATA ' 00006A 4780 B082 0008A 99 BE DIROK 000006E 101 BAD DS 0H 00006E 58F0 A004 00004 102 L R15,PRMERRNO POINT TO THE ERRNO 000072 41E0 0081 00081 103 LA R14,ENOENT 000076 50E0 F000 00000 104 ST R14,0(,R15) 00007A 58F0 A008 00008 105 L R15,PRMREA POINT TO THE ERRNO 00007E 41E0 00A9 000A9 106 LA R14,JRINVALIDPARMS 000082 50E0 F000 00000 107 ST R14,0(,R15) 000086 47F0 B13E 00146 108 B RETURN 0 110 ********************************************************************** 111 * SEE IF WE HAVE TO READ ANOTHER BLOCK OR CAN GET MORE NAMES 112 * OUT OF THE CURRENT BLOCK. WE WILL ALWAYS HAVE TO READ ON THE 113 * FIRST PASS THROUGH. 114 * 115 * REGISTER USAGE: 116 * R2 - NUMBER NAMES IN THE BLOCK 117 * R3 - NUMBER OF VALUES ALREADY RETURNED FROM THIS BLOCK 118 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 119 * R10 -> PARM LIST 120 * R11 -> PROGRAM BASE 121 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 122 ********************************************************************** 000008A 124 DIROK DS 0H 00008A 58F0 9018 00018 125 L R15,DIRDONE GET THE EOF FLAG 00008E 12FF 126 LTR R15,R15 NONZERO ON EOF 1 Page 6 Active Usings: DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 READDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000090 4770 B136 0013E 127 BNZ EOF 0000094 5820 9014 00014 129 L R2,READCNT NUMBER OF ENTRIES READ LAST READ 000098 5830 9010 00010 130 L R3,ENTSDONE NUMBER OF ENTRIES DONE 00009C 1932 131 CR R3,R2 COMPARE NUMBER DONE TO NUM AVAILABLE 00009E 4740 B106 0010E 132 BL SAMEBLK IF MORE LEFT, RETURN THEN USE 0 134 ********************************************************************** 135 * WE NEED ANOTHER BLOCK OF DIRECTORY DATA, CALL THE READ ROUTINE 136 * THE RETURN CODE IS -1 IF IT FAILS. 137 * 138 * REGISTER USAGE: 139 * R2 - NUMBER NAMES IN THE BLOCK 140 * R3 - NUMBER OF VALUES ALREADY RETURNED FROM THIS BLOCK 141 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 142 * R10 -> PARM LIST 143 * R11 -> PROGRAM BASE 144 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 145 ********************************************************************** 00000A2 5850 A004 00004 147 L R5,PRMERRNO 0000A6 5860 A008 00008 148 L R6,PRMREA 0000AA 41F0 9424 00424 149 LA R15,DIRBUFF 0000AE 50F0 D074 00074 150 ST R15,BUFFPTR 0000B2 58F0 B170 00178 151 L R15,=A(L'DIRBUFF) 0000B6 50F0 D070 00070 152 ST R15,BUFFLEN 0 154 CALL BPX1RDD,(DIRFD, FILE DESCRIPTOR X BUFFPTR, POINTER TO THE BUFFER X ALETZERO, A ZERO X BUFFLEN, LENGTH OF TARGET BUFFER X READCNT, RETURNED NUM NAMES IN THIS BLOCK X (R5), X (R6)),VL,MF=(E,CALLLIST) 0000BA 0700 156+ CNOP 0,4 01-CALL 0000BC 47F0 B0BC 000C4 157+ B *+8 BRANCH AROUND VCON 01-CALL 0000C0 00000000 158+IHB0004B DC V(BPX1RDD) ENTRY POINT ADDRESS 01-CALL 0000C4 4110 D078 00078 163+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0000C8 41E0 9008 00008 164+ LA 14,DIRFD PICKUP PARAMETER 02-IHBOP 0000CC 41F0 D074 00074 165+ LA 15,BUFFPTR PICKUP PARAMETER 02-IHBOP 0000D0 4100 D06C 0006C 166+ LA 0,ALETZERO PICKUP PARAMETER 02-IHBOP 0000D4 90E0 1000 00000 167+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0000D8 41E0 D070 00070 168+ LA 14,BUFFLEN PICKUP PARAMETER 02-IHBOP 0000DC 41F0 9014 00014 169+ LA 15,READCNT PICKUP PARAMETER 02-IHBOP 0000E0 1805 170+ LR 0,(R5) PICK UP PARAMETER 02-IHBOP 0000E2 90E0 100C 0000C 171+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0000E6 5060 1018 00018 172+ ST (R6),24(0,1) STORE INTO PARAM. LIST 02-IHBOP 0000EA 9680 1018 00018 173+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0000EE 58F0 B0B8 000C0 174+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 0000F2 05EF 175+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL -0000F4 5820 9014 00014 178 L R2,READCNT GET NUMBER OF NAMES IN BLOCK 0000F8 1222 179 LTR R2,R2 IS IT ZERO? 0000FA 4780 B136 0013E 180 BZ EOF IF SO, GO MARK EOF 1 Page 7 Active Usings: DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 READDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00000FE 4740 B136 0013E 182 BM EOF IF NEGATIVE, ERRNO ALREADY SET, 0 184 ********************************************************************** 185 * WE HAVE A GOOD BLOCK OF DATA. EXTRACT ONE NAME OUT OF IT AND 186 * RETURN IT. 187 * 188 * REGISTER USAGE: 189 * R2 - NUMBER NAMES IN THE BLOCK 190 * R3 - NUMBER OF VALUES ALREADY RETURNED FROM THIS BLOCK 191 * R4 -> POINTER INT THE BUFFER 192 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 193 * R10 -> PARM LIST 194 * R11 -> PROGRAM BASE 195 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 196 ********************************************************************** 0000102 D203 900C D074 0000C 00074 198 MVC BUFFPOS,BUFFPTR SHOW AT BEGINNING OF BUFFER 000108 1F33 199 SLR R3,R3 GET A ZERO 00010A 5030 9010 00010 200 ST R3,ENTSDONE SHOW NOTHING DONE YET 000010E 202 SAMEBLK DS 0H 00010E 5840 900C 0000C 203 L R4,BUFFPOS GET RETURNED VALUE R:4 00000 204 USING DIRE,R4 OVERLAY FORMAT OF DIRECTORY ENTRY 0000112 48F0 4002 00002 206 LH R15,DIRENTNAML LENGTH OF ENTRY 000116 12FF 207 LTR R15,R15 IS IT ZERO? = EOF 000118 47D0 B136 0013E 208 BNP EOF 000011C 58E0 A00C 0000C 210 L R14,PRMNAME POINT TO NAME PARM 000120 40F0 E000 00000 211 STH R15,0(,R14) SAVE NAME LEN 000124 06F0 212 BCTR R15,0 SUBTRACT 1 FOR THE EXECUTE 000126 44F0 B15C 00164 213 EX R15,MOVENAME MOVE THE NAME 000012A 4A40 4000 00000 215 AH R4,DIRENTLEN BUMP TO NEXT ENTRY 00012E 5040 900C 0000C 216 ST R4,BUFFPOS 000132 4130 3001 00001 217 LA R3,1(,R3) ADD ONE TO COUNT OF ENTRIES DONE 000136 5030 9010 00010 218 ST R3,ENTSDONE 00013A 47F0 B13E 00146 219 B RETURN 000013E 221 EOF DS 0H 00013E 41F0 0001 00001 222 LA R15,1 GET A NONZERO FLAG VALUE 000142 50F0 9018 00018 223 ST R15,DIRDONE SET THE EOF FLAG 0000146 225 RETURN DS 0H 226 REXIT ENV=OS 000146 4110 D000 00000 227+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 00014A 58D0 D004 00004 228+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 00014E 58E0 D010 00010 229+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000152 580E 000C 0000C 230+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000156 4110 1000 00000 233+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 00015A 0A0A 234+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 00015C 98EC D00C 0000C 235+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000160 1FFF 236+ SLR 15,15 ZERO RETURN CODE 01-REXIT 000162 07FE 237+ BR 14 RETURN 01-REXIT 1 Page 8 Active Usings: DIRE(X'1000'),R4 DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 READDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000164 D200 E002 4004 00002 00004 239 MOVENAME MVC 2(*-*,R14),DIRENTNAME 240 DROP R4 0000000 00000 000B8 242 WORKAREA DSECT 000000 243 DS 26F 000068 244 PATHLEN DS F 00006C 245 ALETZERO DS F 000070 246 BUFFLEN DS F 000074 247 BUFFPTR DS A 000078 248 CALLLIST DS 8D 000B8 249 WORKLEN EQU *-WORKAREA 0000000 00000 00010 251 PARMS DSECT 000000 252 PRMDIRP DS A DIR DATA POINTER 000004 253 PRMERRNO DS A ERRNO VALUE 000008 254 PRMREA DS A REASON CODE 00000C 255 PRMNAME DS A NAME OF THE ENTRY IN THE DIRECTORY 2 BYTELEN 0 257 ********************************************************************** 258 * 259 * NOTE: 260 * THIS DSECT IS REPEATED IN ALL THREE ROUTINES IN THIS MODULE 261 * IT IS NOT VISIBLE OUTSIDE THIS MODULE 262 * 263 ********************************************************************** 000000 00000 01424 264 DIRDATA DSECT 000000 265 DIRTAG DS CL8 000008 266 DIRFD DS F 00000C 267 BUFFPOS DS A 000010 268 ENTSDONE DS F 000014 269 READCNT DS F 000018 270 DIRDONE DS F 00001C 271 DIRPATHL DS F 000020 272 DIRPATH DS CL1024 000420 273 DIRBUFFL DS F 000424 274 DIRBUFF DS CL4096 01424 275 DIRDATAL EQU *-DIRDATA 0 277 BPXYDIRE 278+** BPXYDIRE: Mapping of directory entry 279+** Used By: RDD 280+* LA RegOne,buffer RegOne->BPX1RDD buffer and 1st DIRE 281+* USING DIRE,RegOne Addressability to DIRE 000000 00000 00004 282+DIRE DSECT , 01-BPXYD 000000 283+DIRENTINFO DS 0X Fixed length information 01-BPXYD 000000 284+DIRENTLEN DS H Entry length 01-BPXYD 000002 285+DIRENTNAML DS H Name length 01-BPXYD 000004 286+DIRENTNAME DS 0C Name 01-BPXYD 287+* LR RegTwo,RegOne RegTwo->DIRE 288+* LA RegTwo,4(RegTwo) RegTwo->start of name @D2C 289+* SLR RegThree,RegThree Clear register @D2C 290+* ICM RegThree,3,DIRENTNAML Load name length @D2C 291+* ALR RegTwo,RegThree RegTwo->end of name+1 @D2C 292+* USING DIRENTPFSDATA,RegTwo Addressability to DIRENTPFSDATA 000000 00000 00004 293+DIRENTPFSDATA DSECT , Physical file system-specific data 01-BPXYD 1 Page 9 Active Usings: DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 READDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 294+DIRENTPFSINO DS CL4 File Serial Number = st_ino 01-BPXYD 000004 295+DIRENTPFSOTHER DS 0C Other PFS specific data 01-BPXYD 000004 00004 00000 296+ ORG DIRENTPFSDATA @D3A 01-BPXYD 000000 297+DIRENTPLUSATTR DS 0C ReaddirPlus Attr @D3A 01-BPXYD 298+* 299+* ICM RegThree,3,DIRENTLEN Load entry length @D2C 300+* ALR RegOne,RegThree RegOne->Next DIRE in buffer @D2C 301+* BCT Return_Value,Back_to_process_next_DIRE 302+** BPXYDIRE End - 304 * BPXYMODE 305 PRINT NOGEN 306 BPXYERNO 3471 DROP R9,R10,R11,R13 3472 SYMBAR MODE=DEC 3489 END 000170 C4C9D9C4C1E3C140 3490 =CL8'DIRDATA ' 000178 00001000 3491 =A(L'DIRBUFF) 1 Relocation Dictionary Page 10 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 000000C0 1 Ordinary Symbol and Literal Cross Reference Page 11 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0ALETZERO 4 0000006C FFFFFFFF F 245 90 166 BAD 2 0000006E 00000001 H 101 97B BPX1RDD 1 00000000 00000002 T 158 158 BUFFLEN 4 00000070 FFFFFFFF F 246 152M 168 BUFFPOS 4 0000000C FFFFFFFD A 267 198M 203 216M BUFFPTR 4 00000074 FFFFFFFF A 247 150M 165 198 CALLLIST 8 00000078 FFFFFFFF D 248 163 DIRBUFF 4096 00000424 FFFFFFFD C 274 149 3491 DIRDATA 1 00000000 FFFFFFFD J 264 95U 275 DIRDONE 4 00000018 FFFFFFFD F 270 125 223M DIRE 1 00000000 FFFFFFFC J 282 204U DIRENTLEN 2 00000000 FFFFFFFC H 284 215 DIRENTNAME 1 00000004 FFFFFFFC C 286 239 DIRENTNAML 2 00000002 FFFFFFFC H 285 206 DIRENTPFSDATA 1 00000000 FFFFFFFB J 293 296 DIRFD 4 00000008 FFFFFFFD F 266 164 DIROK 2 0000008A 00000001 H 124 99B DIRTAG 8 00000000 FFFFFFFD C 265 98 ENOENT 1 00000081 FFFFFFFB A U 343 103 ENTSDONE 4 00000010 FFFFFFFD F 268 130 200M 218M EOF 2 0000013E 00000001 H 221 127B 180B 182B 208B IHB0004B 4 000000C0 00000001 V 158 174 JRINVALIDPARMS 1 000000A9 FFFFFFFB A U 758 106 MOVENAME 6 00000164 00000001 I 239 213X PARMS 1 00000000 FFFFFFFE J 251 59U PRMDIRP 4 00000000 FFFFFFFE A 252 93 PRMERRNO 4 00000004 FFFFFFFE A 253 84 102 147 PRMNAME 4 0000000C FFFFFFFE A 255 88 210 PRMREA 4 00000008 FFFFFFFE A 254 86 105 148 READCNT 4 00000014 FFFFFFFD F 269 129 169 178 READDIR 2 00000008 00000001 H 50 47 57U READDIR1 1 00000000 00000001 J 46 43 44 RETURN 2 00000146 00000001 H 225 108B 219B R0 1 00000000 FFFFFFFB A U 3473 83M 83 85 87 89 91 R10 1 0000000A FFFFFFFB A U 3483 3471D R11 1 0000000B FFFFFFFB A U 3484 3471D R13 1 0000000D FFFFFFFB A U 3486 3471D R14 1 0000000E FFFFFFFB A U 3487 103M 104 106M 107 210M 211 239 R15 1 0000000F FFFFFFFB A U 3488 84M 85 86M 87 88M 89 90M 91 102M 104 105M 107 125M 126M 126 149M 150 151M 152 206M 207M 207 211 212M 213 222M 223 R2 1 00000002 FFFFFFFB A U 3475 129M 131 178M 179M 179 R3 1 00000003 FFFFFFFB A U 3476 130M 131 199M 199 200 217M 217 218 R4 1 00000004 FFFFFFFB A U 3477 203M 204U 215M 216 240D R5 1 00000005 FFFFFFFB A U 3478 147M 170 R6 1 00000006 FFFFFFFB A U 3479 148M 172 R9 1 00000009 FFFFFFFB A U 3482 93M 94M 94 95U 96M 96 3471D SAMEBLK 2 0000010E 00000001 H 202 132B WORKAREA 1 00000000 FFFFFFFF J 242 70U 249 WORKLEN 1 000000B8 FFFFFFFF A U 249 54 1 Ordinary Symbol and Literal Cross Reference Page 12 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0=A(L'DIRBUFF) 4 00000178 00000001 A 3491 151 =CL8'DIRDATA ' 8 00000170 00000001 C 3490 98 1 Macro and Copy Code Source Summary Page 13 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYDIRE BPXYERNO CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1 Dsect Cross Reference Page 14 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0DIRDATA 00001424 FFFFFFFD 264 DIRE 00000004 FFFFFFFC 282 DIRENTPFSDATA 00000004 FFFFFFFB 293 PARMS 00000010 FFFFFFFE 251 WORKAREA 000000B8 FFFFFFFF 242 1 Using Map Page 15 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 57 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 170 219 READDIR,11 59 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 00C 210 PARMS,10 70 00000034 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 078 198 WORKAREA,13 95 0000005E 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 424 223 DIRDATA,R9 204 00000112 00000001 USING ORDINARY 00000000 00001000 FFFFFFFC 4 004 239 DIRE,R4 240 0000016A 00000001 DROP 4 R4 3471 00000000 FFFFFFFB DROP 9 R9 3471 00000000 FFFFFFFB DROP 10 R10 3471 00000000 FFFFFFFB DROP 11 R11 3471 00000000 FFFFFFFB DROP 13 R13 1 General Purpose Register Cross Reference Page 16 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 51 61M 83M 83 85 87 89 91 166M 167 170M 171 230M 235M 1(1) 51 58 64M 66 67 68 163M 167 171 172 173 227M 233M 233 235M 2(2) 51 129M 131 178M 179M 179 235M 3(3) 51 130M 131 199M 199 200 217M 217 218 235M 4(4) 51 203M 204U 215M 216 235M 240D 5(5) 51 147M 170 235M 6(6) 51 148M 172 235M 7(7) 51 235M 8(8) 51 235M 9(9) 51 93M 94M 94 95U 96M 96 235M 3471D 10(A) 51 58M 59U 235M 3471D 11(B) 51 56M 57U 61 235M 3471D 12(C) 51 235M 13(D) 51 66 67 68M 70U 227 228M 228 229 235 3471D 14(E) 51 103M 104 106M 107 164M 167 168M 171 175M 210M 211 229M 230N 235M 237B 239 15(F) 51 52 56 84M 85 86M 87 88M 89 90M 91 102M 104 105M 107 125M 126M 126 149M 150 151M 152 165M 167 169M 171 174M 175B 206M 207M 207 211 212M 213 222M 223 235M 236M 236 1 Diagnostic Cross Reference and Assembler Summary Page 17 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: DIROPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 DIROPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000105.? 4768K allocated to Buffer Pool, 1381K would be required for this to be an In-Storage Assembly 233 Primary Input Records Read 9619 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 486 Primary Print Records Written 0 Work File Writes 21 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.13 Stop Time: 12.09.15 Processor Time: 00.00.01.5547 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1 External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0CLOSDIR1 SD 00000001 00000000 000000F8 06 CLOSDIR LD 00000008 00000001 BPX1CLD ER 00000002 1 Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 1 *********************************************************************** 2 * * 3 * SEGMENT NAME: * 4 * * 5 * CLOSDIR -- CLOSE A DIRECTORY OPENED BY OPENDIR * 6 * * 7 * THIS ROUTINE CLOSES THE DIRECTORY OPENED BY OPENDIR. * 8 * * 9 * INPUTS (*TO FUNCTIONS): * 10 * * 11 * DIR_TOKEN -- POINTER (*1,2) * 12 * THIS IS THE TOKEN RETURNED BY OPENDIR. IT CONTAINS * 13 * INFORMATION ABOUT THE DIRECTORY BEING READ. * 14 * THE ACTUAL PARM IS A POINTER TO THE TOKEN. * 15 * * 16 * FUNCTIONS: * 17 * * 18 * 1. VALIDATE THE TOKEN PASSED. * 19 * * 20 * 2. ISSUE THE UNIX COMMAND TO CLOSE THE DIRECTORY AND FREE THE * 21 * STRUCTURE DESCRIBING THE DATA. * 22 * * 23 * 3. SET THE DIR_TOKEN TO NULL(). * 24 * * 25 * OUTPUTS (*FROM FUNCTIONS): * 26 * * 27 * RC -- FIXED BINARY(31). (*1,2) * 28 * THE RETURN CODE SPECIFIES WHETHER THE DIRECTORY ENDED UP * 29 * CLOSED. * 30 * VALUES: 0 - DIRECTORY WAS CLOSED * 31 * -1 - DIRECTORY CLOSE FAILED. * 32 * * 33 * MSG -- VARYING CHAR(*) (*2) * 34 * ON ERROR, THE REASON FOR THE ERROR IS PLACED IN THIS STRING. * 35 * ON SUCCESS, THE STRING IN NULL. * 36 * * 37 * DIR_TOKEN -- POINTER (*3) * 38 * THIS IS THE TOKEN RETURNED BY OPENDIR. IT CONTAINS * 39 * INFORMATION ABOUT THE DIRECTORY BEING READ. * 40 * * 41 *********************************************************************** 0 43 CLOSDIR1 AMODE 31 44 CLOSDIR1 RMODE ANY 45 CLOSDIR RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS 000000 00000 000F8 46+CLOSDIR1 CSECT , 01-RENTR 47+ ENTRY CLOSDIR INDICATE ENTRY POINT 01-RENTR 000000 48+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 C3D3D6E2C4C9D907 49+ DC C'CLOSDIR',AL1(7) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 50+CLOSDIR DS 0H 01-RENTR 000008 90EC D00C 0000C 51+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 52+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 53+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 000000A8 54+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 1 Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000018 00000000 55+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 56+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 57+ USING CLOSDIR,11 01-RENTR 00001E 18A1 58+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 59+ USING PARMS,10 01-RENTR 60+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000020 5800 B00C 0000C 61+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000024 4510 B020 00028 64+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000028 0A0A 65+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00002A 50D0 1004 00004 66+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00002E 5010 D008 00008 67+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000032 18D1 68+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 70+ USING WORKAREA,13 01-RENTR 1 Page 5 Active Usings: PARMS(X'1000'),R10 CLOSDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 72 ********************************************************************** 73 * INITIALIZE THE RETURNED PARMS TO NOTHING AND POINT TO THE 74 * DIR DATA. 75 * 76 * REGISTER USAGE: 77 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 78 * R10 -> PARM LIST 79 * R11 -> PROGRAM BASE 80 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 81 ********************************************************************** 0000034 1F00 83 SLR R0,R0 GET A ZERO 000036 58F0 A004 00004 84 L R15,PRMERRNO 00003A 5000 F000 00000 85 ST R0,0(,R15) 00003E 58F0 A008 00008 86 L R15,PRMREA 000042 5000 F000 00000 87 ST R0,0(,R15) 000046 58F0 A00C 0000C 88 L R15,PRMRC 00004A 5000 F000 00000 89 ST R0,0(,R15) 000004E 5890 A000 00000 91 L R9,PRMDIRP POINT TO DIR TOKEN POINTER VAR 000052 5890 9000 00000 92 L R9,0(,R9) LOAD POINTER TO DIR DATA R:9 00000 93 USING DIRDATA,R9 000056 1299 94 LTR R9,R9 CHECK FOR NULL POINTER 000058 4780 B05E 00066 95 BZ BAD 00005C D507 9000 B0E8 00000 000F0 96 CLC DIRTAG(8),=CL8'DIRDATA ' 000062 4780 B07A 00082 97 BE DIROK 0000066 99 BAD DS 0H 000066 58F0 A004 00004 100 L R15,PRMERRNO POINT TO THE ERRNO 00006A 41E0 0081 00081 101 LA R14,ENOENT 00006E 50E0 F000 00000 102 ST R14,0(,R15) 000072 58F0 A008 00008 103 L R15,PRMREA POINT TO THE ERRNO 000076 41E0 00A9 000A9 104 LA R14,JRINVALIDPARMS 00007A 50E0 F000 00000 105 ST R14,0(,R15) 00007E 47F0 B0C8 000D0 106 B RETURN 0 108 ********************************************************************** 109 * BUILD THE PARAMETER LIST AND CALL CLOSE 110 * THE RETURN CODE IS -1 IF IT FAILS. 111 * 112 * REGISTER USAGE: 113 * R5 -> ERRNO PARM 114 * R6 -> REASON PARM 115 * R7 -> RC PARM 116 * R9 -> DIR DATA OVERLAY, RETURNED PARM IF THIS WORKS 117 * R10 -> PARM LIST 118 * R11 -> PROGRAM BASE 119 * R13 -> SAVE AREA, WORKAREA, LOCAL VARIABLES 120 ********************************************************************** 0000082 122 DIROK DS 0H 000082 5850 A004 00004 123 L R5,PRMERRNO 000086 5860 A008 00008 124 L R6,PRMREA 00008A 5870 A008 00008 125 L R7,PRMREA 1 Page 6 Active Usings: DIRDATA(X'1000'),R9 PARMS(X'1000'),R10 CLOSDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 127 CALL BPX1CLD,(DIRFD, FILE DESCRIPTOR X (R5), ERRNO PARM X (R6), REASON PARM X (R7)),VL,MF=(E,CALLLIST) RC PARM 00008E 0700 129+ CNOP 0,4 01-CALL 000090 47F0 B090 00098 130+ B *+8 BRANCH AROUND VCON 01-CALL 000094 00000000 131+IHB0004B DC V(BPX1CLD) ENTRY POINT ADDRESS 01-CALL 000098 4110 D068 00068 136+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00009C 41E0 9008 00008 137+ LA 14,DIRFD PICKUP PARAMETER 02-IHBOP 0000A0 18F5 138+ LR 15,(R5) PICK UP PARAMETER 02-IHBOP 0000A2 1806 139+ LR 0,(R6) PICK UP PARAMETER 02-IHBOP 0000A4 90E0 1000 00000 140+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0000A8 5070 100C 0000C 141+ ST (R7),12(0,1) STORE INTO PARAM. LIST 02-IHBOP 0000AC 9680 100C 0000C 142+ OI 12(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0000B0 58F0 B08C 00094 143+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 0000B4 05EF 144+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0 146 FREEMAIN RU,LV=DIRDATAL,A=(R9) 0000B6 0700 148+ CNOP 0,4 01-FREEM 0000B8 47F0 B0BC 000C4 149+ B *+12-4*0-2*0 BRANCH AROUND DATA @O2C 01-FREEM 0000BC 00001424 150+ DC A(DIRDATAL) LENGTH 01-FREEM 0000C0 00 151+IHB0010F DC BL1'00000000' Flags @O2A 01-FREEM 0000C1 00 152+ DC AL1(0) RESERVED 01-FREEM 0000C2 00 153+ DC AL1(0) SUBPOOL NUMBER 01-FREEM 0000C3 03 154+ DC BL1'00000011' MODE BYTE 01-FREEM 0000C4 5800 B0B4 000BC 155+ L 0,*-8+2*0 LOAD LENGTH 01-FREEM 0000C8 1819 156+ LR 1,R9 LOAD AREA ADDRESS 01-FREEM 0000CA 58F0 B0B8 000C0 157+ L 15,IHB0010F LOAD PARAMETERS 01-FREEM 0000CE 0A78 158+ SVC 120 ISSUE FREEMAIN SVC 01-FREEM 159 DROP R9 00000D0 161 RETURN DS 0H 162 REXIT ENV=OS 0000D0 4110 D000 00000 163+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 0000D4 58D0 D004 00004 164+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 0000D8 58E0 D010 00010 165+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 0000DC 580E 000C 0000C 166+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 0000E0 4110 1000 00000 169+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 0000E4 0A0A 170+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 0000E6 98EC D00C 0000C 171+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 0000EA 1FFF 172+ SLR 15,15 ZERO RETURN CODE 01-REXIT 0000EC 07FE 173+ BR 14 RETURN 01-REXIT 0000000 00000 000A8 175 WORKAREA DSECT 000000 176 DS 26F 000068 177 CALLLIST DS 8D 000A8 178 WORKLEN EQU *-WORKAREA 0000000 00000 00010 180 PARMS DSECT 000000 181 PRMDIRP DS A OPAQUE POINTER, ADDR OF THE DIRDATA 000004 182 PRMERRNO DS A ERRNO VALUE 000008 183 PRMREA DS A REASON CODE 00000C 184 PRMRC DS F RETURN CODE 0 186 ********************************************************************** 1 Page 7 Active Usings: PARMS(X'1000'),R10 CLOSDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 187 * 188 * NOTE: 189 * THIS DSECT IS REPEATED IN ALL THREE ROUTINES IN THIS MODULE 190 * IT IS NOT VISIBLE OUTSIDE THIS MODULE 191 * 192 ********************************************************************** 000000 00000 01424 193 DIRDATA DSECT 000000 194 DIRTAG DS CL8 000008 195 DIRFD DS F 00000C 196 BUFFPOS DS A 000010 197 ENTSDONE DS F 000014 198 READCNT DS F 000018 199 DIRDONE DS F 00001C 200 DIRPATHL DS F 000020 201 DIRPATH DS CL1024 000420 202 DIRBUFFL DS F 000424 203 DIRBUFF DS CL4096 01424 204 DIRDATAL EQU *-DIRDATA 0 206 SYMBAR MODE=DEC 00000 207+R0 EQU 0 PARAMETER PASSING REG./UTILITY 01-SYMBA 00001 208+R1 EQU 1 PARAMETER PASSING REG./UTILITY 01-SYMBA 00002 209+R2 EQU 2 UTILITY 01-SYMBA 00003 210+R3 EQU 3 UTILITY 01-SYMBA 00004 211+R4 EQU 4 UTILITY 01-SYMBA 00005 212+R5 EQU 5 UTILITY 01-SYMBA 00006 213+R6 EQU 6 UTILITY 01-SYMBA 00007 214+R7 EQU 7 UTILITY 01-SYMBA 00008 215+R8 EQU 8 UTILITY 01-SYMBA 00009 216+R9 EQU 9 UTILITY 01-SYMBA 0000A 217+R10 EQU 10 UTILITY 01-SYMBA 0000B 218+R11 EQU 11 UTILITY 01-SYMBA 0000C 219+R12 EQU 12 UTILITY 01-SYMBA 0000D 220+R13 EQU 13 NORMALLY CONTAINS SAVE AREA ADDRESS 01-SYMBA 0000E 221+R14 EQU 14 NORMALLY CONTAINS RETURN ADDRESS 01-SYMBA 0000F 222+R15 EQU 15 NORMALLY CONTAINS ENTRY POINT ADDRESS 01-SYMBA 0 224 PRINT NOGEN 225 BPXYERNO 3390 DROP R10,R11,R13 3391 END 0000F0 C4C9D9C4C1E3C140 3392 =CL8'DIRDATA ' 1 Relocation Dictionary Page 8 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000094 1 Ordinary Symbol and Literal Cross Reference Page 9 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0BAD 2 00000066 00000001 H 99 95B BPX1CLD 1 00000000 00000002 T 131 131 CALLLIST 8 00000068 FFFFFFFF D 177 136 CLOSDIR 2 00000008 00000001 H 50 47 57U CLOSDIR1 1 00000000 00000001 J 46 43 44 DIRDATA 1 00000000 FFFFFFFD J 193 93U 204 DIRDATAL 1 00001424 FFFFFFFD A U 204 150 DIRFD 4 00000008 FFFFFFFD F 195 137 DIROK 2 00000082 00000001 H 122 97B DIRTAG 8 00000000 FFFFFFFD C 194 96 ENOENT 1 00000081 FFFFFFFD A U 262 101 IHB0004B 4 00000094 00000001 V 131 143 IHB0010F 1 000000C0 00000001 B 151 157 JRINVALIDPARMS 1 000000A9 FFFFFFFD A U 677 104 PARMS 1 00000000 FFFFFFFE J 180 59U PRMDIRP 4 00000000 FFFFFFFE A 181 91 PRMERRNO 4 00000004 FFFFFFFE A 182 84 100 123 PRMRC 4 0000000C FFFFFFFE F 184 88 PRMREA 4 00000008 FFFFFFFE A 183 86 103 124 125 RETURN 2 000000D0 00000001 H 161 106B R0 1 00000000 FFFFFFFD A U 207 83M 83 85 87 89 R10 1 0000000A FFFFFFFD A U 217 3390D R11 1 0000000B FFFFFFFD A U 218 3390D R13 1 0000000D FFFFFFFD A U 220 3390D R14 1 0000000E FFFFFFFD A U 221 101M 102 104M 105 R15 1 0000000F FFFFFFFD A U 222 84M 85 86M 87 88M 89 100M 102 103M 105 R5 1 00000005 FFFFFFFD A U 212 123M 138 R6 1 00000006 FFFFFFFD A U 213 124M 139 R7 1 00000007 FFFFFFFD A U 214 125M 141 R9 1 00000009 FFFFFFFD A U 216 91M 92M 92 93U 94M 94 156 159D WORKAREA 1 00000000 FFFFFFFF J 175 70U 178 WORKLEN 1 000000A8 FFFFFFFF A U 178 54 =CL8'DIRDATA ' 8 000000F0 00000001 C 3392 96 1 Macro and Copy Code Source Summary Page 10 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1 Dsect Cross Reference Page 11 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0DIRDATA 00001424 FFFFFFFD 193 PARMS 00000010 FFFFFFFE 180 WORKAREA 000000A8 FFFFFFFF 175 1 Using Map Page 12 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 57 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 0E8 157 CLOSDIR,11 59 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 00C 125 PARMS,10 70 00000034 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 068 136 WORKAREA,13 93 00000056 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 008 137 DIRDATA,R9 159 000000D0 00000001 DROP 9 R9 3390 00001424 FFFFFFFD DROP 10 R10 3390 00001424 FFFFFFFD DROP 11 R11 3390 00001424 FFFFFFFD DROP 13 R13 1 General Purpose Register Cross Reference Page 13 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 51 61M 83M 83 85 87 89 139M 140 155M 166M 171M 1(1) 51 58 64M 66 67 68 136M 140 141 142 156M 163M 169M 169 171M 2(2) 51 171M 3(3) 51 171M 4(4) 51 171M 5(5) 51 123M 138 171M 6(6) 51 124M 139 171M 7(7) 51 125M 141 171M 8(8) 51 171M 9(9) 51 91M 92M 92 93U 94M 94 156 159D 171M 10(A) 51 58M 59U 171M 3390D 11(B) 51 56M 57U 61 171M 3390D 12(C) 51 171M 13(D) 51 66 67 68M 70U 163 164M 164 165 171 3390D 14(E) 51 101M 102 104M 105 137M 140 144M 165M 166N 171M 173B 15(F) 51 52 56 84M 85 86M 87 88M 89 100M 102 103M 105 138M 140 143M 144B 157M 171M 172M 172 1 Diagnostic Cross Reference and Assembler Summary Page 14 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: DIROPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 DIROPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000105.? 4768K allocated to Buffer Pool, 1365K would be required for this to be an In-Storage Assembly 150 Primary Input Records Read 9461 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 374 Primary Print Records Written 0 Work File Writes 17 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.15 Stop Time: 12.09.16 Processor Time: 00.00.01.5144 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1ISDIR External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0ISDIR1 SD 00000001 00000000 00000134 06 ISDIR LD 00000008 00000001 BPX1STA ER 00000002 BPX1RDL ER 00000003 1ISDIR OMVS_ISDIR Page 3 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * ISDIR -- OMVS_ISDIR * 7 * * 8 * THIS ROUTINE RETURNS TRUE OR FALSE IF THE PASSED PATH IS A * 9 * DIRECTORY OR NOT. * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * PATHL -- FIXED BINARY(31) (*1,2) * 14 * THIS IS THE LENGTH OF THE PATH VARIABLE * 15 * * 16 * PATH -- CHAR(*) (*1,2) * 17 * THIS IS THE PATH TO THE FILE. IT'S LENGTH IS PATHL THE CODE * 18 * * 19 * FUNCTIONS: * 20 * * 21 * 1. LOAD THE PARM LIST INTO REGISTERS * 22 * * 23 * 2. CALL BPX1STA (STAT) TO GET INFORMATION ABOUT THE FILE * 24 * * 25 * 3. CHECK THE BIT TO DETERMINE WHETHER THIS IS A DIRECTORY. * 26 * * 27 * OUTPUTS (*FROM FUNCTIONS): * 28 * * 29 * EXISTS -- BIT(1) ALIGNED (*1,2) * 30 * THIS PARM IS SET TO TRUE IF THE PASSED PATH EXISTS WHETHER IT * 31 * WAS A DIRECTORY OR NOT. IT IS SET TO FALSE IF THE PATH DOES * 32 * NOT EXIST. * 33 * * 34 * ISDIR -- BIT(1) ALIGNED (*1,2,3) * 35 * THE RETURNED VALUE IS A BIT(1) WHICH IS NONZERO FOR A * 36 * DIRECTORY. * 37 * * 38 * ISSYM -- BIT(1) ALIGNED (*1,2,3) * 39 * THE RETURNED VALUE IS A BIT(1) WHICH IS NONZERO FOR A * 40 * SYMBOLIC LINK * 41 * * 42 * NOTES: * 43 * * 44 * 1. SAMPLE DECLARE * 45 * * 46 *********************************************************************** 1ISDIR OMVS_ISDIR Page 4 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 48 *********************************************************************** 49 * * 50 * LOAD THE PARM LIST AND SET UP THE PARMS FOR BPX1STA (STAT). * 51 * * 52 * REGISTER USAGE: * 53 * R2 -> PATH LENGTH (FULLWORD) * 54 * R3 -> PATH TO TEST * 55 * R4 -> RETURNED STAT BUFF AREA * 56 * R5 -> EXISTS PARM * 57 * R6 -> ISADIR PARM * 58 * R7 -> ISASYM PARM * 59 * R10 -> PARM LIST FROM CALLER * 60 * R11 - BASE FOR PROGRAM * 61 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 62 * MODIFY * 63 * R13 -> DYNAMIC SAVE AND WORK AREA * 64 * * 65 *********************************************************************** 0 67 ISDIR1 AMODE 31 68 ISDIR1 RMODE ANY 69 ISDIR RENTR BASE=11,PARM=(10,PLIPARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS 000000 00000 00134 70+ISDIR1 CSECT , 01-RENTR 71+ ENTRY ISDIR INDICATE ENTRY POINT 01-RENTR 000000 72+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 4040 73+ DC CL2' ' PADDING TO 8 BYTES 01-RENTR 000002 C9E2C4C9D905 74+ DC C'ISDIR',AL1(5) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 75+ISDIR DS 0H 01-RENTR 000008 90EC D00C 0000C 76+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 77+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 78+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000558 79+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 80+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 81+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 82+ USING ISDIR,11 01-RENTR 00001E 18A1 83+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 84+ USING PLIPARMS,10 01-RENTR 85+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000020 5800 B00C 0000C 86+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000024 4510 B020 00028 89+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000028 0A0A 90+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00002A 50D0 1004 00004 91+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00002E 5010 D008 00008 92+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000032 18D1 93+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 95+ USING WORKAREA,13 01-RENTR 0000034 5850 A008 00008 97 L R5,PLIEXIST POINT TO THE EXISTS PARM L/D 98 *PL/I L R5,0(,R5) POINT TO THE PARM 000038 5860 A00C 0000C 99 L R6,PLIISDIR POINT TO THE ISDIR PARM L/D 100 *PL/I L R6,0(,R6) POINT TO THE PARM 00003C 5870 A010 00010 101 L R7,PLIISSYM POINT TO THE ISSYM PARM L/D 102 *PL/I L R7,0(,R7) POINT TO THE PARM 000040 9200 5000 00000 103 MVI 0(R5),X'00' SHOW FALSE ON EXISTS 1ISDIR OMVS_ISDIR Page 5 Active Usings: PLIPARMS(X'1000'),R10 ISDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000044 9200 6000 00000 104 MVI 0(R6),X'00' SHOW FALSE ON ISDIR 000048 9200 7000 00000 105 MVI 0(R7),X'00' SHOW FALSE ON ISSYM 000004C 5820 A000 00000 107 L R2,PLIPATHL BUILD PARM LIST FOR STAT 000050 5830 A004 00004 108 L R3,PLIPATH 109 *PL/I L R3,0(,R3) POINT TO THE STRING 000054 4100 0094 00094 110 LA R0,ST#LEN 000058 5000 D068 00068 111 ST R0,STATL 00005C 4140 D06C 0006C 112 LA R4,STATBUF 113 * ST R4,STATA 0 115 *********************************************************************** 116 * BPX1STA (STAT) TAKES THE LENGTH OF THE PATH, POINTER TO THE PATH, 117 * LENGTH OF THE STAT BUFF, ADDR OF THE STAT BUFF, AND THE USUAL 118 * RC, ERRNO, AND ERRNO JR (REASON) 119 *********************************************************************** 120 CALL BPX1STA,((R2),(R3),STATL,(R4),RETVAL,ERRNO,REA), X VL,MF=(E,CALLLIST) 000060 122+ CNOP 0,4 01-CALL 000060 47F0 B060 00068 123+ B *+8 BRANCH AROUND VCON 01-CALL 000064 00000000 124+IHB0004B DC V(BPX1STA) ENTRY POINT ADDRESS 01-CALL 000068 4110 D110 00110 129+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00006C 18E2 130+ LR 14,(R2) PICK UP PARAMETER 02-IHBOP 00006E 18F3 131+ LR 15,(R3) PICK UP PARAMETER 02-IHBOP 000070 4100 D068 00068 132+ LA 0,STATL PICKUP PARAMETER 02-IHBOP 000074 90E0 1000 00000 133+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000078 18E4 134+ LR 14,(R4) PICK UP PARAMETER 02-IHBOP 00007A 41F0 D100 00100 135+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 00007E 4100 D104 00104 136+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 000082 90E0 100C 0000C 137+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 000086 41E0 D108 00108 138+ LA 14,REA PICKUP PARAMETER 02-IHBOP 00008A 50E0 1018 00018 139+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 00008E 9680 1018 00018 140+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000092 58F0 B05C 00064 141+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 000096 05EF 142+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000098 58F0 D100 00100 144 L R15,RETVAL GET THE UNIX RC 00009C 12FF 145 LTR R15,R15 DID THE STAT WORK? 00009E 4770 B104 0010C 146 BNZ RETURN ON FAILURE, RETURN ALL FALSE 00000A2 92FF 5000 00000 148 MVI 0(R5),X'FF' SHOW TRUE ON EXISTS 0 R:4 00000 150 USING STAT,R4 00000A6 9501 4008 00008 152 CLI ST_MODE,FT_DIR IS THIS A DIRECTORY? 0000AA 4770 B0AA 000B2 153 BNE TRYSYM IF NOT, LEAVE ISADIR FALSE 00000AE 92FF 6000 00000 155 MVI 0(R6),X'FF' SHOW TRUE ON ISDIR 00000B2 157 TRYSYM DS 0H 0000B2 58F0 B128 00130 158 L R15,=A(L'LINKBUFF) 0000B6 50F0 D150 00150 159 ST R15,LINKLEN 0000BA 41F0 D158 00158 160 LA R15,LINKBUFF 0000BE 50F0 D154 00154 161 ST R15,LINKADDR 1ISDIR OMVS_ISDIR Page 6 Active Usings: STAT(X'1000'),R4 PLIPARMS(X'1000'),R10 ISDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 163 *********************************************************************** 164 * BPX1RDL (READLINK) TAKES THE LENGTH OF PATH, POINTER TO THE PATH, 165 * LENGTH OF THE TARGET BUFF, ADDR OF THE ADDR OF THE TARGET BUFF 166 * WHICH IS WHERE THE LINK CONTENTS GETS PLACED AND THE USUAL. 167 * RC, ERRNO, AND ERRNO JR (REASON) RC IS THE LENGTH OF THE 168 * TARGET BUFF USED IF POSITIVE AND -1 IF FAILURE. 169 *********************************************************************** 170 CALL BPX1RDL,((R2),(R3),LINKLEN,LINKADDR,RETVAL,ERRNO,REA), X VL,MF=(E,CALLLIST) 0000C2 0700 172+ CNOP 0,4 01-CALL 0000C4 47F0 B0C4 000CC 173+ B *+8 BRANCH AROUND VCON 01-CALL 0000C8 00000000 174+IHB0010B DC V(BPX1RDL) ENTRY POINT ADDRESS 01-CALL 0000CC 4110 D110 00110 179+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0000D0 18E2 180+ LR 14,(R2) PICK UP PARAMETER 02-IHBOP 0000D2 18F3 181+ LR 15,(R3) PICK UP PARAMETER 02-IHBOP 0000D4 4100 D150 00150 182+ LA 0,LINKLEN PICKUP PARAMETER 02-IHBOP 0000D8 90E0 1000 00000 183+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0000DC 41E0 D154 00154 184+ LA 14,LINKADDR PICKUP PARAMETER 02-IHBOP 0000E0 41F0 D100 00100 185+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 0000E4 4100 D104 00104 186+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 0000E8 90E0 100C 0000C 187+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0000EC 41E0 D108 00108 188+ LA 14,REA PICKUP PARAMETER 02-IHBOP 0000F0 50E0 1018 00018 189+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 0000F4 9680 1018 00018 190+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0000F8 58F0 B0C0 000C8 191+ L 15,IHB0010B LOAD 15 WITH ENTRY ADR 01-CALL 0000FC 05EF 192+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00000FE 58F0 D100 00100 194 L R15,RETVAL GET THE UNIX RC 000102 12FF 195 LTR R15,R15 DID THE STAT WORK? 000104 47D0 B104 0010C 196 BNP RETURN ON FAILURE, RETURN NOT A LINK 0000108 92FF 7000 00000 198 MVI 0(R7),X'FF' SHOW THIS IS A SYMLINK 0 200 DROP R4 00010C 201 RETURN DS 0H 202 REXIT ENV=OS 00010C 4110 D000 00000 203+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 000110 58D0 D004 00004 204+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 000114 58E0 D010 00010 205+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000118 580E 000C 0000C 206+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 00011C 4110 1000 00000 209+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 000120 0A0A 210+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 000122 98EC D00C 0000C 211+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000126 1FFF 212+ SLR 15,15 ZERO RETURN CODE 01-REXIT 000128 07FE 213+ BR 14 RETURN 01-REXIT 000130 214 LTORG 000130 00000400 215 =A(L'LINKBUFF) 000000 00000 00558 216 WORKAREA DSECT 000000 217 DS 26F 000068 218 STATL DS F 00006C 219 STATBUF DS XL(ST#LEN) 000100 220 RETVAL DS F 000104 221 ERRNO DS F 000108 222 REA DS F 000110 223 CALLLIST DS 8D 1ISDIR OMVS_ISDIR Page 7 Active Usings: PLIPARMS(X'1000'),R10 ISDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000150 224 LINKLEN DS F 000154 225 LINKADDR DS A 000158 226 LINKBUFF DS CL1024 00558 227 WORKLEN EQU *-WORKAREA 000000 00000 00014 228 PLIPARMS DSECT 000000 229 PLIPATHL DS A 000004 230 PLIPATH DS A 000008 231 PLIEXIST DS A 00000C 232 PLIISDIR DS A 000010 233 PLIISSYM DS A 0 235 BPXYSTAT 236+** BPXYSTAT: stat system call structure 237+** Used By: FST LST STA 000000 00000 00094 238+STAT DSECT , 01-BPXYS 000000 239+ST_BEGIN DS 0D 01-BPXYS 240+* 000000 E2E3C1E3 241+ST_EYE DC C'STAT' Eye catcher 01-BPXYS 000004 0094 242+ST_LENGTH DC AL2(STAT#LENGTH) X01-BPXYS + Length of this structure @P2A 000006 0001 243+ST_VERSION DC AL2(ST#VER) X01-BPXYS + Version of this structure @P2A 000008 244+ST_MODE DS F File Mode, mapped by BPXYMODE 01-BPXYS 00000C 245+ST_INO DS F File Serial Number 01-BPXYS 000010 246+ST_DEV DS F Device ID of the file 01-BPXYS 000014 247+ST_NLINK DS F Number of links 01-BPXYS 000018 248+ST_UID DS F User ID of the owner of the file 01-BPXYS 00001C 249+ST_GID DS F Group ID of the Group of the file 01-BPXYS 000020 250+ST_SIZE DS 0D File Size in bytes, for regular 01-BPXYS 251+* files. Unspecified, for others 000020 252+ST_SIZE_H DS F First word of size 01-BPXYS 000024 253+ST_SIZE_L DS F Second word of size 01-BPXYS 000028 254+ST_ATIME DS F Time of last access 01-BPXYS 00002C 255+ST_MTIME DS F Time of last data modification 01-BPXYS 000030 256+ST_CTIME DS F Time of last file status change 01-BPXYS 257+* Time is in seconds since 258+* 00:00:00 GMT, Jan. 1, 1970 000034 259+ST_RDEV DS 0F Device Information 01-BPXYS 000034 260+ST_MAJORNUMBER DS H Major number for this file, if it 01-BPXYS 261+* is a character special file. 000036 262+ST_MINORNUMBER DS H Minor number for this file, if it 01-BPXYS 263+* is a character special file. 000038 264+ST_AUDITORAUDIT DS F Area for auditor audit info 01-BPXYS 00003C 265+ST_USERAUDIT DS F Area for user audit info 01-BPXYS 000040 266+ST_BLKSIZE DS F File Block size 01-BPXYS 000044 267+ST_CREATETIME DS F File Creation Time 01-BPXYS 000048 268+ST_AUDITID DS 4F RACF File ID for auditing 01-BPXYS 000058 269+ST_RES01 DS F 01-BPXYS 00005C 270+ST_CHARSETID DS 3F Coded Character Set ID 01-BPXYS 000068 271+ST_BLOCKS_D DS 0D Double word number - blocks allocated 01-BPXYS 000068 272+ST_RES02 DS F 01-BPXYS 00006C 273+ST_BLOCKS DS F Number of blocks allocated 01-BPXYS 000070 274+ST_GENVALUE DS 0XL4 General attribute values @D6C 01-BPXYS 000070 275+ST_OPAQUE DS XL3 Opaque attribute flags- Reserved @D6A 01-BPXYS 000073 276+ST_VISIBLE DS X Visible attribute flags @D6A 01-BPXYS 1ISDIR OMVS_ISDIR Page 8 Active Usings: PLIPARMS(X'1000'),R10 ISDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 00010 277+ST_SHARELIB EQU X'10' Shared Library Flag @D7A 01-BPXYS 00008 278+ST_NOSHAREAS EQU X'08' No shareas flag @D6A 01-BPXYS 00004 279+ST_APFAUTH EQU X'04' APF authorized flag @D6A 01-BPXYS 00002 280+ST_PROGCTL EQU X'02' Program controlled flag @D6A 01-BPXYS 00001 281+ST_EXTLINK EQU X'01' External Symlink @D6A 01-BPXYS 000074 282+ST_REFTIME DS F Reference time 01-BPXYS 000078 283+ST_FID DS 2F File identifier 01-BPXYS 000080 284+ST_FILEFMT DS XL1 File Format @D5A 01-BPXYS 000081 285+ST_RES03 DS CL19 Reserved for future @D5C 01-BPXYS 286+* 287+* Constants 288+* 00001 289+ST#VER EQU ST#VER01 Current version @P2A 01-BPXYS 00001 290+ST#VER01 EQU 1 Version 1 of this structure @P2A 01-BPXYS 00094 291+STAT#LENGTH EQU *-STAT Length of STAT 01-BPXYS 00094 292+ST#LEN EQU STAT#LENGTH Length of STAT @P2A 01-BPXYS 293+** BPXYSTAT End - 295 BPXYMODE 296+** BPXYMODE: Mode constants specified on system calls 297+** Used By: CHM FCM MKD MKN OPN UMK 000000 00000 00004 298+S_MODE DSECT , 01-BPXYM 000000 299+ DS 0F 01-BPXYM 300+* 000000 301+S_TYPE DS B File types, mapped by BPXYFTYP 01-BPXYM 302+* Flag bytes 000001 303+S_MODE3B DS 0XL3 All flag bytes @P6A 01-BPXYM 000001 304+S_RES01 DS 0BL.8 Reserved @D4C 01-BPXYM 000001 305+S_MODE1 DS B Flag byte 1 - reserved 01-BPXYM 306+* 000002 307+S_RES02 DS 0BL.4 Reserved @D4C 01-BPXYM 000002 308+S_MODE2 DS B Flag byte 2 01-BPXYM 309+* Set ID flags 00008 310+S_ISUID EQU X'08' Set user ID on execution 01-BPXYM 00004 311+S_ISGID EQU X'04' Set group ID on execution 01-BPXYM 00002 312+S_ISVTX EQU X'02' Sticky Bit: For executables, look 01-BPXYM 313+* first in normal MVS search order 314+* For directories, deletion rstd 315+* to owner or superuser. 316+* Owner flags 00001 317+S_IRWXU1 EQU X'01' All permissions for user - part I 01-BPXYM 00001 318+S_IRUSR EQU X'01' Read permission 01-BPXYM 319+* 000003 320+S_MODE3 DS B Flag byte 3 01-BPXYM 321+* Owner flags - continued 000C0 322+S_IRWXU2 EQU X'C0' All permissions for user - Part II 01-BPXYM 00080 323+S_IWUSR EQU X'80' Write permission 01-BPXYM 00040 324+S_IXUSR EQU X'40' Search (if a directory) or 01-BPXYM 325+* execute (otherwise) permission 326+* Group flags 00038 327+S_IRWXG EQU X'38' All permissions for group 01-BPXYM 00020 328+S_IRGRP EQU X'20' Read permission 01-BPXYM 00010 329+S_IWGRP EQU X'10' Write permission 01-BPXYM 1ISDIR OMVS_ISDIR Page 9 Active Usings: PLIPARMS(X'1000'),R10 ISDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 00008 330+S_IXGRP EQU X'08' Search (if a directory) or 01-BPXYM 331+* execute (otherwise) permission 332+* Other flags 00007 333+S_IRWXO EQU X'07' All permissions for other 01-BPXYM 00004 334+S_IROTH EQU X'04' Read permission 01-BPXYM 00002 335+S_IWOTH EQU X'02' Write permission 01-BPXYM 00001 336+S_IXOTH EQU X'01' Search (if a directory) or 01-BPXYM 337+* execute (otherwise) permission 00004 338+S_MODE#LENGTH EQU *-S_MODE Length this structure 01-BPXYM 339+** BPXYMODE End - 341 BPXYFTYP 342+** BPXYFTYP: File type definitions 343+** Used By: FST MKD MKN OPN 00001 344+FT_DIR EQU 1 Directory File 01-BPXYF 00002 345+FT_CHARSPEC EQU 2 Character Special File 01-BPXYF 00003 346+FT_REGFILE EQU 3 Regular File 01-BPXYF 00004 347+FT_FIFO EQU 4 Named Pipe (FIFO) File 01-BPXYF 00005 348+FT_SYMLINK EQU 5 Symbolic link 01-BPXYF 349+* EQU 6 Reserved for Block Special 00007 350+FT_SOCKET EQU 7 Socket File @D2A 01-BPXYF 351+* 352+** File format definitions (for chattr) 9@D3A 00000 353+FTFFNA EQU 0 Not specified 7@P2C 01-BPXYF 00001 354+FTFFBINARY EQU 1 Binary data 01-BPXYF 355+* Text data delimiters: 00002 356+FTFFNL EQU 2 New Line 01-BPXYF 00003 357+FTFFCR EQU 3 Carrage Return 01-BPXYF 00004 358+FTFFLF EQU 4 Line Feed 01-BPXYF 00005 359+FTFFCRLF EQU 5 CR & LF 01-BPXYF 00006 360+FTFFLFCR EQU 6 LF & CR 01-BPXYF 00007 361+FTFFCRNL EQU 7 CR & NL @P3A 01-BPXYF 362+** BPXYFTYP End - 0 365 SYMBAR MODE=DEC 00000 366+R0 EQU 0 PARAMETER PASSING REG./UTILITY 01-SYMBA 00001 367+R1 EQU 1 PARAMETER PASSING REG./UTILITY 01-SYMBA 00002 368+R2 EQU 2 UTILITY 01-SYMBA 00003 369+R3 EQU 3 UTILITY 01-SYMBA 00004 370+R4 EQU 4 UTILITY 01-SYMBA 00005 371+R5 EQU 5 UTILITY 01-SYMBA 00006 372+R6 EQU 6 UTILITY 01-SYMBA 00007 373+R7 EQU 7 UTILITY 01-SYMBA 00008 374+R8 EQU 8 UTILITY 01-SYMBA 00009 375+R9 EQU 9 UTILITY 01-SYMBA 0000A 376+R10 EQU 10 UTILITY 01-SYMBA 0000B 377+R11 EQU 11 UTILITY 01-SYMBA 0000C 378+R12 EQU 12 UTILITY 01-SYMBA 0000D 379+R13 EQU 13 NORMALLY CONTAINS SAVE AREA ADDRESS 01-SYMBA 0000E 380+R14 EQU 14 NORMALLY CONTAINS RETURN ADDRESS 01-SYMBA 1ISDIR OMVS_ISDIR Page 10 Active Usings: PLIPARMS(X'1000'),R10 ISDIR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 0000F 381+R15 EQU 15 NORMALLY CONTAINS ENTRY POINT ADDRESS 01-SYMBA 382 END 1ISDIR Relocation Dictionary Page 11 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000064 00000001 00000003 1C 000000C8 1ISDIR Ordinary Symbol and Literal Cross Reference Page 12 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0BPX1RDL 1 00000000 00000003 T 174 174 BPX1STA 1 00000000 00000002 T 124 124 CALLLIST 8 00000110 FFFFFFFF D 223 129 179 ERRNO 4 00000104 FFFFFFFF F 221 136 186 FT_DIR 1 00000001 FFFFFFFC A U 344 152 IHB0004B 4 00000064 00000001 V 124 141 IHB0010B 4 000000C8 00000001 V 174 191 ISDIR 2 00000008 00000001 H 75 71 82U ISDIR1 1 00000000 00000001 J 70 67 68 LINKADDR 4 00000154 FFFFFFFF A 225 161M 184 LINKBUFF 1024 00000158 FFFFFFFF C 226 160 215 LINKLEN 4 00000150 FFFFFFFF F 224 159M 182 PLIEXIST 4 00000008 FFFFFFFE A 231 97 PLIISDIR 4 0000000C FFFFFFFE A 232 99 PLIISSYM 4 00000010 FFFFFFFE A 233 101 PLIPARMS 1 00000000 FFFFFFFE J 228 84U PLIPATH 4 00000004 FFFFFFFE A 230 108 PLIPATHL 4 00000000 FFFFFFFE A 229 107 REA 4 00000108 FFFFFFFF F 222 138 188 RETURN 2 0000010C 00000001 H 201 146B 196B RETVAL 4 00000100 FFFFFFFF F 220 135 144 185 194 R0 1 00000000 FFFFFFFC A U 366 110M 111 R15 1 0000000F FFFFFFFC A U 381 144M 145M 145 158M 159 160M 161 194M 195M 195 R2 1 00000002 FFFFFFFC A U 368 107M 130 180 R3 1 00000003 FFFFFFFC A U 369 108M 131 181 R4 1 00000004 FFFFFFFC A U 370 112M 134 150U 200D R5 1 00000005 FFFFFFFC A U 371 97M 103 148 R6 1 00000006 FFFFFFFC A U 372 99M 104 155 R7 1 00000007 FFFFFFFC A U 373 101M 105 198 S_MODE 1 00000000 FFFFFFFC J 298 338 ST_MODE 4 00000008 FFFFFFFD F 244 152 ST#LEN 1 00000094 FFFFFFFD A U 292 110 219 ST#VER 1 00000001 FFFFFFFD A U 289 243 ST#VER01 1 00000001 FFFFFFFD A U 290 289 STAT 1 00000000 FFFFFFFD J 238 150U 291 STAT#LENGTH 1 00000094 FFFFFFFD A U 291 242 292 STATBUF 148 0000006C FFFFFFFF X 219 112 STATL 4 00000068 FFFFFFFF F 218 111M 132 TRYSYM 2 000000B2 00000001 H 157 153B WORKAREA 1 00000000 FFFFFFFF J 216 95U 227 WORKLEN 1 00000558 FFFFFFFF A U 227 79 =A(L'LINKBUFF) 4 00000130 00000001 A 215 158 1ISDIR Macro and Copy Code Source Summary Page 13 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYFTYP BPXYMODE BPXYSTAT CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1ISDIR Dsect Cross Reference Page 14 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0PLIPARMS 00000014 FFFFFFFE 228 S_MODE 00000004 FFFFFFFC 298 STAT 00000094 FFFFFFFD 238 WORKAREA 00000558 FFFFFFFF 216 1ISDIR Using Map Page 15 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 82 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 128 196 ISDIR,11 84 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 010 108 PLIPARMS,10 95 00000034 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 158 194 WORKAREA,13 150 000000A6 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 4 008 152 STAT,R4 200 0000010C 00000001 DROP 4 R4 1 General Purpose Register Cross Reference Page 16 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 76 86M 110M 111 132M 133 136M 137 182M 183 186M 187 206M 211M 1(1) 76 83 89M 91 92 93 129M 133 137 139 140 179M 183 187 189 190 203M 209M 209 211M 2(2) 76 107M 130 180 211M 3(3) 76 108M 131 181 211M 4(4) 76 112M 134 150U 200D 211M 5(5) 76 97M 103 148 211M 6(6) 76 99M 104 155 211M 7(7) 76 101M 105 198 211M 8(8) 76 211M 9(9) 76 211M 10(A) 76 83M 84U 211M 11(B) 76 81M 82U 86 211M 12(C) 76 211M 13(D) 76 91 92 93M 95U 203 204M 204 205 211 14(E) 76 130M 133 134M 137 138M 139 142M 180M 183 184M 187 188M 189 192M 205M 206N 211M 213B 15(F) 76 77 81 131M 133 135M 137 141M 142B 144M 145M 145 158M 159 160M 161 181M 183 185M 187 191M 192B 194M 195M 195 211M 212M 212 1ISDIR Diagnostic Cross Reference and Assembler Summary Page 17 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: ISDIR PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 ISDIR L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000106.? 4768K allocated to Buffer Pool, 577K would be required for this to be an In-Storage Assembly 161 Primary Input Records Read 6505 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 542 Primary Print Records Written 0 Work File Writes 27 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.17 Stop Time: 12.09.18 Processor Time: 00.00.00.9318 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FOPEN External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FOPEN1 SD 00000001 00000000 000003A8 06 FOPEN LD 00000008 00000001 PLISTART WX 00000002 BPX1OPN ER 00000003 BPX1LSK ER 00000004 BPX1CLO ER 00000005 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FOPEN -- FOPEN AN HFS DATASET USING MVS SERVICES * 7 * * 8 * THIS MODULE OPENS A FILE IN AN HFS DATASET USING MVS UNIX * 9 * SYSTEM SERVICES AND RETURNS A POINTER TO A "FILE" LIKE THE * 10 * UNIX FOPEN. IT PROVIDES FOR BUFFERED ACCESS TO THE FILES. * 11 * SINCE THE PATH PASSED IS A UNIX PATH (EBCDIC), IT IS UP TO * 12 * THE CALLER TO DETERMINE THAT THE HFS HAS BEEN MOUNTED ON THE * 13 * UNIX SIDE SUCH THAT THE PATH PASSED IS ACCESSABLE. FOR THE * 14 * HFS PAN FILES, THIS IS TAKEN CARE OF BY THE /PAN/ NAMING * 15 * CONVENTION AND THE AUTOMOUNTER. * 16 * * 17 * DECLARES FOR THES ROUTINES ARE IN FG501277.STDIO * 18 * * 19 * NOTE: THESE ROUTINES DUPLICATE NAMES FOUND IN CEE.SCEELKED, * 20 * USED DUE CAUTION. * 21 * * 22 * INPUTS (*TO FUNCTIONS): * 23 * * 24 * PATHL -- FIXED BINARY(31) (FULLWORD) (*1,2) * 25 * THIS IS THE LENGTH OF THE PATH PARAMETER. * 26 * * 27 * PATH -- CHAR(*) (*1,2) * 28 * THIS POINTS TO A FIXED LENGTH STRING WHOSE LENGTH IS PASSED * 29 * IN THE PRECEDING PATHL PARAMETER. THE STRING IS A FULLY * 30 * QUALIFIED UNIX PATH NAME. THIS IS THE PATH TO OPEN. * 31 * * 32 * TYPEL -- FIXED BINARY(31) (FULLWORD) (*1,2) * 33 * THIS IS THE LENGTH OF THE TYPE PARAMETER. * 34 * * 35 * TYPE -- CHAR(*) (*1,2) * 36 * THIS POINTS TO A FIXED LENGTH STRING WHOSE LENGTH IS PASSED * 37 * IN THE PRECEDING TYPEL PARAMETER. THE STRING CONTAINS THE * 38 * TYPE OF OPEN. THIS IS LIKE THE SECOND PARM TO THE UNIX * 39 * FOPEN. ONLY SOME VALUES ARE SUPPORTED. * 40 * VALUES: W - OPEN FOR OUTPUT * 41 * R - OPEN FOR INPUT * 42 * A - OPEN FOR APPEND * 43 * * 44 * FUNCTIONS: * 45 * * 46 * 1. ALLOCATE AND INITIALIZE THE FILEIOB DSECT AND RETURNED * 47 * PARAMETERS. * 48 * * 49 * 2. OPEN THE FILE AND SAVE THE FILE DESCRIPTOR IN THE IOB. FLAG * 50 * ERRORS. * 51 * * 52 * 3. ALLOCATE A DEFAULT SIZE BUFFER AND SAVE IT'S ADDRESS. * 53 * * 54 * OUTPUTS (*FROM FUNCTIONS): * 55 * * 56 * FILE -- POINTER (*1,2,3) * 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 * THE RETURNED VALUE IS THE POINTER TO FILE PASSED TO OTHER * 58 * STDIO ROUTINES IN THIS MODULE. ON FAILURE, NULL() IS * 59 * RETURNED AND ERRNO IS SET. * 60 * * 61 * ERRNO -- FULLWORD INTEGER (*1,2) * 62 * THIS CONTAINS THE ERRNO FROM THE FAILING CALL. IT IS ZERO ON * 63 * SUCCESS. STRERROR CAN BE USED TO GET A MESSAGE * 64 * * 65 * REA -- FULLWORD INTEGER (*1,2) * 66 * THIS CONTAINS THE REASON CODE (ALSO CALLED ERRNO JR.) FROM * 67 * THE FAILING UNIX SYSTEM SERVICES CALL. * 68 * * 69 * COMPNT -- CHAR 8 (*1,2) * 70 * THIS POINTS TO A PL/I STYLE CHAR(8) PARAMETER. ON FAILURE * 71 * THE NAME OF THE FAILING CALL IS PLACED HERE * 72 * * 73 * NOTES: * 74 * * 75 * 1. THIS MODULE USES MODULES FROM 'SYS1.CSSLIB' * 76 * * 77 * 2. ON THE LUCENT PHOENIX SYSTEM, THE AUTOMOUNTER IS SETUP SUCH * 78 * THAT IF THE PASSED PATH IS /PAN/NAME.OF.MVS.FILE/REST/OF/PATH * 79 * THE HFS FILE NAME.OF.MVS.FILE WILL BE AUTOMOUNTED UNDER /PAN. * 80 * OTHER AUTOMOUNT SETUPS MAY ALSO BE USED. * 81 * * 82 * 3. SAMPLE DECLARE AND CALL: * 83 * * 84 * DECLARE FOPEN ENTRY(FIXED BINARY(31), * 85 * CHAR(*), * 86 * FIXED BINARY(31), * 87 * CHAR(*), * 88 * FIXED BINARY(31), * 89 * FIXED BINARY(31), * 90 * CHAR(8)) * 91 * RETURNS(POINTER); * 92 * * 93 * DECLARE PATHL FIXED BINARY(31) INIT(25); * 94 * DECLARE PATH CHAR(80) * 95 * 17 17 INIT('/PAN/EAX2I/PAN/DEVELOP/FG5013330A'); * 96 * * 97 * DECLARE TYPEL FIXED BINARY(31) INIT(1); * 98 * DECLARE TYPE CHAR(1) INIT('W'); * 99 * DECLARE FILEP POINTER INIT(NULL()); * 100 * DECLARE ERRNO FIXED BINARY(31); * 101 * DECLARE REASON FIXED BINARY(31); * 102 * DECLARE COMPNT CHAR(8); * 103 * * 104 * FILEP = FOPEN(PATHL,PATH, TYPEL,TYPE, ERRNO, REASON, COMPNT); * 105 * * 106 * 4. ISSUE HISTORY: * 107 * * 108 * REASON FOR ISSUE 02 (05/11/2005) * 109 * ADD ENTRY POINTS FGETS AND FPUTS. * 110 * * 111 *********************************************************************** 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 113 FOPEN RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 003A8 114+FOPEN1 CSECT , 01-RENTR 115+ ENTRY FOPEN INDICATE ENTRY POINT 01-RENTR 000000 116+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 4040 117+ DC CL2' ' PADDING TO 8 BYTES 01-RENTR 000002 C6D6D7C5D505 118+ DC C'FOPEN',AL1(5) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 119+FOPEN DS 0H 01-RENTR 000008 90EC D00C 0000C 120+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 121+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 122+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000100 123+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 124+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 125+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 126+ USING FOPEN,11 01-RENTR 00001E 18A1 127+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 128+ USING PARMS,10 01-RENTR 129+ WXTRN PLISTART 01-RENTR 000020 130+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 131+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 132+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 133+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 134+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 135+ BNZ PL10001 01-RENTR 136+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 137+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 140+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 141+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 142+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 143+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 144+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 145+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 146+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 147+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 148+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 149+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 150+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 151+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 153+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 154+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 156+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 157+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 158+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 159+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 160+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 161+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 162+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 163+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 164+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 165+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 167+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 168+COM0001 DS 0H 01-RENTR 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 6 Active Usings: PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 170+ USING WORKAREA,13 01-RENTR 171 FOPEN1 AMODE 31 172 FOPEN1 RMODE ANY 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 7 Active Usings: PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 174 *********************************************************************** 175 * * 176 * GET THE FILE STRUCTURE * 177 * * 178 * REGISTER USAGE: * 179 * R9 -> FILEIOB AREA * 180 * R10 -> PARM LIST FROM CALLER * 181 * R11 - BASE FOR PROGRAM * 182 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 183 * MODIFY * 184 * R13 -> DYNAMIC SAVE AND WORK AREA * 185 * R15 - WORK REGISTER FOR DATA TRANSFER. * 186 * * 187 *********************************************************************** 0 189 GETMAIN RU,LV=FILEIOBL,SP=29 000086 0700 191+ CNOP 0,4 01-GETMA 000088 47F0 B08C 00094 192+ B IHB0004C BRANCH AROUND DATA 01-GETMA 00008C 00000020 193+IHB0004L DC A(FILEIOBL) LENGTH 01-GETMA 000090 00 194+IHB0004F DC BL1'00000000' Flags. @L7C 01-GETMA 000091 00 195+ DC AL1(0) RESERVED 01-GETMA 000092 1D 196+ DC AL1(29) SUBPOOL 01-GETMA 000093 02 197+ DC BL1'00000010' MODE BYTE @G860P30 01-GETMA 000094 198+IHB0004C DS 0H 01-GETMA 000094 5800 B084 0008C 199+ L 0,IHB0004L LOAD LENGTH 01-GETMA 000098 58F0 B088 00090 200+ L 15,IHB0004F LOAD GETMAIN PARMS 01-GETMA 00009C 1B11 201+ SR 1,1 ZERO RESERVED REG 1 01-GETMA 00009E 0A78 202+ SVC 120 ISSUE GETMAIN SVC 01-GETMA 0000A0 1891 203 LR R9,R1 SAVE THE IOB AREA ADDRESS 0000A2 D71F 9000 9000 00000 00000 204 XC 0(FILEIOBL,R9),0(R9) CLEAR THE AREA INITIALLY R:9 00000 205 USING FILEIOB,R9 00000A8 58F0 B368 00370 207 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000AC 50F0 9000 00000 208 ST R15,IOBMARK SAVE AS FIRST WORD 0000B0 58F0 B36C 00374 209 L R15,=F'-1' GET -1 FOR INIT VALUE FOR FILE DES. 0000B4 50F0 9010 00010 210 ST R15,IOBFILE SAVE AS CURRENT FILE DESCRIPTOR 00000B8 58F0 A01C 0001C 212 L R15,PLIFILE POINT TO THE RETURNED POINTER 0000BC 5800 B370 00378 213 L R0,=A(PLINULL) GET THE PL/I NULL VALUE 0000C0 5000 F000 00000 214 ST R0,0(,R15) START WITH FAILURE. 00000C4 1F00 216 SLR R0,R0 GET A ZERO 0000C6 58F0 A010 00010 217 L R15,PLIERRNO 0000CA 5000 F000 00000 218 ST R0,0(,R15) 0000CE 58F0 A014 00014 219 L R15,PLIREA 0000D2 5000 F000 00000 220 ST R0,0(,R15) 0000D6 58F0 A018 00018 221 L R15,PLICOMP POINT TO COMPONENT NAME PARM 0000DA 58F0 F000 00000 222 L R15,0(,R15) GET PATH LOCATOR DESCRIPTOR 0000DE D207 F000 B350 00000 00358 223 MVC 0(8,R15),=CL8' ' 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 8 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 225 *********************************************************************** 226 * * 227 * SET THE OPEN FLAGS FROM THE PASSED TYPE PARM. IF 1 OR 2 WE NEED TO * 228 * CREATE IT. IF 1 IT MUST NOT ALREADY EXIST. * 229 * * 230 * REGISTER USAGE: * 231 * R8 - INIT VALUE 0 - SHOULD EXIST, 1 SHOULD NOT * 232 * EXIST, 2 RECREATE * 233 * R9 -> FILEIOB AREA * 234 * R10 -> PARM LIST FROM CALLER * 235 * R11 - BASE FOR PROGRAM * 236 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 237 * MODIFY * 238 * R13 -> DYNAMIC SAVE AND WORK AREA * 239 * R15 - WORK REGISTER FOR DATA TRANSFER. * 240 * * 241 *********************************************************************** 00000E4 1F00 243 SLR R0,R0 0000E6 5000 9014 00014 244 ST R0,IOBFLAG 0000EA 58F0 A00C 0000C 245 L R15,PLITYPE POINT TO TYPE PARM 0000EE 58F0 F000 00000 246 L R15,0(,R15) GET PATH THE LOCATOR DESCRIPTOR 0000F2 58E0 A008 00008 247 L R14,PLITYPEL POINT TO LENGTH OF TYPE 0000F6 58E0 E000 00000 248 L R14,0(,R14) GET THE LENGTH OF TYPE 0000FA 95E6 F000 00000 249 CLI 0(R15),C'W' IS IT 'W' (WRITE) 0000FE 4770 B11A 00122 250 BNE TRYR 0000102 59E0 B374 0037C 252 C R14,=F'1' WAS THERE A SECOND CHAR? 000106 47D0 B112 0011A 253 BNH JUSTW IF NOT, JUST A 'W' 000010A 954E F001 00001 255 CLI 1(R15),C'+' W+? 00010E 4770 B112 0011A 256 BNE JUSTW IF NOT, FORGET THE SECOND CHAR. 0000112 5800 B378 00380 258 L R0,=A(O_RDWR+O_TRUNC+O_CREAT) 000116 47F0 B16A 00172 259 B DOOPEN 000011A 261 JUSTW DS 0H 00011A 5800 B37C 00384 262 L R0,=A(O_WRONLY+O_TRUNC+O_CREAT) 00011E 47F0 B16A 00172 263 B DOOPEN 0000122 265 TRYR DS 0H 000122 95D9 F000 00000 266 CLI 0(R15),C'R' 000126 4770 B142 0014A 267 BNE TRYA 000012A 59E0 B374 0037C 269 C R14,=F'1' WAS THERE A SECOND CHAR? 00012E 47D0 B13A 00142 270 BNH JUSTR IF NOT, JUST A 'R' 0000132 954E F001 00001 272 CLI 1(R15),C'+' R+? 000136 4770 B13A 00142 273 BNE JUSTR IF NOT, FORGET THE SECOND CHAR. 000013A 5800 B380 00388 275 L R0,=A(O_RDWR) 00013E 47F0 B16A 00172 276 B DOOPEN 0000142 278 JUSTR DS 0H 000142 5800 B384 0038C 279 L R0,=A(O_RDONLY) 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 9 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000146 47F0 B16A 00172 280 B DOOPEN 000014A 282 TRYA DS 0H 00014A 95C1 F000 00000 283 CLI 0(R15),C'A' 00014E 4770 B16A 00172 284 BNE DOOPEN LET OPEN FAIL AND SET ERRNO 0000152 59E0 B374 0037C 286 C R14,=F'1' WAS THERE A SECOND CHAR? 000156 47D0 B162 0016A 287 BNH JUSTA IF NOT, JUST A 'A' 000015A 954E F001 00001 289 CLI 1(R15),C'+' A+? 00015E 4770 B162 0016A 290 BNE JUSTA IF NOT, FORGET THE SECOND CHAR. 0000162 5800 B388 00390 292 L R0,=A(O_RDWR+O_APPEND+O_CREAT) 000166 47F0 B16A 00172 293 B DOOPEN 000016A 295 JUSTA DS 0H 00016A 5800 B38C 00394 296 L R0,=A(O_WRONLY+O_APPEND+O_CREAT) 00016E 47F0 B16A 00172 297 B DOOPEN 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 10 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 300 *********************************************************************** 301 * * 302 * CHECK THE INIT FLAG. IF ZERO, WE NEED TO READ .CONTROL/.CONTROL IF * 303 * 1 OR 2 WE NEED TO CREATE IT. IF 1 IT MUST NOT ALREADY EXIST. * 304 * * 305 * REGISTER USAGE: * 306 * R0 - FLAGS SET UP JUST ABOVE FOR HOW THE FILE SHOULD * 307 * OPEN. * 308 * R9 -> FILEIOB AREA * 309 * R10 -> PARM LIST FROM CALLER * 310 * R11 - BASE FOR PROGRAM * 311 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 312 * MODIFY * 313 * R13 -> DYNAMIC SAVE AND WORK AREA * 314 * R15 - WORK REGISTER FOR DATA TRANSFER. * 315 * * 316 *********************************************************************** 0000172 318 DOOPEN DS 0H 000172 5000 9014 00014 319 ST R0,IOBFLAG SAVE THE FLAGS FOR BPX1OPN 0000176 5820 A000 00000 321 L R2,PLIPATHL POINT TO THE FILE LEN 00017A 5830 A004 00004 322 L R3,PLIPATH POINT TO THE PATH ITSELF 00017E 5830 3000 00000 323 L R3,0(,R3) GET PATH THE LOCATOR DESCRIPTOR 0 325 * TRY TO OPEN THE .CONTROL/.CONTROL FILE FOR INPUT. 326 CALL BPX1OPN,((R2), X (R3), X IOBFLAG, X OPENMODE, X IOBFILE, X ERRNO, X REA),VL,MF=(E,CALLLIST) 000182 0700 328+ CNOP 0,4 01-CALL 000184 47F0 B184 0018C 329+ B *+8 BRANCH AROUND VCON 01-CALL 000188 00000000 330+IHB0006B DC V(BPX1OPN) ENTRY POINT ADDRESS 01-CALL 00018C 4110 D080 00080 335+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000190 18E2 336+ LR 14,(R2) PICK UP PARAMETER 02-IHBOP 000192 18F3 337+ LR 15,(R3) PICK UP PARAMETER 02-IHBOP 000194 4100 9014 00014 338+ LA 0,IOBFLAG PICKUP PARAMETER 02-IHBOP 000198 90E0 1000 00000 339+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00019C 41E0 B34C 00354 340+ LA 14,OPENMODE PICKUP PARAMETER 02-IHBOP 0001A0 41F0 9010 00010 341+ LA 15,IOBFILE PICKUP PARAMETER 02-IHBOP 0001A4 4100 D06C 0006C 342+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 0001A8 90E0 100C 0000C 343+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0001AC 41E0 D070 00070 344+ LA 14,REA PICKUP PARAMETER 02-IHBOP 0001B0 50E0 1018 00018 345+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 0001B4 9680 1018 00018 346+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0001B8 58F0 B180 00188 347+ L 15,IHB0006B LOAD 15 WITH ENTRY ADR 01-CALL 0001BC 05EF 348+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00001BE 58F0 9010 00010 350 L R15,IOBFILE GET THE UNIX FILE DESCRIPTOR 0001C2 12FF 351 LTR R15,R15 IS IT NEGATIVE? 0001C4 47B0 B1E6 001EE 352 BNM OPENED IF SO, SEE IF THIS IS OK OR NOT OK 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 11 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 354 *********************************************************************** 355 * * 356 * THE FILE DID NOT OPEN IN THE MANNER WE EXPECT. FLAG THE ERROR. * 357 * * 358 *********************************************************************** 00001C8 360 OPENERR DS 0H 0001C8 58F0 A018 00018 361 L R15,PLICOMP POINT TO LD 0001CC 58F0 F000 00000 362 L R15,0(,R15) POINT TO MESSAGE 0001D0 D207 F000 B358 00000 00360 363 MVC 0(8,R15),=CL8'BPX1OPN ' 0001D6 58F0 A010 00010 364 L R15,PLIERRNO 0001DA D203 F000 D06C 00000 0006C 365 MVC 0(4,R15),ERRNO SAVE THE ERRNO IN RET PARM 0001E0 58F0 A014 00014 366 L R15,PLIREA 0001E4 D203 F000 D070 00000 00070 367 MVC 0(4,R15),REA 00001EA 47F0 B29E 002A6 369 B FAILURE 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 12 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 371 *********************************************************************** 372 * * 373 * THE FILE OPENED, GET A BUFFER OF THE DEFAULT SIZE TO USE FOR I/O * 374 * * 375 * REGISTER USAGE: * 376 * R9 -> FILEIOB AREA * 377 * R10 -> PARM LIST FROM CALLER * 378 * R11 - BASE FOR PROGRAM * 379 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 380 * MODIFY * 381 * R13 -> DYNAMIC SAVE AND WORK AREA * 382 * R15 - WORK REGISTER FOR DATA TRANSFER. * 383 * * 384 *********************************************************************** 00001EE 386 OPENED DS 0H 387 GETMAIN RU,LV=IOBBUFFL,SP=29 0001EE 0700 389+ CNOP 0,4 01-GETMA 0001F0 47F0 B1F4 001FC 390+ B IHB0012C BRANCH AROUND DATA 01-GETMA 0001F4 00004000 391+IHB0012L DC A(IOBBUFFL) LENGTH 01-GETMA 0001F8 00 392+IHB0012F DC BL1'00000000' Flags. @L7C 01-GETMA 0001F9 00 393+ DC AL1(0) RESERVED 01-GETMA 0001FA 1D 394+ DC AL1(29) SUBPOOL 01-GETMA 0001FB 02 395+ DC BL1'00000010' MODE BYTE @G860P30 01-GETMA 0001FC 396+IHB0012C DS 0H 01-GETMA 0001FC 5800 B1EC 001F4 397+ L 0,IHB0012L LOAD LENGTH 01-GETMA 000200 58F0 B1F0 001F8 398+ L 15,IHB0012F LOAD GETMAIN PARMS 01-GETMA 000204 1B11 399+ SR 1,1 ZERO RESERVED REG 1 01-GETMA 000206 0A78 400+ SVC 120 ISSUE GETMAIN SVC 01-GETMA 0000208 5010 9004 00004 402 ST R1,IOBBASE SAVE THE LOCATION AND 00020C 5800 B390 00398 403 L R0,=A(IOBBUFFL) SIZE OF 000210 5000 9008 00008 404 ST R0,IOBBUFSZ THE BUFFER 000214 5010 9018 00018 405 ST R1,IOBPTR SHOW AT THE START OF THE BUFFER 000218 5000 900C 0000C 406 ST R0,IOBCNT SHOW BUFFER IS HAS ROOM TO WRITE 000021C 5810 B394 0039C 408 L R1,=A(O_WRONLY) GET THE WRITE BIT 000220 5410 9014 00014 409 N R1,IOBFLAG IS THIS SOME FLAVOR OF OUTPUT? 000224 4770 B22A 00232 410 BNZ CHKAPND GO SEE IF WE HAVE TO LSEEK 0000228 1F00 412 SLR R0,R0 SHOW BUFFER IS EMPTY FOR READ 00022A 5000 900C 0000C 413 ST R0,IOBCNT SAVE IN THE IOB 00022E 47F0 B314 0031C 414 B RETURN 0000232 416 CHKAPND DS 0H 000232 5810 B398 003A0 417 L R1,=A(O_APPEND) GET THE APPEND BIT 000236 5410 9014 00014 418 N R1,IOBFLAG IS THIS SOME FLAVOR OF APPEND? 00023A 4780 B314 0031C 419 BZ RETURN IF NOT, WE ARE DONE 0 421 CALL BPX1LSK,(IOBFILE, X DWOFFSET, X =A(SEEK_END), X RETVAL, X ERRNO, X REA),VL,MF=(E,CALLLIST) 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 13 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000023E 0700 423+ CNOP 0,4 01-CALL 000240 47F0 B240 00248 424+ B *+8 BRANCH AROUND VCON 01-CALL 000244 00000000 425+IHB0014B DC V(BPX1LSK) ENTRY POINT ADDRESS 01-CALL 000248 4110 D080 00080 430+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00024C 41E0 9010 00010 431+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 000250 41F0 D078 00078 432+ LA 15,DWOFFSET PICKUP PARAMETER 02-IHBOP 000254 4100 B39C 003A4 433+ LA 0,=A(SEEK_END) PICKUP PARAMETER 02-IHBOP 000258 90E0 1000 00000 434+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00025C 41E0 D068 00068 435+ LA 14,RETVAL PICKUP PARAMETER 02-IHBOP 000260 41F0 D06C 0006C 436+ LA 15,ERRNO PICKUP PARAMETER 02-IHBOP 000264 4100 D070 00070 437+ LA 0,REA PICKUP PARAMETER 02-IHBOP 000268 90E0 100C 0000C 438+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 00026C 9680 1014 00014 439+ OI 20(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000270 58F0 B23C 00244 440+ L 15,IHB0014B LOAD 15 WITH ENTRY ADR 01-CALL 000274 05EF 441+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000276 58F0 D068 00068 443 L R15,RETVAL GET THE UNIX RC 00027A 12FF 444 LTR R15,R15 DID IT WORK (RC=0) 00027C 4780 B314 0031C 445 BZ RETURN IT WORKED, WE ARE DONE 0000280 58F0 A018 00018 447 L R15,PLICOMP POINT TO COMPONENT 000284 58F0 F000 00000 448 L R15,0(,R15) GET PATH LOCATOR DESCRIPTOR 000288 D207 F000 B360 00000 00368 449 MVC 0(8,R15),=CL8'BPX1LSK ' 00028E 58F0 A010 00010 450 L R15,PLIERRNO 000292 D203 F000 D06C 00000 0006C 451 MVC 0(4,R15),ERRNO SAVE THE ERRNO IN RET PARM 000298 58F0 A014 00014 452 L R15,PLIREA 00029C D203 F000 D070 00000 00070 453 MVC 0(4,R15),REA 0002A2 47F0 B29E 002A6 454 B FAILURE 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 14 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00002A6 456 FAILURE DS 0H 0002A6 58F0 9010 00010 457 L R15,IOBFILE GET THE UNIX FILE DESCRIPTOR 0002AA 12FF 458 LTR R15,R15 IS THE FILE OPEN? 0002AC 4740 B2D6 002DE 459 BM FAIL1 IF NOT, DON'T CLOSE IT 0 461 CALL BPX1CLO,(IOBFILE, X RETVAL, X ERRNO, X REA),VL,MF=(E,CALLLIST) 0002B0 463+ CNOP 0,4 01-CALL 0002B0 47F0 B2B0 002B8 464+ B *+8 BRANCH AROUND VCON 01-CALL 0002B4 00000000 465+IHB0020B DC V(BPX1CLO) ENTRY POINT ADDRESS 01-CALL 0002B8 4110 D080 00080 470+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0002BC 41E0 9010 00010 471+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 0002C0 41F0 D068 00068 472+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 0002C4 4100 D06C 0006C 473+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 0002C8 90E0 1000 00000 474+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0002CC 41E0 D070 00070 475+ LA 14,REA PICKUP PARAMETER 02-IHBOP 0002D0 50E0 100C 0000C 476+ ST 14,12(0,1) STORE INTO PARAM. LIST 02-IHBOP 0002D4 9680 100C 0000C 477+ OI 12(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0002D8 58F0 B2AC 002B4 478+ L 15,IHB0020B LOAD 15 WITH ENTRY ADR 01-CALL 0002DC 05EF 479+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00002DE 481 FAIL1 DS 0H 0002DE 5820 9004 00004 482 L R2,IOBBASE POINT TO THE BUFFER 0002E2 1222 483 LTR R2,R2 IS IT ZERO. 0002E4 4780 B2F8 00300 484 BZ FAIL2 IF SO, IT WAS NOT ALLOCATED. 0 486 FREEMAIN RU,LV=IOBBUFFL,A=(R2),SP=29 0002E8 488+ CNOP 0,4 01-FREEM 0002E8 47F0 B2EC 002F4 489+ B *+12-4*0-2*0 BRANCH AROUND DATA @O2C 01-FREEM 0002EC 00004000 490+ DC A(IOBBUFFL) LENGTH 01-FREEM 0002F0 00 491+IHB0026F DC BL1'00000000' Flags @O2A 01-FREEM 0002F1 00 492+ DC AL1(0) RESERVED 01-FREEM 0002F2 1D 493+ DC AL1(29) SUBPOOL NUMBER 01-FREEM 0002F3 03 494+ DC BL1'00000011' MODE BYTE 01-FREEM 0002F4 5800 B2E4 002EC 495+ L 0,*-8+2*0 LOAD LENGTH 01-FREEM 0002F8 1812 496+ LR 1,R2 LOAD AREA ADDRESS 01-FREEM 0002FA 58F0 B2E8 002F0 497+ L 15,IHB0026F LOAD PARAMETERS 01-FREEM 0002FE 0A78 498+ SVC 120 ISSUE FREEMAIN SVC 01-FREEM 0000300 500 FAIL2 DS 0H 501 FREEMAIN RU,LV=FILEIOBL,A=(R9),SP=29 000300 503+ CNOP 0,4 01-FREEM 000300 47F0 B304 0030C 504+ B *+12-4*0-2*0 BRANCH AROUND DATA @O2C 01-FREEM 000304 00000020 505+ DC A(FILEIOBL) LENGTH 01-FREEM 000308 00 506+IHB0028F DC BL1'00000000' Flags @O2A 01-FREEM 000309 00 507+ DC AL1(0) RESERVED 01-FREEM 00030A 1D 508+ DC AL1(29) SUBPOOL NUMBER 01-FREEM 00030B 03 509+ DC BL1'00000011' MODE BYTE 01-FREEM 00030C 5800 B2FC 00304 510+ L 0,*-8+2*0 LOAD LENGTH 01-FREEM 000310 1819 511+ LR 1,R9 LOAD AREA ADDRESS 01-FREEM 000312 58F0 B300 00308 512+ L 15,IHB0028F LOAD PARAMETERS 01-FREEM 000316 0A78 513+ SVC 120 ISSUE FREEMAIN SVC 01-FREEM 000318 5890 B370 00378 514 L R9,=A(PLINULL) 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 15 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000031C 516 RETURN DS 0H 00031C 58E0 A01C 0001C 517 L R14,PLIFILE POINT TO LIB DEF POINTER 000320 5090 E000 00000 518 ST R9,0(,R14) SAVE IN TARGET PARM 0 520 REXIT ENV=BOTH 000324 4110 D000 00000 521+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 000328 58D0 D004 00004 522+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 00032C 58E0 D010 00010 523+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000330 580E 000C 0000C 524+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000334 525+ CNOP 0,4 01-REXIT 000334 47F0 B334 0033C 526+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 000338 00000000 527+ DC V(PLISTART) 01-REXIT 00033C 58F0 B330 00338 528+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 000340 12FF 529+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 000342 4770 B344 0034C 530+ BNZ PL10030 01-REXIT 000346 4110 1000 00000 533+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 00034A 0A0A 534+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 00034C 535+PL10030 DS 0H 01-REXIT 00034C 98EC D00C 0000C 536+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000350 1FFF 537+ SLR 15,15 ZERO RETURN CODE 01-REXIT 000352 07FE 538+ BR 14 RETURN 01-REXIT 539 DROP R9,R10,R11,R13 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 16 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 000354 000001FF 542 OPENMODE DC XL4'1FF' MODE 777 0000358 544 LTORG 000358 4040404040404040 545 =CL8' ' 000360 C2D7E7F1D6D7D540 546 =CL8'BPX1OPN ' 000368 C2D7E7F1D3E2D240 547 =CL8'BPX1LSK ' 000370 BEADBEEF 548 =A(IOBMAGIC) 000374 FFFFFFFF 549 =F'-1' 000378 FF000000 550 =A(PLINULL) 00037C 00000001 551 =F'1' 000380 00000093 552 =A(O_RDWR+O_TRUNC+O_CREAT) 000384 00000091 553 =A(O_WRONLY+O_TRUNC+O_CREAT) 000388 00000003 554 =A(O_RDWR) 00038C 00000002 555 =A(O_RDONLY) 000390 0000008B 556 =A(O_RDWR+O_APPEND+O_CREAT) 000394 00000089 557 =A(O_WRONLY+O_APPEND+O_CREAT) 000398 00004000 558 =A(IOBBUFFL) 00039C 00000001 559 =A(O_WRONLY) 0003A0 00000008 560 =A(O_APPEND) 0003A4 00000002 561 =A(SEEK_END) 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 17 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00100 563 WORKAREA DSECT 000000 564 DS 26F 000068 565 RETVAL DS F 00006C 566 ERRNO DS F 000070 567 REA DS F 000078 568 DWOFFSET DS D 000080 569 CALLLIST DS 16D 00100 570 WORKLEN EQU *-WORKAREA 0 572 * 573 * OPTIONS ASSEMBLER 574 * 000000 00000 00020 575 PARMS DSECT 000000 576 PLIPATHL DS A FIXED BINARY(31) LEN OF PLIPATH 000004 577 PLIPATH DS A PATH TO OPEN CHAR(*) 000008 578 PLITYPEL DS A FIXED BINARY(31) LEN OF PLITYPE 00000C 579 PLITYPE DS A OPEN OPTIONS 000010 580 PLIERRNO DS A ERRNO VALUE 000014 581 PLIREA DS A REASON CODE 000018 582 PLICOMP DS A CHAR 8, GETS THE FAILING BPX1 COMPONENT 00001C 583 PLIFILE DS A RETURNED POINTER TO FILE 0 000000 585 PLINULL EQU X'FF000000' 0 587 FILEIOB 0000000 00000 00020 589+FILEIOB DSECT 01-FILEI 000000 590+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 591+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 592+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 593+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 594+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 595+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 596+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 597+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 598+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 600+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 601+IOBBUFFL EQU 16384 01-FILEI - 604 BPXYOPNF 605+** BPXYOPNF: File status flags 606+** Used By: FCT OPN 000000 00000 00004 607+O_FLAGS DSECT , 01-BPXYO 000000 608+O_FLAGS1 DS B Open flags - byte 1 01-BPXYO 00080 609+OPNFHIGH EQU X'80' DO NOT USE THIS BIT! 01-BPXYO 610+* O_FLAGS must never be < 0 0000001 612+O_FLAGS2 DS B Open flags - byte 2 01-BPXYO 00080 613+OPNFEXEC EQU X'80' Execute access requested - 01-BPXYO 614+* authorization required for use 0000002 616+O_FLAGS3 DS B Open flags - byte 3 01-BPXYO 00008 617+O_NOLARGEFILE EQU X'08' Large Files not allowed @D5A 01-BPXYO 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 18 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 00004 618+O_LARGEFILE EQU X'04' Ignored @D5A 01-BPXYO 00002 619+O_ASYNCSIG EQU X'02' An asynchronous signal may occur @D4A 01-BPXYO 00001 620+O_SYNC EQU X'01' Force synchronous updates @D3A 01-BPXYO 0000003 622+O_FLAGS4 DS B Open flags - byte 4 01-BPXYO 000C0 623+O_CREXCL EQU X'C0' Create file only if non-existent 01-BPXYO 00080 624+O_CREAT EQU X'80' Create file 01-BPXYO 00040 625+O_EXCL EQU X'40' Exclusive flag 01-BPXYO 00020 626+O_NOCTTY EQU X'20' Not a controlling terminal 01-BPXYO 00010 627+O_TRUNC EQU X'10' Truncate flag 01-BPXYO 00008 628+O_APPEND EQU X'08' Set offset to EOF on write 01-BPXYO 00004 629+O_NONBLOCK EQU X'04' Don't block this file 01-BPXYO 00004 630+FNDELAY EQU X'04' Don't block this file @D2A 01-BPXYO 00003 631+O_RDWR EQU X'03' Open for Read and Write 01-BPXYO 00002 632+O_RDONLY EQU X'02' Open for Read Only 01-BPXYO 00001 633+O_WRONLY EQU X'01' Open for Write Only 01-BPXYO 00003 634+O_ACCMODE EQU X'03' Mask for file access modes 01-BPXYO 0000F 635+O_GETFL EQU X'0F' Mask for file access modes and 01-BPXYO 636+* file status flags together @P4A 0 00004 638+OPNF#LENGTH EQU *-O_FLAGS Length of this structure 01-BPXYO 639+** BPXYOPNF End - 641 BPXYMODE 642+** BPXYMODE: Mode constants specified on system calls 643+** Used By: CHM FCM MKD MKN OPN UMK 000000 00000 00004 644+S_MODE DSECT , 01-BPXYM 000000 645+ DS 0F 01-BPXYM 646+* 000000 647+S_TYPE DS B File types, mapped by BPXYFTYP 01-BPXYM 648+* Flag bytes 000001 649+S_MODE3B DS 0XL3 All flag bytes @P6A 01-BPXYM 000001 650+S_RES01 DS 0BL.8 Reserved @D4C 01-BPXYM 000001 651+S_MODE1 DS B Flag byte 1 - reserved 01-BPXYM 652+* 000002 653+S_RES02 DS 0BL.4 Reserved @D4C 01-BPXYM 000002 654+S_MODE2 DS B Flag byte 2 01-BPXYM 655+* Set ID flags 00008 656+S_ISUID EQU X'08' Set user ID on execution 01-BPXYM 00004 657+S_ISGID EQU X'04' Set group ID on execution 01-BPXYM 00002 658+S_ISVTX EQU X'02' Sticky Bit: For executables, look 01-BPXYM 659+* first in normal MVS search order 660+* For directories, deletion rstd 661+* to owner or superuser. 662+* Owner flags 00001 663+S_IRWXU1 EQU X'01' All permissions for user - part I 01-BPXYM 00001 664+S_IRUSR EQU X'01' Read permission 01-BPXYM 665+* 000003 666+S_MODE3 DS B Flag byte 3 01-BPXYM 667+* Owner flags - continued 000C0 668+S_IRWXU2 EQU X'C0' All permissions for user - Part II 01-BPXYM 00080 669+S_IWUSR EQU X'80' Write permission 01-BPXYM 00040 670+S_IXUSR EQU X'40' Search (if a directory) or 01-BPXYM 1FOPEN FOPEN USING HFS ASSEMBER CALLABLE SERVICES Page 19 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 671+* execute (otherwise) permission 672+* Group flags 00038 673+S_IRWXG EQU X'38' All permissions for group 01-BPXYM 00020 674+S_IRGRP EQU X'20' Read permission 01-BPXYM 00010 675+S_IWGRP EQU X'10' Write permission 01-BPXYM 00008 676+S_IXGRP EQU X'08' Search (if a directory) or 01-BPXYM 677+* execute (otherwise) permission 678+* Other flags 00007 679+S_IRWXO EQU X'07' All permissions for other 01-BPXYM 00004 680+S_IROTH EQU X'04' Read permission 01-BPXYM 00002 681+S_IWOTH EQU X'02' Write permission 01-BPXYM 00001 682+S_IXOTH EQU X'01' Search (if a directory) or 01-BPXYM 683+* execute (otherwise) permission 00004 684+S_MODE#LENGTH EQU *-S_MODE Length this structure 01-BPXYM 685+** BPXYMODE End - 687 PRINT NOGEN 688 BPXYSEEK 0 697 SYMBAR MODE=DEC 714 END 1FOPEN Relocation Dictionary Page 20 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 00000338 00000001 00000003 1C 00000188 00000001 00000004 1C 00000244 00000001 00000005 1C 000002B4 1FOPEN Ordinary Symbol and Literal Cross Reference Page 21 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0BPX1CLO 1 00000000 00000005 T 465 465 BPX1LSK 1 00000000 00000004 T 425 425 BPX1OPN 1 00000000 00000003 T 330 330 CALLLIST 8 00000080 FFFFFFFF D 569 335 430 470 CHKAPND 2 00000232 00000001 H 416 410B COM0001 2 00000086 00000001 H 168 145B DOOPEN 2 00000172 00000001 H 318 259B 263B 276B 280B 284B 293B 297B DWOFFSET 8 00000078 FFFFFFFF D 568 432 ERRNO 4 0000006C FFFFFFFF F 566 342 365 436 451 473 FAILURE 2 000002A6 00000001 H 456 369B 454B FAIL1 2 000002DE 00000001 H 481 459B FAIL2 2 00000300 00000001 H 500 484B FILEIOB 1 00000000 FFFFFFFD J 589 205U 598 FILEIOBL 1 00000020 FFFFFFFD A U 598 193 204 505 FOPEN 2 00000008 00000001 H 119 115 126U FOPEN1 1 00000000 00000001 J 114 171 172 IHB0004C 2 00000094 00000001 H 198 192B IHB0004F 1 00000090 00000001 B 194 200 IHB0004L 4 0000008C 00000001 A 193 199 IHB0006B 4 00000188 00000001 V 330 347 IHB0012C 2 000001FC 00000001 H 396 390B IHB0012F 1 000001F8 00000001 B 392 398 IHB0012L 4 000001F4 00000001 A 391 397 IHB0014B 4 00000244 00000001 V 425 440 IHB0020B 4 000002B4 00000001 V 465 478 IHB0026F 1 000002F0 00000001 B 491 497 IHB0028F 1 00000308 00000001 B 506 512 IOBBASE 4 00000004 FFFFFFFD A 591 402M 482 IOBBUFFL 1 00004000 FFFFFFFD A U 601 391 490 558 IOBBUFSZ 4 00000008 FFFFFFFD F 592 404M IOBCNT 4 0000000C FFFFFFFD F 593 406M 413M IOBFILE 4 00000010 FFFFFFFD F 594 210M 341 350 431 457 471 IOBFLAG 4 00000014 FFFFFFFD F 595 244M 319M 338 409 418 IOBMAGIC 1 BEADBEEF FFFFFFFD A U 600 548 IOBMARK 4 00000000 FFFFFFFD F 590 208M IOBPTR 4 00000018 FFFFFFFD A 596 405M JUSTA 2 0000016A 00000001 H 295 287B 290B JUSTR 2 00000142 00000001 H 278 270B 273B JUSTW 2 0000011A 00000001 H 261 253B 256B O_APPEND 1 00000008 FFFFFFFC A U 628 556 557 560 O_CREAT 1 00000080 FFFFFFFC A U 624 552 553 556 557 O_FLAGS 1 00000000 FFFFFFFC J 607 638 O_RDONLY 1 00000002 FFFFFFFC A U 632 555 O_RDWR 1 00000003 FFFFFFFC A U 631 552 554 556 O_TRUNC 1 00000010 FFFFFFFC A U 627 552 553 O_WRONLY 1 00000001 FFFFFFFC A U 633 553 557 559 OPENED 2 000001EE 00000001 H 386 352B OPENMODE 4 00000354 00000001 X 542 340 PARMS 1 00000000 FFFFFFFE J 575 128U PLICOMP 4 00000018 FFFFFFFE A 582 221 361 447 PLIERRNO 4 00000010 FFFFFFFE A 580 217 364 450 PLIFILE 4 0000001C FFFFFFFE A 583 212 517 PLINULL 1 FF000000 FFFFFFFE A U 585 550 PLIPATH 4 00000004 FFFFFFFE A 577 322 PLIPATHL 4 00000000 FFFFFFFE A 576 321 1FOPEN Ordinary Symbol and Literal Cross Reference Page 22 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0PLIREA 4 00000014 FFFFFFFE A 581 219 366 452 PLISTART 1 00000000 00000002 $ 129 132 527 PLITYPE 4 0000000C FFFFFFFE A 579 245 PLITYPEL 4 00000008 FFFFFFFE A 578 247 PL10001 2 0000004A 00000001 H 146 135B PL10030 2 0000034C 00000001 H 535 530B REA 4 00000070 FFFFFFFF F 567 344 367 437 453 475 RETURN 2 0000031C 00000001 H 516 414B 419B 445B RETVAL 4 00000068 FFFFFFFF F 565 435 443 472 R0 1 00000000 FFFFFFFB A U 698 213M 214 216M 216 218 220 243M 243 244 258M 262M 275M 279M 292M 296M 319 403M 404 406 412M 412 413 R1 1 00000001 FFFFFFFB A U 699 203 402 405 408M 409M 417M 418M R10 1 0000000A FFFFFFFB A U 708 539D R11 1 0000000B FFFFFFFB A U 709 539D R13 1 0000000D FFFFFFFB A U 711 539D R14 1 0000000E FFFFFFFB A U 712 247M 248M 248 252 269 286 517M 518 R15 1 0000000F FFFFFFFB A U 713 207M 208 209M 210 212M 214 217M 218 219M 220 221M 222M 222 223 245M 246M 246 249 255 266 272 283 289 350M 351M 351 361M 362M 362 363 364M 365 366M 367 443M 444M 444 447M 448M 448 449 450M 451 452M 453 457M 458M 458 R2 1 00000002 FFFFFFFB A U 700 321M 336 482M 483M 483 496 R3 1 00000003 FFFFFFFB A U 701 322M 323M 323 337 R9 1 00000009 FFFFFFFB A U 707 203M 204 204 205U 511 514M 518 539D S_MODE 1 00000000 FFFFFFFB J 644 684 SEEK_END 1 00000002 FFFFFFFB A U 693 561 TRYA 2 0000014A 00000001 H 282 267B TRYR 2 00000122 00000001 H 265 250B WORKAREA 1 00000000 FFFFFFFF J 563 170U 570 WORKLEN 1 00000100 FFFFFFFF A U 570 123 =A(IOBBUFFL) 4 00000398 00000001 A 558 403 =A(IOBMAGIC) 4 00000370 00000001 A 548 207 =A(O_APPEND) 4 000003A0 00000001 A 560 417 =A(O_RDONLY) 4 0000038C 00000001 A 555 279 =A(O_RDWR+O_APPEND+O_CREAT) 4 00000390 00000001 A 556 292 =A(O_RDWR+O_TRUNC+O_CREAT) 4 00000380 00000001 A 552 258 =A(O_RDWR) 4 00000388 00000001 A 554 275 =A(O_WRONLY+O_APPEND+O_CREAT) 4 00000394 00000001 A 557 296 =A(O_WRONLY+O_TRUNC+O_CREAT) 4 00000384 00000001 A 553 262 =A(O_WRONLY) 4 0000039C 00000001 A 559 408 =A(PLINULL) 4 00000378 00000001 A 550 213 514 =A(SEEK_END) 4 000003A4 00000001 A 561 433 =CL8' ' 8 00000358 00000001 C 545 223 1FOPEN Ordinary Symbol and Literal Cross Reference Page 23 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0=CL8'BPX1LSK ' 8 00000368 00000001 C 547 449 =CL8'BPX1OPN ' 8 00000360 00000001 C 546 363 =F'-1' 4 00000374 00000001 F 549 209 =F'1' 4 0000037C 00000001 F 551 252 269 286 1FOPEN Macro and Copy Code Source Summary Page 24 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYMODE BPXYOPNF BPXYSEEK CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FOPEN Dsect Cross Reference Page 25 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 589 O_FLAGS 00000004 FFFFFFFC 607 PARMS 00000020 FFFFFFFE 575 S_MODE 00000004 FFFFFFFB 644 WORKAREA 00000100 FFFFFFFF 563 1FOPEN Using Map Page 26 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 126 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 39C 530 FOPEN,11 128 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 01C 517 PARMS,10 170 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 080 475 WORKAREA,13 205 000000A8 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 018 482 FILEIOB,R9 539 00000354 00000001 DROP 9 R9 539 00000354 00000001 DROP 10 R10 539 00000354 00000001 DROP 11 R11 539 00000354 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 27 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 120 137M 147M 149M 150 156 199M 213M 214 216M 216 218 220 243M 243 244 258M 262M 275M 279M 292M 296M 319 338M 339 342M 343 397M 403M 404 406 412M 412 413 433M 434 437M 438 473M 474 495M 510M 524M 536M 1(1) 120 127 140M 142 143 144 148M 149 156 158 159 160 161 201M 201 203 335M 339 343 345 346 399M 399 402 405 408M 409M 417M 418M 430M 434 438 439 470M 474 476 477 496M 511M 521M 533M 533 536M 2(2) 120 321M 336 482M 483M 483 496 536M 3(3) 120 322M 323M 323 337 536M 4(4) 120 536M 5(5) 120 536M 6(6) 120 536M 7(7) 120 536M 8(8) 120 536M 9(9) 120 203M 204 204 205U 511 514M 518 536M 539D 10(A) 120 127M 128U 536M 539D 11(B) 120 125M 126U 137 147 536M 539D 12(C) 120 150 153 536M 13(D) 120 142 143 144M 148 158 159 160 161M 162 163 164 165 170U 521 522M 522 523 536 539D 14(E) 120 154M 247M 248M 248 252 269 286 336M 339 340M 343 344M 345 348M 431M 434 435M 438 441M 471M 474 475M 476 479M 517M 518 523M 524N 536M 538B 15(F) 120 121 125 133M 134M 134 153M 154B 200M 207M 208 209M 210 212M 214 217M 218 219M 220 221M 222M 222 223 245M 246M 246 249 255 266 272 283 289 337M 339 341M 343 347M 348B 350M 351M 351 361M 362M 362 363 364M 365 366M 367 398M 432M 434 436M 438 440M 441B 443M 444M 444 447M 448M 448 449 450M 451 452M 453 457M 458M 458 472M 474 478M 479B 497M 512M 528M 529M 529 536M 537M 537 1FOPEN Diagnostic Cross Reference and Assembler Summary Page 28 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 581K would be required for this to be an In-Storage Assembly 408 Primary Input Records Read 6425 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 923 Primary Print Records Written 0 Work File Writes 43 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.18 Stop Time: 12.09.19 Processor Time: 00.00.01.0560 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FCLOSE External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FCLOSE1 SD 00000001 00000000 0000022C 06 FCLOSE LD 00000008 00000001 PLISTART WX 00000002 FFLUSH ER 00000003 BPX1CLO ER 00000004 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FCLOSE -- FCLOSE A FILE OPENED BY FOPEN * 7 * * 8 * THIS MODULE CLOSES A FILE OPENED WITH FOPEN. * 9 * * 10 * INPUTS (*TO FUNCTIONS): * 11 * * 12 * FILE -- POINTER (*1,2,3,4) * 13 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 14 * RETURNED VALUE FROM FOPEN. * 15 * * 16 * FUNCTIONS: * 17 * * 18 * 1. VALIDATE THE POINTER TO FILE * 19 * * 20 * 2. FLUSH ANYTHING LEFT IN THE BUFFERS (FFLUSH). * 21 * * 22 * 3. CLOSE THE FILE DESCRIPTOR FOR THE FILE (BPX1CLO). * 23 * * 24 * 4. FREE STORAGE ASSOCIATED WITH THE FILE DESCRIPTOR. * 25 * * 26 * OUTPUTS (*FROM FUNCTIONS): * 27 * * 28 * ERRNO -- FULLWORD INTEGER (*1,2,3,4) * 29 * THIS CONTAINS THE ERRNO FROM THE FAILING CALL. IT IS ZERO ON * 30 * SUCCESS. STRERROR CAN BE USED TO GET A MESSAGE * 31 * * 32 * REA -- FULLWORD INTEGER (*1,2,3,4) * 33 * THIS CONTAINS THE REASON CODE (ALSO CALLED ERRNO JR.) FROM * 34 * THE FAILING UNIX SYSTEM SERVICES CALL. * 35 * * 36 * COMPNT -- CHAR 8 (*1,2,3,4) * 37 * THIS POINTS TO A PL/I STYLE CHAR(8) PARAMETER. ON FAILURE * 38 * THE NAME OF THE FAILING CALL IS PLACED HERE * 39 * * 40 * FILE -- POINTER (*4) * 41 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 42 * RETURNED VALUE FROM FOPEN. * 43 * * 44 * NOTES: * 45 * * 46 * 1. SAMPLE DECLARE AND CALL: * 47 * * 48 * DECLARE FCLOSE ENTRY(POINTER, * 49 * FIXED BINARY(31), * 50 * FIXED BINARY(31), * 51 * CHAR(8)) * 52 * RETURNS(FIXED BINARY(31)); * 53 * DECLARE FILEP POINTER INIT(NULL()); * 54 * DECLARE ERRNO FIXED BINARY(31); * 55 * DECLARE REASON FIXED BINARY(31); * 56 * DECLARE COMPNT CHAR(8); * 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 * DECLARE RC FIXED BINARY(31); * 58 * * 59 * RC = FCLOSE(FILEP, ERRNO, REASON, COMPNT); * 60 * * 61 *********************************************************************** 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 63 FCLOSE RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 0022C 64+FCLOSE1 CSECT , 01-RENTR 65+ ENTRY FCLOSE INDICATE ENTRY POINT 01-RENTR 000000 66+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 40 67+ DC CL1' ' PADDING TO 8 BYTES 01-RENTR 000001 C6C3D3D6E2C506 68+ DC C'FCLOSE',AL1(6) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 69+FCLOSE DS 0H 01-RENTR 000008 90EC D00C 0000C 70+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 71+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 72+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 000000F8 73+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 74+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 75+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 76+ USING FCLOSE,11 01-RENTR 00001E 18A1 77+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 78+ USING PARMS,10 01-RENTR 79+ WXTRN PLISTART 01-RENTR 000020 80+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 81+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 82+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 83+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 84+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 85+ BNZ PL10001 01-RENTR 86+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 87+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 90+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 91+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 92+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 93+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 94+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 95+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 96+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 97+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 98+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 99+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 100+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 101+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 103+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 104+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 106+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 107+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 108+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 109+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 110+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 111+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 112+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 113+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 114+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 115+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 117+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 118+COM0001 DS 0H 01-RENTR 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 6 Active Usings: PARMS(X'1000'),R10 FCLOSE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 120+ USING WORKAREA,13 01-RENTR 121 FCLOSE1 AMODE 31 122 FCLOSE1 RMODE ANY 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 7 Active Usings: PARMS(X'1000'),R10 FCLOSE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 124 *********************************************************************** 125 * * 126 * FLUSH IN CASE SOMETHING IS IN THE BUFFER * 127 * * 128 * REGISTER USAGE: * 129 * R9 -> FILEIOB AREA * 130 * R10 -> PARM LIST FROM CALLER * 131 * R11 - BASE FOR PROGRAM * 132 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 133 * MODIFY * 134 * R13 -> DYNAMIC SAVE AND WORK AREA * 135 * R15 - WORK REGISTER FOR DATA TRANSFER. * 136 * * 137 *********************************************************************** 0000086 5890 A000 00000 139 L R9,PLIFILE POINT TO FILE IOB 00008A 5890 9000 00000 140 L R9,0(,R9) LOAD THE IOB ADDR R:9 00000 141 USING FILEIOB,R9 000008E 1F00 143 SLR R0,R0 GET A ZERO 000090 58F0 A004 00004 144 L R15,PLIERRNO 000094 5000 F000 00000 145 ST R0,0(,R15) 000098 58F0 A008 00008 146 L R15,PLIREA 00009C 5000 F000 00000 147 ST R0,0(,R15) 0000A0 58F0 A010 00010 148 L R15,PLIRC 0000A4 5000 F000 00000 149 ST R0,0(,R15) 0000A8 58F0 A00C 0000C 150 L R15,PLICOMP POINT TO COMPONENT NAME PARM 0000AC 58F0 F000 00000 151 L R15,0(,R15) GET PAST LOCATOR DESCRIPTOR 0000B0 D207 F000 B200 00000 00208 152 MVC 0(8,R15),=CL8' ' 00000B6 5990 B218 00220 154 C R9,=A(PLINULL) IS THIS FILE ALREADY CLOSED? 0000BA 4780 B1CA 001D2 155 BE RETURN IF SO, NOTHING TO DO 00000BE 58F0 B21C 00224 157 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000C2 59F0 9000 00000 158 C R15,IOBMARK IS THIS A VALID IOB? 0000C6 4780 B104 0010C 159 BE IOBOK IF SO, KEEP GOING 00000CA 58F0 A000 00000 161 L R15,PLIFILE POINT TO THE RETURNED POINTER 0000CE 5800 B218 00220 162 L R0,=A(PLINULL) GET THE PL/I NULL VALUE 0000D2 5000 F000 00000 163 ST R0,0(,R15) START WITH FAILURE. 00000D6 4100 0071 00071 165 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000DA 58F0 A004 00004 166 L R15,PLIERRNO 0000DE 5000 F000 00000 167 ST R0,0(,R15) 0000E2 58F0 A008 00008 168 L R15,PLIREA 0000E6 4100 00A9 000A9 169 LA R0,JRINVALIDPARMS INVALID PARMS TO CLOSE 0000EA 5000 F000 00000 170 ST R0,0(,R15) 0000EE 58F0 A00C 0000C 171 L R15,PLICOMP POINT TO COMPONENT NAME PARM 0000F2 58F0 F000 00000 172 L R15,0(,R15) GET PAST LOCATOR DESCRIPTOR 0000F6 D207 F000 B208 00000 00210 173 MVC 0(8,R15),=CL8'FCLOSE ' 00000FC 58F0 A010 00010 175 L R15,PLIRC 000100 5800 B220 00228 176 L R0,=F'-1' 000104 5000 F000 00000 177 ST R0,0(,R15) SHOW -1 RC 000108 47F0 B1CA 001D2 178 B RETURN 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 8 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FCLOSE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 180 *********************************************************************** 181 * * 182 * SET THE OPEN FLAGS FROM THE PASSED TYPE PARM. IF 1 OR 2 WE NEED TO * 183 * CREATE IT. IF 1 IT MUST NOT ALREADY EXIST. * 184 * * 185 * REGISTER USAGE: * 186 * R8 - INIT VALUE 0 - SHOULD EXIST, 1 SHOULD NOT * 187 * EXIST, 2 RECREATE * 188 * R9 -> FILEIOB AREA * 189 * R10 -> PARM LIST FROM CALLER * 190 * R11 - BASE FOR PROGRAM * 191 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 192 * MODIFY * 193 * R13 -> DYNAMIC SAVE AND WORK AREA * 194 * R15 - WORK REGISTER FOR DATA TRANSFER. * 195 * * 196 *********************************************************************** 000010C 198 IOBOK DS 0H 00010C 5820 A004 00004 199 L R2,PLIERRNO POINT TO ERRNO PARM 000110 5830 A008 00008 200 L R3,PLIREA POINT TO REASON PARM 000114 5840 A00C 0000C 201 L R4,PLICOMP POINT TO COMPONENT L/D 000118 5850 A010 00010 202 L R5,PLIRC POINT TO RETURN CODE 00011C 5090 D074 00074 203 ST R9,FILEP SAVE IOB AS A PARM 204 CALL FFLUSH,(FILEP, X (R2), X (R3), X (R4), X (R5)),VL,MF=(E,CALLLIST) 000120 206+ CNOP 0,4 01-CALL 000120 47F0 B120 00128 207+ B *+8 BRANCH AROUND VCON 01-CALL 000124 00000000 208+IHB0004B DC V(FFLUSH) ENTRY POINT ADDRESS 01-CALL 000128 4110 D078 00078 213+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00012C 41E0 D074 00074 214+ LA 14,FILEP PICKUP PARAMETER 02-IHBOP 000130 18F2 215+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 000132 1803 216+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 000134 90E0 1000 00000 217+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000138 18E4 218+ LR 14,(R4) PICK UP PARAMETER 02-IHBOP 00013A 18F5 219+ LR 15,(R5) PICK UP PARAMETER 02-IHBOP 00013C 90EF 100C 0000C 220+ STM 14,15,12(1) STORE INTO PARAM. LIST 02-IHBOP 000140 9680 1010 00010 221+ OI 16(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000144 58F0 B11C 00124 222+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 000148 05EF 223+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 000014A 58F0 9010 00010 225 L R15,IOBFILE GET THE UNIX FILE DESCRIPTOR 00014E 12FF 226 LTR R15,R15 IS THE FILE OPEN? 000150 4740 B182 0018A 227 BM FREE1 IF NOT, DON'T CLOSE IT 0 229 CALL BPX1CLO,(IOBFILE, X (R5), X (R2), X (R3)),VL,MF=(E,CALLLIST) 000154 231+ CNOP 0,4 01-CALL 000154 47F0 B154 0015C 232+ B *+8 BRANCH AROUND VCON 01-CALL 000158 00000000 233+IHB0010B DC V(BPX1CLO) ENTRY POINT ADDRESS 01-CALL 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 9 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FCLOSE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000015C 4110 D078 00078 238+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000160 41E0 9010 00010 239+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 000164 18F5 240+ LR 15,(R5) PICK UP PARAMETER 02-IHBOP 000166 1802 241+ LR 0,(R2) PICK UP PARAMETER 02-IHBOP 000168 90E0 1000 00000 242+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00016C 5030 100C 0000C 243+ ST (R3),12(0,1) STORE INTO PARAM. LIST 02-IHBOP 000170 9680 100C 0000C 244+ OI 12(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000174 58F0 B150 00158 245+ L 15,IHB0010B LOAD 15 WITH ENTRY ADR 01-CALL 000178 05EF 246+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 000017A 58F0 5000 00000 248 L R15,0(,R5) GET THE CLOSE RETURN CODE 00017E 12FF 249 LTR R15,R15 DID CLOSE WORK? 000180 4780 B182 0018A 250 BZ FREE1 0000184 D207 4000 B210 00000 00218 252 MVC 0(8,R4),=CL8'BPX1CLO ' SHOW CLOSE FAILED 000018A 254 FREE1 DS 0H 00018A 5820 9004 00004 255 L R2,IOBBASE POINT TO THE BUFFER 00018E 1222 256 LTR R2,R2 IS IT ZERO. 000190 4780 B1A4 001AC 257 BZ FREE2 IF SO, IT WAS NOT ALLOCATED. 0 259 FREEMAIN RU,LV=IOBBUFFL,A=(R2),SP=29 000194 261+ CNOP 0,4 01-FREEM 000194 47F0 B198 001A0 262+ B *+12-4*0-2*0 BRANCH AROUND DATA @O2C 01-FREEM 000198 00004000 263+ DC A(IOBBUFFL) LENGTH 01-FREEM 00019C 00 264+IHB0016F DC BL1'00000000' Flags @O2A 01-FREEM 00019D 00 265+ DC AL1(0) RESERVED 01-FREEM 00019E 1D 266+ DC AL1(29) SUBPOOL NUMBER 01-FREEM 00019F 03 267+ DC BL1'00000011' MODE BYTE 01-FREEM 0001A0 5800 B190 00198 268+ L 0,*-8+2*0 LOAD LENGTH 01-FREEM 0001A4 1812 269+ LR 1,R2 LOAD AREA ADDRESS 01-FREEM 0001A6 58F0 B194 0019C 270+ L 15,IHB0016F LOAD PARAMETERS 01-FREEM 0001AA 0A78 271+ SVC 120 ISSUE FREEMAIN SVC 01-FREEM 00001AC 273 FREE2 DS 0H 274 FREEMAIN RU,LV=FILEIOBL,A=(R9),SP=29 0001AC 276+ CNOP 0,4 01-FREEM 0001AC 47F0 B1B0 001B8 277+ B *+12-4*0-2*0 BRANCH AROUND DATA @O2C 01-FREEM 0001B0 00000020 278+ DC A(FILEIOBL) LENGTH 01-FREEM 0001B4 00 279+IHB0018F DC BL1'00000000' Flags @O2A 01-FREEM 0001B5 00 280+ DC AL1(0) RESERVED 01-FREEM 0001B6 1D 281+ DC AL1(29) SUBPOOL NUMBER 01-FREEM 0001B7 03 282+ DC BL1'00000011' MODE BYTE 01-FREEM 0001B8 5800 B1A8 001B0 283+ L 0,*-8+2*0 LOAD LENGTH 01-FREEM 0001BC 1819 284+ LR 1,R9 LOAD AREA ADDRESS 01-FREEM 0001BE 58F0 B1AC 001B4 285+ L 15,IHB0018F LOAD PARAMETERS 01-FREEM 0001C2 0A78 286+ SVC 120 ISSUE FREEMAIN SVC 01-FREEM 0001C4 5890 B218 00220 287 L R9,=A(PLINULL) 00001C8 58F0 A000 00000 289 L R15,PLIFILE POINT TO FILE IOB 0001CC D203 F000 B218 00000 00220 290 MVC 0(4,R15),=A(PLINULL) NULL OUT THE POINTER 00001D2 292 RETURN DS 0H 0 294 REXIT ENV=BOTH 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 10 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FCLOSE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00001D2 4110 D000 00000 295+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 0001D6 58D0 D004 00004 296+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 0001DA 58E0 D010 00010 297+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 0001DE 580E 000C 0000C 298+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 0001E2 0700 299+ CNOP 0,4 01-REXIT 0001E4 47F0 B1E4 001EC 300+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 0001E8 00000000 301+ DC V(PLISTART) 01-REXIT 0001EC 58F0 B1E0 001E8 302+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 0001F0 12FF 303+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 0001F2 4770 B1F4 001FC 304+ BNZ PL10020 01-REXIT 0001F6 4110 1000 00000 307+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 0001FA 0A0A 308+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 0001FC 309+PL10020 DS 0H 01-REXIT 0001FC 98EC D00C 0000C 310+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000200 1FFF 311+ SLR 15,15 ZERO RETURN CODE 01-REXIT 000202 07FE 312+ BR 14 RETURN 01-REXIT 313 DROP R9,R10,R11,R13 0000208 315 LTORG 000208 4040404040404040 316 =CL8' ' 000210 C6C3D3D6E2C54040 317 =CL8'FCLOSE ' 000218 C2D7E7F1C3D3D640 318 =CL8'BPX1CLO ' 000220 FF000000 319 =A(PLINULL) 000224 BEADBEEF 320 =A(IOBMAGIC) 000228 FFFFFFFF 321 =F'-1' 1FCLOSE FCLOSE A FILE OPENED BY FOPEN Page 11 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 000F8 323 WORKAREA DSECT 000000 324 DS 26F 000068 325 RETVAL DS F 00006C 326 ERRNO DS F 000070 327 REA DS F 000074 328 FILEP DS A 000078 329 CALLLIST DS 16D 000F8 330 WORKLEN EQU *-WORKAREA 0 332 * 333 * OPTIONS ASSEMBLER 334 * 000000 00000 00014 335 PARMS DSECT 000000 336 PLIFILE DS A POINTER TO FILE TO CLOSE 000004 337 PLIERRNO DS A ERRNO VALUE 000008 338 PLIREA DS A REASON CODE 00000C 339 PLICOMP DS A CHAR 8, GETS THE FAILING BPX1 COMPONENT 000010 340 PLIRC DS A 0 000000 342 PLINULL EQU X'FF000000' 0 344 FILEIOB 0000000 00000 00020 346+FILEIOB DSECT 01-FILEI 000000 347+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 348+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 349+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 350+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 351+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 352+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 353+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 354+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 355+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 357+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 358+IOBBUFFL EQU 16384 01-FILEI - 361 PRINT NOGEN 362 BPXYERNO 0 3528 SYMBAR MODE=DEC 3545 END 1FCLOSE Relocation Dictionary Page 12 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 000001E8 00000001 00000003 1C 00000124 00000001 00000004 1C 00000158 1FCLOSE Ordinary Symbol and Literal Cross Reference Page 13 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0BPX1CLO 1 00000000 00000004 T 233 233 CALLLIST 8 00000078 FFFFFFFF D 329 213 238 COM0001 2 00000086 00000001 H 118 95B EBADF 1 00000071 FFFFFFFD A U 379 165 FCLOSE 2 00000008 00000001 H 69 65 76U FCLOSE1 1 00000000 00000001 J 64 121 122 FFLUSH 1 00000000 00000003 T 208 208 FILEIOB 1 00000000 FFFFFFFD J 346 141U 355 FILEIOBL 1 00000020 FFFFFFFD A U 355 278 FILEP 4 00000074 FFFFFFFF A 328 203M 214 FREE1 2 0000018A 00000001 H 254 227B 250B FREE2 2 000001AC 00000001 H 273 257B IHB0004B 4 00000124 00000001 V 208 222 IHB0010B 4 00000158 00000001 V 233 245 IHB0016F 1 0000019C 00000001 B 264 270 IHB0018F 1 000001B4 00000001 B 279 285 IOBBASE 4 00000004 FFFFFFFD A 348 255 IOBBUFFL 1 00004000 FFFFFFFD A U 358 263 IOBFILE 4 00000010 FFFFFFFD F 351 225 239 IOBMAGIC 1 BEADBEEF FFFFFFFD A U 357 320 IOBMARK 4 00000000 FFFFFFFD F 347 158 IOBOK 2 0000010C 00000001 H 198 159B JRINVALIDPARMS 1 000000A9 FFFFFFFD A U 814 169 PARMS 1 00000000 FFFFFFFE J 335 78U PLICOMP 4 0000000C FFFFFFFE A 339 150 171 201 PLIERRNO 4 00000004 FFFFFFFE A 337 144 166 199 PLIFILE 4 00000000 FFFFFFFE A 336 139 161 289 PLINULL 1 FF000000 FFFFFFFE A U 342 319 PLIRC 4 00000010 FFFFFFFE A 340 148 175 202 PLIREA 4 00000008 FFFFFFFE A 338 146 168 200 PLISTART 1 00000000 00000002 $ 79 82 301 PL10001 2 0000004A 00000001 H 96 85B PL10020 2 000001FC 00000001 H 309 304B RETURN 2 000001D2 00000001 H 292 155B 178B R0 1 00000000 FFFFFFFD A U 3529 143M 143 145 147 149 162M 163 165M 167 169M 170 176M 177 R10 1 0000000A FFFFFFFD A U 3539 313D R11 1 0000000B FFFFFFFD A U 3540 313D R13 1 0000000D FFFFFFFD A U 3542 313D R15 1 0000000F FFFFFFFD A U 3544 144M 145 146M 147 148M 149 150M 151M 151 152 157M 158 161M 163 166M 167 168M 170 171M 172M 172 173 175M 177 225M 226M 226 248M 249M 249 289M 290 R2 1 00000002 FFFFFFFD A U 3531 199M 215 241 255M 256M 256 269 R3 1 00000003 FFFFFFFD A U 3532 200M 216 243 R4 1 00000004 FFFFFFFD A U 3533 201M 218 252 R5 1 00000005 FFFFFFFD A U 3534 202M 219 240 248 R9 1 00000009 FFFFFFFD A U 3538 139M 140M 140 141U 154 203 284 287M 313D WORKAREA 1 00000000 FFFFFFFF J 323 120U 330 WORKLEN 1 000000F8 FFFFFFFF A U 330 73 =A(IOBMAGIC) 4 00000224 00000001 A 320 157 =A(PLINULL) 4 00000220 00000001 A 319 154 162 287 290 =CL8' ' 1FCLOSE Ordinary Symbol and Literal Cross Reference Page 14 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 8 00000208 00000001 C 316 152 =CL8'BPX1CLO ' 8 00000218 00000001 C 318 252 =CL8'FCLOSE ' 8 00000210 00000001 C 317 173 =F'-1' 4 00000228 00000001 F 321 176 1FCLOSE Macro and Copy Code Source Summary Page 15 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FCLOSE Dsect Cross Reference Page 16 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 346 PARMS 00000014 FFFFFFFE 335 WORKAREA 000000F8 FFFFFFFF 323 1FCLOSE Using Map Page 17 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 76 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 220 304 FCLOSE,11 78 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 010 289 PARMS,10 120 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 078 238 WORKAREA,13 141 0000008E 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 010 255 FILEIOB,R9 313 00000204 00000001 DROP 9 R9 313 00000204 00000001 DROP 10 R10 313 00000204 00000001 DROP 11 R11 313 00000204 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 18 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 70 87M 97M 99M 100 106 143M 143 145 147 149 162M 163 165M 167 169M 170 176M 177 216M 217 241M 242 268M 283M 298M 310M 1(1) 70 77 90M 92 93 94 98M 99 106 108 109 110 111 213M 217 220 221 238M 242 243 244 269M 284M 295M 307M 307 310M 2(2) 70 199M 215 241 255M 256M 256 269 310M 3(3) 70 200M 216 243 310M 4(4) 70 201M 218 252 310M 5(5) 70 202M 219 240 248 310M 6(6) 70 310M 7(7) 70 310M 8(8) 70 310M 9(9) 70 139M 140M 140 141U 154 203 284 287M 310M 313D 10(A) 70 77M 78U 310M 313D 11(B) 70 75M 76U 87 97 310M 313D 12(C) 70 100 103 310M 13(D) 70 92 93 94M 98 108 109 110 111M 112 113 114 115 120U 295 296M 296 297 310 313D 14(E) 70 104M 214M 217 218M 220 223M 239M 242 246M 297M 298N 310M 312B 15(F) 70 71 75 83M 84M 84 103M 104B 144M 145 146M 147 148M 149 150M 151M 151 152 157M 158 161M 163 166M 167 168M 170 171M 172M 172 173 175M 177 215M 217 219M 220 222M 223B 225M 226M 226 240M 242 245M 246B 248M 249M 249 270M 285M 289M 290 302M 303M 303 310M 311M 311 1FCLOSE Diagnostic Cross Reference and Assembler Summary Page 19 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 1381K would be required for this to be an In-Storage Assembly 217 Primary Input Records Read 9486 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 539 Primary Print Records Written 0 Work File Writes 26 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.19 Stop Time: 12.09.22 Processor Time: 00.00.01.6022 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FFLUSH External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FFLUSH1 SD 00000001 00000000 000001F8 06 FFLUSH LD 00000008 00000001 PLISTART WX 00000002 BPX1WRT ER 00000003 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FFLUSH -- FLUSH THE BUFFER TO THE FILE * 7 * * 8 * THIS MODULE FLUSHES ANY DATA IN THE IOB TO THE FILE. * 9 * * 10 * INPUTS (*TO FUNCTIONS): * 11 * * 12 * FILE -- POINTER (*1,2,3,4) * 13 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 14 * RETURNED VALUE FROM FOPEN. * 15 * * 16 * FUNCTIONS: * 17 * * 18 * 1. VALIDATE THE POINTER TO FILE * 19 * * 20 * 2. SEE IF THERE IS ANYTHING IN THE BUFFER, IF NOT, DO NOTHING. * 21 * * 22 * 3. WRITE THE DATA TO THE FILE (BPX1WRI). * 23 * * 24 * 4. RESET THE POINTERS TO SHOW THE BUFFER IS EMPTY. * 25 * * 26 * OUTPUTS (*FROM FUNCTIONS): * 27 * * 28 * ERRNO -- FULLWORD INTEGER (*1,2,3,4) * 29 * THIS CONTAINS THE ERRNO FROM THE FAILING CALL. IT IS ZERO ON * 30 * SUCCESS. STRERROR CAN BE USED TO GET A MESSAGE * 31 * * 32 * REA -- FULLWORD INTEGER (*1,2,3,4) * 33 * THIS CONTAINS THE REASON CODE (ALSO CALLED ERRNO JR.) FROM * 34 * THE FAILING UNIX SYSTEM SERVICES CALL. * 35 * * 36 * COMPNT -- CHAR 8 (*1,2,3,4) * 37 * THIS POINTS TO A PL/I STYLE CHAR(8) PARAMETER. ON FAILURE * 38 * THE NAME OF THE FAILING CALL IS PLACED HERE * 39 * * 40 * FILE -- POINTER (*4) * 41 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 42 * RETURNED VALUE FROM FOPEN. * 43 * * 44 * NOTES: * 45 * * 46 * 1. SAMPLE DECLARE AND CALL: * 47 * * 48 * DECLARE FFLUSH ENTRY(POINTER, * 49 * FIXED BINARY(31), * 50 * FIXED BINARY(31), * 51 * CHAR(8)) * 52 * RETURNS(FIXED BINARY(31)); * 53 * DECLARE FILEP POINTER INIT(NULL()); * 54 * DECLARE ERRNO FIXED BINARY(31); * 55 * DECLARE REASON FIXED BINARY(31); * 56 * DECLARE COMPNT CHAR(8); * 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 * DECLARE RC FIXED BINARY(31); * 58 * * 59 * RC = FFLUSH(FILEP, ERRNO, REASON, COMPNT); * 60 * * 61 *********************************************************************** 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 63 FFLUSH RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 001F8 64+FFLUSH1 CSECT , 01-RENTR 65+ ENTRY FFLUSH INDICATE ENTRY POINT 01-RENTR 000000 66+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 40 67+ DC CL1' ' PADDING TO 8 BYTES 01-RENTR 000001 C6C6D3E4E2C806 68+ DC C'FFLUSH',AL1(6) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 69+FFLUSH DS 0H 01-RENTR 000008 90EC D00C 0000C 70+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 71+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 72+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000100 73+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 74+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 75+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 76+ USING FFLUSH,11 01-RENTR 00001E 18A1 77+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 78+ USING PARMS,10 01-RENTR 79+ WXTRN PLISTART 01-RENTR 000020 80+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 81+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 82+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 83+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 84+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 85+ BNZ PL10001 01-RENTR 86+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 87+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 90+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 91+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 92+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 93+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 94+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 95+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 96+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 97+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 98+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 99+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 100+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 101+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 103+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 104+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 106+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 107+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 108+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 109+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 110+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 111+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 112+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 113+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 114+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 115+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 117+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 118+COM0001 DS 0H 01-RENTR 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 6 Active Usings: PARMS(X'1000'),R10 FFLUSH(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 120+ USING WORKAREA,13 01-RENTR 121 FFLUSH1 AMODE 31 122 FFLUSH1 RMODE ANY 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 7 Active Usings: PARMS(X'1000'),R10 FFLUSH(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 124 *********************************************************************** 125 * * 126 * FLUSH IN CASE SOMETHING IS IN THE BUFFER * 127 * * 128 * REGISTER USAGE: * 129 * R9 -> FILEIOB AREA * 130 * R10 -> PARM LIST FROM CALLER * 131 * R11 - BASE FOR PROGRAM * 132 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 133 * MODIFY * 134 * R13 -> DYNAMIC SAVE AND WORK AREA * 135 * R15 - WORK REGISTER FOR DATA TRANSFER. * 136 * * 137 *********************************************************************** 0000086 5890 A000 00000 139 L R9,PLIFILE POINT TO FILE IOB 00008A 5890 9000 00000 140 L R9,0(,R9) LOAD THE IOB ADDR R:9 00000 141 USING FILEIOB,R9 000008E 1F00 143 SLR R0,R0 GET A ZERO 000090 58F0 A004 00004 144 L R15,PLIERRNO 000094 5000 F000 00000 145 ST R0,0(,R15) 000098 58F0 A008 00008 146 L R15,PLIREA 00009C 5000 F000 00000 147 ST R0,0(,R15) 0000A0 58F0 A010 00010 148 L R15,PLIRC 0000A4 5000 F000 00000 149 ST R0,0(,R15) 0000A8 58F0 A00C 0000C 150 L R15,PLICOMP POINT TO COMPONENT NAME PARM 0000AC 58F0 F000 00000 151 L R15,0(,R15) GET PAST LOCATOR DESCRIPTOR 0000B0 D207 F000 B1C8 00000 001D0 152 MVC 0(8,R15),=CL8' ' 00000B6 5990 B1E0 001E8 154 C R9,=A(PLINULL) IS THIS FILE ALREADY CLOSED? 0000BA 4780 B198 001A0 155 BE RETURN IF SO, NOTHING TO DO 00000BE 58F0 B1E4 001EC 157 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000C2 59F0 9000 00000 158 C R15,IOBMARK IS THIS A VALID IOB? 0000C6 4780 B104 0010C 159 BE IOBOK IF SO, KEEP GOING 00000CA 58F0 A000 00000 161 L R15,PLIFILE POINT TO THE RETURNED POINTER 0000CE 5800 B1E0 001E8 162 L R0,=A(PLINULL) GET THE PL/I NULL VALUE 0000D2 5000 F000 00000 163 ST R0,0(,R15) START WITH FAILURE. 00000D6 4100 0071 00071 165 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000DA 58F0 A004 00004 166 L R15,PLIERRNO 0000DE 5000 F000 00000 167 ST R0,0(,R15) 0000E2 58F0 A008 00008 168 L R15,PLIREA 0000E6 4100 00A9 000A9 169 LA R0,JRINVALIDPARMS INVALID PARMS TO CLOSE 0000EA 5000 F000 00000 170 ST R0,0(,R15) 0000EE 58F0 A00C 0000C 171 L R15,PLICOMP POINT TO COMPONENT NAME PARM 0000F2 58F0 F000 00000 172 L R15,0(,R15) GET PAST LOCATOR DESCRIPTOR 0000F6 D207 F000 B1D0 00000 001D8 173 MVC 0(8,R15),=CL8'FFLUSH ' 00000FC 58F0 A010 00010 175 L R15,PLIRC SHOW BAD RETURN CODE 000100 5800 B1E8 001F0 176 L R0,=F'-1' 000104 5000 F000 00000 177 ST R0,0(,R15) 000108 47F0 B198 001A0 178 B RETURN 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 8 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FFLUSH(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 180 *********************************************************************** 181 * * 182 * SEE IF THIS IS A WRITEABLE DESCRIPTOR AND IF THERE IS ANYTHING TO * 183 * FLUSH. IF SO, WRITE IT OUT AND RESET THE POINTERS. * 184 * * 185 * REGISTER USAGE: * 186 * R9 -> FILEIOB AREA * 187 * R10 -> PARM LIST FROM CALLER * 188 * R11 - BASE FOR PROGRAM * 189 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 190 * MODIFY * 191 * R13 -> DYNAMIC SAVE AND WORK AREA * 192 * R15 - WORK REGISTER FOR DATA TRANSFER. * 193 * * 194 *********************************************************************** 000010C 196 IOBOK DS 0H 00010C 5810 B1EC 001F4 197 L R1,=A(O_WRONLY) GET THE WRITE BIT 000110 5410 9014 00014 198 N R1,IOBFLAG IS THIS SOME FLAVOR OF OUTPUT? 000114 4780 B198 001A0 199 BZ RETURN IF NOT, CAN'T FLUSH 0000118 58F0 9018 00018 201 L R15,IOBPTR NEXT BYTE TO WRITE 00011C 5FF0 9004 00004 202 SL R15,IOBBASE MINUS THE START GIVES THE LEN 000120 50F0 D06C 0006C 203 ST R15,BUFFLEN SAVE IT TO USE AS A PARM TO BPX1WRT 000124 12FF 204 LTR R15,R15 ANYTHING TO FLUSH? 000126 4780 B18C 00194 205 BZ RESET IF NOT, WE ARE DONE 000012A 5820 A004 00004 207 L R2,PLIERRNO POINT TO ERRNO PARM 00012E 5830 A008 00008 208 L R3,PLIREA POINT TO REASON PARM 000132 5840 A00C 0000C 209 L R4,PLICOMP POINT TO COMPONENT 000136 5840 4000 00000 210 L R4,0(,R4) GET PAST LOCATOR DESCRIPTOR 00013A D703 D068 D068 00068 00068 211 XC ALET,ALET SHOW ZERO ALET 0 213 CALL BPX1WRT,(IOBFILE, X IOBBASE, X ALET, X BUFFLEN, X RETVAL, X (R2), X (R3)),VL,MF=(E,CALLLIST) 000140 215+ CNOP 0,4 01-CALL 000140 47F0 B140 00148 216+ B *+8 BRANCH AROUND VCON 01-CALL 000144 00000000 217+IHB0004B DC V(BPX1WRT) ENTRY POINT ADDRESS 01-CALL 000148 4110 D080 00080 222+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00014C 41E0 9010 00010 223+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 000150 41F0 9004 00004 224+ LA 15,IOBBASE PICKUP PARAMETER 02-IHBOP 000154 4100 D068 00068 225+ LA 0,ALET PICKUP PARAMETER 02-IHBOP 000158 90E0 1000 00000 226+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00015C 41E0 D06C 0006C 227+ LA 14,BUFFLEN PICKUP PARAMETER 02-IHBOP 000160 41F0 D070 00070 228+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 000164 1802 229+ LR 0,(R2) PICK UP PARAMETER 02-IHBOP 000166 90E0 100C 0000C 230+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 00016A 5030 1018 00018 231+ ST (R3),24(0,1) STORE INTO PARAM. LIST 02-IHBOP 00016E 9680 1018 00018 232+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000172 58F0 B13C 00144 233+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 9 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FFLUSH(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000176 05EF 234+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000178 58F0 D070 00070 236 L R15,RETVAL ANYTHING WRITTEN? 00017C 12FF 237 LTR R15,R15 DID IT WORK? 00017E 47B0 B18C 00194 238 BNM RESET GO DO THE CLOSE 0000182 D207 4000 B1D8 00000 001E0 240 MVC 0(8,R4),=CL8'BPX1WRT ' 000188 58F0 A010 00010 241 L R15,PLIRC SHOW BAD RETURN CODE 00018C 5800 B1E8 001F0 242 L R0,=F'-1' 000190 5000 F000 00000 243 ST R0,0(,R15) 0000194 245 RESET DS 0H 000194 D203 9018 9004 00018 00004 246 MVC IOBPTR(4),IOBBASE RESET POINTER BACK TO BASE 00019A D203 900C 9008 0000C 00008 247 MVC IOBCNT(4),IOBBUFSZ RESET LENGTH REMAINING -0001A0 250 RETURN DS 0H 0 252 REXIT ENV=BOTH 0001A0 4110 D000 00000 253+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 0001A4 58D0 D004 00004 254+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 0001A8 58E0 D010 00010 255+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 0001AC 580E 000C 0000C 256+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 0001B0 257+ CNOP 0,4 01-REXIT 0001B0 47F0 B1B0 001B8 258+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 0001B4 00000000 259+ DC V(PLISTART) 01-REXIT 0001B8 58F0 B1AC 001B4 260+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 0001BC 12FF 261+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 0001BE 4770 B1C0 001C8 262+ BNZ PL10010 01-REXIT 0001C2 4110 1000 00000 265+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 0001C6 0A0A 266+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 0001C8 267+PL10010 DS 0H 01-REXIT 0001C8 98EC D00C 0000C 268+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 0001CC 1FFF 269+ SLR 15,15 ZERO RETURN CODE 01-REXIT 0001CE 07FE 270+ BR 14 RETURN 01-REXIT 271 DROP R9,R10,R11,R13 00001D0 273 LTORG 0001D0 4040404040404040 274 =CL8' ' 0001D8 C6C6D3E4E2C84040 275 =CL8'FFLUSH ' 0001E0 C2D7E7F1E6D9E340 276 =CL8'BPX1WRT ' 0001E8 FF000000 277 =A(PLINULL) 0001EC BEADBEEF 278 =A(IOBMAGIC) 0001F0 FFFFFFFF 279 =F'-1' 0001F4 00000001 280 =A(O_WRONLY) 1FFLUSH FLUSH THE BUFFER TO THE FILE Page 10 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00100 282 WORKAREA DSECT 000000 283 DS 26F 000068 284 ALET DS A 00006C 285 BUFFLEN DS F 000070 286 RETVAL DS F 000074 287 ERRNO DS F 000078 288 REA DS F 000080 289 CALLLIST DS 16D 00100 290 WORKLEN EQU *-WORKAREA 0 292 * 293 * OPTIONS ASSEMBLER 294 * 000000 00000 00014 295 PARMS DSECT 000000 296 PLIFILE DS A POINTER TO FILE TO CLOSE 000004 297 PLIERRNO DS A ERRNO VALUE 000008 298 PLIREA DS A REASON CODE 00000C 299 PLICOMP DS A CHAR 8, GETS THE FAILING BPX1 COMPONENT 000010 300 PLIRC DS A 0 000000 302 PLINULL EQU X'FF000000' 0 304 FILEIOB 0000000 00000 00020 306+FILEIOB DSECT 01-FILEI 000000 307+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 308+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 309+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 310+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 311+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 312+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 313+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 314+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 315+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 317+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 318+IOBBUFFL EQU 16384 01-FILEI - 321 PRINT NOGEN 322 BPXYERNO 3487 BPXYOPNF 0 3525 SYMBAR MODE=DEC 3542 END 1FFLUSH Relocation Dictionary Page 11 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 000001B4 00000001 00000003 1C 00000144 1FFLUSH Ordinary Symbol and Literal Cross Reference Page 12 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0ALET 4 00000068 FFFFFFFF A 284 211M 211 225 BPX1WRT 1 00000000 00000003 T 217 217 BUFFLEN 4 0000006C FFFFFFFF F 285 203M 227 CALLLIST 8 00000080 FFFFFFFF D 289 222 COM0001 2 00000086 00000001 H 118 95B EBADF 1 00000071 FFFFFFFD A U 339 165 FFLUSH 2 00000008 00000001 H 69 65 76U FFLUSH1 1 00000000 00000001 J 64 121 122 FILEIOB 1 00000000 FFFFFFFD J 306 141U 315 IHB0004B 4 00000144 00000001 V 217 233 IOBBASE 4 00000004 FFFFFFFD A 308 202 224 246 IOBBUFSZ 4 00000008 FFFFFFFD F 309 247 IOBCNT 4 0000000C FFFFFFFD F 310 247M IOBFILE 4 00000010 FFFFFFFD F 311 223 IOBFLAG 4 00000014 FFFFFFFD F 312 198 IOBMAGIC 1 BEADBEEF FFFFFFFD A U 317 278 IOBMARK 4 00000000 FFFFFFFD F 307 158 IOBOK 2 0000010C 00000001 H 196 159B IOBPTR 4 00000018 FFFFFFFD A 313 201 246M JRINVALIDPARMS 1 000000A9 FFFFFFFD A U 774 169 O_FLAGS 1 00000000 FFFFFFFC J 3490 3521 O_WRONLY 1 00000001 FFFFFFFC A U 3516 280 PARMS 1 00000000 FFFFFFFE J 295 78U PLICOMP 4 0000000C FFFFFFFE A 299 150 171 209 PLIERRNO 4 00000004 FFFFFFFE A 297 144 166 207 PLIFILE 4 00000000 FFFFFFFE A 296 139 161 PLINULL 1 FF000000 FFFFFFFE A U 302 277 PLIRC 4 00000010 FFFFFFFE A 300 148 175 241 PLIREA 4 00000008 FFFFFFFE A 298 146 168 208 PLISTART 1 00000000 00000002 $ 79 82 259 PL10001 2 0000004A 00000001 H 96 85B PL10010 2 000001C8 00000001 H 267 262B RESET 2 00000194 00000001 H 245 205B 238B RETURN 2 000001A0 00000001 H 250 155B 178B 199B RETVAL 4 00000070 FFFFFFFF F 286 228 236 R0 1 00000000 FFFFFFFC A U 3526 143M 143 145 147 149 162M 163 165M 167 169M 170 176M 177 242M 243 R1 1 00000001 FFFFFFFC A U 3527 197M 198M R10 1 0000000A FFFFFFFC A U 3536 271D R11 1 0000000B FFFFFFFC A U 3537 271D R13 1 0000000D FFFFFFFC A U 3539 271D R15 1 0000000F FFFFFFFC A U 3541 144M 145 146M 147 148M 149 150M 151M 151 152 157M 158 161M 163 166M 167 168M 170 171M 172M 172 173 175M 177 201M 202M 203 204M 204 236M 237M 237 241M 243 R2 1 00000002 FFFFFFFC A U 3528 207M 229 R3 1 00000003 FFFFFFFC A U 3529 208M 231 R4 1 00000004 FFFFFFFC A U 3530 209M 210M 210 240 R9 1 00000009 FFFFFFFC A U 3535 139M 140M 140 141U 154 271D WORKAREA 1 00000000 FFFFFFFF J 282 120U 290 WORKLEN 1 00000100 FFFFFFFF A U 290 73 =A(IOBMAGIC) 4 000001EC 00000001 A 278 157 =A(O_WRONLY) 4 000001F4 00000001 A 280 197 1FFLUSH Ordinary Symbol and Literal Cross Reference Page 13 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0=A(PLINULL) 4 000001E8 00000001 A 277 154 162 =CL8' ' 8 000001D0 00000001 C 274 152 =CL8'BPX1WRT ' 8 000001E0 00000001 C 276 240 =CL8'FFLUSH ' 8 000001D8 00000001 C 275 173 =F'-1' 4 000001F0 00000001 F 279 176 242 1FFLUSH Macro and Copy Code Source Summary Page 14 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO BPXYOPNF CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FFLUSH Dsect Cross Reference Page 15 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 306 O_FLAGS 00000004 FFFFFFFC 3490 PARMS 00000014 FFFFFFFE 295 WORKAREA 00000100 FFFFFFFF 282 1FFLUSH Using Map Page 16 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 76 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 1EC 262 FFLUSH,11 78 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 010 241 PARMS,10 120 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 080 236 WORKAREA,13 141 0000008E 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 018 247 FILEIOB,R9 271 000001D0 00000001 DROP 9 R9 271 000001D0 00000001 DROP 10 R10 271 000001D0 00000001 DROP 11 R11 271 000001D0 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 17 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 70 87M 97M 99M 100 106 143M 143 145 147 149 162M 163 165M 167 169M 170 176M 177 225M 226 229M 230 242M 243 256M 268M 1(1) 70 77 90M 92 93 94 98M 99 106 108 109 110 111 197M 198M 222M 226 230 231 232 253M 265M 265 268M 2(2) 70 207M 229 268M 3(3) 70 208M 231 268M 4(4) 70 209M 210M 210 240 268M 5(5) 70 268M 6(6) 70 268M 7(7) 70 268M 8(8) 70 268M 9(9) 70 139M 140M 140 141U 154 268M 271D 10(A) 70 77M 78U 268M 271D 11(B) 70 75M 76U 87 97 268M 271D 12(C) 70 100 103 268M 13(D) 70 92 93 94M 98 108 109 110 111M 112 113 114 115 120U 253 254M 254 255 268 271D 14(E) 70 104M 223M 226 227M 230 234M 255M 256N 268M 270B 15(F) 70 71 75 83M 84M 84 103M 104B 144M 145 146M 147 148M 149 150M 151M 151 152 157M 158 161M 163 166M 167 168M 170 171M 172M 172 173 175M 177 201M 202M 203 204M 204 224M 226 228M 230 233M 234B 236M 237M 237 241M 243 260M 261M 261 268M 269M 269 1FFLUSH Diagnostic Cross Reference and Assembler Summary Page 18 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 1401K would be required for this to be an In-Storage Assembly 215 Primary Input Records Read 9639 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 505 Primary Print Records Written 0 Work File Writes 24 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.22 Stop Time: 12.09.24 Processor Time: 00.00.01.5957 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FWRITE External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FWRITE1 SD 00000001 00000000 0000025C 06 FWRITE LD 00000008 00000001 PLISTART WX 00000002 FFLUSH ER 00000003 BPX1WRT ER 00000004 1FWRITE WRITE DATA TO THE FILE Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FWRITE -- WRITE DATA TO THE FILE * 7 * * 8 * THIS MODULE WRITES DATA TO THE FILE VIA BUFFERING. * 9 * * 10 * INPUTS (*TO FUNCTIONS): * 11 * * 12 * DATA -- CHAR(*) (*1,5) * 13 * THIS IS THE DATA TO WRITE. IT'S LENGTH IS THE SIZE PARAMETER * 14 * TIMES THE NITEMS PARAMETER. * 15 * * 16 * SIZE -- FULLWORD INTEGER (*1,2,3,5) * 17 * THIS CONTAINS THE SIZE OF EACH ITEM TO BE WRITTEN. IT IS * 18 * NORMALLY PASSED AS 1 (1 BYTE). * 19 * * 20 * NITEMS -- FULLWORD INTEGER (*1,2,3,5) * 21 * THIS CONTAINS THE NUMBER OF ITEMS TO WRITE. THIS PARM TIMES * 22 * THE SIZE PARAMETER IS THE NUMBER OF BYTES TO WRITE. * 23 * * 24 * FILE -- POINTER (*1,3,4,5) * 25 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 26 * RETURNED VALUE FROM FOPEN. * 27 * * 28 * FUNCTIONS: * 29 * * 30 * 1. VALIDATE THE POINTER TO FILE * 31 * * 32 * 2. CALCULATE THE ACTUAL LENGTH OF THE DATA. * 33 * * 34 * 3. SEE IF THE DATA WILL FIT IN THE BUFFER, IF SO ADD IT IN AND * 35 * WE ARE DONE. * 36 * * 37 * 4. FLUSH THE BUFFER IF NEEDED. * 38 * * 39 * 5. IF THE DATA IS LONGER THAN THE BUFFER, WRITE IT OUT. * 40 * OTHERWISE PUT IT IN THE BUFFER (BPX1WRI). * 41 * * 42 * OUTPUTS (*FROM FUNCTIONS): * 43 * * 44 * COUNT -- FULLWORD INTEGER (*1,5) * 45 * THIS RETURNED PARAMETER IS THE NUMBER OF ITEMS WRITTEN. * 46 * NORMALLY IT IS EQUAL TO NITEMS. * 47 * * 48 * ERRNO -- FULLWORD INTEGER (*1,4,5) * 49 * THIS CONTAINS THE ERRNO FROM THE FAILING CALL. IT IS ZERO ON * 50 * SUCCESS. STRERROR CAN BE USED TO GET A MESSAGE * 51 * * 52 * REA -- FULLWORD INTEGER (*1,4,5) * 53 * THIS CONTAINS THE REASON CODE (ALSO CALLED ERRNO JR.) FROM * 54 * THE FAILING UNIX SYSTEM SERVICES CALL. * 55 * * 56 * NOTES: * 1FWRITE WRITE DATA TO THE FILE Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 * * 58 * 1. SAMPLE DECLARE AND CALL: * 59 * * 60 * DECLARE FWRITE ENTRY(CHAR(*), * 61 * FIXED BINARY(31), * 62 * FIXED BINARY(31), * 63 * POINTER, * 64 * FIXED BINARY(31), * 65 * FIXED BINARY(31)) * 66 * RETURNS(FIXED BINARY(31)); * 67 * DECLARE DATA CHAR(80) INIT('HELLO WORLD'); * 68 * DECLARE SIZE FIXED BINARY(31) INIT(1); * 69 * DECLARE NITEMS FIXED BINARY(31) INIT(40); * 70 * DECLARE FILEP POINTER INIT(NULL()); * 71 * DECLARE COUNT FIXED BINARY(31); * 72 * DECLARE ERRNO FIXED BINARY(31); * 73 * DECLARE REASON FIXED BINARY(31); * 74 * * 75 * COUNT = FWRITE(DATA, SIZE, NITEMS, FILEP, ERRNO, REASON); * 76 * * 77 * 2. NOTE THAT ERRNO MAY NOT BE SET UNTIL A REAL WRITE IS DONE. * 78 * * 79 *********************************************************************** 1FWRITE WRITE DATA TO THE FILE Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 81 FWRITE RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 0025C 82+FWRITE1 CSECT , 01-RENTR 83+ ENTRY FWRITE INDICATE ENTRY POINT 01-RENTR 000000 84+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 40 85+ DC CL1' ' PADDING TO 8 BYTES 01-RENTR 000001 C6E6D9C9E3C506 86+ DC C'FWRITE',AL1(6) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 87+FWRITE DS 0H 01-RENTR 000008 90EC D00C 0000C 88+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 89+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 90+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000110 91+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 92+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 93+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 94+ USING FWRITE,11 01-RENTR 00001E 18A1 95+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 96+ USING PARMS,10 01-RENTR 97+ WXTRN PLISTART 01-RENTR 000020 98+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 99+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 100+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 101+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 102+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 103+ BNZ PL10001 01-RENTR 104+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 105+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 108+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 109+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 110+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 111+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 112+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 113+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 114+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 115+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 116+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 117+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 118+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 119+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 121+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 122+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 124+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 125+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 126+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 127+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 128+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 129+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 130+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 131+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 132+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 133+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 135+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 136+COM0001 DS 0H 01-RENTR 1FWRITE WRITE DATA TO THE FILE Page 6 Active Usings: PARMS(X'1000'),R10 FWRITE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 138+ USING WORKAREA,13 01-RENTR 139 FWRITE1 AMODE 31 140 FWRITE1 RMODE ANY 1FWRITE WRITE DATA TO THE FILE Page 7 Active Usings: PARMS(X'1000'),R10 FWRITE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 142 *********************************************************************** 143 * * 144 * VERIFY THAT THIS IS A GOOD IOB * 145 * * 146 * REGISTER USAGE: * 147 * R9 -> FILEIOB AREA * 148 * R10 -> PARM LIST FROM CALLER * 149 * R11 - BASE FOR PROGRAM * 150 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 151 * MODIFY * 152 * R13 -> DYNAMIC SAVE AND WORK AREA * 153 * R15 - WORK REGISTER FOR DATA TRANSFER. * 154 * * 155 *********************************************************************** 0000086 5890 A00C 0000C 157 L R9,PLIFILE POINT TO FILE IOB 00008A 5890 9000 00000 158 L R9,0(,R9) LOAD THE IOB ADDR R:9 00000 159 USING FILEIOB,R9 000008E 1F00 161 SLR R0,R0 GET A ZERO 000090 58F0 A010 00010 162 L R15,PLIERRNO 000094 5000 F000 00000 163 ST R0,0(,R15) 000098 58F0 A014 00014 164 L R15,PLIREA 00009C 5000 F000 00000 165 ST R0,0(,R15) 00000A0 5990 B240 00248 167 C R9,=A(PLINULL) IS THIS FILE ALREADY CLOSED? 0000A4 4780 B20C 00214 168 BE RETURN IF SO, NOTHING TO DO 00000A8 58F0 B244 0024C 170 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000AC 59F0 9000 00000 171 C R15,IOBMARK IS THIS A VALID IOB? 0000B0 4780 B0D4 000DC 172 BE IOBOK IF SO, KEEP GOING 00000B4 58F0 A00C 0000C 174 L R15,PLIFILE POINT TO THE RETURNED POINTER 0000B8 5800 B240 00248 175 L R0,=A(PLINULL) GET THE PL/I NULL VALUE 0000BC 5000 F000 00000 176 ST R0,0(,R15) START WITH FAILURE. 00000C0 4100 0071 00071 178 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000C4 58F0 A010 00010 179 L R15,PLIERRNO 0000C8 5000 F000 00000 180 ST R0,0(,R15) 0000CC 58F0 A014 00014 181 L R15,PLIREA 0000D0 4100 00A9 000A9 182 LA R0,JRINVALIDPARMS INVALID PARMS TO FWRITE 0000D4 5000 F000 00000 183 ST R0,0(,R15) 0000D8 47F0 B200 00208 184 B FAILURE 1FWRITE WRITE DATA TO THE FILE Page 8 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FWRITE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 186 *********************************************************************** 187 * * 188 * MAKE SURE THE FILE IS OPEN FOR OUTPUT, OTHERWISE FLAG AN ERROR. * 189 * NOTE THAT APPEND HAS THE WRITE BIT SET. * 190 * * 191 * REGISTER USAGE: * 192 * R9 -> FILEIOB AREA * 193 * R10 -> PARM LIST FROM CALLER * 194 * R11 - BASE FOR PROGRAM * 195 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 196 * MODIFY * 197 * R13 -> DYNAMIC SAVE AND WORK AREA * 198 * R15 - WORK REGISTER FOR DATA TRANSFER. * 199 * * 200 *********************************************************************** 00000DC 202 IOBOK DS 0H 0000DC 5810 B248 00250 203 L R1,=A(O_WRONLY) GET THE WRITE BIT 0000E0 5410 9014 00014 204 N R1,IOBFLAG IS THIS SOME FLAVOR OF OUTPUT? 0000E4 4770 B0FC 00104 205 BNZ TESTSIZE IF SO, BEGIN PROCESSINT 00000E8 4100 0071 00071 207 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000EC 58F0 A010 00010 208 L R15,PLIERRNO 0000F0 5000 F000 00000 209 ST R0,0(,R15) 0000F4 58F0 A014 00014 210 L R15,PLIREA 0000F8 4100 0034 00034 211 LA R0,JRWFILERDONLY WRITE TO READ ONLY STREAM 0000FC 5000 F000 00000 212 ST R0,0(,R15) 000100 47F0 B200 00208 213 B FAILURE 0 215 *********************************************************************** 216 * * 217 * SEE IF THE DATA PASSED WILL FIT IN THE BUFFER. IF NOT, WE WILL * 218 * NEED TO FLUSH THE BUFFER. IF IT FITS, SET UP AN MVCL TO MOVE THE * 219 * DATA. * 220 * * 221 * REGISTER USAGE: * 222 * R6 - WORK REGISTER FOR MVCL (TARGET) * 223 * R7 - WORK REGISTER FOR MVCL * 224 * R8 - COPY OF THE LENGTH OF THE DATA TO WRITE * 225 * R9 -> FILEIOB AREA * 226 * R10 -> PARM LIST FROM CALLER * 227 * R11 - BASE FOR PROGRAM * 228 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 229 * MODIFY * 230 * R13 -> DYNAMIC SAVE AND WORK AREA * 231 * R14 - WORK REGISTER FOR MVCL (SOURCE) * 232 * R15 - WORK REGISTER FOR MVCL * 233 * * 234 *********************************************************************** 0000104 236 TESTSIZE DS 0H 000104 1F66 237 SLR R6,R6 CLEAR HIGH REGISTER FOR MULTIPLY 000106 5870 A008 00008 238 L R7,PLINITEM POINT TO NUMBER ITEMS 00010A 5870 7000 00000 239 L R7,0(,R7) LOAD NUMBER ITEMS 00010E 58F0 A004 00004 240 L R15,PLISIZE POINT TO SIZE OF EACH ITEM 1FWRITE WRITE DATA TO THE FILE Page 9 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FWRITE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000112 58F0 F000 00000 241 L R15,0(,R15) LOAD SIZE OF EACH ITEM 000116 1C6F 242 MR R6,R15 CALCULATE NUMBER BYTES INTO R7 0000118 1887 244 LR R8,R7 SAVE A COPY OF THE LENGTH 00011A 5970 900C 0000C 245 C R7,IOBCNT COMPARE TO SPACE LEFT 00011E 4720 B152 0015A 246 BH FLUSHBUF IF NO ROOM, FLUSH THE BUFFER 0000122 248 BUFFERIT DS 0H 000122 5860 9018 00018 249 L R6,IOBPTR POINT TO NEXT BYTE TO FILL IN BUFF 000126 58E0 A000 00000 250 L R14,PLIDATA POINT TO DATA L/D 00012A 58E0 E000 00000 251 L R14,0(,R14) POINT TO DATA TO WRITE 00012E 18F7 252 LR R15,R7 COMPLETE THE MVCL SETUP 000130 0E6E 253 MVCL R6,R14 COPY DATA TO THE BUFFER. 0000132 58F0 900C 0000C 255 L R15,IOBCNT SPACE LEFT 000136 1BF8 256 SR R15,R8 MINUS SPACE USED UP 000138 50F0 900C 0000C 257 ST R15,IOBCNT IS NEW SPACE REMAINING 00013C 58F0 9018 00018 258 L R15,IOBPTR OLD NEXT SPOT TO WRITE 000140 1AF8 259 AR R15,R8 PLUS BYTES COPIED 000142 50F0 9018 00018 260 ST R15,IOBPTR IS NEW NEXT BYTE TO WRITE 0000146 58E0 A008 00008 262 L R14,PLINITEM NUMBER OF ITEMS WRITTEN 00014A 58E0 E000 00000 263 L R14,0(,R14) INTO R14 00014E 58F0 A018 00018 264 L R15,PLICOUNT POINT TO RETURNED PARM 000152 50E0 F000 00000 265 ST R14,0(,R15) AND PUT IN THE RETURNED PARM. 000156 47F0 B20C 00214 266 B RETURN 1FWRITE WRITE DATA TO THE FILE Page 10 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FWRITE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 268 *********************************************************************** 269 * * 270 * FIRST FLUSH THE BUFFER SINCE THE NEW DATA WILL NOT FIT. NEED TO * 271 * FLUSH THE BUFFER. IF IT FITS, SET UP AN MVCL TO MOVE THE DATA. * 272 * * 273 * REGISTER USAGE: * 274 * R7 - LENGTH OF THE DATA TO WRITE * 275 * R8 - COPY OF THE LENGTH OF THE DATA TO WRITE * 276 * R9 -> FILEIOB AREA * 277 * R10 -> PARM LIST FROM CALLER * 278 * R11 - BASE FOR PROGRAM * 279 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 280 * MODIFY * 281 * R13 -> DYNAMIC SAVE AND WORK AREA * 282 * R14 - WORK REGISTER FOR MVCL (SOURCE) * 283 * R15 - WORK REGISTER FOR MVCL * 284 * * 285 *********************************************************************** 000015A 287 FLUSHBUF DS 0H 00015A 5820 A010 00010 288 L R2,PLIERRNO POINT TO ERRNO PARM 00015E 5830 A014 00014 289 L R3,PLIREA POINT TO REASON PARM 000162 5090 D07C 0007C 290 ST R9,FILEP SAVE IOB AS A PARM 000166 41E0 D080 00080 291 LA R14,COMPONNT 00016A 58F0 B24C 00254 292 L R15,=X'0008000' 00016E 90EF D088 00088 293 STM R14,R15,COMPLD 0 295 CALL FFLUSH,(FILEP, X (R2), X (R3), X COMPLD, X RETVAL),VL,MF=(E,CALLLIST) 000172 0700 297+ CNOP 0,4 01-CALL 000174 47F0 B174 0017C 298+ B *+8 BRANCH AROUND VCON 01-CALL 000178 00000000 299+IHB0004B DC V(FFLUSH) ENTRY POINT ADDRESS 01-CALL 00017C 4110 D090 00090 304+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000180 41E0 D07C 0007C 305+ LA 14,FILEP PICKUP PARAMETER 02-IHBOP 000184 18F2 306+ LR 15,(R2) PICK UP PARAMETER 02-IHBOP 000186 1803 307+ LR 0,(R3) PICK UP PARAMETER 02-IHBOP 000188 90E0 1000 00000 308+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00018C 41E0 D088 00088 309+ LA 14,COMPLD PICKUP PARAMETER 02-IHBOP 000190 41F0 D070 00070 310+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 000194 90EF 100C 0000C 311+ STM 14,15,12(1) STORE INTO PARAM. LIST 02-IHBOP 000198 9680 1010 00010 312+ OI 16(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00019C 58F0 B170 00178 313+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 0001A0 05EF 314+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00001A2 58F0 D070 00070 316 L R15,RETVAL 0001A6 12FF 317 LTR R15,R15 DID IT WORK? 0001A8 4770 B200 00208 318 BNZ FAILURE FAILURE 00001AC 5970 9008 00008 320 C R7,IOBBUFSZ IS THE DATA BIGGER THAN THE BUFFER 0001B0 4740 B11A 00122 321 BL BUFFERIT IF NOT, GO PUT IT IN THE BUFFER 00001B4 5070 D06C 0006C 323 ST R7,BUFFLEN SAVE LEN TO USE AS A PARM TO BPX1WRT 1FWRITE WRITE DATA TO THE FILE Page 11 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FWRITE(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00001B8 5820 A010 00010 325 L R2,PLIERRNO POINT TO ERRNO PARM 0001BC 5830 A014 00014 326 L R3,PLIREA POINT TO REASON PARM 0001C0 D703 D068 D068 00068 00068 327 XC ALET,ALET SHOW ZERO ALET 0001C6 5840 A018 00018 328 L R4,PLICOUNT POINT TO RETURNED PARM (BYTE COUNT) 0001CA 5850 A000 00000 329 L R5,PLIDATA POINT TO THE DATA L/D 0 331 CALL BPX1WRT,(IOBFILE, X (R5), X ALET, X BUFFLEN, X (R4), X (R2), X (R3)),VL,MF=(E,CALLLIST) 0001CE 0700 333+ CNOP 0,4 01-CALL 0001D0 47F0 B1D0 001D8 334+ B *+8 BRANCH AROUND VCON 01-CALL 0001D4 00000000 335+IHB0010B DC V(BPX1WRT) ENTRY POINT ADDRESS 01-CALL 0001D8 4110 D090 00090 340+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 0001DC 41E0 9010 00010 341+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 0001E0 18F5 342+ LR 15,(R5) PICK UP PARAMETER 02-IHBOP 0001E2 4100 D068 00068 343+ LA 0,ALET PICKUP PARAMETER 02-IHBOP 0001E6 90E0 1000 00000 344+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0001EA 41E0 D06C 0006C 345+ LA 14,BUFFLEN PICKUP PARAMETER 02-IHBOP 0001EE 18F4 346+ LR 15,(R4) PICK UP PARAMETER 02-IHBOP 0001F0 1802 347+ LR 0,(R2) PICK UP PARAMETER 02-IHBOP 0001F2 90E0 100C 0000C 348+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0001F6 5030 1018 00018 349+ ST (R3),24(0,1) STORE INTO PARAM. LIST 02-IHBOP 0001FA 9680 1018 00018 350+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0001FE 58F0 B1CC 001D4 351+ L 15,IHB0010B LOAD 15 WITH ENTRY ADR 01-CALL 000202 05EF 352+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000204 47F0 B20C 00214 354 B RETURN IF NOT, FLAG THE ERROR 0000208 356 FAILURE DS 0H 000208 58F0 A018 00018 357 L R15,PLICOUNT 00020C 5800 B250 00258 358 L R0,=F'-1' 000210 5000 F000 00000 359 ST R0,0(,R15) SHOW COUNT = -1; 0000214 361 RETURN DS 0H 362 REXIT ENV=BOTH 000214 4110 D000 00000 363+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 000218 58D0 D004 00004 364+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 00021C 58E0 D010 00010 365+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000220 580E 000C 0000C 366+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000224 367+ CNOP 0,4 01-REXIT 000224 47F0 B224 0022C 368+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 000228 00000000 369+ DC V(PLISTART) 01-REXIT 00022C 58F0 B220 00228 370+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 000230 12FF 371+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 000232 4770 B234 0023C 372+ BNZ PL10016 01-REXIT 000236 4110 1000 00000 375+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 00023A 0A0A 376+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 00023C 377+PL10016 DS 0H 01-REXIT 00023C 98EC D00C 0000C 378+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000240 1FFF 379+ SLR 15,15 ZERO RETURN CODE 01-REXIT 000242 07FE 380+ BR 14 RETURN 01-REXIT 1FWRITE WRITE DATA TO THE FILE Page 12 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 381 DROP R9,R10,R11,R13 0000248 383 LTORG 000248 FF000000 384 =A(PLINULL) 00024C BEADBEEF 385 =A(IOBMAGIC) 000250 00000001 386 =A(O_WRONLY) 000254 00008000 387 =X'0008000' 000258 FFFFFFFF 388 =F'-1' 1FWRITE WRITE DATA TO THE FILE Page 13 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00110 390 WORKAREA DSECT 000000 391 DS 26F 000068 392 ALET DS A 00006C 393 BUFFLEN DS F 000070 394 RETVAL DS F 000074 395 ERRNO DS F 000078 396 REA DS F 00007C 397 FILEP DS A 000080 398 COMPONNT DS CL8 000088 399 COMPLD DS 2A 000090 400 CALLLIST DS 16D 00110 401 WORKLEN EQU *-WORKAREA 0 403 * 404 * OPTIONS ASSEMBLER 405 * 000000 00000 0001C 406 PARMS DSECT 000000 407 PLIDATA DS A DATA TO WRITE L/D 000004 408 PLISIZE DS A SIZE OF EACH ITEM (USUALLY 1 BYTE) 000008 409 PLINITEM DS A COUNT OF ITEMS TO WRITE 00000C 410 PLIFILE DS A POINTER TO FILE 000010 411 PLIERRNO DS A ERRNO VALUE 000014 412 PLIREA DS A REASON CODE 000018 413 PLICOUNT DS A RETURNED NUMBER OF BYTES WRITTEN 0 000000 415 PLINULL EQU X'FF000000' 0 417 FILEIOB 0000000 00000 00020 419+FILEIOB DSECT 01-FILEI 000000 420+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 421+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 422+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 423+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 424+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 425+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 426+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 427+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 428+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 430+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 431+IOBBUFFL EQU 16384 01-FILEI - 434 PRINT NOGEN 435 BPXYERNO 3600 BPXYOPNF 0 3638 SYMBAR MODE=DEC 3655 END 1FWRITE Relocation Dictionary Page 14 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 00000228 00000001 00000003 1C 00000178 00000001 00000004 1C 000001D4 1FWRITE Ordinary Symbol and Literal Cross Reference Page 15 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0ALET 4 00000068 FFFFFFFF A 392 327M 327 343 BPX1WRT 1 00000000 00000004 T 335 335 BUFFERIT 2 00000122 00000001 H 248 321B BUFFLEN 4 0000006C FFFFFFFF F 393 323M 345 CALLLIST 8 00000090 FFFFFFFF D 400 304 340 COMPLD 4 00000088 FFFFFFFF A 399 293M 309 COMPONNT 8 00000080 FFFFFFFF C 398 291 COM0001 2 00000086 00000001 H 136 113B EBADF 1 00000071 FFFFFFFD A U 452 178 207 FAILURE 2 00000208 00000001 H 356 184B 213B 318B FFLUSH 1 00000000 00000003 T 299 299 FILEIOB 1 00000000 FFFFFFFD J 419 159U 428 FILEP 4 0000007C FFFFFFFF A 397 290M 305 FLUSHBUF 2 0000015A 00000001 H 287 246B FWRITE 2 00000008 00000001 H 87 83 94U FWRITE1 1 00000000 00000001 J 82 139 140 IHB0004B 4 00000178 00000001 V 299 313 IHB0010B 4 000001D4 00000001 V 335 351 IOBBUFSZ 4 00000008 FFFFFFFD F 422 320 IOBCNT 4 0000000C FFFFFFFD F 423 245 255 257M IOBFILE 4 00000010 FFFFFFFD F 424 341 IOBFLAG 4 00000014 FFFFFFFD F 425 204 IOBMAGIC 1 BEADBEEF FFFFFFFD A U 430 385 IOBMARK 4 00000000 FFFFFFFD F 420 171 IOBOK 2 000000DC 00000001 H 202 172B IOBPTR 4 00000018 FFFFFFFD A 426 249 258 260M JRINVALIDPARMS 1 000000A9 FFFFFFFD A U 887 182 JRWFILERDONLY 1 00000034 FFFFFFFD A U 696 211 O_FLAGS 1 00000000 FFFFFFFC J 3603 3634 O_WRONLY 1 00000001 FFFFFFFC A U 3629 386 PARMS 1 00000000 FFFFFFFE J 406 96U PLICOUNT 4 00000018 FFFFFFFE A 413 264 328 357 PLIDATA 4 00000000 FFFFFFFE A 407 250 329 PLIERRNO 4 00000010 FFFFFFFE A 411 162 179 208 288 325 PLIFILE 4 0000000C FFFFFFFE A 410 157 174 PLINITEM 4 00000008 FFFFFFFE A 409 238 262 PLINULL 1 FF000000 FFFFFFFE A U 415 384 PLIREA 4 00000014 FFFFFFFE A 412 164 181 210 289 326 PLISIZE 4 00000004 FFFFFFFE A 408 240 PLISTART 1 00000000 00000002 $ 97 100 369 PL10001 2 0000004A 00000001 H 114 103B PL10016 2 0000023C 00000001 H 377 372B RETURN 2 00000214 00000001 H 361 168B 266B 354B RETVAL 4 00000070 FFFFFFFF F 394 310 316 R0 1 00000000 FFFFFFFC A U 3639 161M 161 163 165 175M 176 178M 180 182M 183 207M 209 211M 212 358M 359 R1 1 00000001 FFFFFFFC A U 3640 203M 204M R10 1 0000000A FFFFFFFC A U 3649 381D R11 1 0000000B FFFFFFFC A U 3650 381D R13 1 0000000D FFFFFFFC A U 3652 381D R14 1 0000000E FFFFFFFC A U 3653 250M 251M 251 253M 262M 263M 263 265 291M 293 R15 1 0000000F FFFFFFFC A U 3654 162M 163 164M 165 170M 171 174M 176 179M 180 181M 183 208M 209 210M 212 240M 241M 241 242 252M 255M 256M 257 1FWRITE Ordinary Symbol and Literal Cross Reference Page 16 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 258M 259M 260 264M 265 292M 293 316M 317M 317 357M 359 R2 1 00000002 FFFFFFFC A U 3641 288M 306 325M 347 R3 1 00000003 FFFFFFFC A U 3642 289M 307 326M 349 R4 1 00000004 FFFFFFFC A U 3643 328M 346 R5 1 00000005 FFFFFFFC A U 3644 329M 342 R6 1 00000006 FFFFFFFC A U 3645 237M 237 242M 249M 253M R7 1 00000007 FFFFFFFC A U 3646 238M 239M 239 244 245 252 320 323 R8 1 00000008 FFFFFFFC A U 3647 244M 256 259 R9 1 00000009 FFFFFFFC A U 3648 157M 158M 158 159U 167 290 381D TESTSIZE 2 00000104 00000001 H 236 205B WORKAREA 1 00000000 FFFFFFFF J 390 138U 401 WORKLEN 1 00000110 FFFFFFFF A U 401 91 =A(IOBMAGIC) 4 0000024C 00000001 A 385 170 =A(O_WRONLY) 4 00000250 00000001 A 386 203 =A(PLINULL) 4 00000248 00000001 A 384 167 175 =F'-1' 4 00000258 00000001 F 388 358 =X'0008000' 4 00000254 00000001 X 387 292 1FWRITE Macro and Copy Code Source Summary Page 17 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO BPXYOPNF CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FWRITE Dsect Cross Reference Page 18 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 419 O_FLAGS 00000004 FFFFFFFC 3603 PARMS 0000001C FFFFFFFE 406 WORKAREA 00000110 FFFFFFFF 390 1FWRITE Using Map Page 19 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 94 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 250 372 FWRITE,11 96 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 018 357 PARMS,10 138 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 090 345 WORKAREA,13 159 0000008E 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 018 341 FILEIOB,R9 381 00000244 00000001 DROP 9 R9 381 00000244 00000001 DROP 10 R10 381 00000244 00000001 DROP 11 R11 381 00000244 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 20 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 88 105M 115M 117M 118 124 161M 161 163 165 175M 176 178M 180 182M 183 207M 209 211M 212 307M 308 343M 344 347M 348 358M 359 366M 378M 1(1) 88 95 108M 110 111 112 116M 117 124 126 127 128 129 203M 204M 304M 308 311 312 340M 344 348 349 350 363M 375M 375 378M 2(2) 88 288M 306 325M 347 378M 3(3) 88 289M 307 326M 349 378M 4(4) 88 328M 346 378M 5(5) 88 329M 342 378M 6(6) 88 237M 237 242M 249M 253M 378M 7(7) 88 238M 239M 239 242M 244 245 252 253M 320 323 378M 8(8) 88 244M 256 259 378M 9(9) 88 157M 158M 158 159U 167 290 378M 381D 10(A) 88 95M 96U 378M 381D 11(B) 88 93M 94U 105 115 378M 381D 12(C) 88 118 121 378M 13(D) 88 110 111 112M 116 126 127 128 129M 130 131 132 133 138U 363 364M 364 365 378 381D 14(E) 88 122M 250M 251M 251 253M 262M 263M 263 265 291M 293 305M 308 309M 311 314M 341M 344 345M 348 352M 365M 366N 378M 380B 15(F) 88 89 93 101M 102M 102 121M 122B 162M 163 164M 165 170M 171 174M 176 179M 180 181M 183 208M 209 210M 212 240M 241M 241 242 252M 253M 255M 256M 257 258M 259M 260 264M 265 292M 293 306M 308 310M 311 313M 314B 316M 317M 317 342M 344 346M 348 351M 352B 357M 359 370M 371M 371 378M 379M 379 1FWRITE Diagnostic Cross Reference and Assembler Summary Page 21 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 1409K would be required for this to be an In-Storage Assembly 315 Primary Input Records Read 9639 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 634 Primary Print Records Written 0 Work File Writes 29 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.24 Stop Time: 12.09.26 Processor Time: 00.00.01.6196 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FREAD External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FREAD1 SD 00000001 00000000 000002E0 06 FREAD LD 00000008 00000001 PLISTART WX 00000002 BPX1RED ER 00000003 1FREAD READ DATA FROM THE FILE Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FREAD -- READ DATA FROM THE FILE * 7 * * 8 * THIS MODULE READS DATA FROM A FILE OPENED BY FOPEN. * 9 * * 10 * INPUTS (*TO FUNCTIONS): * 11 * * 12 * DATA -- CHAR(*) (*1,4) * 13 * THIS IS THE AREA TO COPY DATA INTO. IT NEEDS TO BE AT LEAST * 14 * SIZE TIMES NITEMS LONG. * 15 * * 16 * SIZE -- FULLWORD INTEGER (*1,2,3,4) * 17 * THIS CONTAINS THE SIZE OF EACH ITEM TO BE WRITTEN. IT IS * 18 * NORMALLY PASSED AS 1 (1 BYTE). * 19 * * 20 * NITEMS -- FULLWORD INTEGER (*1,2,3,4) * 21 * THIS CONTAINS THE NUMBER OF ITEMS TO WRITE. THIS PARM TIMES * 22 * THE SIZE PARAMETER IS THE NUMBER OF BYTES TO WRITE. * 23 * * 24 * FILE -- POINTER (*1,3,4) * 25 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 26 * RETURNED VALUE FROM FOPEN. * 27 * * 28 * FUNCTIONS: * 29 * * 30 * 1. VALIDATE THE POINTER TO FILE * 31 * * 32 * 2. CALCULATE THE ACTUAL LENGTH OF THE DATA. * 33 * * 34 * 3. SEE IF THERE IS ENOUGH DATA IN THE BUFFER. IF SO, GET IT * 35 * FROM THERE. * 36 * * 37 * 4. IF WE NEED MORE DATA THAN WAS IN THE BUFFER, SEE IF THE * 38 * AMOUNT WE NEED IS BIGGER THAN THE BUFFER. IN THAT CASE DO A * 39 * DIRECT READ. * 40 * * 41 * OUTPUTS (*FROM FUNCTIONS): * 42 * * 43 * COUNT -- FULLWORD INTEGER (*1,4) * 44 * THIS RETURNED PARAMETER IS THE NUMBER OF ITEMS READ. * 45 * NORMALLY IT IS EQUAL TO NITEMS. -1 ON ERROR. * 46 * * 47 * ERRNO -- FULLWORD INTEGER (*1,4) * 48 * THIS CONTAINS THE ERRNO FROM THE FAILING CALL. IT IS ZERO ON * 49 * SUCCESS. STRERROR CAN BE USED TO GET A MESSAGE * 50 * * 51 * REA -- FULLWORD INTEGER (*1,4) * 52 * THIS CONTAINS THE REASON CODE (ALSO CALLED ERRNO JR.) FROM * 53 * THE FAILING UNIX SYSTEM SERVICES CALL. * 54 * * 55 * NOTES: * 56 * * 1FREAD READ DATA FROM THE FILE Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 * 1. SAMPLE DECLARE AND CALL: * 58 * * 59 * DECLARE FREAD ENTRY(CHAR(*), * 60 * FIXED BINARY(31), * 61 * FIXED BINARY(31), * 62 * POINTER, * 63 * FIXED BINARY(31), * 64 * FIXED BINARY(31)) * 65 * RETURNS(FIXED BINARY(31)); * 66 * DECLARE DATA CHAR(80) INIT(' '); * 67 * DECLARE SIZE FIXED BINARY(31) INIT(1); * 68 * DECLARE NITEMS FIXED BINARY(31) INIT(80); * 69 * DECLARE FILEP POINTER INIT(NULL()); * 70 * DECLARE COUNT FIXED BINARY(31); * 71 * DECLARE ERRNO FIXED BINARY(31); * 72 * DECLARE REASON FIXED BINARY(31); * 73 * * 74 * COUNT = FREAD(DATA, SIZE, NITEMS, FILEP, ERRNO, REASON); * 75 * * 76 * 2. NOTE THAT ERRNO MAY NOT BE SET UNLESS A REAL READ IS DONE. * 77 * * 78 *********************************************************************** 1FREAD READ DATA FROM THE FILE Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 80 FREAD RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 002E0 81+FREAD1 CSECT , 01-RENTR 82+ ENTRY FREAD INDICATE ENTRY POINT 01-RENTR 000000 83+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 4040 84+ DC CL2' ' PADDING TO 8 BYTES 01-RENTR 000002 C6D9C5C1C405 85+ DC C'FREAD',AL1(5) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 86+FREAD DS 0H 01-RENTR 000008 90EC D00C 0000C 87+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 88+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 89+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000108 90+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 91+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 92+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 93+ USING FREAD,11 01-RENTR 00001E 18A1 94+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 95+ USING PARMS,10 01-RENTR 96+ WXTRN PLISTART 01-RENTR 000020 97+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 98+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 99+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 100+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 101+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 102+ BNZ PL10001 01-RENTR 103+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 104+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 107+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 108+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 109+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 110+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 111+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 112+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 113+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 114+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 115+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 116+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 117+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 118+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 120+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 121+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 123+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 124+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 125+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 126+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 127+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 128+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 129+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 130+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 131+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 132+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 134+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 135+COM0001 DS 0H 01-RENTR 1FREAD READ DATA FROM THE FILE Page 6 Active Usings: PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 137+ USING WORKAREA,13 01-RENTR 138 FREAD1 AMODE 31 139 FREAD1 RMODE ANY 1FREAD READ DATA FROM THE FILE Page 7 Active Usings: PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 141 *********************************************************************** 142 * * 143 * VALIDATE THE IOB FIRST * 144 * * 145 * REGISTER USAGE: * 146 * R9 -> FILEIOB AREA * 147 * R10 -> PARM LIST FROM CALLER * 148 * R11 - BASE FOR PROGRAM * 149 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 150 * MODIFY * 151 * R13 -> DYNAMIC SAVE AND WORK AREA * 152 * R15 - WORK REGISTER FOR DATA TRANSFER. * 153 * * 154 *********************************************************************** 0000086 5890 A00C 0000C 156 L R9,PLIFILE POINT TO FILE IOB 00008A 5890 9000 00000 157 L R9,0(,R9) LOAD THE IOB ADDR R:9 00000 158 USING FILEIOB,R9 000008E 1F00 160 SLR R0,R0 GET A ZERO 000090 58F0 A010 00010 161 L R15,PLIERRNO 000094 5000 F000 00000 162 ST R0,0(,R15) 000098 58F0 A014 00014 163 L R15,PLIREA 00009C 5000 F000 00000 164 ST R0,0(,R15) 00000A0 5990 B2C8 002D0 166 C R9,=A(PLINULL) IS THIS FILE ALREADY CLOSED? 0000A4 4780 B296 0029E 167 BE RETURN IF SO, NOTHING TO DO 00000A8 58F0 B2CC 002D4 169 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000AC 59F0 9000 00000 170 C R15,IOBMARK IS THIS A VALID IOB? 0000B0 4780 B0D4 000DC 171 BE IOBOK IF SO, KEEP GOING 00000B4 58F0 A00C 0000C 173 L R15,PLIFILE POINT TO THE RETURNED POINTER 0000B8 5800 B2C8 002D0 174 L R0,=A(PLINULL) GET THE PL/I NULL VALUE 0000BC 5000 F000 00000 175 ST R0,0(,R15) START WITH FAILURE. 00000C0 4100 0071 00071 177 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000C4 58F0 A010 00010 178 L R15,PLIERRNO 0000C8 5000 F000 00000 179 ST R0,0(,R15) 0000CC 58F0 A014 00014 180 L R15,PLIREA 0000D0 4100 00A9 000A9 181 LA R0,JRINVALIDPARMS INVALID PARMS TO FREAD 0000D4 5000 F000 00000 182 ST R0,0(,R15) 0000D8 47F0 B28A 00292 183 B FAILURE 1FREAD READ DATA FROM THE FILE Page 8 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 185 *********************************************************************** 186 * * 187 * MAKE SURE THE FILE IS OPEN FOR INPUT, OTHERWISE FLAG AN ERROR. * 188 * * 189 * REGISTER USAGE: * 190 * R9 -> FILEIOB AREA * 191 * R10 -> PARM LIST FROM CALLER * 192 * R11 - BASE FOR PROGRAM * 193 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 194 * MODIFY * 195 * R13 -> DYNAMIC SAVE AND WORK AREA * 196 * R15 - WORK REGISTER FOR DATA TRANSFER. * 197 * * 198 *********************************************************************** 00000DC 200 IOBOK DS 0H 0000DC 5810 B2D0 002D8 201 L R1,=A(O_RDONLY) GET THE READ BIT 0000E0 5410 9014 00014 202 N R1,IOBFLAG IS THIS SOME FLAVOR OF INPUT? 0000E4 4770 B0FC 00104 203 BNZ TESTSIZE IF SO, BEGIN PROCESSING 00000E8 4100 0071 00071 205 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000EC 58F0 A010 00010 206 L R15,PLIERRNO 0000F0 5000 F000 00000 207 ST R0,0(,R15) 0000F4 58F0 A014 00014 208 L R15,PLIREA 0000F8 4100 0033 00033 209 LA R0,JRRFILEWRONLY READ FROM WRITE ONLY STREAM 0000FC 5000 F000 00000 210 ST R0,0(,R15) 000100 47F0 B28A 00292 211 B FAILURE 0 213 *********************************************************************** 214 * * 215 * SEE IF THERE IS ENOUGH DATA IN THE BUFFER TO SATISFY THE REQUEST. * 216 * IF SO, MOVE IT TO THE TARGET. * 217 * * 218 * REGISTER USAGE: * 219 * R2 - WORK REGISTER FOR MVCL (SOURCE) * 220 * R3 - AMOUNT TO MOVE, EITHER REQUEST OR WHAT'S LEFT * 221 * R4 - COPY OF AMOUNT TO MOVE * 222 * R6 -> CURRENT LOCATION IN TARGET PARAMETER * 223 * R7 - AMOUNT OF DATA LEFT TO READ * 224 * R8 - COPY OF THE LENGTH OF THE DATA TO READ * 225 * R9 -> FILEIOB AREA * 226 * R10 -> PARM LIST FROM CALLER * 227 * R11 - BASE FOR PROGRAM * 228 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 229 * MODIFY * 230 * R13 -> DYNAMIC SAVE AND WORK AREA * 231 * R14 - WORK REGISTER FOR MVCL (TARGET) * 232 * R15 - WORK REGISTER FOR MVCL * 233 * * 234 *********************************************************************** 0000104 236 TESTSIZE DS 0H 000104 1F66 237 SLR R6,R6 CLEAR HIGH REGISTER FOR MULTIPLY 000106 5870 A008 00008 238 L R7,PLINITEM POINT TO NUMBER ITEMS 00010A 5870 7000 00000 239 L R7,0(,R7) LOAD NUMBER ITEMS 1FREAD READ DATA FROM THE FILE Page 9 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000010E 58F0 A004 00004 240 L R15,PLISIZE POINT TO SIZE OF EACH ITEM 000112 58F0 F000 00000 241 L R15,0(,R15) LOAD SIZE OF EACH ITEM 000116 1C6F 242 MR R6,R15 CALCULATE NUMBER BYTES INTO R7 000118 5860 A000 00000 243 L R6,PLIDATA POINT TO DATA L/D 00011C 5860 6000 00000 244 L R6,0(,R6) POINT TO ACTUAL DATA 0000120 1887 246 LR R8,R7 SAVE A COPY OF THE LENGTH 000122 5830 900C 0000C 247 L R3,IOBCNT GET AMOUNT LEFT IN THE BUFFER 000126 1233 248 LTR R3,R3 IS THERE ANYTHING IN THE BUFFER? 000128 4780 B168 00170 249 BZ NEEDMORE 000012C 251 SIZEMOVE DS 0H 00012C 1973 252 CR R7,R3 COMPARE REQUESTED TO AMOUNT LEFT 00012E 4720 B12C 00134 253 BH COPY IF NOT ENOUGH, COPY WHAT WE HAVE. 0000132 1837 255 LR R3,R7 SET AMOUNT TO COPY FROM REQUEST 0000134 257 COPY DS 0H 000134 1843 258 LR R4,R3 SAVE A COPY OF THE AMOUNT MOVED 000136 5820 9018 00018 259 L R2,IOBPTR POINT TO NEXT BYTE IN BUFF 00013A 18E6 260 LR R14,R6 POINT TO TARGET AREA 00013C 18F3 261 LR R15,R3 COMPLETE THE MVCL SETUP 00013E 0EE2 262 MVCL R14,R2 COPY DATA TO THE TARGET 0000140 58F0 900C 0000C 264 L R15,IOBCNT BYTES IN BUFFER 000144 1BF4 265 SR R15,R4 MINUS SPACE COPIED 000146 50F0 900C 0000C 266 ST R15,IOBCNT IS NEW BYTES IN BUFFER 00014A 58F0 9018 00018 267 L R15,IOBPTR OLD NEXT SPOT TO READ FROM 00014E 1AF4 268 AR R15,R4 PLUS BYTES COPIED 000150 50F0 9018 00018 269 ST R15,IOBPTR IS NEW NEXT BYTE TO READ FROM 0000154 1B74 271 SR R7,R4 SUB OFF DATA COPIED 000156 1277 272 LTR R7,R7 NEED MORE? 000158 4720 B168 00170 273 BP NEEDMORE IF SO, GO GET IT. 000015C 58E0 A008 00008 275 L R14,PLINITEM NUMBER OF ITEMS WRITTEN 000160 58E0 E000 00000 276 L R14,0(,R14) INTO R14 000164 58F0 A018 00018 277 L R15,PLICOUNT POINT TO RETURNED PARM 000168 50E0 F000 00000 278 ST R14,0(,R15) AND PUT IN THE RETURNED PARM. 00016C 47F0 B296 0029E 279 B RETURN 1FREAD READ DATA FROM THE FILE Page 10 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 281 *********************************************************************** 282 * * 283 * SEE IF THE CALLER IS ASKING FOR MORE THAN A BUFFER FULL. IF SO, DO * 284 * THE READ DIRECTLY INTO HIS BUFFER. OTHERWISE LOAD THE BUFFER AND * 285 * MOVE WHAT IS NEEDED. * 286 * * 287 * REGISTER USAGE: * 288 * R3 - AMOUNT TO MOVE, EITHER REQUEST OR WHAT'S LEFT * 289 * R6 -> CURRENT LOCATION IN TARGET PARAMETER * 290 * R7 - AMOUNT OF DATA LEFT TO READ * 291 * R8 - COPY OF THE LENGTH OF THE DATA TO READ * 292 * R9 -> FILEIOB AREA * 293 * R10 -> PARM LIST FROM CALLER * 294 * R11 - BASE FOR PROGRAM * 295 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 296 * MODIFY * 297 * R13 -> DYNAMIC SAVE AND WORK AREA * 298 * R14 - WORK REGISTER FOR MVCL (TARGET) * 299 * R15 - WORK REGISTER FOR MVCL * 300 * * 301 *********************************************************************** 0000170 303 NEEDMORE DS 0H 000170 5970 9008 00008 304 C R7,IOBBUFSZ IS THE AMOUNT NEEDED > 1 BUFFER? 000174 47B0 B20C 00214 305 BNL DIRECTRD IF SO, JUST DO THE READ 0000178 D703 D068 D068 00068 00068 307 XC ALET,ALET ZERO THE ALET PARM 0 309 CALL BPX1RED,(IOBFILE, X IOBBASE, X ALET, X IOBBUFSZ, X RETVAL, X ERRNO, X REA),VL,MF=(E,CALLLIST) 00017E 0700 311+ CNOP 0,4 01-CALL 000180 47F0 B180 00188 312+ B *+8 BRANCH AROUND VCON 01-CALL 000184 00000000 313+IHB0004B DC V(BPX1RED) ENTRY POINT ADDRESS 01-CALL 000188 4110 D088 00088 318+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 00018C 41E0 9010 00010 319+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 000190 41F0 9004 00004 320+ LA 15,IOBBASE PICKUP PARAMETER 02-IHBOP 000194 4100 D068 00068 321+ LA 0,ALET PICKUP PARAMETER 02-IHBOP 000198 90E0 1000 00000 322+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 00019C 41E0 9008 00008 323+ LA 14,IOBBUFSZ PICKUP PARAMETER 02-IHBOP 0001A0 41F0 D074 00074 324+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 0001A4 4100 D078 00078 325+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 0001A8 90E0 100C 0000C 326+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0001AC 41E0 D07C 0007C 327+ LA 14,REA PICKUP PARAMETER 02-IHBOP 0001B0 50E0 1018 00018 328+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 0001B4 9680 1018 00018 329+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0001B8 58F0 B17C 00184 330+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 0001BC 05EF 331+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00001BE 58F0 D074 00074 333 L R15,RETVAL ANYTHING READ? 0001C2 12FF 334 LTR R15,R15 1FREAD READ DATA FROM THE FILE Page 11 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00001C4 4780 B1F0 001F8 335 BZ EOF FLAG EOF 0001C8 4720 B1E0 001E8 336 BP RESET RESET THE BUFFER 00001CC 5810 A010 00010 338 L R1,PLIERRNO COPY ERRNO AND REA TO RETURNED PARMS 0001D0 5800 D078 00078 339 L R0,ERRNO 0001D4 5000 1000 00000 340 ST R0,0(,R1) 0001D8 5810 A014 00014 341 L R1,PLIREA 0001DC 5800 D07C 0007C 342 L R0,REA 0001E0 5000 1000 00000 343 ST R0,0(,R1) 0001E4 47F0 B28A 00292 344 B FAILURE 00001E8 346 RESET DS 0H 0001E8 D203 9018 9004 00018 00004 347 MVC IOBPTR(4),IOBBASE START OF BUFFER 0001EE 50F0 900C 0000C 348 ST R15,IOBCNT SHOW HOW MANY BYTES LEFT 0001F2 183F 349 LR R3,R15 SET AMOUNT AVAILABLE TO COPY 0001F4 47F0 B124 0012C 350 B SIZEMOVE GO SEE HOW MUCH TO MOVE 00001F8 352 EOF DS 0H 0001F8 1B87 353 SR R8,R7 REQUESTED - NUM LEFT IS NUM READ 0001FA 1878 354 LR R7,R8 SET UP FOR THE DIVIDE 0001FC 1F66 355 SLR R6,R6 CLEAR FOR THE DIVIDE 0001FE 58F0 A004 00004 356 L R15,PLISIZE POINT TO SIZE OF ITEM 000202 58F0 F000 00000 357 L R15,0(,R15) LOAD SIZE OF EACH ITEM (USUALLY 1) 000206 1D6F 358 DR R6,R15 GET NUMBER OF ITEMS READ 000208 58F0 A018 00018 359 L R15,PLICOUNT POINT TO THE RETURNED PARM 00020C 5070 F000 00000 360 ST R7,0(,R15) SAVE NUMBER OF ITEMS READ. 000210 47F0 B296 0029E 361 B RETURN 1FREAD READ DATA FROM THE FILE Page 12 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 363 *********************************************************************** 364 * * 365 * THE BUFFER IS NOW EMPTY AND THE CALLER REQUESTS MORE THAN ONE * 366 * BUFFER OF DATA. JUST READ THE DATA INTO THE TARGET. * 367 * * 368 * REGISTER USAGE: * 369 * R3 - AMOUNT TO MOVE, EITHER REQUEST OR WHAT'S LEFT * 370 * R6 -> CURRENT LOCATION IN TARGET PARAMETER * 371 * R7 - AMOUNT OF DATA LEFT TO READ * 372 * R8 - COPY OF THE LENGTH OF THE DATA TO READ * 373 * R9 -> FILEIOB AREA * 374 * R10 -> PARM LIST FROM CALLER * 375 * R11 - BASE FOR PROGRAM * 376 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 377 * MODIFY * 378 * R13 -> DYNAMIC SAVE AND WORK AREA * 379 * * 380 *********************************************************************** 0000214 382 DIRECTRD DS 0H 0000214 D703 D068 D068 00068 00068 384 XC ALET,ALET ZERO THE ALET PARM 00021A 5060 D06C 0006C 385 ST R6,BUFFADDR 00021E 5070 D070 00070 386 ST R7,BUFFLEN 0 388 CALL BPX1RED,(IOBFILE, X BUFFADDR, X ALET, X BUFFLEN, X RETVAL, X ERRNO, X REA),VL,MF=(E,CALLLIST) 000222 0700 390+ CNOP 0,4 01-CALL 000224 47F0 B224 0022C 391+ B *+8 BRANCH AROUND VCON 01-CALL 000228 00000000 392+IHB0010B DC V(BPX1RED) ENTRY POINT ADDRESS 01-CALL 00022C 4110 D088 00088 397+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000230 41E0 9010 00010 398+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 000234 41F0 D06C 0006C 399+ LA 15,BUFFADDR PICKUP PARAMETER 02-IHBOP 000238 4100 D068 00068 400+ LA 0,ALET PICKUP PARAMETER 02-IHBOP 00023C 90E0 1000 00000 401+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000240 41E0 D070 00070 402+ LA 14,BUFFLEN PICKUP PARAMETER 02-IHBOP 000244 41F0 D074 00074 403+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 000248 4100 D078 00078 404+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 00024C 90E0 100C 0000C 405+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 000250 41E0 D07C 0007C 406+ LA 14,REA PICKUP PARAMETER 02-IHBOP 000254 50E0 1018 00018 407+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 000258 9680 1018 00018 408+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 00025C 58F0 B220 00228 409+ L 15,IHB0010B LOAD 15 WITH ENTRY ADR 01-CALL 000260 05EF 410+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 0000262 58F0 D074 00074 412 L R15,RETVAL ANYTHING READ? 000266 12FF 413 LTR R15,R15 000268 4780 B1F0 001F8 414 BZ EOF FLAG EOF 00026C 4740 B26E 00276 415 BM READERR2 RESET THE BUFFER 1FREAD READ DATA FROM THE FILE Page 13 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FREAD(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000270 1B7F 417 SR R7,R15 SUB AMOUNT READ FROM REQUESTED 000272 47F0 B1F0 001F8 418 B EOF NEED SAME PROCESSING EOF USED 0000276 420 READERR2 DS 0H 000276 5810 A010 00010 421 L R1,PLIERRNO COPY ERRNO AND REA TO RETURNED PARMS 00027A 5800 D078 00078 422 L R0,ERRNO 00027E 5000 1000 00000 423 ST R0,0(,R1) 000282 5810 A014 00014 424 L R1,PLIREA 000286 5800 D07C 0007C 425 L R0,REA 00028A 5000 1000 00000 426 ST R0,0(,R1) 00028E 47F0 B28A 00292 427 B FAILURE 0000292 429 FAILURE DS 0H 000292 58F0 A018 00018 430 L R15,PLICOUNT 000296 5800 B2D4 002DC 431 L R0,=F'-1' 00029A 5000 F000 00000 432 ST R0,0(,R15) SHOW COUNT = -1; 000029E 434 RETURN DS 0H 435 REXIT ENV=BOTH 00029E 4110 D000 00000 436+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 0002A2 58D0 D004 00004 437+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 0002A6 58E0 D010 00010 438+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 0002AA 580E 000C 0000C 439+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 0002AE 0700 440+ CNOP 0,4 01-REXIT 0002B0 47F0 B2B0 002B8 441+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 0002B4 00000000 442+ DC V(PLISTART) 01-REXIT 0002B8 58F0 B2AC 002B4 443+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 0002BC 12FF 444+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 0002BE 4770 B2C0 002C8 445+ BNZ PL10016 01-REXIT 0002C2 4110 1000 00000 448+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 0002C6 0A0A 449+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 0002C8 450+PL10016 DS 0H 01-REXIT 0002C8 98EC D00C 0000C 451+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 0002CC 1FFF 452+ SLR 15,15 ZERO RETURN CODE 01-REXIT 0002CE 07FE 453+ BR 14 RETURN 01-REXIT 454 DROP R9,R10,R11,R13 00002D0 456 LTORG 0002D0 FF000000 457 =A(PLINULL) 0002D4 BEADBEEF 458 =A(IOBMAGIC) 0002D8 00000002 459 =A(O_RDONLY) 0002DC FFFFFFFF 460 =F'-1' 1FREAD READ DATA FROM THE FILE Page 14 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00108 462 WORKAREA DSECT 000000 463 DS 26F 000068 464 ALET DS A 00006C 465 BUFFADDR DS A 000070 466 BUFFLEN DS F 000074 467 RETVAL DS F 000078 468 ERRNO DS F 00007C 469 REA DS F 000080 470 COMPONNT DS CL8 000088 471 CALLLIST DS 16D 00108 472 WORKLEN EQU *-WORKAREA 0 474 * 475 * OPTIONS ASSEMBLER 476 * 000000 00000 0001C 477 PARMS DSECT 000000 478 PLIDATA DS A DATA TO WRITE 000004 479 PLISIZE DS A SIZE OF EACH ITEM (USUALLY 1 BYTE) 000008 480 PLINITEM DS A COUNT OF ITEMS TO WRITE 00000C 481 PLIFILE DS A POINTER TO FILE 000010 482 PLIERRNO DS A ERRNO VALUE 000014 483 PLIREA DS A REASON CODE 000018 484 PLICOUNT DS A RETURNED NUMBER OF BYTES WRITTEN 0 000000 486 PLINULL EQU X'FF000000' 0 488 FILEIOB 0000000 00000 00020 490+FILEIOB DSECT 01-FILEI 000000 491+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 492+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 493+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 494+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 495+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 496+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 497+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 498+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 499+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 501+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 502+IOBBUFFL EQU 16384 01-FILEI - 505 PRINT NOGEN 506 BPXYERNO 3671 BPXYOPNF 0 3709 SYMBAR MODE=DEC 3726 END 1FREAD Relocation Dictionary Page 15 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 000002B4 00000001 00000003 1C 00000184 00000001 00000003 1C 00000228 1FREAD Ordinary Symbol and Literal Cross Reference Page 16 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0ALET 4 00000068 FFFFFFFF A 464 307M 307 321 384M 384 400 BPX1RED 1 00000000 00000003 T 313 313 392 BUFFADDR 4 0000006C FFFFFFFF A 465 385M 399 BUFFLEN 4 00000070 FFFFFFFF F 466 386M 402 CALLLIST 8 00000088 FFFFFFFF D 471 318 397 COM0001 2 00000086 00000001 H 135 112B COPY 2 00000134 00000001 H 257 253B DIRECTRD 2 00000214 00000001 H 382 305B EBADF 1 00000071 FFFFFFFD A U 523 177 205 EOF 2 000001F8 00000001 H 352 335B 414B 418B ERRNO 4 00000078 FFFFFFFF F 468 325 339 404 422 FAILURE 2 00000292 00000001 H 429 183B 211B 344B 427B FILEIOB 1 00000000 FFFFFFFD J 490 158U 499 FREAD 2 00000008 00000001 H 86 82 93U FREAD1 1 00000000 00000001 J 81 138 139 IHB0004B 4 00000184 00000001 V 313 330 IHB0010B 4 00000228 00000001 V 392 409 IOBBASE 4 00000004 FFFFFFFD A 492 320 347 IOBBUFSZ 4 00000008 FFFFFFFD F 493 304 323 IOBCNT 4 0000000C FFFFFFFD F 494 247 264 266M 348M IOBFILE 4 00000010 FFFFFFFD F 495 319 398 IOBFLAG 4 00000014 FFFFFFFD F 496 202 IOBMAGIC 1 BEADBEEF FFFFFFFD A U 501 458 IOBMARK 4 00000000 FFFFFFFD F 491 170 IOBOK 2 000000DC 00000001 H 200 171B IOBPTR 4 00000018 FFFFFFFD A 497 259 267 269M 347M JRINVALIDPARMS 1 000000A9 FFFFFFFD A U 958 181 JRRFILEWRONLY 1 00000033 FFFFFFFD A U 765 209 NEEDMORE 2 00000170 00000001 H 303 249B 273B O_FLAGS 1 00000000 FFFFFFFC J 3674 3705 O_RDONLY 1 00000002 FFFFFFFC A U 3699 459 PARMS 1 00000000 FFFFFFFE J 477 95U PLICOUNT 4 00000018 FFFFFFFE A 484 277 359 430 PLIDATA 4 00000000 FFFFFFFE A 478 243 PLIERRNO 4 00000010 FFFFFFFE A 482 161 178 206 338 421 PLIFILE 4 0000000C FFFFFFFE A 481 156 173 PLINITEM 4 00000008 FFFFFFFE A 480 238 275 PLINULL 1 FF000000 FFFFFFFE A U 486 457 PLIREA 4 00000014 FFFFFFFE A 483 163 180 208 341 424 PLISIZE 4 00000004 FFFFFFFE A 479 240 356 PLISTART 1 00000000 00000002 $ 96 99 442 PL10001 2 0000004A 00000001 H 113 102B PL10016 2 000002C8 00000001 H 450 445B REA 4 0000007C FFFFFFFF F 469 327 342 406 425 READERR2 2 00000276 00000001 H 420 415B RESET 2 000001E8 00000001 H 346 336B RETURN 2 0000029E 00000001 H 434 167B 279B 361B RETVAL 4 00000074 FFFFFFFF F 467 324 333 403 412 R0 1 00000000 FFFFFFFC A U 3710 160M 160 162 164 174M 175 177M 179 181M 182 205M 207 209M 210 339M 340 342M 343 422M 423 425M 426 431M 432 R1 1 00000001 FFFFFFFC A U 3711 201M 202M 338M 340 341M 343 421M 423 424M 426 R10 1 0000000A FFFFFFFC A U 3720 454D R11 1 0000000B FFFFFFFC A U 3721 454D 1FREAD Ordinary Symbol and Literal Cross Reference Page 17 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0R13 1 0000000D FFFFFFFC A U 3723 454D R14 1 0000000E FFFFFFFC A U 3724 260M 262M 275M 276M 276 278 R15 1 0000000F FFFFFFFC A U 3725 161M 162 163M 164 169M 170 173M 175 178M 179 180M 182 206M 207 208M 210 240M 241M 241 242 261M 264M 265M 266 267M 268M 269 277M 278 333M 334M 334 348 349 356M 357M 357 358 359M 360 412M 413M 413 417 430M 432 R2 1 00000002 FFFFFFFC A U 3712 259M 262M R3 1 00000003 FFFFFFFC A U 3713 247M 248M 248 252 255M 258 261 349M R4 1 00000004 FFFFFFFC A U 3714 258M 265 268 271 R6 1 00000006 FFFFFFFC A U 3716 237M 237 242M 243M 244M 244 260 355M 355 358M 385 R7 1 00000007 FFFFFFFC A U 3717 238M 239M 239 246 252 255 271M 272M 272 304 353 354M 360 386 417M R8 1 00000008 FFFFFFFC A U 3718 246M 353M 354 R9 1 00000009 FFFFFFFC A U 3719 156M 157M 157 158U 166 454D SIZEMOVE 2 0000012C 00000001 H 251 350B TESTSIZE 2 00000104 00000001 H 236 203B WORKAREA 1 00000000 FFFFFFFF J 462 137U 472 WORKLEN 1 00000108 FFFFFFFF A U 472 90 =A(IOBMAGIC) 4 000002D4 00000001 A 458 169 =A(O_RDONLY) 4 000002D8 00000001 A 459 201 =A(PLINULL) 4 000002D0 00000001 A 457 166 174 =F'-1' 4 000002DC 00000001 F 460 431 1FREAD Macro and Copy Code Source Summary Page 18 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO BPXYOPNF CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FREAD Dsect Cross Reference Page 19 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 490 O_FLAGS 00000004 FFFFFFFC 3674 PARMS 0000001C FFFFFFFE 477 WORKAREA 00000108 FFFFFFFF 462 1FREAD Using Map Page 20 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 93 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 2D4 445 FREAD,11 95 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 018 430 PARMS,10 137 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 088 425 WORKAREA,13 158 0000008E 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 018 398 FILEIOB,R9 454 000002D0 00000001 DROP 9 R9 454 000002D0 00000001 DROP 10 R10 454 000002D0 00000001 DROP 11 R11 454 000002D0 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 21 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 87 104M 114M 116M 117 123 160M 160 162 164 174M 175 177M 179 181M 182 205M 207 209M 210 321M 322 325M 326 339M 340 342M 343 400M 401 404M 405 422M 423 425M 426 431M 432 439M 451M 1(1) 87 94 107M 109 110 111 115M 116 123 125 126 127 128 201M 202M 318M 322 326 328 329 338M 340 341M 343 397M 401 405 407 408 421M 423 424M 426 436M 448M 448 451M 2(2) 87 259M 262M 451M 3(3) 87 247M 248M 248 252 255M 258 261 262M 349M 451M 4(4) 87 258M 265 268 271 451M 5(5) 87 451M 6(6) 87 237M 237 242M 243M 244M 244 260 355M 355 358M 385 451M 7(7) 87 238M 239M 239 242M 246 252 255 271M 272M 272 304 353 354M 358M 360 386 417M 451M 8(8) 87 246M 353M 354 451M 9(9) 87 156M 157M 157 158U 166 451M 454D 10(A) 87 94M 95U 451M 454D 11(B) 87 92M 93U 104 114 451M 454D 12(C) 87 117 120 451M 13(D) 87 109 110 111M 115 125 126 127 128M 129 130 131 132 137U 436 437M 437 438 451 454D 14(E) 87 121M 260M 262M 275M 276M 276 278 319M 322 323M 326 327M 328 331M 398M 401 402M 405 406M 407 410M 438M 439N 451M 453B 15(F) 87 88 92 100M 101M 101 120M 121B 161M 162 163M 164 169M 170 173M 175 178M 179 180M 182 206M 207 208M 210 240M 241M 241 242 261M 262M 264M 265M 266 267M 268M 269 277M 278 320M 322 324M 326 330M 331B 333M 334M 334 348 349 356M 357M 357 358 359M 360 399M 401 403M 405 409M 410B 412M 413M 413 417 430M 432 443M 444M 444 451M 452M 452 1FREAD Diagnostic Cross Reference and Assembler Summary Page 22 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 1421K would be required for this to be an In-Storage Assembly 385 Primary Input Records Read 9639 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 708 Primary Print Records Written 0 Work File Writes 32 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.26 Stop Time: 12.09.28 Processor Time: 00.00.01.6357 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FILENO External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FILENO1 SD 00000001 00000000 00000040 06 FILENO LD 00000008 00000001 1FILENO GET THE BPX1 FILE DESCRIPTOR Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FILENO -- GET THE BPX1 FILE DESCRIPTOR * 7 * * 8 * THIS MODULE CLOSES A FILE OPENED WITH FOPEN. * 9 * * 10 * INPUTS (*TO FUNCTIONS): * 11 * * 12 * FILE -- POINTER (*1) * 13 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 14 * RETURNED VALUE FROM FOPEN. * 15 * * 16 * FUNCTIONS: * 17 * * 18 * 1. OVERLAY THE IOB AND RETURN THE FILE NUMBER. * 19 * * 20 * OUTPUTS (*FROM FUNCTIONS): * 21 * * 22 * FILENO -- FULLWORD INTEGER (*1) * 23 * THE RETURNED VALUE IS THE FILE NUMBER, OF THE SORT OPENED BY * 24 * BPX1OPN. * 25 * * 26 * NOTES: * 27 * * 28 * 1. SAMPLE DECLARE AND CALL: * 29 * * 30 * DECLARE FILENO ENTRY(POINTER) * 31 * RETURNS(FIXED BINARY(31)); * 32 * DECLARE FILEP POINTER INIT(NULL()); * 33 * DECLARE FD FIXED BINARY(31); * 34 * * 35 * FD = FILENO(FILEP); * 36 * * 37 *********************************************************************** 1FILENO GET THE BPX1 FILE DESCRIPTOR Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 39 FILENO RENTR BASE=11,PARM=(10,PARMS),WORK=0 000000 00000 00040 40+FILENO1 CSECT , 01-RENTR 41+ ENTRY FILENO INDICATE ENTRY POINT 01-RENTR 000000 42+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 40 43+ DC CL1' ' PADDING TO 8 BYTES 01-RENTR 000001 C6C9D3C5D5D606 44+ DC C'FILENO',AL1(6) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 45+FILENO DS 0H 01-RENTR 000008 90EC D00C 0000C 46+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 47+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 48+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000000 49+ DC A(0) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 50+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 51+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 52+ USING FILENO,11 01-RENTR 00001E 18A1 53+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 54+ USING PARMS,10 01-RENTR 55 FILENO1 AMODE 31 56 FILENO1 RMODE ANY 1FILENO GET THE BPX1 FILE DESCRIPTOR Page 5 Active Usings: PARMS(X'1000'),R10 FILENO(X'1000'),R11 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 58 *********************************************************************** 59 * * 60 * GRAB THE FILE DESCRIPTOR FROM THE IOB AND RETURN IT. * 61 * * 62 * REGISTER USAGE: * 63 * R9 -> FILEIOB AREA * 64 * R10 -> PARM LIST FROM CALLER * 65 * R11 - BASE FOR PROGRAM * 66 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 67 * MODIFY * 68 * R13 -> DYNAMIC SAVE AND WORK AREA * 69 * R15 - WORK REGISTER FOR DATA TRANSFER. * 70 * * 71 *********************************************************************** 0000020 5890 A000 00000 73 L R9,PLIFILE POINT TO FILE IOB 000024 5890 9000 00000 74 L R9,0(,R9) LOAD THE IOB ADDR R:9 00000 75 USING FILEIOB,R9 0000028 5800 9010 00010 77 L R0,IOBFILE GET THE FILE NO 00002C 58F0 A004 00004 78 L R15,PLIFILEN POINT TO THE RETURNED PARM 000030 5000 F000 00000 79 ST R0,0(,R15) SAVE IT 0000034 81 RETURN DS 0H 0 83 REXIT LSA=NO 000034 98EC D00C 0000C 84+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000038 1FFF 85+ SLR 15,15 ZERO RETURN CODE 01-REXIT 00003A 07FE 86+ BR 14 RETURN 01-REXIT 87 DROP R9,R10,R11 0000040 89 LTORG 1FILENO GET THE BPX1 FILE DESCRIPTOR Page 6 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 92 * 93 * PARMS 94 * 000000 00000 00008 95 PARMS DSECT 000000 96 PLIFILE DS A POINTER TO FILE TO CLOSE 000004 97 PLIFILEN DS A ERRNO VALUE 0 99 FILEIOB 0000000 00000 00020 101+FILEIOB DSECT 01-FILEI 000000 102+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 103+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 104+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 105+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 106+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 107+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 108+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 109+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 110+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 112+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 113+IOBBUFFL EQU 16384 01-FILEI - 116 PRINT NOGEN 117 BPXYERNO 0 3283 SYMBAR MODE=DEC 3300 END 1FILENO Ordinary Symbol and Literal Cross Reference Page 7 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0FILEIOB 1 00000000 FFFFFFFE J 101 75U 110 FILENO 2 00000008 00000001 H 45 41 52U FILENO1 1 00000000 00000001 J 40 55 56 IOBFILE 4 00000010 FFFFFFFE F 106 77 PARMS 1 00000000 FFFFFFFF J 95 54U PLIFILE 4 00000000 FFFFFFFF A 96 73 PLIFILEN 4 00000004 FFFFFFFF A 97 78 R0 1 00000000 FFFFFFFE A U 3284 77M 79 R10 1 0000000A FFFFFFFE A U 3294 87D R11 1 0000000B FFFFFFFE A U 3295 87D R15 1 0000000F FFFFFFFE A U 3299 78M 79 R9 1 00000009 FFFFFFFE A U 3293 73M 74M 74 75U 87D 1FILENO Macro and Copy Code Source Summary Page 8 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FILENO Dsect Cross Reference Page 9 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFE 101 PARMS 00000008 FFFFFFFF 95 1FILENO Using Map Page 10 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 52 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 000 FILENO,11 54 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 10 004 78 PARMS,10 75 00000028 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 9 010 77 FILEIOB,R9 87 0000003C 00000001 DROP 9 R9 87 0000003C 00000001 DROP 10 R10 87 0000003C 00000001 DROP 11 R11 1 General Purpose Register Cross Reference Page 11 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 46 77M 79 84M 1(1) 46 53 84M 2(2) 46 84M 3(3) 46 84M 4(4) 46 84M 5(5) 46 84M 6(6) 46 84M 7(7) 46 84M 8(8) 46 84M 9(9) 46 73M 74M 74 75U 84M 87D 10(A) 46 53M 54U 84M 87D 11(B) 46 51M 52U 84M 87D 12(C) 46 84M 13(D) 46 84 14(E) 46 84M 86B 15(F) 46 47 51 78M 79 84M 85M 85 1FILENO Diagnostic Cross Reference and Assembler Summary Page 12 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 969K would be required for this to be an In-Storage Assembly 87 Primary Input Records Read 3992 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 238 Primary Print Records Written 0 Work File Writes 9 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.28 Stop Time: 12.09.29 Processor Time: 00.00.00.8461 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FDOPEN External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FDOPEN1 SD 00000001 00000000 0000013C 06 FDOPEN LD 00000008 00000001 PLISTART WX 00000002 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FDOPEN -- FOPEN STARTING WITH A BPX1OPN FD * 7 * * 8 * THIS MODULE CREATES AN IOB FOR A FILE DESCRIPTOR WHICH IS * 9 * ALREADY OPEN. * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * FD -- FIXED BINARY(31) (FULLWORD) (*1) * 14 * THIS IS THE FILE DESCRIPTOR OPENED BY BPX1OPN. THE IOB IS * 15 * SET UP TO ALLOW BOTH READING AND WRITING AS WE DO NOT KNOW * 16 * HOW THE FILE DESCRIPTOR WAS OPENED. * 17 * * 18 * FUNCTIONS: * 19 * * 20 * 1. ALLOCATE AND INITIALIZE THE FILEIOB DSECT AND RETURNED * 21 * PARAMETERS. * 22 * * 23 * 2. ALLOCATE A DEFAULT SIZE BUFFER AND SAVE IT'S ADDRESS. * 24 * * 25 * OUTPUTS (*FROM FUNCTIONS): * 26 * * 27 * FILE -- POINTER (*1,2) * 28 * THE RETURNED VALUE IS THE POINTER TO FILE PASSED TO OTHER * 29 * STDIO ROUTINES IN THIS MODULE. ON FAILURE, NULL() IS * 30 * RETURNED AND ERRNO IS SET. * 31 * * 32 * NOTES: * 33 * * 34 * 1. SAMPLE DECLARE AND CALL: * 35 * * 36 * DECLARE FDOPEN ENTRY(FIXED BINARY(31)) * 37 * RETURNS(POINTER); * 38 * * 39 * DECLARE FD FIXED BINARY(31); * 40 * DECLARE FILEP POINTER INIT(NULL()); * 41 * * 42 * FILEP = FDOPEN(FD); * 43 * * 44 *********************************************************************** 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 46 FDOPEN RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 0013C 47+FDOPEN1 CSECT , 01-RENTR 48+ ENTRY FDOPEN INDICATE ENTRY POINT 01-RENTR 000000 49+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 40 50+ DC CL1' ' PADDING TO 8 BYTES 01-RENTR 000001 C6C4D6D7C5D506 51+ DC C'FDOPEN',AL1(6) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 52+FDOPEN DS 0H 01-RENTR 000008 90EC D00C 0000C 53+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 54+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 55+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000068 56+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 57+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 58+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 59+ USING FDOPEN,11 01-RENTR 00001E 18A1 60+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 61+ USING PARMS,10 01-RENTR 62+ WXTRN PLISTART 01-RENTR 000020 63+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 64+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 65+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 66+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 67+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 68+ BNZ PL10001 01-RENTR 69+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 70+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 73+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 74+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 75+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 76+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 77+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 78+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 79+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 80+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 81+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 82+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 83+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 84+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 86+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 87+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 89+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 90+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 91+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 92+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 93+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 94+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 95+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 96+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 97+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 98+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 100+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 101+COM0001 DS 0H 01-RENTR 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 5 Active Usings: PARMS(X'1000'),R10 FDOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 103+ USING WORKAREA,13 01-RENTR 104 FDOPEN1 AMODE 31 105 FDOPEN1 RMODE ANY 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 6 Active Usings: PARMS(X'1000'),R10 FDOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 107 *********************************************************************** 108 * * 109 * GET THE FILE STRUCTURE * 110 * * 111 * REGISTER USAGE: * 112 * R9 -> FILEIOB AREA * 113 * R10 -> PARM LIST FROM CALLER * 114 * R11 - BASE FOR PROGRAM * 115 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 116 * MODIFY * 117 * R13 -> DYNAMIC SAVE AND WORK AREA * 118 * R15 - WORK REGISTER FOR DATA TRANSFER. * 119 * * 120 *********************************************************************** 0 122 GETMAIN RU,LV=FILEIOBL,SP=29 000086 0700 124+ CNOP 0,4 01-GETMA 000088 47F0 B08C 00094 125+ B IHB0004C BRANCH AROUND DATA 01-GETMA 00008C 00000020 126+IHB0004L DC A(FILEIOBL) LENGTH 01-GETMA 000090 00 127+IHB0004F DC BL1'00000000' Flags. @L7C 01-GETMA 000091 00 128+ DC AL1(0) RESERVED 01-GETMA 000092 1D 129+ DC AL1(29) SUBPOOL 01-GETMA 000093 02 130+ DC BL1'00000010' MODE BYTE @G860P30 01-GETMA 000094 131+IHB0004C DS 0H 01-GETMA 000094 5800 B084 0008C 132+ L 0,IHB0004L LOAD LENGTH 01-GETMA 000098 58F0 B088 00090 133+ L 15,IHB0004F LOAD GETMAIN PARMS 01-GETMA 00009C 1B11 134+ SR 1,1 ZERO RESERVED REG 1 01-GETMA 00009E 0A78 135+ SVC 120 ISSUE GETMAIN SVC 01-GETMA 0000A0 1891 136 LR R9,R1 SAVE THE IOB AREA ADDRESS 0000A2 D71F 9000 9000 00000 00000 137 XC 0(FILEIOBL,R9),0(R9) CLEAR THE AREA INITIALLY R:9 00000 138 USING FILEIOB,R9 00000A8 58F0 B128 00130 140 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000AC 50F0 9000 00000 141 ST R15,IOBMARK SAVE AS FIRST WORD 00000B0 58F0 A000 00000 143 L R15,PLIFD POINT TO THE PASSED FILE DESCRIPTOR. 0000B4 58F0 F000 00000 144 L R15,0(,R15) LOAD THE FILE DESCRIPTOR 0000B8 50F0 9010 00010 145 ST R15,IOBFILE SAVE AS CURRENT FILE DESCRIPTOR 00000BC 5800 B12C 00134 147 L R0,=A(O_RDWR) SHOW READ AND WRITE 0000C0 5000 9014 00014 148 ST R0,IOBFLAG SAVE THE FLAGS IN IOB 0 150 GETMAIN RU,LV=IOBBUFFL,SP=29 0000C4 152+ CNOP 0,4 01-GETMA 0000C4 47F0 B0C8 000D0 153+ B IHB0006C BRANCH AROUND DATA 01-GETMA 0000C8 00004000 154+IHB0006L DC A(IOBBUFFL) LENGTH 01-GETMA 0000CC 00 155+IHB0006F DC BL1'00000000' Flags. @L7C 01-GETMA 0000CD 00 156+ DC AL1(0) RESERVED 01-GETMA 0000CE 1D 157+ DC AL1(29) SUBPOOL 01-GETMA 0000CF 02 158+ DC BL1'00000010' MODE BYTE @G860P30 01-GETMA 0000D0 159+IHB0006C DS 0H 01-GETMA 0000D0 5800 B0C0 000C8 160+ L 0,IHB0006L LOAD LENGTH 01-GETMA 0000D4 58F0 B0C4 000CC 161+ L 15,IHB0006F LOAD GETMAIN PARMS 01-GETMA 0000D8 1B11 162+ SR 1,1 ZERO RESERVED REG 1 01-GETMA 0000DA 0A78 163+ SVC 120 ISSUE GETMAIN SVC 01-GETMA 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 7 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FDOPEN(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00000DC 5010 9004 00004 165 ST R1,IOBBASE SAVE THE LOCATION AND 0000E0 5800 B130 00138 166 L R0,=A(IOBBUFFL) SIZE OF 0000E4 5000 9008 00008 167 ST R0,IOBBUFSZ THE BUFFER 0000E8 5010 9018 00018 168 ST R1,IOBPTR SHOW AT THE START OF THE BUFFER 0000EC 1F00 169 SLR R0,R0 SHOW BUFFER IS EMPTY 0000EE 5000 900C 0000C 170 ST R0,IOBCNT SAVE IN THE IOB 00000F2 58E0 A004 00004 172 L R14,PLIFILE POINT TO LIB DEF POINTER 0000F6 5090 E000 00000 173 ST R9,0(,R14) SAVE IN TARGET PARM 0 175 REXIT ENV=BOTH 0000FA 4110 D000 00000 176+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 0000FE 58D0 D004 00004 177+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 000102 58E0 D010 00010 178+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000106 580E 000C 0000C 179+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 00010A 0700 180+ CNOP 0,4 01-REXIT 00010C 47F0 B10C 00114 181+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 000110 00000000 182+ DC V(PLISTART) 01-REXIT 000114 58F0 B108 00110 183+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 000118 12FF 184+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 00011A 4770 B11C 00124 185+ BNZ PL10008 01-REXIT 00011E 4110 1000 00000 188+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 000122 0A0A 189+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 000124 190+PL10008 DS 0H 01-REXIT 000124 98EC D00C 0000C 191+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 000128 1FFF 192+ SLR 15,15 ZERO RETURN CODE 01-REXIT 00012A 07FE 193+ BR 14 RETURN 01-REXIT 194 DROP R9,R10,R11,R13 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 8 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 000130 197 LTORG 000130 BEADBEEF 198 =A(IOBMAGIC) 000134 00000003 199 =A(O_RDWR) 000138 00004000 200 =A(IOBBUFFL) 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 9 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00068 202 WORKAREA DSECT 000000 203 DS 26F 00068 204 WORKLEN EQU *-WORKAREA 0 206 * 207 * OPTIONS ASSEMBLER 208 * 000000 00000 00008 209 PARMS DSECT 000000 210 PLIFD DS A FIXED BINARY(31) PASS FD FROM BPX1OPN 000004 211 PLIFILE DS A RETURNED POINTER TO FILE 0 000000 213 PLINULL EQU X'FF000000' 0 215 FILEIOB 0000000 00000 00020 217+FILEIOB DSECT 01-FILEI 000000 218+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 219+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 220+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 221+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 222+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 223+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 224+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 225+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 226+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 228+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 229+IOBBUFFL EQU 16384 01-FILEI - 232 BPXYOPNF 233+** BPXYOPNF: File status flags 234+** Used By: FCT OPN 000000 00000 00004 235+O_FLAGS DSECT , 01-BPXYO 000000 236+O_FLAGS1 DS B Open flags - byte 1 01-BPXYO 00080 237+OPNFHIGH EQU X'80' DO NOT USE THIS BIT! 01-BPXYO 238+* O_FLAGS must never be < 0 0000001 240+O_FLAGS2 DS B Open flags - byte 2 01-BPXYO 00080 241+OPNFEXEC EQU X'80' Execute access requested - 01-BPXYO 242+* authorization required for use 0000002 244+O_FLAGS3 DS B Open flags - byte 3 01-BPXYO 00008 245+O_NOLARGEFILE EQU X'08' Large Files not allowed @D5A 01-BPXYO 00004 246+O_LARGEFILE EQU X'04' Ignored @D5A 01-BPXYO 00002 247+O_ASYNCSIG EQU X'02' An asynchronous signal may occur @D4A 01-BPXYO 00001 248+O_SYNC EQU X'01' Force synchronous updates @D3A 01-BPXYO 0000003 250+O_FLAGS4 DS B Open flags - byte 4 01-BPXYO 000C0 251+O_CREXCL EQU X'C0' Create file only if non-existent 01-BPXYO 00080 252+O_CREAT EQU X'80' Create file 01-BPXYO 00040 253+O_EXCL EQU X'40' Exclusive flag 01-BPXYO 00020 254+O_NOCTTY EQU X'20' Not a controlling terminal 01-BPXYO 00010 255+O_TRUNC EQU X'10' Truncate flag 01-BPXYO 00008 256+O_APPEND EQU X'08' Set offset to EOF on write 01-BPXYO 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 10 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 00004 257+O_NONBLOCK EQU X'04' Don't block this file 01-BPXYO 00004 258+FNDELAY EQU X'04' Don't block this file @D2A 01-BPXYO 00003 259+O_RDWR EQU X'03' Open for Read and Write 01-BPXYO 00002 260+O_RDONLY EQU X'02' Open for Read Only 01-BPXYO 00001 261+O_WRONLY EQU X'01' Open for Write Only 01-BPXYO 00003 262+O_ACCMODE EQU X'03' Mask for file access modes 01-BPXYO 0000F 263+O_GETFL EQU X'0F' Mask for file access modes and 01-BPXYO 264+* file status flags together @P4A 0 00004 266+OPNF#LENGTH EQU *-O_FLAGS Length of this structure 01-BPXYO 267+** BPXYOPNF End - 269 BPXYMODE 270+** BPXYMODE: Mode constants specified on system calls 271+** Used By: CHM FCM MKD MKN OPN UMK 000000 00000 00004 272+S_MODE DSECT , 01-BPXYM 000000 273+ DS 0F 01-BPXYM 274+* 000000 275+S_TYPE DS B File types, mapped by BPXYFTYP 01-BPXYM 276+* Flag bytes 000001 277+S_MODE3B DS 0XL3 All flag bytes @P6A 01-BPXYM 000001 278+S_RES01 DS 0BL.8 Reserved @D4C 01-BPXYM 000001 279+S_MODE1 DS B Flag byte 1 - reserved 01-BPXYM 280+* 000002 281+S_RES02 DS 0BL.4 Reserved @D4C 01-BPXYM 000002 282+S_MODE2 DS B Flag byte 2 01-BPXYM 283+* Set ID flags 00008 284+S_ISUID EQU X'08' Set user ID on execution 01-BPXYM 00004 285+S_ISGID EQU X'04' Set group ID on execution 01-BPXYM 00002 286+S_ISVTX EQU X'02' Sticky Bit: For executables, look 01-BPXYM 287+* first in normal MVS search order 288+* For directories, deletion rstd 289+* to owner or superuser. 290+* Owner flags 00001 291+S_IRWXU1 EQU X'01' All permissions for user - part I 01-BPXYM 00001 292+S_IRUSR EQU X'01' Read permission 01-BPXYM 293+* 000003 294+S_MODE3 DS B Flag byte 3 01-BPXYM 295+* Owner flags - continued 000C0 296+S_IRWXU2 EQU X'C0' All permissions for user - Part II 01-BPXYM 00080 297+S_IWUSR EQU X'80' Write permission 01-BPXYM 00040 298+S_IXUSR EQU X'40' Search (if a directory) or 01-BPXYM 299+* execute (otherwise) permission 300+* Group flags 00038 301+S_IRWXG EQU X'38' All permissions for group 01-BPXYM 00020 302+S_IRGRP EQU X'20' Read permission 01-BPXYM 00010 303+S_IWGRP EQU X'10' Write permission 01-BPXYM 00008 304+S_IXGRP EQU X'08' Search (if a directory) or 01-BPXYM 305+* execute (otherwise) permission 306+* Other flags 00007 307+S_IRWXO EQU X'07' All permissions for other 01-BPXYM 00004 308+S_IROTH EQU X'04' Read permission 01-BPXYM 00002 309+S_IWOTH EQU X'02' Write permission 01-BPXYM 1FDOPEN FOPEN STARTING WITH A BPX1OPN FD Page 11 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 00001 310+S_IXOTH EQU X'01' Search (if a directory) or 01-BPXYM 311+* execute (otherwise) permission 00004 312+S_MODE#LENGTH EQU *-S_MODE Length this structure 01-BPXYM 313+** BPXYMODE End - 315 PRINT NOGEN 316 BPXYSEEK 0 325 SYMBAR MODE=DEC 342 END 1FDOPEN Relocation Dictionary Page 12 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 00000110 1FDOPEN Ordinary Symbol and Literal Cross Reference Page 13 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0COM0001 2 00000086 00000001 H 101 78B FDOPEN 2 00000008 00000001 H 52 48 59U FDOPEN1 1 00000000 00000001 J 47 104 105 FILEIOB 1 00000000 FFFFFFFD J 217 138U 226 FILEIOBL 1 00000020 FFFFFFFD A U 226 126 137 IHB0004C 2 00000094 00000001 H 131 125B IHB0004F 1 00000090 00000001 B 127 133 IHB0004L 4 0000008C 00000001 A 126 132 IHB0006C 2 000000D0 00000001 H 159 153B IHB0006F 1 000000CC 00000001 B 155 161 IHB0006L 4 000000C8 00000001 A 154 160 IOBBASE 4 00000004 FFFFFFFD A 219 165M IOBBUFFL 1 00004000 FFFFFFFD A U 229 154 200 IOBBUFSZ 4 00000008 FFFFFFFD F 220 167M IOBCNT 4 0000000C FFFFFFFD F 221 170M IOBFILE 4 00000010 FFFFFFFD F 222 145M IOBFLAG 4 00000014 FFFFFFFD F 223 148M IOBMAGIC 1 BEADBEEF FFFFFFFD A U 228 198 IOBMARK 4 00000000 FFFFFFFD F 218 141M IOBPTR 4 00000018 FFFFFFFD A 224 168M O_FLAGS 1 00000000 FFFFFFFC J 235 266 O_RDWR 1 00000003 FFFFFFFC A U 259 199 PARMS 1 00000000 FFFFFFFE J 209 61U PLIFD 4 00000000 FFFFFFFE A 210 143 PLIFILE 4 00000004 FFFFFFFE A 211 172 PLISTART 1 00000000 00000002 $ 62 65 182 PL10001 2 0000004A 00000001 H 79 68B PL10008 2 00000124 00000001 H 190 185B R0 1 00000000 FFFFFFFB A U 326 147M 148 166M 167 169M 169 170 R1 1 00000001 FFFFFFFB A U 327 136 165 168 R10 1 0000000A FFFFFFFB A U 336 194D R11 1 0000000B FFFFFFFB A U 337 194D R13 1 0000000D FFFFFFFB A U 339 194D R14 1 0000000E FFFFFFFB A U 340 172M 173 R15 1 0000000F FFFFFFFB A U 341 140M 141 143M 144M 144 145 R9 1 00000009 FFFFFFFB A U 335 136M 137 137 138U 173 194D S_MODE 1 00000000 FFFFFFFB J 272 312 WORKAREA 1 00000000 FFFFFFFF J 202 103U 204 WORKLEN 1 00000068 FFFFFFFF A U 204 56 =A(IOBBUFFL) 4 00000138 00000001 A 200 166 =A(IOBMAGIC) 4 00000130 00000001 A 198 140 =A(O_RDWR) 4 00000134 00000001 A 199 147 1FDOPEN Macro and Copy Code Source Summary Page 14 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYMODE BPXYOPNF BPXYSEEK FREEMAIN GETMAIN SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FDOPEN Dsect Cross Reference Page 15 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 217 O_FLAGS 00000004 FFFFFFFC 235 PARMS 00000008 FFFFFFFE 209 S_MODE 00000004 FFFFFFFB 272 WORKAREA 00000068 FFFFFFFF 202 1FDOPEN Using Map Page 16 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 59 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 130 185 FDOPEN,11 61 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 004 172 PARMS,10 103 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 000 WORKAREA,13 138 000000A8 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 018 170 FILEIOB,R9 194 0000012C 00000001 DROP 9 R9 194 0000012C 00000001 DROP 10 R10 194 0000012C 00000001 DROP 11 R11 194 0000012C 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 17 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 53 70M 80M 82M 83 89 132M 147M 148 160M 166M 167 169M 169 170 179M 191M 1(1) 53 60 73M 75 76 77 81M 82 89 91 92 93 94 134M 134 136 162M 162 165 168 176M 188M 188 191M 2(2) 53 191M 3(3) 53 191M 4(4) 53 191M 5(5) 53 191M 6(6) 53 191M 7(7) 53 191M 8(8) 53 191M 9(9) 53 136M 137 137 138U 173 191M 194D 10(A) 53 60M 61U 191M 194D 11(B) 53 58M 59U 70 80 191M 194D 12(C) 53 83 86 191M 13(D) 53 75 76 77M 81 91 92 93 94M 95 96 97 98 103U 176 177M 177 178 191 194D 14(E) 53 87M 172M 173 178M 179N 191M 193B 15(F) 53 54 58 66M 67M 67 86M 87B 133M 140M 141 143M 144M 144 145 161M 183M 184M 184 191M 192M 192 1FDOPEN Diagnostic Cross Reference and Assembler Summary Page 18 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 985K would be required for this to be an In-Storage Assembly 120 Primary Input Records Read 5879 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 479 Primary Print Records Written 0 Work File Writes 22 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.29 Stop Time: 12.09.30 Processor Time: 00.00.00.7878 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FGETS External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FGETS1 SD 00000001 00000000 00000374 06 FGETS LD 00000008 00000001 PLISTART WX 00000002 BPX1RED ER 00000003 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FGETS -- READ A NEWLINE DELIMITED LINE FROM A UNIX FILE * 7 * * 8 * THIS MODULE READS ONE LINE FROM A FILE OPENED BY FOPEN. A * 9 * LINE IS TERMINATED BY A X'0A' * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * DATA -- CHAR(*) (*1,4) * 14 * THIS IS THE AREA TO COPY DATA INTO. AT MOST SIZE-1 BYTES ARE * 15 * READ AND A X'00' IS PLACED AT THE END OF THE STRING. THE * 16 * X'0A' IS COPIED TO THE TARGET. * 17 * * 18 * SIZE -- FULLWORD INTEGER (*1,2,3,4) * 19 * THIS CONTAINS THE SIZE OF PARM DATA, IN PL/I STORAGE(DATA) * 20 * * 21 * FILE -- POINTER (*1,3,4) * 22 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 23 * RETURNED VALUE FROM FOPEN. * 24 * * 25 * FUNCTIONS: * 26 * * 27 * 1. VALIDATE THE POINTER TO FILE * 28 * * 29 * 2. SEE IF THE IOB BUFFER IS EMPTY. IF SO, FILL IT. FLAG EOF BY * 30 * RETURNING LENGTH ZERO. * 31 * * 32 * 3. SCAN 256 BYTES TO SEE IF THERE IS A NEWLINE. IF NOT, COPY THE * 33 * WHOLE 256 BYTES, OR AS MUCH AS WILL FIT INTO THE TARGET * 34 * BUFFER. IF SO, COPY THE LINE, OR AS MUCH AS WILL FIT INTO * 35 * THE TARGET BUFFER. IF THE TARGET IS FULL OR WE FOUND A * 36 * NEWLINE, WE ARE DONE. ALWAYS PUT A X'00' ON THE END. * 37 * * 38 * 4. IF THE TARGET BUFFER IS NOT FULL AND WE HAVE NOT FOUND A * 39 * NEWLINE, GET ANOTHER BUFFER OF DATA FROM THE FILE. READ. * 40 * * 41 * OUTPUTS (*FROM FUNCTIONS): * 42 * * 43 * COUNT -- FULLWORD INTEGER (*1,2,4) * 44 * THIS RETURNED PARAMETER IS THE NUMBER OF CHARACTERS READ. * 45 * VALUES: >0 NUMBER OF BYTES READ (NOT COUNTING THE X'00') * 46 * 0 EOF * 47 * -1 ON ERROR. * 48 * * 49 * ERRNO -- FULLWORD INTEGER (*1,4) * 50 * THIS CONTAINS THE ERRNO FROM THE FAILING CALL. IT IS ZERO ON * 51 * SUCCESS. STRERROR CAN BE USED TO GET A MESSAGE * 52 * * 53 * REA -- FULLWORD INTEGER (*1,4) * 54 * THIS CONTAINS THE REASON CODE (ALSO CALLED ERRNO JR.) FROM * 55 * THE FAILING UNIX SYSTEM SERVICES CALL. * 56 * * 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 * NOTES: * 58 * * 59 * 1. SAMPLE DECLARE AND CALL: * 60 * * 61 * DECLARE FGETS ENTRY(CHAR(*), * 62 * FIXED BINARY(31), * 63 * POINTER, * 64 * FIXED BINARY(31), * 65 * FIXED BINARY(31)) * 66 * RETURNS(FIXED BINARY(31)); * 67 * DECLARE DATA CHAR(80) INIT(' '); * 68 * DECLARE SIZE FIXED BINARY(31) INIT(1); * 69 * DECLARE FILEP POINTER INIT(NULL()); * 70 * DECLARE COUNT FIXED BINARY(31); * 71 * DECLARE ERRNO FIXED BINARY(31); * 72 * DECLARE REASON FIXED BINARY(31); * 73 * * 74 * COUNT = FGETS(DATA, SIZE, FILEP, ERRNO, REASON); * 75 * * 76 * 2. NOTE THAT ERRNO MAY NOT BE SET UNLESS A REAL READ IS DONE. * 77 * * 78 *********************************************************************** 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 80 FGETS RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 00374 81+FGETS1 CSECT , 01-RENTR 82+ ENTRY FGETS INDICATE ENTRY POINT 01-RENTR 000000 83+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 4040 84+ DC CL2' ' PADDING TO 8 BYTES 01-RENTR 000002 C6C7C5E3E205 85+ DC C'FGETS',AL1(5) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 86+FGETS DS 0H 01-RENTR 000008 90EC D00C 0000C 87+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 88+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 89+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 00000108 90+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 91+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 92+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 93+ USING FGETS,11 01-RENTR 00001E 18A1 94+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 95+ USING PARMS,10 01-RENTR 96+ WXTRN PLISTART 01-RENTR 000020 97+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 98+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 99+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 100+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 101+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 102+ BNZ PL10001 01-RENTR 103+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 104+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 107+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 108+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 109+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 110+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 111+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 112+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 113+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 114+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 115+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 116+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 117+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 118+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 120+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 121+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 123+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 124+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 125+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 126+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 127+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 128+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 129+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 130+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 131+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 132+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 134+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 135+COM0001 DS 0H 01-RENTR 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 6 Active Usings: PARMS(X'1000'),R10 FGETS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 137+ USING WORKAREA,13 01-RENTR 138 FGETS1 AMODE 31 139 FGETS1 RMODE ANY 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 7 Active Usings: PARMS(X'1000'),R10 FGETS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 141 *********************************************************************** 142 * * 143 * VALIDATE THE IOB FIRST * 144 * * 145 * REGISTER USAGE: * 146 * R5 - SPACE LEFT IN TARGET * 147 * R6 -> POSITION IN TARGET * 148 * R9 -> FILEIOB AREA * 149 * R10 -> PARM LIST FROM CALLER * 150 * R11 - BASE FOR PROGRAM * 151 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 152 * MODIFY * 153 * R13 -> DYNAMIC SAVE AND WORK AREA * 154 * R15 - WORK REGISTER FOR DATA TRANSFER. * 155 * * 156 *********************************************************************** 0000086 5850 A004 00004 158 L R5,PLISIZE 00008A 5850 5000 00000 159 L R5,0(,R5) LOAD THE AVAILABLE SPACE IN BYTES 00008E 0650 160 BCTR R5,0 RESERVE 1 BYTE FOR X'00' 000090 5860 A000 00000 161 L R6,PLIDATA POINT TO DATA PARM L/D 000094 5860 6000 00000 162 L R6,0(,R6) POINT TO ACTUAL TARGET AREA 0000098 5890 A008 00008 164 L R9,PLIFILE POINT TO FILE IOB 00009C 5890 9000 00000 165 L R9,0(,R9) LOAD THE IOB ADDR R:9 00000 166 USING FILEIOB,R9 00000A0 1F00 168 SLR R0,R0 GET A ZERO 0000A2 58F0 A00C 0000C 169 L R15,PLIERRNO 0000A6 5000 F000 00000 170 ST R0,0(,R15) 0000AA 58F0 A010 00010 171 L R15,PLIREA 0000AE 5000 F000 00000 172 ST R0,0(,R15) 00000B2 5990 B358 00360 174 C R9,=A(PLINULL) IS THIS FILE ALREADY CLOSED? 0000B6 4780 B218 00220 175 BE RETURN IF SO, NOTHING TO DO 00000BA 58F0 B35C 00364 177 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000BE 59F0 9000 00000 178 C R15,IOBMARK IS THIS A VALID IOB? 0000C2 4780 B0E6 000EE 179 BE IOBOK IF SO, KEEP GOING 00000C6 58F0 A008 00008 181 L R15,PLIFILE POINT TO THE RETURNED POINTER 0000CA 5800 B358 00360 182 L R0,=A(PLINULL) GET THE PL/I NULL VALUE 0000CE 5000 F000 00000 183 ST R0,0(,R15) START WITH FAILURE. 00000D2 4100 0071 00071 185 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000D6 58F0 A00C 0000C 186 L R15,PLIERRNO 0000DA 5000 F000 00000 187 ST R0,0(,R15) 0000DE 58F0 A010 00010 188 L R15,PLIREA 0000E2 4100 00A9 000A9 189 LA R0,JRINVALIDPARMS INVALID PARMS TO FREAD 0000E6 5000 F000 00000 190 ST R0,0(,R15) 0000EA 47F0 B1F6 001FE 191 B FAILURE 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 8 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FGETS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 193 *********************************************************************** 194 * * 195 * MAKE SURE THE FILE IS OPEN FOR INPUT, OTHERWISE FLAG AN ERROR. * 196 * * 197 * REGISTER USAGE: * 198 * R5 - SPACE LEFT IN TARGET * 199 * R6 -> POSITION IN TARGET * 200 * R9 -> FILEIOB AREA * 201 * R10 -> PARM LIST FROM CALLER * 202 * R11 - BASE FOR PROGRAM * 203 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 204 * MODIFY * 205 * R13 -> DYNAMIC SAVE AND WORK AREA * 206 * R15 - WORK REGISTER FOR DATA TRANSFER. * 207 * * 208 *********************************************************************** 00000EE 210 IOBOK DS 0H 0000EE 5810 B360 00368 211 L R1,=A(O_RDONLY) GET THE READ BIT 0000F2 5410 9014 00014 212 N R1,IOBFLAG IS THIS SOME FLAVOR OF INPUT? 0000F6 4770 B10E 00116 213 BNZ X0ASCAN IF SO, BEGIN PROCESSING 00000FA 4100 0071 00071 215 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000FE 58F0 A00C 0000C 216 L R15,PLIERRNO 000102 5000 F000 00000 217 ST R0,0(,R15) 000106 58F0 A010 00010 218 L R15,PLIREA 00010A 4100 0033 00033 219 LA R0,JRRFILEWRONLY READ FROM WRITE ONLY STREAM 00010E 5000 F000 00000 220 ST R0,0(,R15) 000112 47F0 B1F6 001FE 221 B FAILURE 0 223 *********************************************************************** 224 * * 225 * SEE IF THERE A NEWLINE IN THE NEXT 256 BYTES OF DATA. IF SO, MOVE * 226 * THIS LINE TO THE TARGET IF IT WILL FIT. IF NOT COPY WHAT WILL FIT * 227 * AND MOVE THE BUFFER POINTER APPROPRIATELY. * 228 * * 229 * REGISTER USAGE: * 230 * R3 - SOURCE BUFFER POS * 231 * R4 - MAX AMOUNT TO SCAN OR COPY (USUALLY LESS 1 FOR * 232 * THE EX) * 233 * R5 - SPACE LEFT IN TARGET * 234 * R6 -> POSITION IN TARGET * 235 * R7 - FLAG TO SHOW WE FOUND A NEWLINE * 236 * R9 -> FILEIOB AREA * 237 * R10 -> PARM LIST FROM CALLER * 238 * R11 - BASE FOR PROGRAM * 239 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 240 * MODIFY * 241 * R13 -> DYNAMIC SAVE AND WORK AREA * 242 * * 243 *********************************************************************** 0000116 245 X0ASCAN DS 0H 000116 5830 9018 00018 246 L R3,IOBPTR OLD NEXT SPOT TO READ FROM 00011A 5840 900C 0000C 247 L R4,IOBCNT BYTES IN BUFFER 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 9 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FGETS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000011E 1244 248 LTR R4,R4 ANYTHING IN THE BUFFER? 000120 4780 B17A 00182 249 BZ NEEDMORE IF NOT, GET MORE 0000124 1F77 251 SLR R7,R7 ZERO FLAG REGISTER 000126 5940 B364 0036C 252 C R4,=F'256' MORE THAN 256 IN THE BUFFER? 00012A 4740 B12A 00132 253 BL SCANBUFF IF NOT, SCAN WHAT WE GOT 000012E 4140 0100 00100 255 LA R4,256 CAN'T SCAN MORE THAN 256 AT A TIME 0000132 257 SCANBUFF DS 0H 000132 0640 258 BCTR R4,0 SUB 1 FOR THE EXECUTE 000134 4440 B24E 00256 259 EX R4,SCANNL SCAN FOR NEWLINE X'0A' (-> R3) 0000138 4780 B13C 00144 261 BZ COPY NO NEWLINE 000013C 4170 0001 00001 263 LA R7,1 SHOW WE FOUND A NEWLINE. 000140 1B13 264 SR R1,R3 GET LENGTH OF STR TO MOVE -1 000142 1841 265 LR R4,R1 SET LENGTH TO COPY FOR EX 0000144 267 COPY DS 0H 000144 41F0 4001 00001 268 LA R15,1(,R4) GET REAL LENGTH OF MVC 000148 19F5 269 CR R15,R5 COMPARE TO SPACE LEFT 00014A 47D0 B14A 00152 270 BNH OK2COPY IF IT WILL FIT, GOOD, BRANCH 000014E 1845 272 LR R4,R5 USE AMOUNT OF SPACE THAT WILL FIT 000150 0640 273 BCTR R4,0 SUBTRACT 1 FOR THE EXECUTE 0000152 275 OK2COPY DS 0H 000152 4440 B248 00250 276 EX R4,MOVELN MVC 0(*-*,R6),0(R3) 000156 4140 4001 00001 277 LA R4,1(,R4) RESTORE LEN TO FULL VALUE. 00015A 1A34 278 AR R3,R4 BUMP POINTER IN SOURCE BUFF 00015C 1A64 279 AR R6,R4 BUMP POINTER IN TARGET BUFF 00015E 9200 6000 00000 280 MVI 0(R6),X'00' PUT IN THE NULL AT END OF STRING 0000162 5030 9018 00018 282 ST R3,IOBPTR PUT SOURCE POS BACK IN THE BLOCK 000166 1B54 283 SR R5,R4 SUB OFF LENGTH REM FROM TARGET 000168 58F0 900C 0000C 284 L R15,IOBCNT CURRENT BYTES LEFT 00016C 1BF4 285 SR R15,R4 SUBTRACT BYTES MOVED 00016E 50F0 900C 0000C 286 ST R15,IOBCNT PUT IT BACK IN THE IOB 000172 1277 287 LTR R7,R7 DID WE FIND A NEWLINE? 000174 4770 B206 0020E 288 BNZ DONE IF SO, WE ARE DONE. 000178 1255 289 LTR R5,R5 IS THERE SPACE LEFT IN BUFFER? 00017A 47D0 B206 0020E 290 BNP DONE IF NOT WE ARE DONE. 00017E 47F0 B10E 00116 291 B X0ASCAN GO LOOK AT THE NEXT 256 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 10 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FGETS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 293 *********************************************************************** 294 * * 295 * SEE IF THE CALLER IS ASKING FOR MORE THAN A BUFFER FULL. IF SO, DO * 296 * THE READ DIRECTLY INTO HIS BUFFER. OTHERWISE LOAD THE BUFFER AND * 297 * MOVE WHAT IS NEEDED. * 298 * * 299 * REGISTER USAGE: * 300 * R3 - SOURCE BUFFER POS * 301 * R4 - MAX AMOUNT TO SCAN OR COPY * 302 * R5 - SPACE LEFT IN TARGET * 303 * R6 -> POSITION IN TARGET * 304 * R7 - FLAG TO SHOW WE FOUND A NEWLINE * 305 * R9 -> FILEIOB AREA * 306 * R10 -> PARM LIST FROM CALLER * 307 * R11 - BASE FOR PROGRAM * 308 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 309 * MODIFY * 310 * R13 -> DYNAMIC SAVE AND WORK AREA * 311 * * 312 *********************************************************************** 0000182 314 NEEDMORE DS 0H 000182 D703 D068 D068 00068 00068 315 XC ALET,ALET ZERO THE ALET PARM 0 317 CALL BPX1RED,(IOBFILE, X IOBBASE, X ALET, X IOBBUFSZ, X RETVAL, X ERRNO, X REA),VL,MF=(E,CALLLIST) 000188 319+ CNOP 0,4 01-CALL 000188 47F0 B188 00190 320+ B *+8 BRANCH AROUND VCON 01-CALL 00018C 00000000 321+IHB0004B DC V(BPX1RED) ENTRY POINT ADDRESS 01-CALL 000190 4110 D088 00088 326+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000194 41E0 9010 00010 327+ LA 14,IOBFILE PICKUP PARAMETER 02-IHBOP 000198 41F0 9004 00004 328+ LA 15,IOBBASE PICKUP PARAMETER 02-IHBOP 00019C 4100 D068 00068 329+ LA 0,ALET PICKUP PARAMETER 02-IHBOP 0001A0 90E0 1000 00000 330+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 0001A4 41E0 9008 00008 331+ LA 14,IOBBUFSZ PICKUP PARAMETER 02-IHBOP 0001A8 41F0 D074 00074 332+ LA 15,RETVAL PICKUP PARAMETER 02-IHBOP 0001AC 4100 D078 00078 333+ LA 0,ERRNO PICKUP PARAMETER 02-IHBOP 0001B0 90E0 100C 0000C 334+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 0001B4 41E0 D07C 0007C 335+ LA 14,REA PICKUP PARAMETER 02-IHBOP 0001B8 50E0 1018 00018 336+ ST 14,24(0,1) STORE INTO PARAM. LIST 02-IHBOP 0001BC 9680 1018 00018 337+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 0001C0 58F0 B184 0018C 338+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 0001C4 05EF 339+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 00001C6 58F0 D074 00074 341 L R15,RETVAL ANYTHING READ? 0001CA 12FF 342 LTR R15,R15 0001CC 4780 B206 0020E 343 BZ DONE FLAG EOF 0001D0 4720 B1E8 001F0 344 BP RESET RESET THE BUFFER 00001D4 5810 A00C 0000C 346 L R1,PLIERRNO COPY ERRNO AND REA TO RETURNED PARMS 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 11 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FGETS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00001D8 5800 D078 00078 347 L R0,ERRNO 0001DC 5000 1000 00000 348 ST R0,0(,R1) 0001E0 5810 A010 00010 349 L R1,PLIREA 0001E4 5800 D07C 0007C 350 L R0,REA 0001E8 5000 1000 00000 351 ST R0,0(,R1) 0001EC 47F0 B1F6 001FE 352 B FAILURE 00001F0 354 RESET DS 0H 0001F0 D203 9018 9004 00018 00004 355 MVC IOBPTR(4),IOBBASE START OF BUFFER 0001F6 50F0 900C 0000C 356 ST R15,IOBCNT SHOW HOW MANY BYTES LEFT 0001FA 47F0 B10E 00116 357 B X0ASCAN GO LOOK FOR NEWLINES 00001FE 359 FAILURE DS 0H 0001FE 58F0 A014 00014 360 L R15,PLICOUNT 000202 5800 B368 00370 361 L R0,=F'-1' 000206 5000 F000 00000 362 ST R0,0(,R15) SHOW COUNT = -1; 00020A 47F0 B218 00220 363 B RETURN 000020E 365 DONE DS 0H 00020E 58E0 A000 00000 366 L R14,PLIDATA POINT TO DATA PARM L/D 000212 58E0 E000 00000 367 L R14,0(,R14) POINT TO ACTUAL TARGET AREA 000216 1B6E 368 SR R6,R14 CALCULATE LENGTH WRITTEN 000218 58F0 A014 00014 369 L R15,PLICOUNT 00021C 5060 F000 00000 370 ST R6,0(,R15) SAVE IN RETURNED COUNT PARM 000220 371 RETURN DS 0H 372 REXIT ENV=BOTH 000220 4110 D000 00000 373+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 000224 58D0 D004 00004 374+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 000228 58E0 D010 00010 375+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 00022C 580E 000C 0000C 376+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 000230 377+ CNOP 0,4 01-REXIT 000230 47F0 B230 00238 378+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 000234 00000000 379+ DC V(PLISTART) 01-REXIT 000238 58F0 B22C 00234 380+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 00023C 12FF 381+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 00023E 4770 B240 00248 382+ BNZ PL10010 01-REXIT 000242 4110 1000 00000 385+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 000246 0A0A 386+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 000248 387+PL10010 DS 0H 01-REXIT 000248 98EC D00C 0000C 388+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 00024C 1FFF 389+ SLR 15,15 ZERO RETURN CODE 01-REXIT 00024E 07FE 390+ BR 14 RETURN 01-REXIT 0000250 D200 6000 3000 00000 00000 392 MOVELN MVC 0(*-*,R6),0(R3) 000256 DD00 3000 B258 00000 00260 393 SCANNL TRT 0(*-*,R3),HEX0A 394 DROP R9,R10,R11,R13 0 396 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 000260 397 HEX0A DS 0D 000260 0000000000000000 398 DC XL16'00000000000000000000FF0000000000' 00 - 0F 000270 0000000000000000 399 DC XL16'00000000000000000000000000000000' 10 - 1F 000280 0000000000000000 400 DC XL16'00000000000000000000000000000000' 20 - 2F 000290 0000000000000000 401 DC XL16'00000000000000000000000000000000' 30 - 3F 0002A0 0000000000000000 402 DC XL16'00000000000000000000000000000000' 40 - 4F 0002B0 0000000000000000 403 DC XL16'00000000000000000000000000000000' 50 - 5F 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 12 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00002C0 0000000000000000 404 DC XL16'00000000000000000000000000000000' 60 - 6F 0002D0 0000000000000000 405 DC XL16'00000000000000000000000000000000' 70 - 7F 0002E0 0000000000000000 406 DC XL16'00000000000000000000000000000000' 80 - 8F 0002F0 0000000000000000 407 DC XL16'00000000000000000000000000000000' 90 - 9F 000300 0000000000000000 408 DC XL16'00000000000000000000000000000000' A0 - AF 000310 0000000000000000 409 DC XL16'00000000000000000000000000000000' B0 - BF 000320 0000000000000000 410 DC XL16'00000000000000000000000000000000' C0 - CF 000330 0000000000000000 411 DC XL16'00000000000000000000000000000000' D0 - DF 000340 0000000000000000 412 DC XL16'00000000000000000000000000000000' E0 - EF 000350 0000000000000000 413 DC XL16'00000000000000000000000000000000' F0 - FF 0000360 415 LTORG 000360 FF000000 416 =A(PLINULL) 000364 BEADBEEF 417 =A(IOBMAGIC) 000368 00000002 418 =A(O_RDONLY) 00036C 00000100 419 =F'256' 000370 FFFFFFFF 420 =F'-1' 1FGETS READ A NEWLINE DELIMITED LINE FROM A UNIX FILE Page 13 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00108 422 WORKAREA DSECT 000000 423 DS 26F 000068 424 ALET DS A 00006C 425 BUFFADDR DS A 000070 426 BUFFLEN DS F 000074 427 RETVAL DS F 000078 428 ERRNO DS F 00007C 429 REA DS F 000080 430 COMPONNT DS CL8 000088 431 CALLLIST DS 16D 00108 432 WORKLEN EQU *-WORKAREA 0 434 * 435 * OPTIONS ASSEMBLER 436 * 000000 00000 00018 437 PARMS DSECT 000000 438 PLIDATA DS A DATA TO WRITE 000004 439 PLISIZE DS A SIZE OF VARIABLE AT PLIDATA 000008 440 PLIFILE DS A POINTER TO FILE 00000C 441 PLIERRNO DS A ERRNO VALUE 000010 442 PLIREA DS A REASON CODE 000014 443 PLICOUNT DS A RETURNED NUMBER OF BYTES WRITTEN 0 000000 445 PLINULL EQU X'FF000000' 0 447 FILEIOB 0000000 00000 00020 449+FILEIOB DSECT 01-FILEI 000000 450+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 451+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 452+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 453+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 454+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 455+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 456+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 457+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 458+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 460+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 461+IOBBUFFL EQU 16384 01-FILEI - 464 PRINT NOGEN 465 BPXYERNO 3630 BPXYOPNF 0 3668 SYMBAR MODE=DEC 3685 END 1FGETS Relocation Dictionary Page 14 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 00000234 00000001 00000003 1C 0000018C 1FGETS Ordinary Symbol and Literal Cross Reference Page 15 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0ALET 4 00000068 FFFFFFFF A 424 315M 315 329 BPX1RED 1 00000000 00000003 T 321 321 CALLLIST 8 00000088 FFFFFFFF D 431 326 COM0001 2 00000086 00000001 H 135 112B COPY 2 00000144 00000001 H 267 261B DONE 2 0000020E 00000001 H 365 288B 290B 343B EBADF 1 00000071 FFFFFFFD A U 482 185 215 ERRNO 4 00000078 FFFFFFFF F 428 333 347 FAILURE 2 000001FE 00000001 H 359 191B 221B 352B FGETS 2 00000008 00000001 H 86 82 93U FGETS1 1 00000000 00000001 J 81 138 139 FILEIOB 1 00000000 FFFFFFFD J 449 166U 458 HEX0A 8 00000260 00000001 D 397 393 IHB0004B 4 0000018C 00000001 V 321 338 IOBBASE 4 00000004 FFFFFFFD A 451 328 355 IOBBUFSZ 4 00000008 FFFFFFFD F 452 331 IOBCNT 4 0000000C FFFFFFFD F 453 247 284 286M 356M IOBFILE 4 00000010 FFFFFFFD F 454 327 IOBFLAG 4 00000014 FFFFFFFD F 455 212 IOBMAGIC 1 BEADBEEF FFFFFFFD A U 460 417 IOBMARK 4 00000000 FFFFFFFD F 450 178 IOBOK 2 000000EE 00000001 H 210 179B IOBPTR 4 00000018 FFFFFFFD A 456 246 282M 355M JRINVALIDPARMS 1 000000A9 FFFFFFFD A U 917 189 JRRFILEWRONLY 1 00000033 FFFFFFFD A U 724 219 MOVELN 6 00000250 00000001 I 392 276X NEEDMORE 2 00000182 00000001 H 314 249B O_FLAGS 1 00000000 FFFFFFFC J 3633 3664 O_RDONLY 1 00000002 FFFFFFFC A U 3658 418 OK2COPY 2 00000152 00000001 H 275 270B PARMS 1 00000000 FFFFFFFE J 437 95U PLICOUNT 4 00000014 FFFFFFFE A 443 360 369 PLIDATA 4 00000000 FFFFFFFE A 438 161 366 PLIERRNO 4 0000000C FFFFFFFE A 441 169 186 216 346 PLIFILE 4 00000008 FFFFFFFE A 440 164 181 PLINULL 1 FF000000 FFFFFFFE A U 445 416 PLIREA 4 00000010 FFFFFFFE A 442 171 188 218 349 PLISIZE 4 00000004 FFFFFFFE A 439 158 PLISTART 1 00000000 00000002 $ 96 99 379 PL10001 2 0000004A 00000001 H 113 102B PL10010 2 00000248 00000001 H 387 382B REA 4 0000007C FFFFFFFF F 429 335 350 RESET 2 000001F0 00000001 H 354 344B RETURN 2 00000220 00000001 H 371 175B 363B RETVAL 4 00000074 FFFFFFFF F 427 332 341 R0 1 00000000 FFFFFFFC A U 3669 168M 168 170 172 182M 183 185M 187 189M 190 215M 217 219M 220 347M 348 350M 351 361M 362 R1 1 00000001 FFFFFFFC A U 3670 211M 212M 264M 265 346M 348 349M 351 R10 1 0000000A FFFFFFFC A U 3679 394D R11 1 0000000B FFFFFFFC A U 3680 394D R13 1 0000000D FFFFFFFC A U 3682 394D R14 1 0000000E FFFFFFFC A U 3683 366M 367M 367 368 R15 1 0000000F FFFFFFFC A U 3684 169M 170 171M 172 177M 178 181M 183 186M 187 188M 190 1FGETS Ordinary Symbol and Literal Cross Reference Page 16 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 216M 217 218M 220 268M 269 284M 285M 286 341M 342M 342 356 360M 362 369M 370 R3 1 00000003 FFFFFFFC A U 3672 246M 264 278M 282 392 393 R4 1 00000004 FFFFFFFC A U 3673 247M 248M 248 252 255M 258M 259 265M 268 272M 273M 276 277M 277 278 279 283 285 R5 1 00000005 FFFFFFFC A U 3674 158M 159M 159 160M 269 272 283M 289M 289 R6 1 00000006 FFFFFFFC A U 3675 161M 162M 162 279M 280 368M 370 392 R7 1 00000007 FFFFFFFC A U 3676 251M 251 263M 287M 287 R9 1 00000009 FFFFFFFC A U 3678 164M 165M 165 166U 174 394D SCANBUFF 2 00000132 00000001 H 257 253B SCANNL 6 00000256 00000001 I 393 259X WORKAREA 1 00000000 FFFFFFFF J 422 137U 432 WORKLEN 1 00000108 FFFFFFFF A U 432 90 X0ASCAN 2 00000116 00000001 H 245 213B 291B 357B =A(IOBMAGIC) 4 00000364 00000001 A 417 177 =A(O_RDONLY) 4 00000368 00000001 A 418 211 =A(PLINULL) 4 00000360 00000001 A 416 174 182 =F'-1' 4 00000370 00000001 F 420 361 =F'256' 4 0000036C 00000001 F 419 252 1FGETS Macro and Copy Code Source Summary Page 17 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO BPXYOPNF CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FGETS Dsect Cross Reference Page 18 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 449 O_FLAGS 00000004 FFFFFFFC 3633 PARMS 00000018 FFFFFFFE 437 WORKAREA 00000108 FFFFFFFF 422 1FGETS Using Map Page 19 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 93 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 368 393 FGETS,11 95 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 014 369 PARMS,10 137 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 088 350 WORKAREA,13 166 000000A0 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 018 356 FILEIOB,R9 394 0000025C 00000001 DROP 9 R9 394 0000025C 00000001 DROP 10 R10 394 0000025C 00000001 DROP 11 R11 394 0000025C 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 20 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 87 104M 114M 116M 117 123 168M 168 170 172 182M 183 185M 187 189M 190 215M 217 219M 220 329M 330 333M 334 347M 348 350M 351 361M 362 376M 388M 1(1) 87 94 107M 109 110 111 115M 116 123 125 126 127 128 211M 212M 264M 265 326M 330 334 336 337 346M 348 349M 351 373M 385M 385 388M 393M 2(2) 87 388M 393M 3(3) 87 246M 264 278M 282 388M 392 393 4(4) 87 247M 248M 248 252 255M 258M 259 265M 268 272M 273M 276 277M 277 278 279 283 285 388M 5(5) 87 158M 159M 159 160M 269 272 283M 289M 289 388M 6(6) 87 161M 162M 162 279M 280 368M 370 388M 392 7(7) 87 251M 251 263M 287M 287 388M 8(8) 87 388M 9(9) 87 164M 165M 165 166U 174 388M 394D 10(A) 87 94M 95U 388M 394D 11(B) 87 92M 93U 104 114 388M 394D 12(C) 87 117 120 388M 13(D) 87 109 110 111M 115 125 126 127 128M 129 130 131 132 137U 373 374M 374 375 388 394D 14(E) 87 121M 327M 330 331M 334 335M 336 339M 366M 367M 367 368 375M 376N 388M 390B 15(F) 87 88 92 100M 101M 101 120M 121B 169M 170 171M 172 177M 178 181M 183 186M 187 188M 190 216M 217 218M 220 268M 269 284M 285M 286 328M 330 332M 334 338M 339B 341M 342M 342 356 360M 362 369M 370 380M 381M 381 388M 389M 389 1FGETS Diagnostic Cross Reference and Assembler Summary Page 21 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 2317K would be required for this to be an In-Storage Assembly 359 Primary Input Records Read 9639 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 658 Primary Print Records Written 0 Work File Writes 36 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.30 Stop Time: 12.09.31 Processor Time: 00.00.01.6267 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1FPUTS External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0FPUTS1 SD 00000001 00000000 00000300 06 FPUTS LD 00000008 00000001 PLISTART WX 00000002 FWRITE ER 00000003 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * FPUTS -- WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE * 7 * * 8 * THIS MODULE READS ONE LINE FROM A FILE OPENED BY FOPEN. A * 9 * LINE IS TERMINATED BY A X'0A' * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * DATA -- CHAR(*) (*1,2) * 14 * THIS IS THE DATA TO WRITE. THIS IS A X'00' TERMINATED * 15 * STRING. AT MOST THE SIZE OF THE PASSED BUFFER WILL BE * 16 * WRITTEN. * 17 * * 18 * FILE -- POINTER (*1,3) * 19 * THIS IS A POINTER TO A FILEIOB CREATED BY FOPEN. IT IS THE * 20 * RETURNED VALUE FROM FOPEN. * 21 * * 22 * FUNCTIONS: * 23 * * 24 * 1. VALIDATE THE POINTER TO FILE * 25 * * 26 * 2. SCAN FOR THE X'00' TO CALCULATE THE LENGTH OF THE LINE. * 27 * * 28 * 3. CALL FWRITE TO ACTUALLY WRITE OUT THE DATA. DO NOT WRITE THE * 29 * X'00' (FWRITE). * 30 * * 31 * OUTPUTS (*FROM FUNCTIONS): * 32 * * 33 * COUNT -- FULLWORD INTEGER (*1) * 34 * THIS RETURNED PARAMETER IS THE NUMBER OF CHARACTERS WRITTEN. * 35 * VALUES: >=0 NUMBER OF BYTES WRITTEN (NOT COUNTING THE X'00') * 36 * -1 ON ERROR. * 37 * * 38 * ERRNO -- FULLWORD INTEGER (*1,2) * 39 * THIS CONTAINS THE ERRNO FROM THE FAILING CALL. IT IS ZERO ON * 40 * SUCCESS. STRERROR CAN BE USED TO GET A MESSAGE * 41 * * 42 * REA -- FULLWORD INTEGER (*1) * 43 * THIS CONTAINS THE REASON CODE (ALSO CALLED ERRNO JR.) FROM * 44 * THE FAILING UNIX SYSTEM SERVICES CALL. * 45 * * 46 * NOTES: * 47 * * 48 * 1. SAMPLE DECLARE AND CALL: * 49 * * 50 * DECLARE FPUTS ENTRY(CHAR(*), * 51 * POINTER, * 52 * FIXED BINARY(31), * 53 * FIXED BINARY(31)) * 54 * RETURNS(FIXED BINARY(31)); * 55 * DECLARE DATA CHAR(80) INIT(' '); * 56 * DECLARE FILEP POINTER INIT(NULL()); * 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 * DECLARE COUNT FIXED BINARY(31); * 58 * DECLARE ERRNO FIXED BINARY(31); * 59 * DECLARE REASON FIXED BINARY(31); * 60 * * 61 * COUNT = FPUTS(DATA, FILEP, ERRNO, REASON); * 62 * * 63 * 2. NOTE THAT ERRNO MAY NOT BE SET UNLESS A REAL READ IS DONE. * 64 * * 65 *********************************************************************** 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 67 FPUTS RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=BOTH 000000 00000 00300 68+FPUTS1 CSECT , 01-RENTR 69+ ENTRY FPUTS INDICATE ENTRY POINT 01-RENTR 000000 70+ DS 0D FORCE DOUBLEWORD ALIGNMENT 01-RENTR 000000 4040 71+ DC CL2' ' PADDING TO 8 BYTES 01-RENTR 000002 C6D7E4E3E205 72+ DC C'FPUTS',AL1(5) IDENTIFIER IN PL/I FORMAT 01-RENTR 000008 73+FPUTS DS 0H 01-RENTR 000008 90EC D00C 0000C 74+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 00000C 47F0 F014 00014 75+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000010 00000000 76+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 000014 000000F0 77+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000018 00000000 78+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 00001C 18BF 79+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00008 80+ USING FPUTS,11 01-RENTR 00001E 18A1 81+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 82+ USING PARMS,10 01-RENTR 83+ WXTRN PLISTART 01-RENTR 000020 84+ CNOP 0,4 01-RENTR 000020 47F0 B020 00028 85+ B *+8 SKIP ADDRESS CONSTANT 01-RENTR 000024 00000000 86+ DC V(PLISTART) 01-RENTR 000028 58F0 B01C 00024 87+ L 15,*-4 LOAD PLISTART ADDR 01-RENTR 00002C 12FF 88+ LTR 15,15 IS PLISTART LINKED IN? 01-RENTR 00002E 4770 B042 0004A 89+ BNZ PL10001 01-RENTR 90+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000032 5800 B00C 0000C 91+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 000036 4510 B032 0003A 94+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 00003A 0A0A 95+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 00003C 50D0 1004 00004 96+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000040 5010 D008 00008 97+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 000044 18D1 98+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000046 47F0 B07E 00086 99+ B COM0001 SKIP AROUND PL/I CODE 01-RENTR 00004A 100+PL10001 DS 0H 01-RENTR 00004A 5800 B00C 0000C 101+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00004E 5810 D04C 0004C 102+ L 1,76(,13) ADDR OF START OF CURRENTLY AVAIL STORAGE 01-RENTR 000052 1E01 103+ ALR 0,1 POINT PAST STORAGE NEEDED 01-RENTR 000054 5500 C00C 0000C 104+ CL 0,12(,12) IS THERE ENOUGH? (EOS POINTER IN TCA) 01-RENTR 000058 47D0 B05A 00062 105+ BNH *+10 IF ENOUGH, USE IT 01-RENTR 000005C 58F0 C074 00074 107+ L 15,116(,12) LOAD ADDR. OF OVERFLOW ROUTINE 01-RENTR 000060 05EF 108+ BALR 14,15 AND BRANCH TO IT 01-RENTR 0000062 5000 104C 0004C 110+ ST 0,76(,1) STORE ADDR OF REMAINING PLI LIFO STORAGE 01-RENTR 111+* IN NEW DSA OFFSET 76 000066 50D0 1004 00004 112+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 00006A 5010 D008 00008 113+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00006E D203 1048 D048 00048 00048 114+ MVC 72(4,1),72(13) COPY ADDR OF WORKSPACE USED BY PLI LIB 01-RENTR 000074 18D1 115+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 000076 9280 D000 00000 116+ MVI 0(13),X'80' PRESERVE PL/I ERROR HANDLING 01-RENTR 00007A 9200 D001 00001 117+ MVI 1(13),X'00' IN THE 01-RENTR 00007E 9291 D056 00056 118+ MVI 86(13),X'91' ASSEMBLER 01-RENTR 000082 92C0 D057 00057 119+ MVI 87(13),X'C0' ROUTINE 01-RENTR 0 121+* REMEMBER R5 MUST BE ZERO WHEN CALLING A PL/I EXTERNAL PROCEDURE 000086 122+COM0001 DS 0H 01-RENTR 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 6 Active Usings: PARMS(X'1000'),R10 FPUTS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 R:D 00000 124+ USING WORKAREA,13 01-RENTR 125 FPUTS1 AMODE 31 126 FPUTS1 RMODE ANY 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 7 Active Usings: PARMS(X'1000'),R10 FPUTS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 128 *********************************************************************** 129 * * 130 * VALIDATE THE IOB FIRST * 131 * * 132 * REGISTER USAGE: * 133 * R6 -> LINE TO WRITE OUT (PARM DATA) * 134 * R7 - MAX LENGTH OF THE PASSED STRING * 135 * R9 -> FILEIOB AREA * 136 * R10 -> PARM LIST FROM CALLER * 137 * R11 - BASE FOR PROGRAM * 138 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 139 * MODIFY * 140 * R13 -> DYNAMIC SAVE AND WORK AREA * 141 * R15 - WORK REGISTER FOR DATA TRANSFER. * 142 * * 143 *********************************************************************** 0000086 5860 A000 00000 145 L R6,PLIDATA POINT TO DATA PARM L/D 00008A 4870 6004 00004 146 LH R7,4(,R6) GET THE DECLARED MAX LENGTH 00008E 5860 6000 00000 147 L R6,0(,R6) POINT TO ACTUAL TARGET AREA 0000092 5890 A004 00004 149 L R9,PLIFILE POINT TO FILE IOB 000096 5890 9000 00000 150 L R9,0(,R9) LOAD THE IOB ADDR R:9 00000 151 USING FILEIOB,R9 000009A 1F00 153 SLR R0,R0 GET A ZERO 00009C 58F0 A008 00008 154 L R15,PLIERRNO 0000A0 5000 F000 00000 155 ST R0,0(,R15) 0000A4 58F0 A00C 0000C 156 L R15,PLIREA 0000A8 5000 F000 00000 157 ST R0,0(,R15) 00000AC 5990 B2E0 002E8 159 C R9,=A(PLINULL) IS THIS FILE ALREADY CLOSED? 0000B0 4780 B192 0019A 160 BE RETURN IF SO, NOTHING TO DO 00000B4 58F0 B2E4 002EC 162 L R15,=A(IOBMAGIC) GET THE MAGIC VALUE 0000B8 59F0 9000 00000 163 C R15,IOBMARK IS THIS A VALID IOB? 0000BC 4780 B0E0 000E8 164 BE IOBOK IF SO, KEEP GOING 00000C0 58F0 A004 00004 166 L R15,PLIFILE POINT TO THE RETURNED POINTER 0000C4 5800 B2E0 002E8 167 L R0,=A(PLINULL) GET THE PL/I NULL VALUE 0000C8 5000 F000 00000 168 ST R0,0(,R15) START WITH FAILURE. 00000CC 4100 0071 00071 170 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000D0 58F0 A008 00008 171 L R15,PLIERRNO 0000D4 5000 F000 00000 172 ST R0,0(,R15) 0000D8 58F0 A00C 0000C 173 L R15,PLIREA 0000DC 4100 00A9 000A9 174 LA R0,JRINVALIDPARMS INVALID PARMS TO FREAD 0000E0 5000 F000 00000 175 ST R0,0(,R15) 0000E4 47F0 B1C4 001CC 176 B FAILURE 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 8 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FPUTS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 178 *********************************************************************** 179 * * 180 * MAKE SURE THE FILE IS OPEN FOR INPUT, OTHERWISE FLAG AN ERROR. * 181 * * 182 * REGISTER USAGE: * 183 * R6 -> LINE TO WRITE OUT (PARM DATA) * 184 * R7 - MAX LENGTH OF THE PASSED STRING * 185 * R9 -> FILEIOB AREA * 186 * R10 -> PARM LIST FROM CALLER * 187 * R11 - BASE FOR PROGRAM * 188 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 189 * MODIFY * 190 * R13 -> DYNAMIC SAVE AND WORK AREA * 191 * R15 - WORK REGISTER FOR DATA TRANSFER. * 192 * * 193 *********************************************************************** 00000E8 195 IOBOK DS 0H 0000E8 5810 B2E8 002F0 196 L R1,=A(O_WRONLY) GET THE WRITE BIT 0000EC 5410 9014 00014 197 N R1,IOBFLAG IS THIS SOME FLAVOR OF OUTPUT? 0000F0 4770 B108 00110 198 BNZ X00SCAN IF SO, BEGIN PROCESSINT 00000F4 4100 0071 00071 200 LA R0,EBADF SHOW BAD FILE DESCRIPTOR 0000F8 58F0 A008 00008 201 L R15,PLIERRNO 0000FC 5000 F000 00000 202 ST R0,0(,R15) 000100 58F0 A00C 0000C 203 L R15,PLIREA 000104 4100 0034 00034 204 LA R0,JRWFILERDONLY WRITE TO READ ONLY STREAM 000108 5000 F000 00000 205 ST R0,0(,R15) 00010C 47F0 B1C4 001CC 206 B FAILURE 0 208 *********************************************************************** 209 * * 210 * SEE IF THERE A NEWLINE IN THE NEXT 256 BYTES OF DATA. IF SO, MOVE * 211 * THIS LINE TO THE TARGET IF IT WILL FIT. IF NOT COPY WHAT WILL FIT * 212 * AND MOVE THE BUFFER POINTER APPROPRIATELY. * 213 * * 214 * REGISTER USAGE: * 215 * R3 - LENGTH OF DATA LEFT TO SCAN * 216 * R4 - AMOUNT OF DATA TO SCAN ON THIS PASS THROUGH * 217 * SCANLOOP * 218 * R5 -> CURRENT POSTION IN LINE TO WRITE OUT. * 219 * R6 -> LINE TO WRITE OUT (PARM DATA) * 220 * R7 - MAX LENGTH OF THE PASSED STRING * 221 * R9 -> FILEIOB AREA * 222 * R10 -> PARM LIST FROM CALLER * 223 * R11 - BASE FOR PROGRAM * 224 * R12 - RESERVED FOR PL/I ERROR ROUTINES - DO NOT * 225 * MODIFY * 226 * R13 -> DYNAMIC SAVE AND WORK AREA * 227 * * 228 *********************************************************************** 0000110 230 X00SCAN DS 0H 000110 1856 231 LR R5,R6 GET MAX LENGTH LEFT TO SCAN 000112 1837 232 LR R3,R7 GET MAX LENGTH LEFT TO SCAN 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 9 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FPUTS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000114 234 SCANLOOP DS 0H 000114 1843 235 LR R4,R3 GET LENGTH LEFT TO SCAN 000116 5940 B2EC 002F4 236 C R4,=F'256' MORE THAN 256 LEFT? 00011A 4740 B11A 00122 237 BL SCANBUFF IF NOT, SCAN WHAT WE GOT 000011E 4140 0100 00100 239 LA R4,256 CAN'T SCAN MORE THAN 256 AT A TIME 0000122 241 SCANBUFF DS 0H 000122 0640 242 BCTR R4,0 SUB 1 FOR THE EXECUTE 000124 4440 B1D4 001DC 243 EX R4,SCAN00 SCAN FOR EOL X'00' (-> R3) 0000128 4780 B12C 00134 245 BZ NOEOL NO X'00' 000012C 1B16 247 SR R1,R6 GET LENGTH OF STR TO WRITE 00012E 1881 248 LR R8,R1 SAVE IT AWAY. 000130 47F0 B13A 00142 249 B WRITELN GO DO THE WRITE 0000134 251 NOEOL DS 0H 000134 4140 4001 00001 252 LA R4,1(,R4) GET REAL LENGTH OF SCANNED 000138 1A54 253 AR R5,R4 BUMP POINTER IN LINE 00013A 1B34 254 SR R3,R4 REMOVE FROM LEN TO SCAN 00013C 4720 B10C 00114 255 BP SCANLOOP GO TRY AGAIN 0000140 1887 257 LR R8,R7 OUTPUTING THE WHOLE PL/I VARIABLE 0000142 259 WRITELN DS 0H 000142 1288 260 LTR R8,R8 ANYTHING TO WRITE? 000144 4780 B192 0019A 261 BZ RETURN 0000148 5080 D06C 0006C 263 ST R8,STRLEN SAVE THE LENGTH TO WRITE. 00014C 5820 A000 00000 264 L R2,PLIDATA 000150 D203 D068 B2F0 00068 002F8 265 MVC SIZE,=F'1' SHOW ONE BYTE ENTITIES 000156 5830 A004 00004 266 L R3,PLIFILE 00015A 5840 A008 00008 267 L R4,PLIERRNO 00015E 5850 A00C 0000C 268 L R5,PLIREA 000162 5860 A010 00010 269 L R6,PLICOUNT 0 271 CALL FWRITE,((R2),SIZE,STRLEN,(R3),(R4),(R5),(R6)),VL, X MF=(E,CALLLIST) 000166 0700 273+ CNOP 0,4 01-CALL 000168 47F0 B168 00170 274+ B *+8 BRANCH AROUND VCON 01-CALL 00016C 00000000 275+IHB0004B DC V(FWRITE) ENTRY POINT ADDRESS 01-CALL 000170 4110 D070 00070 280+ LA 1,CALLLIST LOAD PARAMETER REG 1 03-IHBIN 000174 18E2 281+ LR 14,(R2) PICK UP PARAMETER 02-IHBOP 000176 41F0 D068 00068 282+ LA 15,SIZE PICKUP PARAMETER 02-IHBOP 00017A 4100 D06C 0006C 283+ LA 0,STRLEN PICKUP PARAMETER 02-IHBOP 00017E 90E0 1000 00000 284+ STM 14,0,0(1) STORE INTO PARAM. LIST 02-IHBOP 000182 18E3 285+ LR 14,(R3) PICK UP PARAMETER 02-IHBOP 000184 18F4 286+ LR 15,(R4) PICK UP PARAMETER 02-IHBOP 000186 1805 287+ LR 0,(R5) PICK UP PARAMETER 02-IHBOP 000188 90E0 100C 0000C 288+ STM 14,0,12(1) STORE INTO PARAM. LIST 02-IHBOP 00018C 5060 1018 00018 289+ ST (R6),24(0,1) STORE INTO PARAM. LIST 02-IHBOP 000190 9680 1018 00018 290+ OI 24(1),X'80' SET LAST WORD BIT ON @G860P40 02-IHBOP 000194 58F0 B164 0016C 291+ L 15,IHB0004B LOAD 15 WITH ENTRY ADR 01-CALL 000198 05EF 292+ BALR 14,15 BRANCH TO ENTRY POINT 01-CALL 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 10 Active Usings: FILEIOB(X'1000'),R9 PARMS(X'1000'),R10 FPUTS(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000019A 293 RETURN DS 0H 294 REXIT ENV=BOTH 00019A 4110 D000 00000 295+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 00019E 58D0 D004 00004 296+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 0001A2 58E0 D010 00010 297+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 0001A6 580E 000C 0000C 298+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 0001AA 0700 299+ CNOP 0,4 01-REXIT 0001AC 47F0 B1AC 001B4 300+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 0001B0 00000000 301+ DC V(PLISTART) 01-REXIT 0001B4 58F0 B1A8 001B0 302+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 0001B8 12FF 303+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 0001BA 4770 B1BC 001C4 304+ BNZ PL10010 01-REXIT 0001BE 4110 1000 00000 307+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 0001C2 0A0A 308+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 0001C4 309+PL10010 DS 0H 01-REXIT 0001C4 98EC D00C 0000C 310+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 0001C8 1FFF 311+ SLR 15,15 ZERO RETURN CODE 01-REXIT 0001CA 07FE 312+ BR 14 RETURN 01-REXIT 00001CC 314 FAILURE DS 0H 0001CC 58F0 A010 00010 315 L R15,PLICOUNT 0001D0 5800 B2F4 002FC 316 L R0,=F'-1' 0001D4 5000 F000 00000 317 ST R0,0(,R15) SHOW COUNT = -1; 0001D8 47F0 B192 0019A 318 B RETURN 00001DC DD00 5000 B1E0 00000 001E8 320 SCAN00 TRT 0(*-*,R5),HEX00 321 DROP R9,R10,R11,R13 0 323 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 0001E8 324 HEX00 DS 0D 0001E8 FF00000000000000 325 DC XL16'FF000000000000000000000000000000' 00 - 0F 0001F8 0000000000000000 326 DC XL16'00000000000000000000000000000000' 10 - 1F 000208 0000000000000000 327 DC XL16'00000000000000000000000000000000' 20 - 2F 000218 0000000000000000 328 DC XL16'00000000000000000000000000000000' 30 - 3F 000228 0000000000000000 329 DC XL16'00000000000000000000000000000000' 40 - 4F 000238 0000000000000000 330 DC XL16'00000000000000000000000000000000' 50 - 5F 000248 0000000000000000 331 DC XL16'00000000000000000000000000000000' 60 - 6F 000258 0000000000000000 332 DC XL16'00000000000000000000000000000000' 70 - 7F 000268 0000000000000000 333 DC XL16'00000000000000000000000000000000' 80 - 8F 000278 0000000000000000 334 DC XL16'00000000000000000000000000000000' 90 - 9F 000288 0000000000000000 335 DC XL16'00000000000000000000000000000000' A0 - AF 000298 0000000000000000 336 DC XL16'00000000000000000000000000000000' B0 - BF 0002A8 0000000000000000 337 DC XL16'00000000000000000000000000000000' C0 - CF 0002B8 0000000000000000 338 DC XL16'00000000000000000000000000000000' D0 - DF 0002C8 0000000000000000 339 DC XL16'00000000000000000000000000000000' E0 - EF 0002D8 0000000000000000 340 DC XL16'00000000000000000000000000000000' F0 - FF 00002E8 342 LTORG 0002E8 FF000000 343 =A(PLINULL) 0002EC BEADBEEF 344 =A(IOBMAGIC) 0002F0 00000001 345 =A(O_WRONLY) 0002F4 00000100 346 =F'256' 0002F8 00000001 347 =F'1' 0002FC FFFFFFFF 348 =F'-1' 1FPUTS WRITE A NEWLINE DELIMITED LINE TO A UNIX FILE Page 11 Active Usings: None 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 000F0 350 WORKAREA DSECT 000000 351 DS 26F 000068 352 SIZE DS A 00006C 353 STRLEN DS F 000070 354 CALLLIST DS 16D 000F0 355 WORKLEN EQU *-WORKAREA 0 357 * 358 * OPTIONS ASSEMBLER 359 * 000000 00000 00014 360 PARMS DSECT 000000 361 PLIDATA DS A DATA TO WRITE 000004 362 PLIFILE DS A POINTER TO FILE 000008 363 PLIERRNO DS A ERRNO VALUE 00000C 364 PLIREA DS A REASON CODE 000010 365 PLICOUNT DS A RETURNED NUMBER OF BYTES WRITTEN 0 000000 367 PLINULL EQU X'FF000000' 0 369 FILEIOB 0000000 00000 00020 371+FILEIOB DSECT 01-FILEI 000000 372+IOBMARK DS F MAGIC VALUE 01-FILEI 000004 373+IOBBASE DS A GETMAINED BUFFER 01-FILEI 000008 374+IOBBUFSZ DS F SIZE OF THE BUFFER 01-FILEI 00000C 375+IOBCNT DS F BYTES LEFT IN THE BUFFER 01-FILEI 000010 376+IOBFILE DS F VALUE FROM BPX1OPN (FILE DESCRIPTOR) 01-FILEI 000014 377+IOBFLAG DS F OPEN FLAGS 01-FILEI 000018 378+IOBPTR DS A NEXT BYTE TO WRITE IN BUFFER 01-FILEI 000020 379+ DS 0D FORCE ALIGNMENT 01-FILEI 00020 380+FILEIOBL EQU *-FILEIOB 01-FILEI 0 ADBEEF 382+IOBMAGIC EQU X'BEADBEEF' 01-FILEI 04000 383+IOBBUFFL EQU 16384 01-FILEI - 386 PRINT NOGEN 387 BPXYERNO 3552 BPXYOPNF 0 3590 SYMBAR MODE=DEC 3607 END 1FPUTS Relocation Dictionary Page 12 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000002 1C 00000024 00000001 00000002 1C 000001B0 00000001 00000003 1C 0000016C 1FPUTS Ordinary Symbol and Literal Cross Reference Page 13 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0CALLLIST 8 00000070 FFFFFFFF D 354 280 COM0001 2 00000086 00000001 H 122 99B EBADF 1 00000071 FFFFFFFD A U 404 170 200 FAILURE 2 000001CC 00000001 H 314 176B 206B FILEIOB 1 00000000 FFFFFFFD J 371 151U 380 FPUTS 2 00000008 00000001 H 73 69 80U FPUTS1 1 00000000 00000001 J 68 125 126 FWRITE 1 00000000 00000003 T 275 275 HEX00 8 000001E8 00000001 D 324 320 IHB0004B 4 0000016C 00000001 V 275 291 IOBFLAG 4 00000014 FFFFFFFD F 377 197 IOBMAGIC 1 BEADBEEF FFFFFFFD A U 382 344 IOBMARK 4 00000000 FFFFFFFD F 372 163 IOBOK 2 000000E8 00000001 H 195 164B JRINVALIDPARMS 1 000000A9 FFFFFFFD A U 839 174 JRWFILERDONLY 1 00000034 FFFFFFFD A U 648 204 NOEOL 2 00000134 00000001 H 251 245B O_FLAGS 1 00000000 FFFFFFFC J 3555 3586 O_WRONLY 1 00000001 FFFFFFFC A U 3581 345 PARMS 1 00000000 FFFFFFFE J 360 82U PLICOUNT 4 00000010 FFFFFFFE A 365 269 315 PLIDATA 4 00000000 FFFFFFFE A 361 145 264 PLIERRNO 4 00000008 FFFFFFFE A 363 154 171 201 267 PLIFILE 4 00000004 FFFFFFFE A 362 149 166 266 PLINULL 1 FF000000 FFFFFFFE A U 367 343 PLIREA 4 0000000C FFFFFFFE A 364 156 173 203 268 PLISTART 1 00000000 00000002 $ 83 86 301 PL10001 2 0000004A 00000001 H 100 89B PL10010 2 000001C4 00000001 H 309 304B RETURN 2 0000019A 00000001 H 293 160B 261B 318B R0 1 00000000 FFFFFFFC A U 3591 153M 153 155 157 167M 168 170M 172 174M 175 200M 202 204M 205 316M 317 R1 1 00000001 FFFFFFFC A U 3592 196M 197M 247M 248 R10 1 0000000A FFFFFFFC A U 3601 321D R11 1 0000000B FFFFFFFC A U 3602 321D R13 1 0000000D FFFFFFFC A U 3604 321D R15 1 0000000F FFFFFFFC A U 3606 154M 155 156M 157 162M 163 166M 168 171M 172 173M 175 201M 202 203M 205 315M 317 R2 1 00000002 FFFFFFFC A U 3593 264M 281 R3 1 00000003 FFFFFFFC A U 3594 232M 235 254M 266M 285 R4 1 00000004 FFFFFFFC A U 3595 235M 236 239M 242M 243 252M 252 253 254 267M 286 R5 1 00000005 FFFFFFFC A U 3596 231M 253M 268M 287 320 R6 1 00000006 FFFFFFFC A U 3597 145M 146 147M 147 231 247 269M 289 R7 1 00000007 FFFFFFFC A U 3598 146M 232 257 R8 1 00000008 FFFFFFFC A U 3599 248M 257M 260M 260 263 R9 1 00000009 FFFFFFFC A U 3600 149M 150M 150 151U 159 321D SCANBUFF 2 00000122 00000001 H 241 237B SCANLOOP 2 00000114 00000001 H 234 255B SCAN00 6 000001DC 00000001 I 320 243X SIZE 4 00000068 FFFFFFFF A 352 265M 282 STRLEN 4 0000006C FFFFFFFF F 353 263M 283 WORKAREA 1 00000000 FFFFFFFF J 350 124U 355 WORKLEN 1 000000F0 FFFFFFFF A U 355 77 1FPUTS Ordinary Symbol and Literal Cross Reference Page 14 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0WRITELN 2 00000142 00000001 H 259 249B X00SCAN 2 00000110 00000001 H 230 198B =A(IOBMAGIC) 4 000002EC 00000001 A 344 162 =A(O_WRONLY) 4 000002F0 00000001 A 345 196 =A(PLINULL) 4 000002E8 00000001 A 343 159 167 =F'-1' 4 000002FC 00000001 F 348 316 =F'1' 4 000002F8 00000001 F 347 265 =F'256' 4 000002F4 00000001 F 346 236 1FPUTS Macro and Copy Code Source Summary Page 15 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO BPXYOPNF CALL FREEMAIN GETMAIN IHBINNRR IHBOPLTX SYSSTATE L3 QC22505.HFS.ASM COS002 FILEIOB RENTR REXIT SYMBAR 1FPUTS Dsect Cross Reference Page 16 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0FILEIOB 00000020 FFFFFFFD 371 O_FLAGS 00000004 FFFFFFFC 3555 PARMS 00000014 FFFFFFFE 360 WORKAREA 000000F0 FFFFFFFF 350 1FPUTS Using Map Page 17 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 80 0000001E 00000001 USING ORDINARY 00000008 00001000 00000001 11 2F4 320 FPUTS,11 82 00000020 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 010 315 PARMS,10 124 00000086 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 070 283 WORKAREA,13 151 0000009A 00000001 USING ORDINARY 00000000 00001000 FFFFFFFD 9 014 197 FILEIOB,R9 321 000001E2 00000001 DROP 9 R9 321 000001E2 00000001 DROP 10 R10 321 000001E2 00000001 DROP 11 R11 321 000001E2 00000001 DROP 13 R13 1 General Purpose Register Cross Reference Page 18 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 74 91M 101M 103M 104 110 153M 153 155 157 167M 168 170M 172 174M 175 200M 202 204M 205 283M 284 287M 288 298M 310M 316M 317 1(1) 74 81 94M 96 97 98 102M 103 110 112 113 114 115 196M 197M 247M 248 280M 284 288 289 290 295M 307M 307 310M 320M 2(2) 74 264M 281 310M 320M 3(3) 74 232M 235 254M 266M 285 310M 4(4) 74 235M 236 239M 242M 243 252M 252 253 254 267M 286 310M 5(5) 74 231M 253M 268M 287 310M 320 6(6) 74 145M 146 147M 147 231 247 269M 289 310M 7(7) 74 146M 232 257 310M 8(8) 74 248M 257M 260M 260 263 310M 9(9) 74 149M 150M 150 151U 159 310M 321D 10(A) 74 81M 82U 310M 321D 11(B) 74 79M 80U 91 101 310M 321D 12(C) 74 104 107 310M 13(D) 74 96 97 98M 102 112 113 114 115M 116 117 118 119 124U 295 296M 296 297 310 321D 14(E) 74 108M 281M 284 285M 288 292M 297M 298N 310M 312B 15(F) 74 75 79 87M 88M 88 107M 108B 154M 155 156M 157 162M 163 166M 168 171M 172 173M 175 201M 202 203M 205 282M 284 286M 288 291M 292B 302M 303M 303 310M 311M 311 315M 317 1FPUTS Diagnostic Cross Reference and Assembler Summary Page 19 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: FOPEN PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 FOPEN L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000107.? 4768K allocated to Buffer Pool, 1437K would be required for this to be an In-Storage Assembly 276 Primary Input Records Read 9639 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 563 Primary Print Records Written 0 Work File Writes 32 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.31 Stop Time: 12.09.33 Processor Time: 00.00.01.5921 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1STRERR External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0STRERR SD 00000001 00000000 0000243D 06 PLISTART WX 00000002 1STRERR OMVS_STRERR Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * STRERR -- OMVS_STRERR * 7 * * 8 * THIS MODULE RETURNS THE ERROR MESSSAGE CORRESPONDING TO A * 9 * PASSED ERRNO UNDER OPEN MVS. * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * ERRNO -- FULLWORD INT (*1,3) * 14 * THIS IS THE ADDRESS OF A FULLWORD CONTAINING THE ERRNO TO BE * 15 * INTERPRETED. * 16 * * 17 * FUNCTIONS: * 18 * * 19 * 1. LOAD THE PARM LIST INTO REGISTERS * 20 * * 21 * 2. ZERO THE LENGTH IN CASE OF ERROR. * 22 * * 23 * 3. CONVERT THE ERRO TO AN OFFSET IN THE TABLE AND SEE IF IT IS * 24 * IN IN RANGE. * 25 * * 26 * 4. LOAD THE ADDRESS OF THE MESSAGE AND SEE IF IT IS ZERO THIS * 27 * MEANS UNKNOWN ERRNO, NO MESSAGE,. * 28 * * 29 * 5. FIND THE END OF THE MESSAGE AND CALCULATE THE LENGTH. * 30 * * 31 * 6. PLACE THE LENGTH AND THE MESSAGE ADDRESS IN THE RETURNED * 32 * PARMS. * 33 * * 34 * OUTPUTS (*FROM FUNCTIONS): * 35 * * 36 * LEN -- PONTER TO FULLWORD INT (*1,2,3,6) * 37 * THIS IS THE ADDRESS OF A FULLWORD TO CONTAIN THE LENGTH OF * 38 * THE RETURNED MESSAGE. IF NO MESSAGE IS RETURNED, THE LENGTH * 39 * IS SET TO ZERO. * 40 * * 41 * MSG -- POINTER TO FULLWORD ADDR E THIS IS THE ADDRESS OF A * 42 * FULLWORD TO CONTAIN THE MESSAGE ADDRESS. THE MESSAGE ADDRESS * 43 * IS A STATIC STRING WHICH IS TERMINATED BY A BYTE OF ZEROS. * 44 * (*1,6) * 45 * * 46 * NOTES: * 47 * * 48 * 1. SAMPLE CALL: * 49 * CALL STRERR,(ERRNO,LEN,MSGADDR) * 50 * ERRNO DC F'123' * 51 * LEN DC F'0' * 52 * MSGADDR DC A(0) * 53 * * 54 *********************************************************************** 1STRERR OMVS_STRERR Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 56 STRERR RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS,MAIN=YES 000000 00000 0243D 57+STRERR CSECT 01-RENTR 000000 90EC D00C 0000C 58+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 000004 47F0 F014 00014 59+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000008 00000000 60+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 00000C 00000068 61+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000010 00000000 62+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 000014 18BF 63+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00000 64+ USING STRERR,11 01-RENTR 000016 18A1 65+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 66+ USING PARMS,10 01-RENTR 67+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000018 5800 B00C 0000C 68+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00001C 4510 B020 00020 71+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000020 0A0A 72+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 000022 50D0 1004 00004 73+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000026 5010 D008 00008 74+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00002A 18D1 75+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 77+ USING WORKAREA,13 01-RENTR 78 STRERR AMODE 31 79 STRERR RMODE ANY 1STRERR OMVS_STRERR Page 5 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000002C 9846 A000 00000 81 LM R4,R6,0(R10) LOAD PARM LIST INTO REGS 000030 5844 0000 00000 82 L R4,0(R4) R4 CONTAINS THE ERRNO 83 * R5 POINTS TO LEN FULLWORD 84 * R6 POINTS TO MSG ADDR 000034 D703 5000 5000 00000 00000 85 XC 0(4,R5),0(R5) ZERO THE LEN 00003A 58F0 B1A0 001A0 86 L R15,=A(PLINULL) 00003E 50F0 6000 00000 87 ST R15,0(,R6) 0000042 8B40 0002 00002 89 SLA R4,2 MULTIPLY ERRNO BY 4 000046 41E4 B1A8 001A8 90 LA R14,ETAB(R4) POINT TO THE ERROR ADDR 00004A 58F0 B1A4 001A4 91 L R15,=A(LASTMSG) POINT TO END OF TABLE 00004E 19EF 92 CR R14,R15 ARE WE PAST THE TABLE? 000050 4720 B06E 0006E 93 BH RETURN YES, NO MESSAGE 0000054 58FE 0000 00000 95 L R15,0(R14) LOAD THE MESSAGE ADDR 000058 12FF 96 LTR R15,R15 IS IT ZERO? 00005A 4780 B06E 0006E 97 BZ RETURN IF SO, NO MESSAGE 0 99 * NOTE THAT ALL MESSAGES ARE LESS THAN 255 CHARACTERS 00005E DDFF F000 B0A0 00000 000A0 100 TRT 0(256,R15),FINDNUL FIND END OF MESSAGE 000064 1B1F 101 SR R1,R15 CALCULATE THE LENGTH 000066 5010 5000 00000 102 ST R1,0(,R5) SAVE THE LENGTH 00006A 50F0 6000 00000 103 ST R15,0(,R6) SAVE THE MESSAGE ADDR 1STRERR OMVS_STRERR Page 6 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000006E 105 RETURN DS 0H 106 REXIT ENV=BOTH 00006E 4110 D000 00000 107+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 000072 58D0 D004 00004 108+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 000076 58E0 D010 00010 109+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 00007A 580E 000C 0000C 110+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 111+ WXTRN PLISTART 01-REXIT 00007E 0700 112+ CNOP 0,4 01-REXIT 000080 47F0 B088 00088 113+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 000084 00000000 114+ DC V(PLISTART) 01-REXIT 000088 58F0 B084 00084 115+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 00008C 12FF 116+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 00008E 4770 B098 00098 117+ BNZ PL10004 01-REXIT 000092 4110 1000 00000 120+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 000096 0A0A 121+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 000098 122+PL10004 DS 0H 01-REXIT 000098 98EC D00C 0000C 123+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 00009C 1FFF 124+ SLR 15,15 ZERO RETURN CODE 01-REXIT 00009E 07FE 125+ BR 14 RETURN 01-REXIT 1STRERR OMVS_STRERR Page 7 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 127 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 0000A0 FF00000000000000 128 FINDNUL DC XL16'FF000000000000000000000000000000' 00 0000B0 0000000000000000 129 DC XL16'00000000000000000000000000000000' 10 0000C0 0000000000000000 130 DC XL16'00000000000000000000000000000000' 20 0000D0 0000000000000000 131 DC XL16'00000000000000000000000000000000' 30 0000E0 0000000000000000 132 DC XL16'00000000000000000000000000000000' 40 0000F0 0000000000000000 133 DC XL16'00000000000000000000000000000000' 50 000100 0000000000000000 134 DC XL16'00000000000000000000000000000000' 60 000110 0000000000000000 135 DC XL16'00000000000000000000000000000000' 70 000120 0000000000000000 136 DC XL16'00000000000000000000000000000000' 80 000130 0000000000000000 137 DC XL16'00000000000000000000000000000000' 90 000140 0000000000000000 138 DC XL16'00000000000000000000000000000000' A0 000150 0000000000000000 139 DC XL16'00000000000000000000000000000000' B0 000160 0000000000000000 140 DC XL16'00000000000000000000000000000000' C0 000170 0000000000000000 141 DC XL16'00000000000000000000000000000000' D0 000180 0000000000000000 142 DC XL16'00000000000000000000000000000000' E0 000190 0000000000000000 143 DC XL16'00000000000000000000000000000000' F0 1STRERR OMVS_STRERR Page 8 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 145 ***************************************************************** 146 * * 147 * ERRNO TABLE * 148 * * 149 ***************************************************************** 0001A0 150 LTORG 0001A0 FF000000 151 =A(PLINULL) 0001A4 000013F0 152 =A(LASTMSG) 000000 153 PLINULL EQU X'FF000000' 00001A8 0000000000000000 155 ETAB DC 1170A(0) 013F0 156 LASTMSG EQU * 157 ***************************************************************** 158 * * 159 * E R R N O V A L U E S D E F I N E D B Y C / 3 7 0 * 160 * * 161 ***************************************************************** 0013F0 013F0 001AC 162 ORG ETAB+(4*EDOM) 0001AC 000013F0 163 DC A(MEDOM) 0001B0 001B0 013F0 164 ORG 0013F0 C599999699408995 165 MEDOM DC C'Error in the domain',X'00' 001404 01404 001B0 166 ORG ETAB+(4*ERANGE) 0001B0 00001404 167 DC A(MERANGE) 0001B4 001B4 01404 168 ORG 001404 D985A2A493A34089 169 MERANGE DC C'Result is too large',X'00' 170 ***************************************************************** 171 * * 172 * P O S I X E R R N O V A L U E S * 173 * * 174 ***************************************************************** 001418 01418 00364 175 ORG ETAB+(4*EACCES) 000364 00001418 176 DC A(MEACCES) 000368 00368 01418 177 ORG 001418 D785999489A2A289 178 MEACCES DC C'Permission is denied',X'00' 00142D 0142D 00368 179 ORG ETAB+(4*EAGAIN) 000368 0000142D 180 DC A(MEAGAIN) 00036C 0036C 0142D 181 ORG 00142D E38885409985A296 182 MEAGAIN DC C'The resource is temporarily unavailable',X'00' 001455 01455 0036C 183 ORG ETAB+(4*EBADF) 00036C 00001455 184 DC A(MEBADF) 000370 00370 01455 185 ORG 001455 E388854086899385 186 MEBADF DC C'The file descriptor is incorrect',X'00' 001476 01476 00370 187 ORG ETAB+(4*EBUSY) 000370 00001476 188 DC A(MEBUSY) 000374 00374 01476 189 ORG 001476 E38885409985A296 190 MEBUSY DC C'The resource is busy',X'00' 00148B 0148B 00374 191 ORG ETAB+(4*ECHILD) 000374 0000148B 192 DC A(MECHILD) 000378 00378 0148B 193 ORG 00148B D596408388899384 194 MECHILD DC C'No child process exists',X'00' 0014A3 014A3 00378 195 ORG ETAB+(4*EDEADLK) 000378 000014A3 196 DC A(MEDEADLK) 00037C 0037C 014A3 197 ORG 0014A3 C1409985A296A499 198 MEDEADLK DC C'A resource deadlock is avoided',X'00' 0014C2 014C2 0037C 199 ORG ETAB+(4*EEXIST) 1STRERR OMVS_STRERR Page 9 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000037C 000014C2 200 DC A(MEEXIST) 000380 00380 014C2 201 ORG 0014C2 E388854086899385 202 MEEXIST DC C'The file exists',X'00' 0014D2 014D2 00380 203 ORG ETAB+(4*EFAULT) 000380 000014D2 204 DC A(MEFAULT) 000384 00384 014D2 205 ORG 0014D2 E388854081848499 206 MEFAULT DC C'The address is incorrect',X'00' 0014EB 014EB 00384 207 ORG ETAB+(4*EFBIG) 000384 000014EB 208 DC A(MEFBIG) 000388 00388 014EB 209 ORG 0014EB E388854086899385 210 MEFBIG DC C'The file is too large',X'00' 001501 01501 00388 211 ORG ETAB+(4*EINTR) 000388 00001501 212 DC A(MEINTR) 00038C 0038C 01501 213 ORG 001501 C14086A49583A389 214 MEINTR DC C'A function call is interrupted',X'00' 001520 01520 0038C 215 ORG ETAB+(4*EINVAL) 00038C 00001520 216 DC A(MEINVAL) 000390 00390 01520 217 ORG 001520 E388854097819981 218 MEINVAL DC C'The parameter is incorrect',X'00' 00153B 0153B 00390 219 ORG ETAB+(4*EIO) 000390 0000153B 220 DC A(MEIO) 000394 00394 0153B 221 ORG 00153B C19540C961D64085 222 MEIO DC C'An I/O error occurred',X'00' 001551 01551 00394 223 ORG ETAB+(4*EISDIR) 000394 00001551 224 DC A(MEISDIR) 000398 00398 01551 225 ORG 001551 E388854086899385 226 MEISDIR DC C'The file specified is a directory',X'00' 001573 01573 00398 227 ORG ETAB+(4*EMFILE) 000398 00001573 228 DC A(MEMFILE) 00039C 0039C 01573 229 ORG 001573 E3969640948195A8 230 MEMFILE DC C'Too many files are open for this process',X'00' 00159C 0159C 0039C 231 ORG ETAB+(4*EMLINK) 00039C 0000159C 232 DC A(MEMLINK) 0003A0 003A0 0159C 233 ORG 00159C E3969640948195A8 234 MEMLINK DC C'Too many links occurred',X'00' 0015B4 015B4 003A0 235 ORG ETAB+(4*ENAMETOOLONG) 0003A0 000015B4 236 DC A(MENAMETOOLONG) 0003A4 003A4 015B4 237 ORG 0015B4 E388854086899385 238 MENAMETOOLONG DC C'The filename is too long',X'00' 0015CD 015CD 003A4 239 ORG ETAB+(4*ENFILE) 0003A4 000015CD 240 DC A(MENFILE) 0003A8 003A8 015CD 241 ORG 0015CD E3969640948195A8 242 MENFILE DC C'Too many files are open in the system',X'00' 0015F3 015F3 003A8 243 ORG ETAB+(4*ENODEV) 0003A8 000015F3 244 DC A(MENODEV) 0003AC 003AC 015F3 245 ORG 0015F3 D59640A2A4838840 246 MENODEV DC C'No such device exists',X'00' 001609 01609 003AC 247 ORG ETAB+(4*ENOENT) 0003AC 00001609 248 DC A(MENOENT) 0003B0 003B0 01609 249 ORG 001609 D59640A2A4838840 250 MENOENT DC C'No such file, directory, or IPC member exists',X'00' 001637 01637 003B0 251 ORG ETAB+(4*ENOEXEC) 0003B0 00001637 252 DC A(MENOEXEC) 0003B4 003B4 01637 253 ORG 001637 E388854085A78583 254 MENOEXEC DC C'The exec call contained a format error.The target' 1STRERR OMVS_STRERR Page 10 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001668 40949684A4938540 255 DC C' module on an exec call was not a valid executable' 00169B 40949684A493854B 256 DC C' module.',X'00' 0016A4 016A4 003B4 257 ORG ETAB+(4*ENOLCK) 0003B4 000016A4 258 DC A(MENOLCK) 0003B8 003B8 016A4 259 ORG 0016A4 D5964093968392A2 260 MENOLCK DC C'No locks are available',X'00' 0016BB 016BB 003B8 261 ORG ETAB+(4*ENOMEM) 0003B8 000016BB 262 DC A(MENOMEM) 0003BC 003BC 016BB 263 ORG 0016BB D596A340859596A4 264 MENOMEM DC C'Not enough space is available',X'00' 0016D9 016D9 003BC 265 ORG ETAB+(4*ENOSPC) 0003BC 000016D9 266 DC A(MENOSPC) 0003C0 003C0 016D9 267 ORG 0016D9 D59640A297818385 268 MENOSPC DC C'No space is left on the device, or no space is ' 001708 81A5818993818293 269 DC C'available to create the IPC member ID',X'00' 00172E 0172E 003C0 270 ORG ETAB+(4*ENOSYS) 0003C0 0000172E 271 DC A(MENOSYS) 0003C4 003C4 0172E 272 ORG 00172E E388854086A49583 273 MENOSYS DC C'The function is not implemented',X'00' 00174E 0174E 003C4 274 ORG ETAB+(4*ENOTDIR) 0003C4 0000174E 275 DC A(MENOTDIR) 0003C8 003C8 0174E 276 ORG 00174E D596A34081408489 277 MENOTDIR DC C'Not a directory',X'00' 00175E 0175E 003C8 278 ORG ETAB+(4*ENOTEMPTY) 0003C8 0000175E 279 DC A(MENOTEMPTY) 0003CC 003CC 0175E 280 ORG 00175E E388854084899985 281 MENOTEMPTY DC C'The directory is not empty',X'00' 001779 01779 003CC 282 ORG ETAB+(4*ENOTTY) 0003CC 00001779 283 DC A(MENOTTY) 0003D0 003D0 01779 284 ORG 001779 E3888540C961D640 285 MENOTTY DC C'The I/O control operator is inappropriate',X'00' 0017A3 017A3 003D0 286 ORG ETAB+(4*ENXIO) 0003D0 000017A3 287 DC A(MENXIO) 0003D4 003D4 017A3 288 ORG 0017A3 D59640A2A4838840 289 MENXIO DC C'No such device or address exists',X'00' 0017C4 017C4 003D4 290 ORG ETAB+(4*EPERM) 0003D4 000017C4 291 DC A(MEPERM) 0003D8 003D8 017C4 292 ORG 0017C4 E388854096978599 293 MEPERM DC C'The operation is not permitted',X'00' 0017E3 017E3 003D8 294 ORG ETAB+(4*EPIPE) 0003D8 000017E3 295 DC A(MEPIPE) 0003DC 003DC 017E3 296 ORG 0017E3 E388854097899785 297 MEPIPE DC C'The pipe is broken',X'00' 0017F6 017F6 003DC 298 ORG ETAB+(4*EROFS) 0003DC 000017F6 299 DC A(MEROFS) 0003E0 003E0 017F6 300 ORG 0017F6 E3888540A2978583 301 MEROFS DC C'The specified file system is read only',X'00' 00181D 0181D 003E0 302 ORG ETAB+(4*ESPIPE) 0003E0 0000181D 303 DC A(MESPIPE) 0003E4 003E4 0181D 304 ORG 00181D E3888540A2858592 305 MESPIPE DC C'The seek is incorrect',X'00' 001833 01833 003E4 306 ORG ETAB+(4*ESRCH) 0003E4 00001833 307 DC A(MESRCH) 0003E8 003E8 01833 308 ORG 001833 D59640A2A4838840 309 MESRCH DC C'No such process or thread exists',X'00' 1STRERR OMVS_STRERR Page 11 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001854 01854 003E8 310 ORG ETAB+(4*EXDEV) 0003E8 00001854 311 DC A(MEXDEV) 0003EC 003EC 01854 312 ORG 001854 C1409389959240A3 313 MEXDEV DC C'A link to a file on another file system was ' 001880 81A3A3859497A385 314 DC C'attempted',X'00' 00188A 0188A 003EC 315 ORG ETAB+(4*E2BIG) 0003EC 0000188A 316 DC A(ME2BIG) 0003F0 003F0 0188A 317 ORG 00188A E388854097819981 318 ME2BIG DC C'The parameter list is too long, or the message to' 0018BB 409985838589A585 319 DC C' receive was too large for the buffer',X'00' 0018E1 018E1 003F0 320 ORG ETAB+(4*ELOOP) 0003F0 000018E1 321 DC A(MELOOP) 0003F4 003F4 018E1 322 ORG 0018E1 C140939696974089 323 MELOOP DC C'A loop is encountered in symbolic links',X'00' 001909 01909 003F4 324 ORG ETAB+(4*EILSEQ) 0003F4 00001909 325 DC A(MEILSEQ) 0003F8 003F8 01909 326 ORG 001909 E388854082A8A385 327 MEILSEQ DC C'The byte sequence is illegal',X'00' 001926 01926 003FC 328 ORG ETAB+(4*EOVERFLOW) 0003FC 00001926 329 DC A(MEOVERFLOW) 000400 00400 01926 330 ORG 001926 C140A58193A48540 331 MEOVERFLOW DC C'A value is too large to be stored in the data type' 001958 00 332 DC X'00' 333 ***************************************************************** 334 * * 335 * M V S U N I Q U E E R R N O V A L U E S * 336 * * 337 ***************************************************************** 001959 01959 00400 338 ORG ETAB+(4*EMVSNOTUP) 000400 00001959 339 DC A(MEMVSNOTUP) 000404 00404 01959 340 ORG 001959 D6978595D4E5E240 341 MEMVSNOTUP DC C'OpenMVS kernel is not active',X'00' 001976 01976 00404 342 ORG ETAB+(4*EMVSDYNALC) 000404 00001976 343 DC A(MEMVSDYNALC) 000408 00408 01976 344 ORG 001976 C4A8958194898340 345 MEMVSDYNALC DC C'Dynamic allocation error',X'00' 00198F 0198F 00408 346 ORG ETAB+(4*EMVSCVAF) 000408 0000198F 347 DC A(MEMVSCVAF) 00040C 0040C 0198F 348 ORG 00198F C381A38193968740 349 MEMVSCVAF DC C'Catalog Volume Access Facility error',X'00' 0019B4 019B4 0040C 350 ORG ETAB+(4*EMVSCATLG) 00040C 000019B4 351 DC A(MEMVSCATLG) 000410 00410 019B4 352 ORG 0019B4 C381A38193968740 353 MEMVSCATLG DC C'Catalog obtain error',X'00' 0019C9 019C9 00418 354 ORG ETAB+(4*EMVSINITIAL) 000418 000019C9 355 DC A(MEMVSINITIAL) 00041C 0041C 019C9 356 ORG 0019C9 D799968385A2A240 357 MEMVSINITIAL DC C'Process Initialization error',X'00' 0019E6 019E6 0041C 358 ORG ETAB+(4*EMVSERR) 00041C 000019E6 359 DC A(MEMVSERR) 000420 00420 019E6 360 ORG 0019E6 C140D4E5E2408595 361 MEMVSERR DC C'A MVS environmental or internal error has occurred' 001A18 00 362 DC X'00' 001A19 01A19 00420 363 ORG ETAB+(4*EMVSPARM) 000420 00001A19 364 DC A(MEMVSPARM) 1STRERR OMVS_STRERR Page 12 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000424 00424 01A19 365 ORG 001A19 C281844097819981 366 MEMVSPARM DC C'Bad parameters were passed to the service',X'00' 001A43 01A43 00424 367 ORG ETAB+(4*EMVSPFSFILE) 000424 00001A43 368 DC A(MEMVSPFSFILE) 000428 00428 01A43 369 ORG 001A43 C8C6E24085958396 370 MEMVSPFSFILE DC C'HFS encountered a permanent file error',X'00' 001A6A 01A6A 00430 371 ORG ETAB+(4*EMVSPFSPERM) 000430 00001A6A 372 DC A(MEMVSPFSPERM) 000434 00434 01A6A 373 ORG 001A6A C8C6E24085958396 374 MEMVSPFSPERM DC C'HFS encountered a system error',X'00' 001A89 01A89 00434 375 ORG ETAB+(4*EMVSSAFEXTRERR) 000434 00001A89 376 DC A(MEMVSSAFEXTRERR) 000438 00438 01A89 377 ORG 001A89 E2C1C661D9C1C3C6 378 MEMVSSAFEXTRERR DC C'SAF/RACF extract error',X'00' 001AA0 01AA0 00438 379 ORG ETAB+(4*EMVSSAF2ERR) 000438 00001AA0 380 DC A(MEMVSSAF2ERR) 00043C 0043C 01AA0 381 ORG 001AA0 E2C1C661D9C1C3C6 382 MEMVSSAF2ERR DC C'SAF/RACF error',X'00' 001AAF 01AAF 00444 383 ORG ETAB+(4*EMVSNORTL) 000444 00001AAF 384 DC A(MEMVSNORTL) 000448 00448 01AAF 385 ORG 001AAF C1838385A2A240A3 386 MEMVSNORTL DC C'Access to the OpenMVS version of the C RTL is' 001ADC 4084859589858400 387 DC C' denied',X'00' 001AE4 01AE4 00448 388 ORG ETAB+(4*EMVSEXPIRE) 000448 00001AE4 389 DC A(MEMVSEXPIRE) 00044C 0044C 01AE4 390 ORG 001AE4 E38885409781A2A2 391 MEMVSEXPIRE DC C'The password for the specified resource has ' 001B10 85A7978999858400 392 DC C'expired',X'00' 001B18 01B18 0044C 393 ORG ETAB+(4*EMVSPASSWORD) 00044C 00001B18 394 DC A(MEMVSPASSWORD) 000450 00450 01B18 395 ORG 001B18 E38885409585A640 396 MEMVSPASSWORD DC C'The new password specified is not valid',X'00' 001B40 01B40 00450 397 ORG ETAB+(4*EMVSWLMERROR) 000450 00001B40 398 DC A(MEMVSWLMERROR) 000454 00454 01B40 399 ORG 001B40 C140E6D3D440A285 400 MEMVSWLMERROR DC C'A WLM service ended in error',X'00' 001B5D 01B5D 00454 401 ORG ETAB+(4*EMVSCPLERROR) 000454 00001B5D 402 DC A(MEMVSCPLERROR) 000458 00458 01B5D 403 ORG 001B5D C140C396A4979389 404 MEMVSCPLERROR DC C'A Coupling Facility service ended in error',X'00' 405 ***************************************************************** 406 * * 407 * O P E N S Y S T E M S E R R N O V A L U E S * 408 * * 409 ***************************************************************** 001B88 01B88 01150 410 ORG ETAB+(4*EIBMSOCKOUTOFRANGE) 001150 00001B88 411 DC A(MEIBMSOCKOUTOFRANGE) 001154 01154 01B88 412 ORG 001B88 E296839285A34095 413 MEIBMSOCKOUTOFRANGE DC C'Socket number assigned by client interface' 001BB2 4083968485404D86 414 DC C' code (for socket() and accept()) is out of range' 001BE3 00 415 DC X'00' 001BE4 01BE4 01154 416 ORG ETAB+(4*EIBMSOCKINUSE) 001154 00001BE4 417 DC A(MEIBMSOCKINUSE) 001158 01158 01BE4 418 ORG 001BE4 E296839285A34095 419 MEIBMSOCKINUSE DC C'Socket number assigned by client interface' 1STRERR OMVS_STRERR Page 13 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001C0E 40839684854089A2 420 DC C' code is already in use',X'00' 001C26 01C26 0115C 421 ORG ETAB+(4*EOFFLOADBOXERROR) 00115C 00001C26 422 DC A(MEOFFLOADBOXERROR) 001160 01160 01C26 423 ORG 001C26 D686869396818440 424 MEOFFLOADBOXERROR DC C'Offload box error',X'00' 001C38 01C38 01160 425 ORG ETAB+(4*EOFFLOADBOXRESTART) 001160 00001C38 426 DC A(MEOFFLOADBOXRESTART) 001164 01164 01C38 427 ORG 001C38 D686869396818440 428 MEOFFLOADBOXRESTART DC C'Offload box restarted',X'00' 001C4E 01C4E 01164 429 ORG ETAB+(4*EOFFLOADBOXDOWN) 001164 00001C4E 430 DC A(MEOFFLOADBOXDOWN) 001168 01168 01C4E 431 ORG 001C4E D686869396818440 432 MEOFFLOADBOXDOWN DC C'Offload box down',X'00' 001C5F 01C5F 01168 433 ORG ETAB+(4*EIBMCONFLICT) 001168 00001C5F 434 DC A(MEIBMCONFLICT) 00116C 0116C 01C5F 435 ORG 001C5F C19399858184A840 436 MEIBMCONFLICT DC C'Already a conflicting call outstanding on' 001C88 40A296839285A300 437 DC C' socket',X'00' 001C90 01C90 0116C 438 ORG ETAB+(4*EIBMCANCELLED) 00116C 00001C90 439 DC A(MEIBMCANCELLED) 001170 01170 01C90 440 ORG 001C90 D98598A485A2A340 441 MEIBMCANCELLED DC C'Request cancelled via SOCKcallCANCEL request' 001CBC 00 442 DC X'00' 001CBD 01CBD 01174 443 ORG ETAB+(4*EIBMBADTCPNAME) 001174 00001CBD 444 DC A(MEIBMBADTCPNAME) 001178 01178 01CBD 445 ORG 001CBD E285A3C98294D697 446 MEIBMBADTCPNAME DC C'SetIbmOpt specified a name of a PFS that' 001CE5 408589A388859940 447 DC C' either was not configured or was not a Sockets PFS.' 001D19 00 448 DC X'00' 001D1A 01D1A 012D8 449 ORG ETAB+(4*ENOTBLK) 0012D8 00001D1A 450 DC A(MENOTBLK) 0012DC 012DC 01D1A 451 ORG 001D1A C293968392408485 452 MENOTBLK DC C'Block device required',X'00' 001D30 01D30 012DC 453 ORG ETAB+(4*ETXTBSY) 0012DC 00001D30 454 DC A(METXTBSY) 0012E0 012E0 01D30 455 ORG 001D30 E385A7A340868993 456 METXTBSY DC C'Text file busy',X'00' 001D3F 01D3F 012E0 457 ORG ETAB+(4*EWOULDBLOCK) 0012E0 00001D3F 458 DC A(MEWOULDBLOCK) 0012E4 012E4 01D3F 459 ORG 001D3F E38885408485A283 460 MEWOULDBLOCK DC C'The descriptor is marked nonblocking, and the' 001D6C 40998598A485A2A3 461 DC C' requested function cannot complete immediately',X'00' 001D9C 01D9C 012E4 462 ORG ETAB+(4*EINPROGRESS) 0012E4 00001D9C 463 DC A(MEINPROGRESS) 0012E8 012E8 01D9C 464 ORG 001D9C D697859981A38996 465 MEINPROGRESS DC C'Operation now in progress',X'00' 001DB6 01DB6 012E8 466 ORG ETAB+(4*EALREADY) 0012E8 00001DB6 467 DC A(MEALREADY) 0012EC 012EC 01DB6 468 ORG 001DB6 D697859981A38996 469 MEALREADY DC C'Operation already in progress',X'00' 001DD4 01DD4 012EC 470 ORG ETAB+(4*ENOTSOCK) 0012EC 00001DD4 471 DC A(MENOTSOCK) 0012F0 012F0 01DD4 472 ORG 001DD4 E296839285A34096 473 MENOTSOCK DC C'Socket operation on a non-socket',X'00' 001DF5 01DF5 012F0 474 ORG ETAB+(4*EDESTADDRREQ) 1STRERR OMVS_STRERR Page 14 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00012F0 00001DF5 475 DC A(MEDESTADDRREQ) 0012F4 012F4 01DF5 476 ORG 001DF5 C485A2A3899581A3 477 MEDESTADDRREQ DC C'Destination address required',X'00' 001E12 01E12 012F4 478 ORG ETAB+(4*EMSGSIZE) 0012F4 00001E12 479 DC A(MEMSGSIZE) 0012F8 012F8 01E12 480 ORG 001E12 E38885409485A2A2 481 MEMSGSIZE DC C'The message is too large to be sent all at once,' 001E42 4081A240998598A4 482 DC C' as required',X'00' 001E4F 01E4F 012F8 483 ORG ETAB+(4*EPROTOTYPE) 0012F8 00001E4F 484 DC A(MEPROTOTYPE) 0012FC 012FC 01E4F 485 ORG 001E4F E3888540A2968392 486 MEPROTOTYPE DC C'The socket type is incorrect',X'00' 001E6C 01E6C 012FC 487 ORG ETAB+(4*ENOPROTOOPT) 0012FC 00001E6C 488 DC A(MENOPROTOOPT) 001300 01300 01E6C 489 ORG 001E6C D79996A396839693 490 MENOPROTOOPT DC C'Protocol or socket option not available',X'00' 001E94 01E94 01300 491 ORG ETAB+(4*EPROTONOSUPPORT) 001300 00001E94 492 DC A(MEPROTONOSUPPORT) 001304 01304 01E94 493 ORG 001E94 D79996A396839693 494 MEPROTONOSUPPORT DC C'Protocol not supported',X'00' 001EAB 01EAB 01304 495 ORG ETAB+(4*ESOCKTNOSUPPORT) 001304 00001EAB 496 DC A(MESOCKTNOSUPPORT) 001308 01308 01EAB 497 ORG 001EAB E296839285A340A3 498 MESOCKTNOSUPPORT DC C'Socket type not supported',X'00' 001EC5 01EC5 01308 499 ORG ETAB+(4*EOPNOTSUPP) 001308 00001EC5 500 DC A(MEOPNOTSUPP) 00130C 0130C 01EC5 501 ORG 001EC5 E388854099858685 502 MEOPNOTSUPP DC C'The referenced socket is not a type that' 001EED 40A2A497979699A3 503 DC C' supports the requested function',X'00' 001F0E 01F0E 0130C 504 ORG ETAB+(4*EPFNOSUPPORT) 00130C 00001F0E 505 DC A(MEPFNOSUPPORT) 001310 01310 01F0E 506 ORG 001F0E D79996A396839693 507 MEPFNOSUPPORT DC C'Protocol family not supported',X'00' 001F2C 01F2C 01310 508 ORG ETAB+(4*EAFNOSUPPORT) 001310 00001F2C 509 DC A(MEAFNOSUPPORT) 001314 01314 01F2C 510 ORG 001F2C E388854081848499 511 MEAFNOSUPPORT DC C'The address family is not supported',X'00' 001F50 01F50 01314 512 ORG ETAB+(4*EADDRINUSE) 001314 00001F50 513 DC A(MEADDRINUSE) 001318 01318 01F50 514 ORG 001F50 E388854081848499 515 MEADDRINUSE DC C'The address is already in use',X'00' 001F6E 01F6E 01318 516 ORG ETAB+(4*EADDRNOTAVAIL) 001318 00001F6E 517 DC A(MEADDRNOTAVAIL) 00131C 0131C 01F6E 518 ORG 001F6E C381959596A34081 519 MEADDRNOTAVAIL DC C'Cannot assign requested address',X'00' 001F8E 01F8E 0131C 520 ORG ETAB+(4*ENETDOWN) 00131C 00001F8E 521 DC A(MENETDOWN) 001320 01320 01F8E 522 ORG 001F8E D585A3A696999240 523 MENETDOWN DC C'Network is down',X'00' 001F9E 01F9E 01320 524 ORG ETAB+(4*ENETUNREACH) 001320 00001F9E 525 DC A(MENETUNREACH) 001324 01324 01F9E 526 ORG 001F9E D585A3A696999240 527 MENETUNREACH DC C'Network is unreachable',X'00' 001FB5 01FB5 01324 528 ORG ETAB+(4*ENETRESET) 001324 00001FB5 529 DC A(MENETRESET) 1STRERR OMVS_STRERR Page 15 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001328 01328 01FB5 530 ORG 001FB5 D585A3A696999240 531 MENETRESET DC C'Network dropped connection on reset',X'00' 001FD9 01FD9 01328 532 ORG ETAB+(4*ECONNABORTED) 001328 00001FD9 533 DC A(MECONNABORTED) 00132C 0132C 01FD9 534 ORG 001FD9 E29686A3A6819985 535 MECONNABORTED DC C'Software caused connection abort',X'00' 001FFA 01FFA 0132C 536 ORG ETAB+(4*ECONNRESET) 00132C 00001FFA 537 DC A(MECONNRESET) 001330 01330 01FFA 538 ORG 001FFA C39695958583A389 539 MECONNRESET DC C'Connection reset by peer',X'00' 002013 02013 01330 540 ORG ETAB+(4*ENOBUFS) 001330 00002013 541 DC A(MENOBUFS) 001334 01334 02013 542 ORG 002013 C995A2A486868983 543 MENOBUFS DC C'Insufficient buffer space available',X'00' 002037 02037 01334 544 ORG ETAB+(4*EISCONN) 001334 00002037 545 DC A(MEISCONN) 001338 01338 02037 546 ORG 002037 E3888540A2968392 547 MEISCONN DC C'The socket is already connected',X'00' 002057 02057 01338 548 ORG ETAB+(4*ENOTCONN) 001338 00002057 549 DC A(MENOTCONN) 00133C 0133C 02057 550 ORG 002057 E3888540A2968392 551 MENOTCONN DC C'The socket is not connected',X'00' 002073 02073 0133C 552 ORG ETAB+(4*ESHUTDOWN) 00133C 00002073 553 DC A(MESHUTDOWN) 001340 01340 02073 554 ORG 002073 C381959596A340A2 555 MESHUTDOWN DC C'Cannot send after socket shutdown',X'00' 002095 02095 01340 556 ORG ETAB+(4*ETOOMANYREFS) 001340 00002095 557 DC A(METOOMANYREFS) 001344 01344 02095 558 ORG 002095 E3969640948195A8 559 METOOMANYREFS DC C'Too many references: cannot splice',X'00' 0020B8 020B8 01344 560 ORG ETAB+(4*ETIMEDOUT) 001344 000020B8 561 DC A(METIMEDOUT) 001348 01348 020B8 562 ORG 0020B8 C39695958583A389 563 METIMEDOUT DC C'Connection timed out',X'00' 0020CD 020CD 01348 564 ORG ETAB+(4*ECONNREFUSED) 001348 000020CD 565 DC A(MECONNREFUSED) 00134C 0134C 020CD 566 ORG 0020CD E388854081A3A385 567 MECONNREFUSED DC C'The attempt to connect was rejected',X'00' 0020F1 020F1 0134C 568 ORG ETAB+(4*EHOSTDOWN) 00134C 000020F1 569 DC A(MEHOSTDOWN) 001350 01350 020F1 570 ORG 0020F1 C896A2A34089A240 571 MEHOSTDOWN DC C'Host is down',X'00' 0020FE 020FE 01350 572 ORG ETAB+(4*EHOSTUNREACH) 001350 000020FE 573 DC A(MEHOSTUNREACH) 001354 01354 020FE 574 ORG 0020FE D596409996A4A385 575 MEHOSTUNREACH DC C'No route to host',X'00' 00210F 0210F 01354 576 ORG ETAB+(4*EPROCLIM) 001354 0000210F 577 DC A(MEPROCLIM) 001358 01358 0210F 578 ORG 00210F E3969640948195A8 579 MEPROCLIM DC C'Too many processes',X'00' 002122 02122 01358 580 ORG ETAB+(4*EUSERS) 001358 00002122 581 DC A(MEUSERS) 00135C 0135C 02122 582 ORG 002122 E3969640948195A8 583 MEUSERS DC C'Too many users',X'00' 002131 02131 0135C 584 ORG ETAB+(4*EDQUOT) 1STRERR OMVS_STRERR Page 16 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000135C 00002131 585 DC A(MEDQUOT) 001360 01360 02131 586 ORG 002131 C489A2834098A496 587 MEDQUOT DC C'Disc quota exceeded',X'00' 002145 02145 01360 588 ORG ETAB+(4*ESTALE) 001360 00002145 589 DC A(MESTALE) 001364 01364 02145 590 ORG 002145 E2A381938540D5C6 591 MESTALE DC C'Stale NFS file handle',X'00' 00215B 0215B 01364 592 ORG ETAB+(4*EREMOTE) 001364 0000215B 593 DC A(MEREMOTE) 001368 01368 0215B 594 ORG 00215B E3969640948195A8 595 MEREMOTE DC C'Too many levels of remote in path',X'00' 00217D 0217D 01368 596 ORG ETAB+(4*ENOSTR) 001368 0000217D 597 DC A(MENOSTR) 00136C 0136C 0217D 598 ORG 00217D C485A58983854089 599 MENOSTR DC C'Device is not a stream',X'00' 002194 02194 0136C 600 ORG ETAB+(4*ETIME) 00136C 00002194 601 DC A(METIME) 001370 01370 02194 602 ORG 002194 E3899485994085A7 603 METIME DC C'Timer expired',X'00' 0021A2 021A2 01370 604 ORG ETAB+(4*ENOSR) 001370 000021A2 605 DC A(MENOSR) 001374 01374 021A2 606 ORG 0021A2 D6A4A340968640A2 607 MENOSR DC C'Out of streams resources',X'00' 0021BB 021BB 01374 608 ORG ETAB+(4*ENOMSG) 001374 000021BB 609 DC A(MENOMSG) 001378 01378 021BB 610 ORG 0021BB D596409485A2A281 611 MENOMSG DC C'No message of the desired type',X'00' 0021DA 021DA 01378 612 ORG ETAB+(4*EBADMSG) 001378 000021DA 613 DC A(MEBADMSG) 00137C 0137C 021DA 614 ORG 0021DA E399A889958740A3 615 MEBADMSG DC C'Trying to read unreadable message',X'00' 0021FC 021FC 0137C 616 ORG ETAB+(4*EIDRM) 00137C 000021FC 617 DC A(MEIDRM) 001380 01380 021FC 618 ORG 0021FC C9848595A3898689 619 MEIDRM DC C'Identifier removed',X'00' 00220F 0220F 01380 620 ORG ETAB+(4*ENONET) 001380 0000220F 621 DC A(MENONET) 001384 01384 0220F 622 ORG 00220F D481838889958540 623 MENONET DC C'Machine is not on the network',X'00' 00222D 0222D 01384 624 ORG ETAB+(4*ERREMOTE) 001384 0000222D 625 DC A(MERREMOTE) 001388 01388 0222D 626 ORG 00222D D682918583A34089 627 MERREMOTE DC C'Object is remote',X'00' 00223E 0223E 01388 628 ORG ETAB+(4*ENOLINK) 001388 0000223E 629 DC A(MENOLINK) 00138C 0138C 0223E 630 ORG 00223E E388854093899592 631 MENOLINK DC C'The link has been severed',X'00' 002258 02258 0138C 632 ORG ETAB+(4*EADV) 00138C 00002258 633 DC A(MEADV) 001390 01390 02258 634 ORG 002258 C184A58599A389A2 635 MEADV DC C'Advertise error',X'00' 002268 02268 01390 636 ORG ETAB+(4*ESRMNT) 001390 00002268 637 DC A(MESRMNT) 001394 01394 02268 638 ORG 002268 A2999496A495A340 639 MESRMNT DC C'srmount error',X'00' 1STRERR OMVS_STRERR Page 17 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0002276 02276 01394 640 ORG ETAB+(4*ECOMM) 001394 00002276 641 DC A(MECOMM) 001398 01398 02276 642 ORG 002276 C3969494A4958983 643 MECOMM DC C'Communication error on send',X'00' 002292 02292 01398 644 ORG ETAB+(4*EPROTO) 001398 00002292 645 DC A(MEPROTO) 00139C 0139C 02292 646 ORG 002292 D79996A396839693 647 MEPROTO DC C'Protocol error',X'00' 0022A1 022A1 0139C 648 ORG ETAB+(4*EMULTIHOP) 00139C 000022A1 649 DC A(MEMULTIHOP) 0013A0 013A0 022A1 650 ORG 0022A1 D79996A396839693 651 MEMULTIHOP DC C'Protocol error',X'00' 0022B0 022B0 013A0 652 ORG ETAB+(4*EDOTDOT) 0013A0 000022B0 653 DC A(MEDOTDOT) 0013A4 013A4 022B0 654 ORG 0022B0 C39996A2A2409496 655 MEDOTDOT DC C'Cross mount point',X'00' 0022C2 022C2 013A4 656 ORG ETAB+(4*EREMCHG) 0013A4 000022C2 657 DC A(MEREMCHG) 0013A8 013A8 022C2 658 ORG 0022C2 D9859496A3854081 659 MEREMCHG DC C'Remote address change',X'00' 0022D8 022D8 013A8 660 ORG ETAB+(4*ECANCELED) 0013A8 000022D8 661 DC A(MECANCELED) 0013AC 013AC 022D8 662 ORG 0022D8 E388854081A2A895 663 MECANCELED DC C'The asynchronous I/O request has been canceled' 002306 00 664 DC X'00' 002307 02307 013AC 665 ORG ETAB+(4*ETCPOUTOFSTATE) 0013AC 00002307 666 DC A(METCPOUTOFSTATE) 0013B0 013B0 02307 667 ORG 002307 E296839285A340A2 668 METCPOUTOFSTATE DC C'Socket send/receive gotten out of order' 00232E 00 669 DC X'00' 00232F 0232F 013B0 670 ORG ETAB+(4*ETCPUNATTACH) 0013B0 0000232F 671 DC A(METCPUNATTACH) 0013B4 013B4 0232F 672 ORG 00232F E49581A3A3818388 673 METCPUNATTACH DC C'Unattached streams error',X'00' 002348 02348 013B4 674 ORG ETAB+(4*ETCPBADOBJ) 0013B4 00002348 675 DC A(METCPBADOBJ) 0013B8 013B8 02348 676 ORG 002348 E2A399858194A240 677 METCPBADOBJ DC C'Streams push object error',X'00' 002362 02362 013B8 678 ORG ETAB+(4*ETCPCLOSED) 0013B8 00002362 679 DC A(METCPCLOSED) 0013BC 013BC 02362 680 ORG 002362 E2A399858194A240 681 METCPCLOSED DC C'Streams closed error',X'00' 002377 02377 013BC 682 ORG ETAB+(4*ETCPLINKED) 0013BC 00002377 683 DC A(METCPLINKED) 0013C0 013C0 02377 684 ORG 002377 E2A399858194A240 685 METCPLINKED DC C'Streams link error',X'00' 00238A 0238A 013C0 686 ORG ETAB+(4*ETCPERR) 0013C0 0000238A 687 DC A(METCPERR) 0013C4 013C4 0238A 688 ORG 00238A E383974085999996 689 METCPERR DC C'Tcp error',X'00' 002394 02394 013C4 690 ORG ETAB+(4*EINTRNODATA) 0013C4 00002394 691 DC A(MEINTRNODATA) 0013C8 013C8 02394 692 ORG 002394 C183838597A36D81 693 MEINTRNODATA DC C'Accept_and_receive is interrupted after the' 0023BF 40839695958583A3 694 DC C' connection arrived but before the first data' 1STRERR OMVS_STRERR Page 18 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00023EC 4081999989A58584 695 DC C' arrived.',X'00' 0023F6 023F6 013C8 696 ORG ETAB+(4*ENOREUSE) 0013C8 000023F6 697 DC A(MENOREUSE) 0013CC 013CC 023F6 698 ORG 0023F6 E296839285A34084 699 MENOREUSE DC C'Socket descriptor reuse is not supported.',X'00' 002420 02420 013CC 700 ORG ETAB+(4*ENOMOVE) 0013CC 00002420 701 DC A(MENOMOVE) 0013D0 013D0 02420 702 ORG 002420 C6899385E2A8A2A3 703 MENOMOVE DC C'FileSystem can not be moved.',X'00' 1STRERR OMVS_STRERR Page 19 Active Usings: PARMS(X'1000'),R10 STRERR(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00068 705 WORKAREA DSECT 000000 706 DS 26F 00068 707 WORKLEN EQU *-WORKAREA 0000000 00000 0000C 709 PARMS DSECT 000000 710 PERRNO DS A THE ERRNO TO UNRAVEL 000004 711 PLEN DS A POINTS TO AN INT TO RECIEVE THE LENGTH 000008 712 PMSG DS A POINTS TO AN POINTER TO RECIEVE THE MSG ADDR 0 714 PRINT NOGEN 715 SYMBAR MODE=DEC 732 BPXYERNO 3897 END 1STRERR Relocation Dictionary Page 20 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 000001A4 00000001 00000001 0C 000001AC 00000001 00000001 0C 000001B0 00000001 00000001 0C 00000364 00000001 00000001 0C 00000368 00000001 00000001 0C 0000036C 00000001 00000001 0C 00000370 00000001 00000001 0C 00000374 00000001 00000001 0C 00000378 00000001 00000001 0C 0000037C 00000001 00000001 0C 00000380 00000001 00000001 0C 00000384 00000001 00000001 0C 00000388 00000001 00000001 0C 0000038C 00000001 00000001 0C 00000390 00000001 00000001 0C 00000394 00000001 00000001 0C 00000398 00000001 00000001 0C 0000039C 00000001 00000001 0C 000003A0 00000001 00000001 0C 000003A4 00000001 00000001 0C 000003A8 00000001 00000001 0C 000003AC 00000001 00000001 0C 000003B0 00000001 00000001 0C 000003B4 00000001 00000001 0C 000003B8 00000001 00000001 0C 000003BC 00000001 00000001 0C 000003C0 00000001 00000001 0C 000003C4 00000001 00000001 0C 000003C8 00000001 00000001 0C 000003CC 00000001 00000001 0C 000003D0 00000001 00000001 0C 000003D4 00000001 00000001 0C 000003D8 00000001 00000001 0C 000003DC 00000001 00000001 0C 000003E0 00000001 00000001 0C 000003E4 00000001 00000001 0C 000003E8 00000001 00000001 0C 000003EC 00000001 00000001 0C 000003F0 00000001 00000001 0C 000003F4 00000001 00000001 0C 000003FC 00000001 00000001 0C 00000400 00000001 00000001 0C 00000404 00000001 00000001 0C 00000408 00000001 00000001 0C 0000040C 00000001 00000001 0C 00000418 00000001 00000001 0C 0000041C 00000001 00000001 0C 00000420 00000001 00000001 0C 00000424 00000001 00000001 0C 00000430 00000001 00000001 0C 00000434 00000001 00000001 0C 00000438 00000001 00000001 0C 00000444 00000001 00000001 0C 00000448 00000001 00000001 0C 0000044C 1STRERR Relocation Dictionary Page 21 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000450 00000001 00000001 0C 00000454 00000001 00000001 0C 00001150 00000001 00000001 0C 00001154 00000001 00000001 0C 0000115C 00000001 00000001 0C 00001160 00000001 00000001 0C 00001164 00000001 00000001 0C 00001168 00000001 00000001 0C 0000116C 00000001 00000001 0C 00001174 00000001 00000001 0C 000012D8 00000001 00000001 0C 000012DC 00000001 00000001 0C 000012E0 00000001 00000001 0C 000012E4 00000001 00000001 0C 000012E8 00000001 00000001 0C 000012EC 00000001 00000001 0C 000012F0 00000001 00000001 0C 000012F4 00000001 00000001 0C 000012F8 00000001 00000001 0C 000012FC 00000001 00000001 0C 00001300 00000001 00000001 0C 00001304 00000001 00000001 0C 00001308 00000001 00000001 0C 0000130C 00000001 00000001 0C 00001310 00000001 00000001 0C 00001314 00000001 00000001 0C 00001318 00000001 00000001 0C 0000131C 00000001 00000001 0C 00001320 00000001 00000001 0C 00001324 00000001 00000001 0C 00001328 00000001 00000001 0C 0000132C 00000001 00000001 0C 00001330 00000001 00000001 0C 00001334 00000001 00000001 0C 00001338 00000001 00000001 0C 0000133C 00000001 00000001 0C 00001340 00000001 00000001 0C 00001344 00000001 00000001 0C 00001348 00000001 00000001 0C 0000134C 00000001 00000001 0C 00001350 00000001 00000001 0C 00001354 00000001 00000001 0C 00001358 00000001 00000001 0C 0000135C 00000001 00000001 0C 00001360 00000001 00000001 0C 00001364 00000001 00000001 0C 00001368 00000001 00000001 0C 0000136C 00000001 00000001 0C 00001370 00000001 00000001 0C 00001374 00000001 00000001 0C 00001378 00000001 00000001 0C 0000137C 00000001 00000001 0C 00001380 00000001 00000001 0C 00001384 00000001 00000001 0C 00001388 1STRERR Relocation Dictionary Page 22 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 0000138C 00000001 00000001 0C 00001390 00000001 00000001 0C 00001394 00000001 00000001 0C 00001398 00000001 00000001 0C 0000139C 00000001 00000001 0C 000013A0 00000001 00000001 0C 000013A4 00000001 00000001 0C 000013A8 00000001 00000001 0C 000013AC 00000001 00000001 0C 000013B0 00000001 00000001 0C 000013B4 00000001 00000001 0C 000013B8 00000001 00000001 0C 000013BC 00000001 00000001 0C 000013C0 00000001 00000001 0C 000013C4 00000001 00000001 0C 000013C8 00000001 00000001 0C 000013CC 00000001 00000002 1C 00000084 1STRERR Ordinary Symbol and Literal Cross Reference Page 23 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0EACCES 1 0000006F FFFFFFFE A U 746 175 EADDRINUSE 1 0000045B FFFFFFFE A U 884 512 EADDRNOTAVAIL 1 0000045C FFFFFFFE A U 885 516 EADV 1 00000479 FFFFFFFE A U 922 632 EAFNOSUPPORT 1 0000045A FFFFFFFE A U 882 508 EAGAIN 1 00000070 FFFFFFFE A U 747 179 EALREADY 1 00000450 FFFFFFFE A U 867 466 EBADF 1 00000071 FFFFFFFE A U 749 183 EBADMSG 1 00000474 FFFFFFFE A U 916 612 EBUSY 1 00000072 FFFFFFFE A U 751 187 ECANCELED 1 00000480 FFFFFFFE A U 929 660 ECHILD 1 00000073 FFFFFFFE A U 752 191 ECOMM 1 0000047B FFFFFFFE A U 924 640 ECONNABORTED 1 00000460 FFFFFFFE A U 890 532 ECONNREFUSED 1 00000468 FFFFFFFE A U 902 564 ECONNRESET 1 00000461 FFFFFFFE A U 892 536 EDEADLK 1 00000074 FFFFFFFE A U 753 195 EDESTADDRREQ 1 00000452 FFFFFFFE A U 870 474 EDOM 1 00000001 FFFFFFFE A U 739 162 EDOTDOT 1 0000047E FFFFFFFE A U 927 652 EDQUOT 1 0000046D FFFFFFFE A U 908 584 EEXIST 1 00000075 FFFFFFFE A U 754 199 EFAULT 1 00000076 FFFFFFFE A U 755 203 EFBIG 1 00000077 FFFFFFFE A U 756 207 EHOSTDOWN 1 00000469 FFFFFFFE A U 904 568 EHOSTUNREACH 1 0000046A FFFFFFFE A U 905 572 EIBMBADTCPNAME 1 000003F3 FFFFFFFE A U 856 443 EIBMCANCELLED 1 000003F1 FFFFFFFE A U 854 438 EIBMCONFLICT 1 000003F0 FFFFFFFE A U 852 433 EIBMSOCKINUSE 1 000003EB FFFFFFFE A U 846 416 EIBMSOCKOUTOFRANGE 1 000003EA FFFFFFFE A U 842 410 EIDRM 1 00000475 FFFFFFFE A U 918 616 EILSEQ 1 00000093 FFFFFFFE A U 805 324 EINPROGRESS 1 0000044F FFFFFFFE A U 866 462 EINTR 1 00000078 FFFFFFFE A U 757 211 EINTRNODATA 1 00000487 FFFFFFFE A U 940 690 EINVAL 1 00000079 FFFFFFFE A U 758 215 EIO 1 0000007A FFFFFFFE A U 759 219 1STRERR Ordinary Symbol and Literal Cross Reference Page 24 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0EISCONN 1 00000463 FFFFFFFE A U 895 544 EISDIR 1 0000007B FFFFFFFE A U 760 223 ELOOP 1 00000092 FFFFFFFE A U 803 320 EMFILE 1 0000007C FFFFFFFE A U 762 227 EMLINK 1 0000007D FFFFFFFE A U 764 231 EMSGSIZE 1 00000453 FFFFFFFE A U 871 478 EMULTIHOP 1 0000047D FFFFFFFE A U 926 648 EMVSCATLG 1 00000099 FFFFFFFE A U 817 350 EMVSCPLERROR 1 000000AB FFFFFFFE A U 835 401 EMVSCVAF 1 00000098 FFFFFFFE A U 815 346 EMVSDYNALC 1 00000097 FFFFFFFE A U 814 342 EMVSERR 1 0000009D FFFFFFFE A U 819 358 EMVSEXPIRE 1 000000A8 FFFFFFFE A U 830 388 EMVSINITIAL 1 0000009C FFFFFFFE A U 818 354 EMVSNORTL 1 000000A7 FFFFFFFE A U 828 383 EMVSNOTUP 1 00000096 FFFFFFFE A U 813 338 EMVSPARM 1 0000009E FFFFFFFE A U 821 363 EMVSPASSWORD 1 000000A9 FFFFFFFE A U 832 393 EMVSPFSFILE 1 0000009F FFFFFFFE A U 823 367 EMVSPFSPERM 1 000000A2 FFFFFFFE A U 825 371 EMVSSAFEXTRERR 1 000000A3 FFFFFFFE A U 826 375 EMVSSAF2ERR 1 000000A4 FFFFFFFE A U 827 379 EMVSWLMERROR 1 000000AA FFFFFFFE A U 834 397 ENAMETOOLONG 1 0000007E FFFFFFFE A U 765 235 ENETDOWN 1 0000045D FFFFFFFE A U 886 520 ENETRESET 1 0000045F FFFFFFFE A U 888 528 ENETUNREACH 1 0000045E FFFFFFFE A U 887 524 ENFILE 1 0000007F FFFFFFFE A U 766 239 ENOBUFS 1 00000462 FFFFFFFE A U 893 540 ENODEV 1 00000080 FFFFFFFE A U 768 243 ENOENT 1 00000081 FFFFFFFE A U 769 247 ENOEXEC 1 00000082 FFFFFFFE A U 771 251 ENOLCK 1 00000083 FFFFFFFE A U 779 257 ENOLINK 1 00000478 FFFFFFFE A U 921 628 ENOMEM 1 00000084 FFFFFFFE A U 780 261 ENOMOVE 1 00000489 FFFFFFFE A U 946 700 ENOMSG 1 00000473 FFFFFFFE A U 915 608 ENONET 1 00000476 FFFFFFFE A U 919 620 1STRERR Ordinary Symbol and Literal Cross Reference Page 25 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0ENOPROTOOPT 1 00000455 FFFFFFFE A U 874 487 ENOREUSE 1 00000488 FFFFFFFE A U 944 696 ENOSPC 1 00000085 FFFFFFFE A U 781 265 ENOSR 1 00000472 FFFFFFFE A U 914 604 ENOSTR 1 00000470 FFFFFFFE A U 912 596 ENOSYS 1 00000086 FFFFFFFE A U 784 270 ENOTBLK 1 0000044C FFFFFFFE A U 860 449 ENOTCONN 1 00000464 FFFFFFFE A U 896 548 ENOTDIR 1 00000087 FFFFFFFE A U 785 274 ENOTEMPTY 1 00000088 FFFFFFFE A U 786 278 ENOTSOCK 1 00000451 FFFFFFFE A U 868 470 ENOTTY 1 00000089 FFFFFFFE A U 787 282 ENXIO 1 0000008A FFFFFFFE A U 789 286 EOFFLOADBOXDOWN 1 000003EF FFFFFFFE A U 851 429 EOFFLOADBOXERROR 1 000003ED FFFFFFFE A U 849 421 EOFFLOADBOXRESTART 1 000003EE FFFFFFFE A U 850 425 EOPNOTSUPP 1 00000458 FFFFFFFE A U 878 499 EOVERFLOW 1 00000095 FFFFFFFE A U 806 328 EPERM 1 0000008B FFFFFFFE A U 791 290 EPFNOSUPPORT 1 00000459 FFFFFFFE A U 881 504 EPIPE 1 0000008C FFFFFFFE A U 792 294 EPROCLIM 1 0000046B FFFFFFFE A U 906 576 EPROTO 1 0000047C FFFFFFFE A U 925 644 EPROTONOSUPPORT 1 00000456 FFFFFFFE A U 876 491 EPROTOTYPE 1 00000454 FFFFFFFE A U 873 483 ERANGE 1 00000002 FFFFFFFE A U 740 166 EREMCHG 1 0000047F FFFFFFFE A U 928 656 EREMOTE 1 0000046F FFFFFFFE A U 910 592 EROFS 1 0000008D FFFFFFFE A U 793 298 ERREMOTE 1 00000477 FFFFFFFE A U 920 624 ESHUTDOWN 1 00000465 FFFFFFFE A U 897 552 ESOCKTNOSUPPORT 1 00000457 FFFFFFFE A U 877 495 ESPIPE 1 0000008E FFFFFFFE A U 795 302 ESRCH 1 0000008F FFFFFFFE A U 796 306 ESRMNT 1 0000047A FFFFFFFE A U 923 636 ESTALE 1 0000046E FFFFFFFE A U 909 588 ETAB 4 000001A8 00000001 A 155 90 162 166 175 179 183 187 191 195 199 203 207 211 215 219 223 227 231 235 239 243 247 251 257 261 265 270 274 278 282 286 290 294 298 302 306 310 315 320 324 328 338 342 346 350 354 358 363 367 371 375 379 383 388 393 397 401 410 416 421 425 429 433 438 443 449 453 457 462 466 470 474 478 483 487 491 495 499 504 508 512 516 520 524 1STRERR Ordinary Symbol and Literal Cross Reference Page 26 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 528 532 536 540 544 548 552 556 560 564 568 572 576 580 584 588 592 596 600 604 608 612 616 620 624 628 632 636 640 644 648 652 656 660 665 670 674 678 682 686 690 696 700 ETCPBADOBJ 1 00000483 FFFFFFFE A U 935 674 ETCPCLOSED 1 00000484 FFFFFFFE A U 937 678 ETCPERR 1 00000486 FFFFFFFE A U 939 686 ETCPLINKED 1 00000485 FFFFFFFE A U 938 682 ETCPOUTOFSTATE 1 00000481 FFFFFFFE A U 931 665 ETCPUNATTACH 1 00000482 FFFFFFFE A U 933 670 ETIME 1 00000471 FFFFFFFE A U 913 600 ETIMEDOUT 1 00000467 FFFFFFFE A U 901 560 ETOOMANYREFS 1 00000466 FFFFFFFE A U 899 556 ETXTBSY 1 0000044D FFFFFFFE A U 861 453 EUSERS 1 0000046C FFFFFFFE A U 907 580 EWOULDBLOCK 1 0000044E FFFFFFFE A U 862 457 EXDEV 1 00000090 FFFFFFFE A U 798 310 E2BIG 1 00000091 FFFFFFFE A U 800 315 FINDNUL 16 000000A0 00000001 X 128 100 LASTMSG 1 000013F0 00000001 U 156 152 MEACCES 20 00001418 00000001 C 178 176 MEADDRINUSE 29 00001F50 00000001 C 515 513 MEADDRNOTAVAIL 31 00001F6E 00000001 C 519 517 MEADV 15 00002258 00000001 C 635 633 MEAFNOSUPPORT 35 00001F2C 00000001 C 511 509 MEAGAIN 39 0000142D 00000001 C 182 180 MEALREADY 29 00001DB6 00000001 C 469 467 MEBADF 32 00001455 00000001 C 186 184 MEBADMSG 33 000021DA 00000001 C 615 613 MEBUSY 20 00001476 00000001 C 190 188 MECANCELED 46 000022D8 00000001 C 663 661 MECHILD 23 0000148B 00000001 C 194 192 MECOMM 27 00002276 00000001 C 643 641 MECONNABORTED 32 00001FD9 00000001 C 535 533 MECONNREFUSED 35 000020CD 00000001 C 567 565 MECONNRESET 24 00001FFA 00000001 C 539 537 MEDEADLK 30 000014A3 00000001 C 198 196 MEDESTADDRREQ 28 00001DF5 00000001 C 477 475 1STRERR Ordinary Symbol and Literal Cross Reference Page 27 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MEDOM 19 000013F0 00000001 C 165 163 MEDOTDOT 17 000022B0 00000001 C 655 653 MEDQUOT 19 00002131 00000001 C 587 585 MEEXIST 15 000014C2 00000001 C 202 200 MEFAULT 24 000014D2 00000001 C 206 204 MEFBIG 21 000014EB 00000001 C 210 208 MEHOSTDOWN 12 000020F1 00000001 C 571 569 MEHOSTUNREACH 16 000020FE 00000001 C 575 573 MEIBMBADTCPNAME 40 00001CBD 00000001 C 446 444 MEIBMCANCELLED 44 00001C90 00000001 C 441 439 MEIBMCONFLICT 41 00001C5F 00000001 C 436 434 MEIBMSOCKINUSE 42 00001BE4 00000001 C 419 417 MEIBMSOCKOUTOFRANGE 42 00001B88 00000001 C 413 411 MEIDRM 18 000021FC 00000001 C 619 617 MEILSEQ 28 00001909 00000001 C 327 325 MEINPROGRESS 25 00001D9C 00000001 C 465 463 MEINTR 30 00001501 00000001 C 214 212 MEINTRNODATA 43 00002394 00000001 C 693 691 MEINVAL 26 00001520 00000001 C 218 216 MEIO 21 0000153B 00000001 C 222 220 MEISCONN 31 00002037 00000001 C 547 545 MEISDIR 33 00001551 00000001 C 226 224 MELOOP 39 000018E1 00000001 C 323 321 MEMFILE 40 00001573 00000001 C 230 228 MEMLINK 23 0000159C 00000001 C 234 232 MEMSGSIZE 48 00001E12 00000001 C 481 479 MEMULTIHOP 14 000022A1 00000001 C 651 649 MEMVSCATLG 20 000019B4 00000001 C 353 351 MEMVSCPLERROR 42 00001B5D 00000001 C 404 402 MEMVSCVAF 36 0000198F 00000001 C 349 347 MEMVSDYNALC 24 00001976 00000001 C 345 343 MEMVSERR 50 000019E6 00000001 C 361 359 MEMVSEXPIRE 44 00001AE4 00000001 C 391 389 MEMVSINITIAL 28 000019C9 00000001 C 357 355 MEMVSNORTL 45 00001AAF 00000001 C 386 384 MEMVSNOTUP 28 00001959 00000001 C 341 339 1STRERR Ordinary Symbol and Literal Cross Reference Page 28 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MEMVSPARM 41 00001A19 00000001 C 366 364 MEMVSPASSWORD 39 00001B18 00000001 C 396 394 MEMVSPFSFILE 38 00001A43 00000001 C 370 368 MEMVSPFSPERM 30 00001A6A 00000001 C 374 372 MEMVSSAFEXTRERR 22 00001A89 00000001 C 378 376 MEMVSSAF2ERR 14 00001AA0 00000001 C 382 380 MEMVSWLMERROR 28 00001B40 00000001 C 400 398 MENAMETOOLONG 24 000015B4 00000001 C 238 236 MENETDOWN 15 00001F8E 00000001 C 523 521 MENETRESET 35 00001FB5 00000001 C 531 529 MENETUNREACH 22 00001F9E 00000001 C 527 525 MENFILE 37 000015CD 00000001 C 242 240 MENOBUFS 35 00002013 00000001 C 543 541 MENODEV 21 000015F3 00000001 C 246 244 MENOENT 45 00001609 00000001 C 250 248 MENOEXEC 49 00001637 00000001 C 254 252 MENOLCK 22 000016A4 00000001 C 260 258 MENOLINK 25 0000223E 00000001 C 631 629 MENOMEM 29 000016BB 00000001 C 264 262 MENOMOVE 28 00002420 00000001 C 703 701 MENOMSG 30 000021BB 00000001 C 611 609 MENONET 29 0000220F 00000001 C 623 621 MENOPROTOOPT 39 00001E6C 00000001 C 490 488 MENOREUSE 41 000023F6 00000001 C 699 697 MENOSPC 47 000016D9 00000001 C 268 266 MENOSR 24 000021A2 00000001 C 607 605 MENOSTR 22 0000217D 00000001 C 599 597 MENOSYS 31 0000172E 00000001 C 273 271 MENOTBLK 21 00001D1A 00000001 C 452 450 MENOTCONN 27 00002057 00000001 C 551 549 MENOTDIR 15 0000174E 00000001 C 277 275 MENOTEMPTY 26 0000175E 00000001 C 281 279 MENOTSOCK 32 00001DD4 00000001 C 473 471 MENOTTY 41 00001779 00000001 C 285 283 MENXIO 32 000017A3 00000001 C 289 287 MEOFFLOADBOXDOWN 16 00001C4E 00000001 C 432 430 MEOFFLOADBOXERROR 17 00001C26 00000001 C 424 422 1STRERR Ordinary Symbol and Literal Cross Reference Page 29 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MEOFFLOADBOXRESTART 21 00001C38 00000001 C 428 426 MEOPNOTSUPP 40 00001EC5 00000001 C 502 500 MEOVERFLOW 50 00001926 00000001 C 331 329 MEPERM 30 000017C4 00000001 C 293 291 MEPFNOSUPPORT 29 00001F0E 00000001 C 507 505 MEPIPE 18 000017E3 00000001 C 297 295 MEPROCLIM 18 0000210F 00000001 C 579 577 MEPROTO 14 00002292 00000001 C 647 645 MEPROTONOSUPPORT 22 00001E94 00000001 C 494 492 MEPROTOTYPE 28 00001E4F 00000001 C 486 484 MERANGE 19 00001404 00000001 C 169 167 MEREMCHG 21 000022C2 00000001 C 659 657 MEREMOTE 33 0000215B 00000001 C 595 593 MEROFS 38 000017F6 00000001 C 301 299 MERREMOTE 16 0000222D 00000001 C 627 625 MESHUTDOWN 33 00002073 00000001 C 555 553 MESOCKTNOSUPPORT 25 00001EAB 00000001 C 498 496 MESPIPE 21 0000181D 00000001 C 305 303 MESRCH 32 00001833 00000001 C 309 307 MESRMNT 13 00002268 00000001 C 639 637 MESTALE 21 00002145 00000001 C 591 589 METCPBADOBJ 25 00002348 00000001 C 677 675 METCPCLOSED 20 00002362 00000001 C 681 679 METCPERR 9 0000238A 00000001 C 689 687 METCPLINKED 18 00002377 00000001 C 685 683 METCPOUTOFSTATE 39 00002307 00000001 C 668 666 METCPUNATTACH 24 0000232F 00000001 C 673 671 METIME 13 00002194 00000001 C 603 601 METIMEDOUT 20 000020B8 00000001 C 563 561 METOOMANYREFS 34 00002095 00000001 C 559 557 METXTBSY 14 00001D30 00000001 C 456 454 MEUSERS 14 00002122 00000001 C 583 581 MEWOULDBLOCK 45 00001D3F 00000001 C 460 458 MEXDEV 44 00001854 00000001 C 313 311 ME2BIG 49 0000188A 00000001 C 318 316 PARMS 1 00000000 FFFFFFFE J 709 66U PLINULL 1 FF000000 00000001 A U 153 151 1STRERR Ordinary Symbol and Literal Cross Reference Page 30 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0PLISTART 1 00000000 00000002 $ 111 114 PL10004 2 00000098 00000001 H 122 117B RETURN 2 0000006E 00000001 H 105 93B 97B R1 1 00000001 FFFFFFFE A U 717 101M 102 R10 1 0000000A FFFFFFFE A U 726 81 R14 1 0000000E FFFFFFFE A U 730 90M 92 95 R15 1 0000000F FFFFFFFE A U 731 86M 87 91M 92 95M 96M 96 100 101 103 R4 1 00000004 FFFFFFFE A U 720 81M 82M 82 89M 90 R5 1 00000005 FFFFFFFE A U 721 85 85 102 R6 1 00000006 FFFFFFFE A U 722 81M 87 103 STRERR 1 00000000 00000001 J 57 64U 78 79 WORKAREA 1 00000000 FFFFFFFF J 705 77U 707 WORKLEN 1 00000068 FFFFFFFF A U 707 61 =A(LASTMSG) 4 000001A4 00000001 A 152 91 =A(PLINULL) 4 000001A0 00000001 A 151 86 1STRERR Macro and Copy Code Source Summary Page 31 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO FREEMAIN GETMAIN SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1STRERR Dsect Cross Reference Page 32 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0PARMS 0000000C FFFFFFFE 709 WORKAREA 00000068 FFFFFFFF 705 1STRERR Using Map Page 33 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 64 00000016 00000001 USING ORDINARY 00000000 00001000 00000001 11 1A8 117 STRERR,11 66 00000018 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 000 PARMS,10 77 0000002C 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 000 WORKAREA,13 1 General Purpose Register Cross Reference Page 34 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 58 68M 110M 123M 1(1) 58 65 71M 73 74 75 100M 101M 102 107M 120M 120 123M 2(2) 58 100M 123M 3(3) 58 123M 4(4) 58 81M 82M 82N 89M 90N 123M 5(5) 58 81M 85 85 102 123M 6(6) 58 81M 87 103 123M 7(7) 58 123M 8(8) 58 123M 9(9) 58 123M 10(A) 58 65M 66U 81 123M 11(B) 58 63M 64U 68 123M 12(C) 58 123M 13(D) 58 73 74 75M 77U 107 108M 108 109 123 14(E) 58 90M 92 95N 109M 110N 123M 125B 15(F) 58 59 63 86M 87 91M 92 95M 96M 96 100 101 103 115M 116M 116 123M 124M 124 1STRERR Diagnostic Cross Reference and Assembler Summary Page 35 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: STRERR PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 STRERR L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000108.? 4768K allocated to Buffer Pool, 1361K would be required for this to be an In-Storage Assembly 676 Primary Input Records Read 8915 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 1408 Primary Print Records Written 0 Work File Writes 426 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.34 Stop Time: 12.09.36 Processor Time: 00.00.01.6570 Return Code 000 1 High Level Assembler Option Summary (PTF UQ46898) Page 1 - HLASM R4.0 2006/09/01 12.09 0 No Overriding ASMAOPT Parameters Overriding Parameters- NODECK,BATCH,ASA,XREF(SHORT),RENT,TEST, No Process Statements Options for this Assembly 0 NOADATA ALIGN 3 ASA 3 BATCH CODEPAGE(047C) NOCOMPAT NODBCS 3 NODECK DXREF ESD NOEXIT FLAG(0,ALIGN,CONT,NOIMPLEN,NOPAGE0,PUSH,RECORD,NOSUBSTR,USING0) NOFOLD NOGOFF NOINFO LANGUAGE(EN) NOLIBMAC LINECOUNT(60) LIST(121) MXREF(SOURCE) OBJECT OPTABLE(UNI) NOPCONTROL NOPESTOP NOPROFILE NORA2 3 RENT RLD RXREF SIZE(MAX) SYSPARM() NOTERM 3 TEST THREAD NOTRANSLATE USING(NOLIMIT,MAP,WARN(15)) 3 XREF(SHORT) No Overriding DD Names 1STRREA External Symbol Dictionary Page 2 -Symbol Type Id Address Length LD ID Flags Alias-of HLASM R4.0 2006/09/01 12.09 0STRREA SD 00000001 00000000 00013356 06 PLISTART WX 00000002 1STRREA OMVS_STR_REASON Page 3 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 2 *********************************************************************** 3 * * 4 * SEGMENT NAME: * 5 * * 6 * STRREA -- OMVS_STR_REASON * 7 * * 8 * THIS MODULE RETURNS THE ERROR MESSSAGE CORRESPONDING TO A * 9 * PASSED ERRNOJR UNDER OPEN MVS. * 10 * * 11 * INPUTS (*TO FUNCTIONS): * 12 * * 13 * ERRNOJR -- FULLWORD INT (*1,3,4) * 14 * THIS IS THE ADDRESS OF A FULLWORD CONTAINING THE REASON CODE * 15 * TO BE INTERPRETED. * 16 * * 17 * FUNCTIONS: * 18 * * 19 * 1. LOAD THE PARM LIST INTO REGISTERS * 20 * * 21 * 2. ZERO THE LENGTH IN CASE OF ERROR. * 22 * * 23 * 3. DETERMINE WHICH TABLE TO USE. ERRORS > 29000 ARE IN A * 24 * SEPARATE TABLE. * 25 * * 26 * 4. CONVERT THE ERRO TO AN OFFSET IN THE TABLE AND SEE IF IT IS * 27 * IN IN RANGE. * 28 * * 29 * 5. LOAD THE ADDRESS OF THE MESSAGE AND SEE IF IT IS ZERO THIS * 30 * MEANS UNKNOWN ERRNOJR, NO MESSAGE,. * 31 * * 32 * 6. FIND THE END OF THE MESSAGE AND CALCULATE THE LENGTH. * 33 * * 34 * 7. PLACE THE LENGTH AND THE MESSAGE ADDRESS IN THE RETURNED * 35 * PARMS. * 36 * * 37 * OUTPUTS (*FROM FUNCTIONS): * 38 * * 39 * LEN -- PONTER TO FULLWORD INT (*1,2,4,7) * 40 * THIS IS THE ADDRESS OF A FULLWORD TO CONTAIN THE LENGTH OF * 41 * THE RETURNED MESSAGE. IF NO MESSAGE IS RETURNED, THE LENGTH * 42 * IS SET TO ZERO. * 43 * * 44 * MSG -- POINTER TO FULLWORD ADDR E THIS IS THE ADDRESS OF A * 45 * FULLWORD TO CONTAIN THE MESSAGE ADDRESS. THE MESSAGE ADDRESS * 46 * IS A STATIC STRING WHICH IS TERMINATED BY A BYTE OF ZEROS. * 47 * (*1,7) * 48 * * 49 * NOTES: * 50 * * 51 * 1. SAMPLE CALL: * 52 * CALL STRREA,(ERRNOJR,LEN,MSGADDR) * 53 * ERRNO DC F'123' * 54 * LEN DC F'0' * 55 * MSGADDR DC A(0) * 56 * * 1STRREA OMVS_STR_REASON Page 4 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 57 *********************************************************************** 1STRREA OMVS_STR_REASON Page 5 Active Usings: None 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 59 STRREA RENTR BASE=11,PARM=(10,PARMS),WORK=(WORKLEN,WORKAREA), X ENV=OS,MAIN=YES 000000 00000 13356 60+STRREA CSECT 01-RENTR 000000 90EC D00C 0000C 61+ STM 14,12,12(13) SAVE REGISTERS 01-RENTR 000004 47F0 F014 00014 62+ B 20(,15) BRANCH AROUND CONSTANTS 01-RENTR 000008 00000000 63+ DC A(0) STATEMENT NUMBER TABLE ADDR (NONE) 01-RENTR 00000C 00000068 64+ DC A(WORKLEN) LENGTH OF DSA AND AUTOMATIC VARS 01-RENTR 000010 00000000 65+ DC A(0) ADDR OF STATIC VAR CSECT (NONE) 01-RENTR 000014 18BF 66+ LR 11,15 ENTRY ADDRESS 01-RENTR R:B 00000 67+ USING STRREA,11 01-RENTR 000016 18A1 68+ LR 10,1 PARM ADDRESS 01-RENTR R:A 00000 69+ USING PARMS,10 01-RENTR 70+* TYPE R GETMAIN ALWAYS GETS STG BELOW 16M (USE RU FOR ABOVE) 000018 5800 B00C 0000C 71+ L 0,12(,11) LENGTH FOR DSA AND WORK VARS 01-RENTR 00001C 4510 B020 00020 74+ BAL 1,*+4 INDICATE GETMAIN @Z30EN9G 02-GETMA 000020 0A0A 75+ SVC 10 ISSUE GETMAIN SVC 02-GETMA 000022 50D0 1004 00004 76+ ST 13,4(,1) SET BACK DSA CHAIN 01-RENTR 000026 5010 D008 00008 77+ ST 1,8(,13) SET FORWARD CHAIN 01-RENTR 00002A 18D1 78+ LR 13,1 POINT REG 13 AT NEW DSA 01-RENTR 0 R:D 00000 80+ USING WORKAREA,13 01-RENTR 81 STRREA AMODE 31 82 STRREA RMODE ANY 1STRREA OMVS_STR_REASON Page 6 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000002C 9846 A000 00000 84 LM R4,R6,0(R10) LOAD PARM LIST INTO REGS 000030 5844 0000 00000 85 L R4,0(R4) R4 CONTAINS THE ERRNOJR (REASON) 86 * R5 POINTS TO LEN FULLWORD 87 * R6 POINTS TO MSG ADDR 000034 5440 B1C0 001C0 88 N R4,=X'0000FFFF' ONLY THE LOW HALFWORD COUNTS 000038 D703 5000 5000 00000 00000 89 XC 0(4,R5),0(R5) ZERO THE LEN 00003E 58F0 B1C4 001C4 90 L R15,=A(PLINULL) 000042 50F0 6000 00000 91 ST R15,0(,R6) 0000046 5870 B1C8 001C8 93 L R7,=A(ETAB) 00004A 5880 B1CC 001CC 94 L R8,=A(LASTMSG) 00004E 5940 B1D0 001D0 95 C R4,=F'29000' 000052 4740 B062 00062 96 BL KEEP1 0000056 5870 B1D4 001D4 98 L R7,=A(ETAB2) 00005A 5880 B1D8 001D8 99 L R8,=A(LASTMSG2) 00005E 5B40 B1D0 001D0 100 S R4,=F'29000' 0000062 102 KEEP1 DS 0H 000062 8B40 0002 00002 103 SLA R4,2 MULTIPLY ERRNO BY 4 000066 41E4 7000 00000 104 LA R14,0(R4,R7) POINT TO THE ERROR ADDR 00006A 19E8 105 CR R14,R8 ARE WE PAST THE TABLE? 00006C 4720 B08A 0008A 106 BH RETURN YES, NO MESSAGE 0000070 58FE 0000 00000 108 L R15,0(R14) LOAD THE MESSAGE ADDR 000074 12FF 109 LTR R15,R15 IS IT ZERO? 000076 4780 B08A 0008A 110 BZ RETURN IF SO, NO MESSAGE 0 112 * NOTE THAT ALL MESSAGES ARE LESS THAN 255 CHARACTERS 00007A DDFF F000 B0BC 00000 000BC 113 TRT 0(256,R15),FINDNUL FIND END OF MESSAGE 000080 1B1F 114 SR R1,R15 CALCULATE THE LENGTH 000082 5010 5000 00000 115 ST R1,0(,R5) SAVE THE LENGTH 000086 50F0 6000 00000 116 ST R15,0(,R6) SAVE THE MESSAGE ADDR 1STRREA OMVS_STR_REASON Page 7 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000008A 118 RETURN DS 0H 119 REXIT ENV=BOTH 00008A 4110 D000 00000 120+ LA 1,0(0,13) WORK AREA ADDRESS 01-REXIT 00008E 58D0 D004 00004 121+ L 13,4(0,13) OLD SAVE AREA ADDRESS 01-REXIT 000092 58E0 D010 00010 122+ L 14,16(0,13) GET ORIG ENTRY POINT 01-REXIT 000096 580E 000C 0000C 123+ L 0,12(14) LOAD LENGTH OF WORK AREA (RENTR) 01-REXIT 124+ WXTRN PLISTART 01-REXIT 00009A 0700 125+ CNOP 0,4 01-REXIT 00009C 47F0 B0A4 000A4 126+ B *+8 SKIP ADDRESS CONSTANT 01-REXIT 0000A0 00000000 127+ DC V(PLISTART) 01-REXIT 0000A4 58F0 B0A0 000A0 128+ L 15,*-4 LOAD PLISTART ADDR 01-REXIT 0000A8 12FF 129+ LTR 15,15 IS PLISTART LINKED IN? 01-REXIT 0000AA 4770 B0B4 000B4 130+ BNZ PL10004 01-REXIT 0000AE 4110 1000 00000 133+ LA 1,0(0,1) LOAD AREA ADDRESS 02-FREEM 0000B2 0A0A 134+ SVC 10 ISSUE FREEMAIN SVC 02-FREEM 0000B4 135+PL10004 DS 0H 01-REXIT 0000B4 98EC D00C 0000C 136+ LM 14,12,12(13) RESTORE REGISTERS 01-REXIT 0000B8 1FFF 137+ SLR 15,15 ZERO RETURN CODE 01-REXIT 0000BA 07FE 138+ BR 14 RETURN 01-REXIT 1STRREA OMVS_STR_REASON Page 8 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 140 * 0 1 2 3 4 5 6 7 8 9 A B C D E F 0000BC FF00000000000000 141 FINDNUL DC XL16'FF000000000000000000000000000000' 00 0000CC 0000000000000000 142 DC XL16'00000000000000000000000000000000' 10 0000DC 0000000000000000 143 DC XL16'00000000000000000000000000000000' 20 0000EC 0000000000000000 144 DC XL16'00000000000000000000000000000000' 30 0000FC 0000000000000000 145 DC XL16'00000000000000000000000000000000' 40 00010C 0000000000000000 146 DC XL16'00000000000000000000000000000000' 50 00011C 0000000000000000 147 DC XL16'00000000000000000000000000000000' 60 00012C 0000000000000000 148 DC XL16'00000000000000000000000000000000' 70 00013C 0000000000000000 149 DC XL16'00000000000000000000000000000000' 80 00014C 0000000000000000 150 DC XL16'00000000000000000000000000000000' 90 00015C 0000000000000000 151 DC XL16'00000000000000000000000000000000' A0 00016C 0000000000000000 152 DC XL16'00000000000000000000000000000000' B0 00017C 0000000000000000 153 DC XL16'00000000000000000000000000000000' C0 00018C 0000000000000000 154 DC XL16'00000000000000000000000000000000' D0 00019C 0000000000000000 155 DC XL16'00000000000000000000000000000000' E0 0001AC 0000000000000000 156 DC XL16'00000000000000000000000000000000' F0 1STRREA OMVS_STR_REASON Page 9 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 158 ***************************************************************** 159 * * 160 * REASON CODE TABLES ETAB 0 - 1480 ETAB2 29000 29700 * 161 * * 162 ***************************************************************** 0001C0 163 LTORG 0001C0 0000FFFF 164 =X'0000FFFF' 0001C4 FF000000 165 =A(PLINULL) 0001C8 000001DC 166 =A(ETAB) 0001CC 000018FC 167 =A(LASTMSG) 0001D0 00007148 168 =F'29000' 0001D4 000018FC 169 =A(ETAB2) 0001D8 000023EC 170 =A(LASTMSG2) 000000 171 PLINULL EQU X'FF000000' 00001DC 0000000000000000 173 ETAB DC 1480A(0) 018FC 174 LASTMSG EQU * 0018FC 0000000000000000 175 ETAB2 DC 700A(0) 023EC 176 LASTMSG2 EQU * 1STRREA OMVS_STR_REASON Page 10 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0 178 ***************************************************************** 179 * * 180 * R E A S O N C O D E S = E R R N O J R. * 181 * * 182 * * 183 ***************************************************************** 184 * ORG ETAB+(4*JROK) 185 * DC A(MJROK) 186 * ORG 187 *MJROK DC C'The return code value describes the error' 188 * DC X'00' 0023EC 023EC 00220 189 ORG ETAB+(4*JRNOTKEY8) 000220 000023EC 190 DC A(MJRNOTKEY8) 000224 00224 023EC 191 ORG 0023EC E3888540A381A292 192 MJRNOTKEY8 DC C'The task is not in PSW key 8' 002408 00 193 DC X'00' 002409 02409 00224 194 ORG ETAB+(4*JRMAXCHILD) 000224 00002409 195 DC A(MJRMAXCHILD) 000228 00228 02409 196 ORG 002409 E38885409481A789 197 MJRMAXCHILD DC C'The maximum number of processes for this user ID has ' 00243E 828585954085A783 198 DC C'been exceeded' 00244B 00 199 DC X'00' 00244C 0244C 00228 200 ORG ETAB+(4*JRMAXUIDS) 000228 0000244C 201 DC A(MJRMAXUIDS) 00022C 0022C 0244C 202 ORG 00244C E38885409481A789 203 MJRMAXUIDS DC C'The maximum number of OpenMVS user IDs is exceeded' 00247E 00 204 DC X'00' 00247F 0247F 0022C 205 ORG ETAB+(4*JRAPPCERRALLOC) 00022C 0000247F 206 DC A(MJRAPPCERRALLOC) 000230 00230 0247F 207 ORG 00247F C19540C1D7D7C361 208 MJRAPPCERRALLOC DC C'An APPC/MVS Allocate Conversation error occurred' 0024AF 00 209 DC X'00' 0024B0 024B0 00230 210 ORG ETAB+(4*JRAPPCERRSEND) 000230 000024B0 211 DC A(MJRAPPCERRSEND) 000234 00234 024B0 212 ORG 0024B0 C19540C1D7D7C361 213 MJRAPPCERRSEND DC C'An APPC/MVS Send_Data error occurred' 0024D4 00 214 DC X'00' 0024D5 024D5 00234 215 ORG ETAB+(4*JRAPPCERRRECV) 000234 000024D5 216 DC A(MJRAPPCERRRECV) 000238 00238 024D5 217 ORG 0024D5 C19540C1D7D7C361 218 MJRAPPCERRRECV DC C'An APPC/MVS Receive_and_Wait error occurred' 002500 00 219 DC X'00' 002501 02501 00238 220 ORG ETAB+(4*JRAPPCERRACCEPT) 000238 00002501 221 DC A(MJRAPPCERRACCEPT) 00023C 0023C 02501 222 ORG 002501 C19540C1D7D7C361 223 MJRAPPCERRACCEPT DC C'An APPC/MVS Accept_Conversation error occurred' 00252F 00 224 DC X'00' 002530 02530 00254 225 ORG ETAB+(4*JRFORKEXITRCPARENTNOROOM) 000254 00002530 226 DC A(MJRFORKEXITRCPARENTNOROOM) 000258 00258 02530 227 ORG 002530 D596A340859596A4 228 MJRFORKEXITRCPARENTNOROOM DC C'Not enough work space exists for a pare' 002557 95A3408696999240 229 DC C'nt fork exit' 002563 00 230 DC X'00' 002564 02564 0025C 231 ORG ETAB+(4*JRFORKEXITRCPARENTBADENV) 00025C 00002564 232 DC A(MJRFORKEXITRCPARENTBADENV) 1STRREA OMVS_STR_REASON Page 11 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000260 00260 02564 233 ORG 002564 C696999289958740 234 MJRFORKEXITRCPARENTBADENV DC C'Forking is not supported under the curr' 00258B 8595A34097819985 235 DC C'ent parent environment' 0025A1 00 236 DC X'00' 0025A2 025A2 00268 237 ORG ETAB+(4*JRFORKVSMLISTTOOLARGE) 000268 000025A2 238 DC A(MJRFORKVSMLISTTOOLARGE) 00026C 0026C 025A2 239 ORG 0025A2 E3888540A2A39699 240 MJRFORKVSMLISTTOOLARGE DC C'The storage is insufficient to hold VSMLIS' 0025CC E34096A4A397A4A3 241 DC C'T output' 0025D4 00 242 DC X'00' 0025D5 025D5 00274 243 ORG ETAB+(4*JRKERNELREADY) 000274 000025D5 244 DC A(MJRKERNELREADY) 000278 00278 025D5 245 ORG 0025D5 E3888540A2A8A2A3 246 MJRKERNELREADY DC C'The system is not in a ready state' 0025F7 00 247 DC X'00' 0025F8 025F8 0027C 248 ORG ETAB+(4*JRMAXPROC) 00027C 000025F8 249 DC A(MJRMAXPROC) 000280 00280 025F8 250 ORG 0025F8 E38885409481A789 251 MJRMAXPROC DC C'The maximum number of processes was exceeded' 002624 00 252 DC X'00' 002625 02625 00288 253 ORG ETAB+(4*JRNOSECURITYPRODUCT) 000288 00002625 254 DC A(MJRNOSECURITYPRODUCT) 00028C 0028C 02625 255 ORG 002625 C140A28583A49989 256 MJRNOSECURITYPRODUCT DC C'A security product is not installed' 002648 00 257 DC X'00' 002649 02649 00294 258 ORG ETAB+(4*JRFILESYSNOTTHERE) 000294 00002649 259 DC A(MJRFILESYSNOTTHERE) 000298 00298 02649 260 ORG 002649 E388854086899385 261 MJRFILESYSNOTTHERE DC C'The file system named does not exist' 00266D 00 262 DC X'00' 00266E 0266E 00298 263 ORG ETAB+(4*JRFILESYSWASRESET) 000298 0000266E 264 DC A(MJRFILESYSWASRESET) 00029C 0029C 0266E 265 ORG 00266E E388854086899385 266 MJRFILESYSWASRESET DC C'The file system named was reset by another use' 00269C 99 267 DC C'r' 00269D 00 268 DC X'00' 00269E 0269E 0029C 269 ORG ETAB+(4*JRNEGATIVEVALUEINVALID) 00029C 0000269E 270 DC A(MJRNEGATIVEVALUEINVALID) 0002A0 002A0 0269E 271 ORG 00269E C14095858781A389 272 MJRNEGATIVEVALUEINVALID DC C'A negative value cannot be supplied for o' 0026C7 958540968640A388 273 DC C'ne of the parameters' 0026DB 00 274 DC X'00' 0026DC 026DC 002A4 275 ORG ETAB+(4*JRUNLMOUNTRO) 0002A4 000026DC 276 DC A(MJRUNLMOUNTRO) 0002A8 002A8 026DC 277 ORG 0026DC E3888540A4959389 278 MJRUNLMOUNTRO DC C'The unlink call was on a read-only file system' 00270A 00 279 DC X'00' 00270B 0270B 002A8 280 ORG ETAB+(4*JRRFILEWRONLY) 0002A8 0000270B 281 DC A(MJRRFILEWRONLY) 0002AC 002AC 0270B 282 ORG 00270B C1408381939340A3 283 MJRRFILEWRONLY DC C'A call tried to read a file opened as write-only' 00273B 00 284 DC X'00' 00273C 0273C 002AC 285 ORG ETAB+(4*JRWFILERDONLY) 0002AC 0000273C 286 DC A(MJRWFILERDONLY) 0002B0 002B0 0273C 287 ORG 1STRREA OMVS_STR_REASON Page 12 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000273C C1408381939340A3 288 MJRWFILERDONLY DC C'A call tried to write to a file opened as read-onl' 00276E A8 289 DC C'y' 00276F 00 290 DC X'00' 002770 02770 002B4 291 ORG ETAB+(4*JRNEGFILEDES) 0002B4 00002770 292 DC A(MJRNEGFILEDES) 0002B8 002B8 02770 293 ORG 002770 C14095858781A389 294 MJRNEGFILEDES DC C'A negative file descriptor was requested' 002798 00 295 DC X'00' 002799 02799 002B8 296 ORG ETAB+(4*JRFILEDESNOTINUSE) 0002B8 00002799 297 DC A(MJRFILEDESNOTINUSE) 0002BC 002BC 02799 298 ORG 002799 E3888540998598A4 299 MJRFILEDESNOTINUSE DC C'The requested file descriptor is not in use' 0027C4 00 300 DC X'00' 0027C5 027C5 002BC 301 ORG ETAB+(4*JRMKDIREXIST) 0002BC 000027C5 302 DC A(MJRMKDIREXIST) 0002C0 002C0 027C5 303 ORG 0027C5 E3888540998598A4 304 MJRMKDIREXIST DC C'The requested file directory already exists' 0027F0 00 305 DC X'00' 0027F1 027F1 002C0 306 ORG ETAB+(4*JRPATHTOOLONG) 0002C0 000027F1 307 DC A(MJRPATHTOOLONG) 0002C4 002C4 027F1 308 ORG 0027F1 E38885409781A388 309 MJRPATHTOOLONG DC C'The pathname is too long' 002809 00 310 DC X'00' 00280A 0280A 002C4 311 ORG ETAB+(4*JRNULLINPATH) 0002C4 0000280A 312 DC A(MJRNULLINPATH) 0002C8 002C8 0280A 313 ORG 00280A E38885409781A388 314 MJRNULLINPATH DC C'The pathname or file name contains a null' 002833 00 315 DC X'00' 002834 02834 002CC 316 ORG ETAB+(4*JRCOMPNOTDIR) 0002CC 00002834 317 DC A(MJRCOMPNOTDIR) 0002D0 002D0 02834 318 ORG 002834 C140959684854089 319 MJRCOMPNOTDIR DC C'A node in the pathname is not a directory' 00285D 00 320 DC X'00' 00285E 0285E 002D0 321 ORG ETAB+(4*JRDIRNOTFOUND) 0002D0 0000285E 322 DC A(MJRDIRNOTFOUND) 0002D4 002D4 0285E 323 ORG 00285E C1408489998583A3 324 MJRDIRNOTFOUND DC C'A directory in the pathname was not found' 002887 00 325 DC X'00' 002888 02888 002D4 326 ORG ETAB+(4*JRCOMPNAMETOOLONG) 0002D4 00002888 327 DC A(MJRCOMPNAMETOOLONG) 0002D8 002D8 02888 328 ORG 002888 C140839694979695 329 MJRCOMPNAMETOOLONG DC C'A component in the pathname was too long' 0028B0 00 330 DC X'00' 0028B1 028B1 002D8 331 ORG ETAB+(4*JRINVOPENFLAGS) 0002D8 000028B1 332 DC A(MJRINVOPENFLAGS) 0002DC 002DC 028B1 333 ORG 0028B1 E388854096978595 334 MJRINVOPENFLAGS DC C'The open call detected incorrect open flags' 0028DC 00 335 DC X'00' 0028DD 028DD 002E0 336 ORG ETAB+(4*JRTRNOTREGFILE) 0002E0 000028DD 337 DC A(MJRTRNOTREGFILE) 0002E4 002E4 028DD 338 ORG 0028DD E399A4958381A385 339 MJRTRNOTREGFILE DC C'Truncate is valid only on a regular file' 002905 00 340 DC X'00' 002906 02906 002E4 341 ORG ETAB+(4*JRCLNEEDCLOSE) 0002E4 00002906 342 DC A(MJRCLNEEDCLOSE) 1STRREA OMVS_STR_REASON Page 13 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00002E8 002E8 02906 343 ORG 002906 E3888540839396A2 344 MJRCLNEEDCLOSE DC C'The closedir call was for a file that was opened w' 002938 89A38840A3888540 345 DC C'ith the open call' 002949 00 346 DC X'00' 00294A 0294A 002E8 347 ORG ETAB+(4*JRPFSDEAD) 0002E8 0000294A 348 DC A(MJRPFSDEAD) 0002EC 002EC 0294A 349 ORG 00294A E388854086899385 350 MJRPFSDEAD DC C'The file system owning the file is no longer active' 00297D 00 351 DC X'00' 00297E 0297E 002EC 352 ORG ETAB+(4*JRMKDIR) 0002EC 0000297E 353 DC A(MJRMKDIR) 0002F0 002F0 0297E 354 ORG 00297E E388854094928489 355 MJRMKDIR DC C'The mkdir service is not supported by this file system' 0029B4 00 356 DC X'00' 0029B5 029B5 002F0 357 ORG ETAB+(4*JRCLOSE) 0002F0 000029B5 358 DC A(MJRCLOSE) 0002F4 002F4 029B5 359 ORG 0029B5 E3888540A5959684 360 MJRCLOSE DC C'The vnode operation CLOSE is not supported by this file ' 0029ED A2A8A2A38594 361 DC C'system' 0029F3 00 362 DC X'00' 0029F4 029F4 002F4 363 ORG ETAB+(4*JRRDWR) 0002F4 000029F4 364 DC A(MJRRDWR) 0002F8 002F8 029F4 365 ORG 0029F4 E595968485409697 366 MJRRDWR DC C'Vnode operation RDWR is not supported by this file system' 002A2D 00 367 DC X'00' 002A2E 02A2E 002F8 368 ORG ETAB+(4*JRLOOKUP) 0002F8 00002A2E 369 DC A(MJRLOOKUP) 0002FC 002FC 02A2E 370 ORG 002A2E D3969692A4974089 371 MJRLOOKUP DC C'Lookup is not supported by this file system' 002A59 00 372 DC X'00' 002A5A 02A5A 00304 373 ORG ETAB+(4*JRAPPCCHECKSTATE) 000304 00002A5A 374 DC A(MJRAPPCCHECKSTATE) 000308 00308 02A5A 375 ORG 002A5A C19540C1D7D7C361 376 MJRAPPCCHECKSTATE DC C'An APPC/MVS receive error occurred while the AP' 002A89 D7C361D4E5E240A2 377 DC C'PC/MVS status was being checked' 002AA8 00 378 DC X'00' 002AA9 02AA9 00308 379 ORG ETAB+(4*JROPEN) 000308 00002AA9 380 DC A(MJROPEN) 00030C 0030C 02AA9 381 ORG 002AA9 E388854096978595 382 MJROPEN DC C'The open service is not supported by this file system' 002ADE 00 383 DC X'00' 002ADF 02ADF 0030C 384 ORG ETAB+(4*JRCREATE) 00030C 00002ADF 385 DC A(MJRCREATE) 000310 00310 02ADF 386 ORG 002ADF E388854083998581 387 MJRCREATE DC C'The create service is not supported by this file system' 002B16 00 388 DC X'00' 002B17 02B17 00310 389 ORG ETAB+(4*JRNOPATH) 000310 00002B17 390 DC A(MJRNOPATH) 000314 00314 02B17 391 ORG 002B17 E38885409781A388 392 MJRNOPATH DC C'The path length is not greater than 0' 002B3C 00 393 DC X'00' 002B3D 02B3D 00314 394 ORG ETAB+(4*JRNOTACTIVE) 000314 00002B3D 395 DC A(MJRNOTACTIVE) 000318 00318 02B3D 396 ORG 002B3D E3888540D6978595 397 MJRNOTACTIVE DC C'The OpenMVS kernel is not active' 1STRREA OMVS_STR_REASON Page 14 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0002B5D 00 398 DC X'00' 002B5E 02B5E 00318 399 ORG ETAB+(4*JRCHDNOTDIR) 000318 00002B5E 400 DC A(MJRCHDNOTDIR) 00031C 0031C 02B5E 401 ORG 002B5E E388854083888489 402 MJRCHDNOTDIR DC C'The chdir, fchdir, or chroot service is valid only f' 002B92 9699408489998583 403 DC C'or directory files' 002BA4 00 404 DC X'00' 002BA5 02BA5 0031C 405 ORG ETAB+(4*JRCHDNOENT) 00031C 00002BA5 406 DC A(MJRCHDNOENT) 000320 00320 02BA5 407 ORG 002BA5 E388854083888489 408 MJRCHDNOENT DC C'The chdir or chroot service was invoked with the name' 002BDA 4096864081409596 409 DC C' of a nonexisting file' 002BF0 00 410 DC X'00' 002BF1 02BF1 00320 411 ORG ETAB+(4*JRINVALIDNAME) 000320 00002BF1 412 DC A(MJRINVALIDNAME) 000324 00324 02BF1 413 ORG 002BF1 C689938540A2A8A2 414 MJRINVALIDNAME DC C'File system name characters must be greater than 4' 002C23 F0404D8885A75D40 415 DC C'0 (hex) and less than FF (hex)' 002C41 00 416 DC X'00' 002C42 02C42 00330 417 ORG ETAB+(4*JRMKDIRRONLY) 000330 00002C42 418 DC A(MJRMKDIRRONLY) 000334 00334 02C42 419 ORG 002C42 E388854084899985 420 MJRMKDIRRONLY DC C'The directory cannot be created in a read-only file' 002C75 40A2A8A2A38594 421 DC C' system' 002C7C 00 422 DC X'00' 002C7D 02C7D 00334 423 ORG ETAB+(4*JRLNKDIR) 000334 00002C7D 424 DC A(MJRLNKDIR) 000338 00338 02C7D 425 ORG 002C7D C881998440938995 426 MJRLNKDIR DC C'Hard links cannot be made to directory files' 002CA9 00 427 DC X'00' 002CAA 02CAA 00338 428 ORG ETAB+(4*JRLSKONPIPE) 000338 00002CAA 429 DC A(MJRLSKONPIPE) 00033C 0033C 02CAA 430 ORG 002CAA E388854093A28585 431 MJRLSKONPIPE DC C'The lseek service cannot be performed on a pipe or s' 002CDE 96839285A3 432 DC C'ocket' 002CE3 00 433 DC X'00' 002CE4 02CE4 0033C 434 ORG ETAB+(4*JRLSKOFFSETISINVALID) 00033C 00002CE4 435 DC A(MJRLSKOFFSETISINVALID) 000340 00340 02CE4 436 ORG 002CE4 E3888540968686A2 437 MJRLSKOFFSETISINVALID DC C'The offset given for lseek service is incor' 002D0F 998583A3 438 DC C'rect' 002D13 00 439 DC X'00' 002D14 02D14 00340 440 ORG ETAB+(4*JRLSKWHENCEISINVALID) 000340 00002D14 441 DC A(MJRLSKWHENCEISINVALID) 000344 00344 02D14 442 ORG 002D14 E3888540A6888595 443 MJRLSKWHENCEISINVALID DC C'The whence given for the lseek service is i' 002D3F 95839699998583A3 444 DC C'ncorrect' 002D47 00 445 DC X'00' 002D48 02D48 00344 446 ORG ETAB+(4*JRFSNOTSTART) 000344 00002D48 447 DC A(MJRFSNOTSTART) 000348 00348 02D48 448 ORG 002D48 E388854086899385 449 MJRFSNOTSTART DC C'The file system specified was not started' 002D71 00 450 DC X'00' 002D72 02D72 00348 451 ORG ETAB+(4*JRISMOUNTED) 000348 00002D72 452 DC A(MJRISMOUNTED) 1STRREA OMVS_STR_REASON Page 15 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000034C 0034C 02D72 453 ORG 002D72 E388854086899385 454 MJRISMOUNTED DC C'The file system is already mounted' 002D94 00 455 DC X'00' 002D95 02D95 0034C 456 ORG ETAB+(4*JRMOUNTPT) 00034C 00002D95 457 DC A(MJRMOUNTPT) 000350 00350 02D95 458 ORG 002D95 C140979996829385 459 MJRMOUNTPT DC C'A problem was found with the mount point specified' 002DC7 00 460 DC X'00' 002DC8 02DC8 00350 461 ORG ETAB+(4*JRUNLNOENT) 000350 00002DC8 462 DC A(MJRUNLNOENT) 000354 00354 02DC8 463 ORG 002DC8 E388854086899385 464 MJRUNLNOENT DC C'The file to be unlinked does not exist' 002DEE 00 465 DC X'00' 002DEF 02DEF 00354 466 ORG ETAB+(4*JRUNLDIR) 000354 00002DEF 467 DC A(MJRUNLDIR) 000358 00358 02DEF 468 ORG 002DEF E3888540A4959389 469 MJRUNLDIR DC C'The unlink service was requested on a directory file' 002E23 00 470 DC X'00' 002E24 02E24 0035C 471 ORG ETAB+(4*JRREADONLYFILESETWRITEREQ) 00035C 00002E24 472 DC A(MJRREADONLYFILESETWRITEREQ) 000360 00360 02E24 473 ORG 002E24 C195409697859540 474 MJRREADONLYFILESETWRITEREQ DC C'An open request for write was entered ' 002E4A 8696994081408689 475 DC C'for a file system that was mounted read-only' 002E76 00 476 DC X'00' 002E77 02E77 00360 477 ORG ETAB+(4*JRREADONLYFILESETCREATREQ) 000360 00002E77 478 DC A(MJRREADONLYFILESETCREATREQ) 000364 00364 02E77 479 ORG 002E77 C140868993854083 480 MJRREADONLYFILESETCREATREQ DC C'A file cannot be created in a read-onl' 002E9D A8408689938540A2 481 DC C'y file system' 002EAA 00 482 DC X'00' 002EAB 02EAB 00364 483 ORG ETAB+(4*JRNOFILENOCREATFLAG) 000364 00002EAB 484 DC A(MJRNOFILENOCREATFLAG) 000368 00368 02EAB 485 ORG 002EAB C140A28599A58983 486 MJRNOFILENOCREATFLAG DC C'A service tried to open a nonexistent file w' 002ED7 89A38896A4A340D6 487 DC C'ithout O_CREAT' 002EE5 00 488 DC X'00' 002EE6 02EE6 00368 489 ORG ETAB+(4*JRFILEEXISTSEXCLFLAGSET) 000368 00002EE6 490 DC A(MJRFILEEXISTSEXCLFLAGSET) 00036C 0036C 02EE6 491 ORG 002EE6 E388854086899385 492 MJRFILEEXISTSEXCLFLAGSET DC C'The file exists, but O_EXCL is specified' 002F0E 40969540A3888540 493 DC C' on the open call' 002F1F 00 494 DC X'00' 002F20 02F20 0036C 495 ORG ETAB+(4*JRDIRWRITEREQUEST) 00036C 00002F20 496 DC A(MJRDIRWRITEREQUEST) 000370 00370 02F20 497 ORG 002F20 E3888540A28599A5 498 MJRDIRWRITEREQUEST DC C'The service tried to open a directory for writ' 002F4E 854081838385A2A2 499 DC C'e access' 002F56 00 500 DC X'00' 002F57 02F57 00370 501 ORG ETAB+(4*JROPENFLAGCONFLICT) 000370 00002F57 502 DC A(MJROPENFLAGCONFLICT) 000374 00374 02F57 503 ORG 002F57 E388854083819393 504 MJROPENFLAGCONFLICT DC C'The call tried to open a file with O_RDONLY a' 002F84 958440D66DE3D9E4 505 DC C'nd O_TRUNC specified' 002F98 00 506 DC X'00' 002F99 02F99 00378 507 ORG ETAB+(4*JRPARMTOOLONG) 1STRREA OMVS_STR_REASON Page 16 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000378 00002F99 508 DC A(MJRPARMTOOLONG) 00037C 0037C 02F99 509 ORG 002F99 D69540A388854094 510 MJRPARMTOOLONG DC C'On the mount, a parameter field longer than 1024 w' 002FCB 81A240A297858389 511 DC C'as specified' 002FD7 00 512 DC X'00' 002FD8 02FD8 0037C 513 ORG ETAB+(4*JRREMOVE) 00037C 00002FD8 514 DC A(MJRREMOVE) 000380 00380 02FD8 515 ORG 002FD8 E5956DD9859496A5 516 MJRREMOVE DC C'Vn_Remove is not supported by the physical file system' 00300E 00 517 DC X'00' 00300F 0300F 00380 518 ORG ETAB+(4*JRBOTHMODE) 000380 0000300F 519 DC A(MJRBOTHMODE) 000384 00384 0300F 520 ORG 00300F D69540A388854094 521 MJRBOTHMODE DC C'On the mount service, both read and read/write were s' 003044 9785838986898584 522 DC C'pecified' 00304C 00 523 DC X'00' 00304D 0304D 00384 524 ORG ETAB+(4*JRNEITHERMODE) 000384 0000304D 525 DC A(MJRNEITHERMODE) 000388 00388 0304D 526 ORG 00304D D69540A388854094 527 MJRNEITHERMODE DC C'On the mount service, neither read nor read/write ' 00307F A685998540A29785 528 DC C'were specified' 00308D 00 529 DC X'00' 00308E 0308E 00388 530 ORG ETAB+(4*JRBUFFTOOSMALL) 000388 0000308E 531 DC A(MJRBUFFTOOSMALL) 00038C 0038C 0308E 532 ORG 00308E E388854082A48686 533 MJRBUFFTOOSMALL DC C'The buffer for return information is too small' 0030BC 00 534 DC X'00' 0030BD 030BD 0038C 535 ORG ETAB+(4*JRFILENOTTHERE) 00038C 000030BD 536 DC A(MJRFILENOTTHERE) 000390 00390 030BD 537 ORG 0030BD E3888540998598A4 538 MJRFILENOTTHERE DC C'The requested file does not exist' 0030DE 00 539 DC X'00' 0030DF 030DF 00390 540 ORG ETAB+(4*JRREADDIR) 000390 000030DF 541 DC A(MJRREADDIR) 000394 00394 030DF 542 ORG 0030DF E388854099858184 543 MJRREADDIR DC C'The readdir service vnode operation is not supported' 003113 00 544 DC X'00' 003114 03114 00394 545 ORG ETAB+(4*JRGETATTR) 000394 00003114 546 DC A(MJRGETATTR) 000398 00398 03114 547 ORG 003114 C785A3C1A3A39940 548 MJRGETATTR DC C'GetAttr is not supported by this file system' 003140 00 549 DC X'00' 003141 03141 0039C 550 ORG ETAB+(4*JRRDDFILENOTDIR) 00039C 00003141 551 DC A(MJRRDDFILENOTDIR) 0003A0 003A0 03141 552 ORG 003141 E388854099858184 553 MJRRDDFILENOTDIR DC C'The readdir service request was on a file that w' 003171 81A2409596A34096 554 DC C'as not opened as a directory' 00318D 00 555 DC X'00' 00318E 0318E 003A0 556 ORG ETAB+(4*JRTARGETNOTDIR) 0003A0 0000318E 557 DC A(MJRTARGETNOTDIR) 0003A4 003A4 0318E 558 ORG 00318E E388854096978595 559 MJRTARGETNOTDIR DC C'The opendir service did not specify a directory' 0031BD 00 560 DC X'00' 0031BE 031BE 003A4 561 ORG ETAB+(4*JROPENDIRNOTFOUND) 0003A4 000031BE 562 DC A(MJROPENDIRNOTFOUND) 1STRREA OMVS_STR_REASON Page 17 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00003A8 003A8 031BE 563 ORG 0031BE E388854084899985 564 MJROPENDIRNOTFOUND DC C'The directory specified on the opendir service' 0031EC 40848984409596A3 565 DC C' did not exist' 0031FA 00 566 DC X'00' 0031FB 031FB 003A8 567 ORG ETAB+(4*JRNOTPRB) 0003A8 000031FB 568 DC A(MJRNOTPRB) 0003AC 003AC 031FB 569 ORG 0031FB E388854083A49999 570 MJRNOTPRB DC C'The current request block is not a program request bloc' 003232 92 571 DC C'k' 003233 00 572 DC X'00' 003234 03234 003B0 573 ORG ETAB+(4*JRSPFILEEXISTS) 0003B0 00003234 574 DC A(MJRSPFILEEXISTS) 0003B4 003B4 03234 575 ORG 003234 E388854086899385 576 MJRSPFILEEXISTS DC C'The file specified on the mknod service already e' 003265 A789A2A38584 577 DC C'xisted' 00326B 00 578 DC X'00' 00326C 0326C 003B4 579 ORG ETAB+(4*JRREADONLYFILESETMKNODREQ) 0003B4 0000326C 580 DC A(MJRREADONLYFILESETMKNODREQ) 0003B8 003B8 0326C 581 ORG 00326C C140A29785838981 582 MJRREADONLYFILESETMKNODREQ DC C'A special file cannot be created on a ' 003292 9985818460969593 583 DC C'read-only file system' 0032A7 00 584 DC X'00' 0032A8 032A8 003B8 585 ORG ETAB+(4*JRRMDIR) 0003B8 000032A8 586 DC A(MJRRMDIR) 0003BC 003BC 032A8 587 ORG 0032A8 E388854099948489 588 MJRRMDIR DC C'The rmdir service vnode operation is not supported' 0032DA 00 589 DC X'00' 0032DB 032DB 003BC 590 ORG ETAB+(4*JRPATHNOTDIR) 0003BC 000032DB 591 DC A(MJRPATHNOTDIR) 0003C0 003C0 032DB 592 ORG 0032DB E38885409781A388 593 MJRPATHNOTDIR DC C'The pathname does not specify a directory' 003304 00 594 DC X'00' 003305 03305 003C0 595 ORG ETAB+(4*JRREADONLYFS) 0003C0 00003305 596 DC A(MJRREADONLYFS) 0003C4 003C4 03305 597 ORG 003305 E38889A240969785 598 MJRREADONLYFS DC C'This operation does not work on a read-only file sy' 003338 A2A38594 599 DC C'stem' 00333C 00 600 DC X'00' 00333D 0333D 003C8 601 ORG ETAB+(4*JRDIFFFILESETS) 0003C8 0000333D 602 DC A(MJRDIFFFILESETS) 0003CC 003CC 0333D 603 ORG 00333D E388854099859581 604 MJRDIFFFILESETS DC C'The rename service is not supported across file s' 00336E A8A2A38594A2 605 DC C'ystems' 003374 00 606 DC X'00' 003375 03375 003CC 607 ORG ETAB+(4*JRNEWNOTDIR) 0003CC 00003375 608 DC A(MJRNEWNOTDIR) 0003D0 003D0 03375 609 ORG 003375 E38885409585A640 610 MJRNEWNOTDIR DC C'The new name specified on the rename service is not ' 0033A9 81408489998583A3 611 DC C'a directory' 0033B4 00 612 DC X'00' 0033B5 033B5 003D0 613 ORG ETAB+(4*JRNEWISDIR) 0003D0 000033B5 614 DC A(MJRNEWISDIR) 0003D4 003D4 033B5 615 ORG 0033B5 E38885409585A640 616 MJRNEWISDIR DC C'The new name specified on the rename service is a dir' 0033EA 8583A39699A8 617 DC C'ectory' 1STRREA OMVS_STR_REASON Page 18 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00033F0 00 618 DC X'00' 0033F1 033F1 003D4 619 ORG ETAB+(4*JROLDNOEXIST) 0003D4 000033F1 620 DC A(MJROLDNOEXIST) 0003D8 003D8 033F1 621 ORG 0033F1 E388854096938440 622 MJROLDNOEXIST DC C'The old name specified on the rename service does n' 003424 96A34085A789A2A3 623 DC C'ot exist' 00342C 00 624 DC X'00' 00342D 0342D 003D8 625 ORG ETAB+(4*JRISFSROOT) 0003D8 0000342D 626 DC A(MJRISFSROOT) 0003DC 003DC 0342D 627 ORG 00342D E388854095819485 628 MJRISFSROOT DC C'The name specified is in use as a file system root' 00345F 00 629 DC X'00' 003460 03460 003DC 630 ORG ETAB+(4*JRRENAME) 0003DC 00003460 631 DC A(MJRRENAME) 0003E0 003E0 03460 632 ORG 003460 E388854099859581 633 MJRRENAME DC C'The rename service vnode operation is not supported' 003493 00 634 DC X'00' 003494 03494 003E4 635 ORG ETAB+(4*JRDOTORDOTDOT) 0003E4 00003494 636 DC A(MJRDOTORDOTDOT) 0003E8 003E8 03494 637 ORG 003494 E3888540998598A4 638 MJRDOTORDOTDOT DC C'The requested function cannot be performed against' 0034C6 408496A3404D4B5D 639 DC C' dot (.) or dot-dot (..)' 0034DE 00 640 DC X'00' 0034DF 034DF 003E8 641 ORG ETAB+(4*JRKERNELDOWN) 0003E8 000034DF 642 DC A(MJRKERNELDOWN) 0003EC 003EC 034DF 643 ORG 0034DF E388854092859995 644 MJRKERNELDOWN DC C'The kernel has ended during this service' 003507 00 645 DC X'00' 003508 03508 003F4 646 ORG ETAB+(4*JRBADENTRYCODE) 0003F4 00003508 647 DC A(MJRBADENTRYCODE) 0003F8 003F8 03508 648 ORG 003508 C195408995839699 649 MJRBADENTRYCODE DC C'An incorrect entry code was specified on this req' 003539 A485A2A3 650 DC C'uest' 00353D 00 651 DC X'00' 00353E 0353E 003FC 652 ORG ETAB+(4*JRFDALLOCERR) 0003FC 0000353E 653 DC A(MJRFDALLOCERR) 000400 00400 0353E 654 ORG 00353E C195408599999699 655 MJRFDALLOCERR DC C'An error occurred while trying to allocate a file d' 003571 85A283998997A396 656 DC C'escriptor page.' 003580 00 657 DC X'00' 003581 03581 00404 658 ORG ETAB+(4*JRBYTES2RWZERO) 000404 00003581 659 DC A(MJRBYTES2RWZERO) 000408 00408 03581 660 ORG 003581 E388854095A49482 661 MJRBYTES2RWZERO DC C'The number of bytes requested to read or write is' 0035B2 4095858781A389A5 662 DC C' negative' 0035BB 00 663 DC X'00' 0035BC 035BC 00408 664 ORG ETAB+(4*JRRWDFILENOTDIR) 000408 000035BC 665 DC A(MJRRWDFILENOTDIR) 00040C 0040C 035BC 666 ORG 0035BC E38885409985A689 667 MJRRWDFILENOTDIR DC C'The rewinddir service was on a file that is not ' 0035EC 81408489998583A3 668 DC C'a directory' 0035F7 00 669 DC X'00' 0035F8 035F8 0040C 670 ORG ETAB+(4*JRROOTNODE) 00040C 000035F8 671 DC A(MJRROOTNODE) 000410 00410 035F8 672 ORG 1STRREA OMVS_STR_REASON Page 19 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00035F8 E3888540998598A4 673 MJRROOTNODE DC C'The requested operation cannot be done on a root' 003628 00 674 DC X'00' 003629 03629 00410 675 ORG ETAB+(4*JRINVALIDSIGNAL) 000410 00003629 676 DC A(MJRINVALIDSIGNAL) 000414 00414 03629 677 ORG 003629 C140A28987958193 678 MJRINVALIDSIGNAL DC C'A signal number specified is incorrect ' 003655 00 679 DC X'00' 003656 03656 00414 680 ORG ETAB+(4*JRINVALIDSIGACT) 000414 00003656 681 DC A(MJRINVALIDSIGACT) 000418 00418 03656 682 ORG 003656 E38885408183A389 683 MJRINVALIDSIGACT DC C'The action is incorrect for the specified signal' 003686 00 684 DC X'00' 003687 03687 00418 685 ORG ETAB+(4*JRINVALIDSIGHOW) 000418 00003687 686 DC A(MJRINVALIDSIGHOW) 00041C 0041C 03687 687 ORG 003687 E38885408896A640 688 MJRINVALIDSIGHOW DC C'The how operand specified is incorrect' 0036AD 00 689 DC X'00' 0036AE 036AE 0041C 690 ORG ETAB+(4*JRNOTFORDIR) 00041C 000036AE 691 DC A(MJRNOTFORDIR) 000420 00420 036AE 692 ORG 0036AE E3888540A2A8A2A3 693 MJRNOTFORDIR DC C'The system cannot perform the requested function on ' 0036E2 81408489998583A3 694 DC C'a directory' 0036ED 00 695 DC X'00' 0036EE 036EE 00420 696 ORG ETAB+(4*JROLDPARTOFNEW) 000420 000036EE 697 DC A(MJROLDPARTOFNEW) 000424 00424 036EE 698 ORG 0036EE E388854096938440 699 MJROLDPARTOFNEW DC C'The old name specified on the rename service is p' 00371F 8199A340968640A3 700 DC C'art of the new name' 003732 00 701 DC X'00' 003733 03733 0044C 702 ORG ETAB+(4*JRTROPENEDRO) 00044C 00003733 703 DC A(MJRTROPENEDRO) 000450 00450 03733 704 ORG 003733 E388854086A399A4 705 MJRTROPENEDRO DC C'The ftruncate service was for a file opened in read' 003766 60969593A8409496 706 DC C'-only mode' 003770 00 707 DC X'00' 003771 03771 00450 708 ORG ETAB+(4*JRTRMOUNTEDRO) 000450 00003771 709 DC A(MJRTRMOUNTEDRO) 000454 00454 03771 710 ORG 003771 E388854086A399A4 711 MJRTRMOUNTEDRO DC C'The ftruncate service was for a file on a file sys' 0037A3 A38594409496A495 712 DC C'tem mounted in read-only mode' 0037C0 00 713 DC X'00' 0037C1 037C1 00458 714 ORG ETAB+(4*JRTRNEGOFFSET) 000458 000037C1 715 DC A(MJRTRNEGOFFSET) 00045C 0045C 037C1 716 ORG 0037C1 C14095858781A389 717 MJRTRNEGOFFSET DC C'A negative offset was given to a file truncate ser' 0037F3 A5898385 718 DC C'vice' 0037F7 00 719 DC X'00' 0037F8 037F8 0045C 720 ORG ETAB+(4*JROUTOFLOCKS) 00045C 000037F8 721 DC A(MJROUTOFLOCKS) 000460 00460 037F8 722 ORG 0037F8 E388854086899385 723 MJROUTOFLOCKS DC C'The file system has run out of locks' 00381C 00 724 DC X'00' 00381D 0381D 00460 725 ORG ETAB+(4*JRMOUNT) 000460 0000381D 726 DC A(MJRMOUNT) 000464 00464 0381D 727 ORG 1STRREA OMVS_STR_REASON Page 20 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000381D E38885409496A495 728 MJRMOUNT DC C'The mount service VFS operation is not supported' 00384D 00 729 DC X'00' 00384E 0384E 00464 730 ORG ETAB+(4*JRUMOUNT) 000464 0000384E 731 DC A(MJRUMOUNT) 000468 00468 0384E 732 ORG 00384E E3888540A4959496 733 MJRUMOUNT DC C'The unmount service VFS operation is not supported' 003880 00 734 DC X'00' 003881 03881 00468 735 ORG ETAB+(4*JRSYNC) 000468 00003881 736 DC A(MJRSYNC) 00046C 0046C 03881 737 ORG 003881 E3888540E2A89583 738 MJRSYNC DC C'The Sync VFS operation is not supported' 0038A8 00 739 DC X'00' 0038A9 038A9 00470 740 ORG ETAB+(4*JRSTATFS) 000470 000038A9 741 DC A(MJRSTATFS) 000474 00474 038A9 742 ORG 0038A9 E3888540E2A381A3 743 MJRSTATFS DC C'The StatFS VFS operation is not supported' 0038D2 00 744 DC X'00' 0038D3 038D3 00478 745 ORG ETAB+(4*JRVGET) 000478 000038D3 746 DC A(MJRVGET) 00047C 0047C 038D3 747 ORG 0038D3 E3888540E5C785A3 748 MJRVGET DC C'The VGet VFS operation is not supported' 0038FA 00 749 DC X'00' 0038FB 038FB 00480 750 ORG ETAB+(4*JRINVALIDPARMS) 000480 000038FB 751 DC A(MJRINVALIDPARMS) 000484 00484 038FB 752 ORG 0038FB C195408995839699 753 MJRINVALIDPARMS DC C'An incorrect combination of parameters was specif' 00392C 898584 754 DC C'ied' 00392F 00 755 DC X'00' 003930 03930 00484 756 ORG ETAB+(4*JRFSPARENTFS) 000484 00003930 757 DC A(MJRFSPARENTFS) 000488 00488 03930 758 ORG 003930 E388854086899385 759 MJRFSPARENTFS DC C'The file system has file systems mounted on it' 00395E 00 760 DC X'00' 00395F 0395F 00488 761 ORG ETAB+(4*JRFSUNMOUNTINPROGRESS) 000488 0000395F 762 DC A(MJRFSUNMOUNTINPROGRESS) 00048C 0048C 0395F 763 ORG 00395F C19540A4959496A4 764 MJRFSUNMOUNTINPROGRESS DC C'An unmount service is already in progress' 003988 00 765 DC X'00' 003989 03989 0048C 766 ORG ETAB+(4*JRFSMUSTRESET) 00048C 00003989 767 DC A(MJRFSMUSTRESET) 000490 00490 03989 768 ORG 003989 C19540A4959496A4 769 MJRFSMUSTRESET DC C'An unmount service must specify reset when already' 0039BB 40A4959496A495A3 770 DC C' unmounting' 0039C6 00 771 DC X'00' 0039C7 039C7 00490 772 ORG ETAB+(4*JRFSFORCEUMOUNT) 000490 000039C7 773 DC A(MJRFSFORCEUMOUNT) 000494 00494 039C7 774 ORG 0039C7 D985A285A3408681 775 MJRFSFORCEUMOUNT DC C'Reset fails when the file system is forced to un' 0039F7 9496A495A3 776 DC C'mount' 0039FC 00 777 DC X'00' 0039FD 039FD 00494 778 ORG ETAB+(4*JRAUDIT) 000494 000039FD 779 DC A(MJRAUDIT) 000498 00498 039FD 780 ORG 0039FD E388854081A48489 781 MJRAUDIT DC C'The audit vnode operation is not supported' 003A27 00 782 DC X'00' 1STRREA OMVS_STR_REASON Page 21 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0003A28 03A28 0049C 783 ORG ETAB+(4*JRUSERNOTPRIVILEGED) 00049C 00003A28 784 DC A(MJRUSERNOTPRIVILEGED) 0004A0 004A0 03A28 785 ORG 003A28 E3888540998598A4 786 MJRUSERNOTPRIVILEGED DC C'The requester of the service is not privileg' 003A54 8584 787 DC C'ed' 003A56 00 788 DC X'00' 003A57 03A57 004A4 789 ORG ETAB+(4*JRMUSTUMOUNTIMMED) 0004A4 00003A57 790 DC A(MJRMUSTUMOUNTIMMED) 0004A8 004A8 03A57 791 ORG 003A57 C195408994948584 792 MJRMUSTUMOUNTIMMED DC C'An immediate unmount must precede a forced unm' 003A85 96A495A3 793 DC C'ount' 003A89 00 794 DC X'00' 003A8A 03A8A 004A8 795 ORG ETAB+(4*JRNOTQUIESCED) 0004A8 00003A8A 796 DC A(MJRNOTQUIESCED) 0004AC 004AC 03A8A 797 ORG 003A8A C14098A48985A283 798 MJRNOTQUIESCED DC C'A quiesce service must precede an unquiesce' 003AB5 00 799 DC X'00' 003AB6 03AB6 004AC 800 ORG ETAB+(4*JRQUIESCED) 0004AC 00003AB6 801 DC A(MJRQUIESCED) 0004B0 004B0 03AB6 802 ORG 003AB6 E38885998540A681 803 MJRQUIESCED DC C'There was a previous quiesce request' 003ADA 00 804 DC X'00' 003ADB 03ADB 004B0 805 ORG ETAB+(4*JRINVALIDREQUESTER) 0004B0 00003ADB 806 DC A(MJRINVALIDREQUESTER) 0004B4 004B4 03ADB 807 ORG 003ADB E3888540998598A4 808 MJRINVALIDREQUESTER DC C'The requester of the function cannot make the' 003B08 40998598A485A2A3 809 DC C' request' 003B10 00 810 DC X'00' 003B11 03B11 004B4 811 ORG ETAB+(4*JRPFSSUSPEND) 0004B4 00003B11 812 DC A(MJRPFSSUSPEND) 0004B8 004B8 03B11 813 ORG 003B11 E3888540D7C6E240 814 MJRPFSSUSPEND DC C'The PFS is waiting to restart.' 003B2F 00 815 DC X'00' 003B30 03B30 004B8 816 ORG ETAB+(4*JRPFSABEND) 0004B8 00003B30 817 DC A(MJRPFSABEND) 0004BC 004BC 03B30 818 ORG 003B30 E38885409788A8A2 819 MJRPFSABEND DC C'The physical file system abended' 003B50 00 820 DC X'00' 003B51 03B51 004BC 821 ORG ETAB+(4*JRNOSTORAGE) 0004BC 00003B51 822 DC A(MJRNOSTORAGE) 0004C0 004C0 03B51 823 ORG 003B51 C995A2A486868983 824 MJRNOSTORAGE DC C'Insufficient storage to copy user parameters' 003B7D 00 825 DC X'00' 003B7E 03B7E 004C0 826 ORG ETAB+(4*JRACTIVEPROCESS) 0004C0 00003B7E 827 DC A(MJRACTIVEPROCESS) 0004C4 004C4 03B7E 828 ORG 003B7E D4A493A389979385 829 MJRACTIVEPROCESS DC C'Multiple processes in the address space prevent ' 003BAE A3888540A3859994 830 DC C'the termination of the job step process' 003BD5 00 831 DC X'00' 003BD6 03BD6 004C4 832 ORG ETAB+(4*JRPFSCTL) 0004C4 00003BD6 833 DC A(MJRPFSCTL) 0004C8 004C8 03BD6 834 ORG 003BD6 E3888540D786A283 835 MJRPFSCTL DC C'The Pfsctl operation is not supported' 003BFB 00 836 DC X'00' 003BFC 03BFC 004C8 837 ORG ETAB+(4*JRPFSINITFAILED) 1STRREA OMVS_STR_REASON Page 22 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00004C8 00003BFC 838 DC A(MJRPFSINITFAILED) 0004CC 004CC 03BFC 839 ORG 003BFC E388854086899385 840 MJRPFSINITFAILED DC C'The file system did not initialize' 003C1E 00 841 DC X'00' 003C1F 03C1F 004CC 842 ORG ETAB+(4*JRSPAWNNOCOMMONSTG) 0004CC 00003C1F 843 DC A(MJRSPAWNNOCOMMONSTG) 0004D0 004D0 03C1F 844 ORG 003C1F E29781A695408381 845 MJRSPAWNNOCOMMONSTG DC C'Spawn cannot be completed because not enough ' 003C4C 83969494969540A2 846 DC C'common storage is available to complete the request' 003C7F 00 847 DC X'00' 003C80 03C80 004D0 848 ORG ETAB+(4*JRSPAWNARGSTOOBIG) 0004D0 00003C80 849 DC A(MJRSPAWNARGSTOOBIG) 0004D4 004D4 03C80 850 ORG 003C80 E29781A695408381 851 MJRSPAWNARGSTOOBIG DC C'Spawn cannot be completed because the total le' 003CAE 9587A38840968640 852 DC C'ngth of arguments specified by the caller exceeds the' 003CE3 40A2A8A2A3859440 853 DC C' system imposed limit of 1 finespace.000 finespace.00' 003D18 F04082A8A385A2 854 DC C'0 bytes' 003D1F 00 855 DC X'00' 003D20 03D20 004D4 856 ORG ETAB+(4*JRFUNCUNDEFINED) 0004D4 00003D20 857 DC A(MJRFUNCUNDEFINED) 0004D8 004D8 03D20 858 ORG 003D20 E388854096856D85 859 MJRFUNCUNDEFINED DC C'The oe_env_np (BPX1ENV) service cannot be comple' 003D50 A385844082858381 860 DC C'ted because the Function_code specified is undefined' 003D84 00 861 DC X'00' 003D85 03D85 004D8 862 ORG ETAB+(4*JRBADARGCOUNT) 0004D8 00003D85 863 DC A(MJRBADARGCOUNT) 0004DC 004DC 03D85 864 ORG 003D85 E388854096856D85 865 MJRBADARGCOUNT DC C'The oe_env_np (BPX1ENV) service cannot be complete' 003DB7 844082858381A4A2 866 DC C'd because the number of input or output arguments are' 003DEC 4089958396999985 867 DC C' incorrect for the Function_code specified' 003E16 00 868 DC X'00' 003E17 03E17 004DC 869 ORG ETAB+(4*JRBADINPUTVALUE) 0004DC 00003E17 870 DC A(MJRBADINPUTVALUE) 0004E0 004E0 03E17 871 ORG 003E17 E388854096856D85 872 MJRBADINPUTVALUE DC C'The oe_env_np (BPX1ENV) service cannot be comple' 003E47 A385844082858381 873 DC C'ted because an input argument contained an undefined ' 003E7C A58193A485 874 DC C'value' 003E81 00 875 DC X'00' 003E82 03E82 004E0 876 ORG ETAB+(4*JRNOUSEREXIT) 0004E0 00003E82 877 DC A(MJRNOUSEREXIT) 0004E4 004E4 03E82 878 ORG 003E82 C14097A388998581 879 MJRNOUSEREXIT DC C'A pthread_quiesce (BPX1PTQ) service FREEZE_EXIT req' 003EB5 A485A2A340838195 880 DC C'uest cannot complete because no user exit has been re' 003EEA 8789A2A385998584 881 DC C'gistered with the oe_env_np (BPX1ENV) service' 003F17 00 882 DC X'00' 003F18 03F18 004E4 883 ORG ETAB+(4*JRPROCESSNOTFROZEN) 0004E4 00003F18 884 DC A(MJRPROCESSNOTFROZEN) 0004E8 004E8 03F18 885 ORG 003F18 C14097A388998581 886 MJRPROCESSNOTFROZEN DC C'A pthread_quiesce (BPX1PTQ) service FREEZE_EX' 003F45 C9E340998598A485 887 DC C'IT request cannot complete because the process is no' 003F7A A340869996A98595 888 DC C't frozen' 003F82 00 889 DC X'00' 003F83 03F83 004E8 890 ORG ETAB+(4*JRFREEZEEXITTOOSLOW) 0004E8 00003F83 891 DC A(MJRFREEZEEXITTOOSLOW) 0004EC 004EC 03F83 892 ORG 1STRREA OMVS_STR_REASON Page 23 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0003F83 C14097A388998581 893 MJRFREEZEEXITTOOSLOW DC C'A pthread_quiesce (BPX1PTQ) service FREEZE_E' 003FAF E7C9E340998598A4 894 DC C'XIT request cannot complete because user exits did no' 003FE4 A3409985A3A49995 895 DC C't return in the expected time' 004001 00 896 DC X'00' 004002 04002 004EC 897 ORG ETAB+(4*JRRESRPORTSPECIFIED) 0004EC 00004002 898 DC A(MJRRESRPORTSPECIFIED) 0004F0 004F0 04002 899 ORG 004002 C4A4998995874081 900 MJRRESRPORTSPECIFIED DC C'During a Socket Bind request, a Reserved Por' 00402E A340A681A2408995 901 DC C't was incorrectly specified' 004049 00 902 DC X'00' 00404A 0404A 004F0 903 ORG ETAB+(4*JRRESRPORTNOTAVAIL) 0004F0 0000404A 904 DC A(MJRRESRPORTNOTAVAIL) 0004F4 004F4 0404A 905 ORG 00404A C1939340979699A3 906 MJRRESRPORTNOTAVAIL DC C'All port zero, INADDR_ANY, reserved ports are' 004077 40899540A4A285 907 DC C' in use' 00407E 00 908 DC X'00' 00407F 0407F 004F4 909 ORG ETAB+(4*JRRESRPORTUSED) 0004F4 0000407F 910 DC A(MJRRESRPORTUSED) 0004F8 004F8 0407F 911 ORG 00407F C140A296839285A3 912 MJRRESRPORTUSED DC C'A sockets port assignment conflict exists between' 0040B0 40D6D4E5E2408195 913 DC C' OMVS and a Transport Provider' 0040CE 00 914 DC X'00' 0040CF 040CF 004F8 915 ORG ETAB+(4*JRTLSREQUESTINVALID) 0004F8 000040CF 916 DC A(MJRTLSREQUESTINVALID) 0004FC 004FC 040CF 917 ORG 0040CF C195408995A58193 918 MJRTLSREQUESTINVALID DC C'An invalid request has been passed for Task ' 0040FB D385A5859340E285 919 DC C'Level Security.' 00410A 00 920 DC X'00' 00410B 0410B 004FC 921 ORG ETAB+(4*JRNORESERVEDPORTS) 0004FC 0000410B 922 DC A(MJRNORESERVEDPORTS) 000500 00500 0410B 923 ORG 00410B C140828995844D5D 924 MJRNORESERVEDPORTS DC C'A bind() syscall that specified port number ze' 004139 99964081958440C9 925 DC C'ro and IP address INADDR_ANY, failed because no ports' 00416E 40A6859985409985 926 DC C' were reserved.' 00417D 00 927 DC X'00' 00417E 0417E 00500 928 ORG ETAB+(4*JRTLSIDTYPEINVALID) 000500 0000417E 929 DC A(MJRTLSIDTYPEINVALID) 000504 00504 0417E 930 ORG 00417E C195408995A58193 931 MJRTLSIDTYPEINVALID DC C'An invalid ID type has been passed for Task L' 0041AB 85A5859340E28583 932 DC C'evel Security.' 0041B9 00 933 DC X'00' 0041BA 041BA 00504 934 ORG ETAB+(4*JRTLSIDLENGTHINVALID) 000504 000041BA 935 DC A(MJRTLSIDLENGTHINVALID) 000508 00508 041BA 936 ORG 0041BA C195408995A58193 937 MJRTLSIDLENGTHINVALID DC C'An invalid ID length has been passed for Ta' 0041E5 A29240D385A58593 938 DC C'sk Level Security.' 0041F7 00 939 DC X'00' 0041F8 041F8 00508 940 ORG ETAB+(4*JRTLSADDRESSLENGTHINVALID) 000508 000041F8 941 DC A(MJRTLSADDRESSLENGTHINVALID) 00050C 0050C 041F8 942 ORG 0041F8 C195408995A58193 943 MJRTLSADDRESSLENGTHINVALID DC C'An invalid address length has been pas' 00421E A285844086969940 944 DC C'sed for Task Level Security.' 00423A 00 945 DC X'00' 00423B 0423B 0050C 946 ORG ETAB+(4*JRTLSCALLERISIPT) 00050C 0000423B 947 DC A(MJRTLSCALLERISIPT) 1STRREA OMVS_STR_REASON Page 24 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000510 00510 0423B 948 ORG 00423B E388854083819393 949 MJRTLSCALLERISIPT DC C'The calling task is IPT.' 004253 00 950 DC X'00' 004254 04254 00510 951 ORG ETAB+(4*JRTLSNOTDONEBYOE) 000510 00004254 952 DC A(MJRTLSNOTDONEBYOE) 000514 00514 04254 953 ORG 004254 E381A292409385A5 954 MJRTLSNOTDONEBYOE DC C'Task level security already exists, but it was ' 004283 9596A34083998581 955 DC C'not created by a previous call to pthread_security_np' 0042B8 4B 956 DC C'.' 0042B9 00 957 DC X'00' 0042BA 042BA 00514 958 ORG ETAB+(4*JRNOPTRACETASKSEC) 000514 000042BA 959 DC A(MJRNOPTRACETASKSEC) 000518 00518 042BA 960 ORG 0042BA D7A3998183854089 961 MJRNOPTRACETASKSEC DC C'Ptrace is active in the caller apos.s address ' 0042E8 A2978183856B40A3 962 DC C'space, task level security not allowed concurrently w' 00431D 89A38840D7A39981 963 DC C'ith Ptrace.' 004328 00 964 DC X'00' 004329 04329 00518 965 ORG ETAB+(4*JRSAFRESOURCEUNDEFINED) 000518 00004329 966 DC A(MJRSAFRESOURCEUNDEFINED) 00051C 0051C 04329 967 ORG 004329 E38885409985A296 968 MJRSAFRESOURCEUNDEFINED DC C'The resource specified by the caller is n' 004352 96A3408485868995 969 DC C'ot defined to RACF.' 004365 00 970 DC X'00' 004366 04366 00520 971 ORG ETAB+(4*JRSAFNOUUIDTOUSER) 000520 00004366 972 DC A(MJRSAFNOUUIDTOUSER) 000524 00524 04366 973 ORG 004366 D596409481979789 974 MJRSAFNOUUIDTOUSER DC C'No mapping to a RACF userid exists for the DCE' 004394 40E4E4C9C440A297 975 DC C' UUID specified.' 0043A4 00 976 DC X'00' 0043A5 043A5 00524 977 ORG ETAB+(4*JRSAFNOUSERTOUUID) 000524 000043A5 978 DC A(MJRSAFNOUSERTOUUID) 000528 00528 043A5 979 ORG 0043A5 D596409481979789 980 MJRSAFNOUSERTOUUID DC C'No mapping to a DCE UUID exists for the RACF U' 0043D3 A28599898440A297 981 DC C'serid specified.' 0043E3 00 982 DC X'00' 0043E4 043E4 00528 983 ORG ETAB+(4*JRSAFNODCECLASS) 000528 000043E4 984 DC A(MJRSAFNODCECLASS) 00052C 0052C 043E4 985 ORG 0043E4 E3888540D9C1C3C6 986 MJRSAFNODCECLASS DC C'The RACF DCEUUIDS class is not active.' 00440A 00 987 DC X'00' 00440B 0440B 0052C 988 ORG ETAB+(4*JRSAFNOCELLUUID) 00052C 0000440B 989 DC A(MJRSAFNOCELLUUID) 000530 00530 0440B 990 ORG 00440B E388854093968381 991 MJRSAFNOCELLUUID DC C'The local cell UUID could not be determined for ' 00443B A38889A240D9C1C3 992 DC C'this RACF userid to DCE UUID conversion request.' 00446B 00 993 DC X'00' 00446C 0446C 00530 994 ORG ETAB+(4*JRCLASSLENERR) 000530 0000446C 995 DC A(MJRCLASSLENERR) 000534 00534 0446C 996 ORG 00446C E388854093859587 997 MJRCLASSLENERR DC C'The length of the RACF class name is outside of th' 00449E 854081939396A681 998 DC C'e allowable range of 1 to 8.' 0044BA 00 999 DC X'00' 0044BB 044BB 00534 1000 ORG ETAB+(4*JRENTITYLENERR) 000534 000044BB 1001 DC A(MJRENTITYLENERR) 000538 00538 044BB 1002 ORG 1STRREA OMVS_STR_REASON Page 25 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00044BB E388854093859587 1003 MJRENTITYLENERR DC C'The length of the RACF entity name is outside of ' 0044EC A388854081939396 1004 DC C'the allowable range of 1 to 246.' 00450C 00 1005 DC X'00' 00450D 0450D 00538 1006 ORG ETAB+(4*JRACCESSUNDEFINED) 000538 0000450D 1007 DC A(MJRACCESSUNDEFINED) 00053C 0053C 0450D 1008 ORG 00450D E388854081838385 1009 MJRACCESSUNDEFINED DC C'The access type specified is undefined.' 004534 00 1010 DC X'00' 004535 04535 0053C 1011 ORG ETAB+(4*JRNOTSERVERAUTHORIZED) 00053C 00004535 1012 DC A(MJRNOTSERVERAUTHORIZED) 000540 00540 04535 1013 ORG 004535 E388854083819393 1014 MJRNOTSERVERAUTHORIZED DC C'The calling address space is not permitted' 00455F 40A39640A3888540 1015 DC C' to the BPX.SERVER Facility class or the BPX.SERVER F' 004594 8183899389A3A840 1016 DC C'acility class is undefined and caller not a superuser' 0045C9 404DE4C9C47EF05D 1017 DC C' (UID=0)' 0045D1 00 1018 DC X'00' 0045D2 045D2 00540 1019 ORG ETAB+(4*JRNORESOURCEACCESS) 000540 000045D2 1020 DC A(MJRNORESOURCEACCESS) 000544 00544 045D2 1021 ORG 0045D2 E3888540A4A28599 1022 MJRNORESOURCEACCESS DC C'The user specified by the caller does not hav' 0045FF 8540A38885408183 1023 DC C'e the access specified to the resource' 004625 00 1024 DC X'00' 004626 04626 00544 1025 ORG ETAB+(4*JRSURROGATEUNDEFINED) 000544 00004626 1026 DC A(MJRSURROGATEUNDEFINED) 000548 00548 04626 1027 ORG 004626 E3888540D9C1C3C6 1028 MJRSURROGATEUNDEFINED DC C'The RACF SURROGAT class has not been activa' 004651 A385844096994095 1029 DC C'ted or no SURROGAT class profile has been defined for' 004686 40A3888540839389 1030 DC C' the client' 004691 00 1031 DC X'00' 004692 04692 00548 1032 ORG ETAB+(4*JRNOSURROGATEPERM) 000548 00004692 1033 DC A(MJRNOSURROGATEPERM) 00054C 0054C 04692 1034 ORG 004692 E3888540A28599A5 1035 MJRNOSURROGATEPERM DC C'The server is not permitted to the SURROGAT cl' 0046C0 81A2A24097999686 1036 DC C'ass profile defined for the client' 0046E2 00 1037 DC X'00' 0046E3 046E3 0054C 1038 ORG ETAB+(4*JRSAFNOTAUTHORIZED) 00054C 000046E3 1039 DC A(MJRSAFNOTAUTHORIZED) 000550 00550 046E3 1040 ORG 0046E3 E388854083819393 1041 MJRSAFNOTAUTHORIZED DC C'The calling address space is not authorized t' 004710 9640A4A28540A388 1042 DC C'o use this service' 004722 00 1043 DC X'00' 004723 04723 00550 1044 ORG ETAB+(4*JRNOBUFSTORAGE) 000550 00004723 1045 DC A(MJRNOBUFSTORAGE) 000554 00554 04723 1046 ORG 004723 E2A3969981878540 1047 MJRNOBUFSTORAGE DC C'Storage could not be obtained for I/O buffers ' 004754 404040 1048 DC C' ' 004757 00 1049 DC X'00' 004758 04758 005B4 1050 ORG ETAB+(4*JRNOVSMLIST) 0005B4 00004758 1051 DC A(MJRNOVSMLIST) 0005B8 005B8 04758 1052 ORG 004758 C696999240838195 1053 MJRNOVSMLIST DC C'Fork cannot be completed because the parent process ' 00478C 8595848584409799 1054 DC C'ended prematurely' 00479D 00 1055 DC X'00' 00479E 0479E 005B8 1056 ORG ETAB+(4*JRFORKNORESOURCE) 0005B8 0000479E 1057 DC A(MJRFORKNORESOURCE) 1STRREA OMVS_STR_REASON Page 26 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00005BC 005BC 0479E 1058 ORG 00479E C696999240838195 1059 MJRFORKNORESOURCE DC C'Fork cannot be processed for lack of resource' 0047CB 00 1060 DC X'00' 0047CC 047CC 005C0 1061 ORG ETAB+(4*JRSAFNOUSER) 0005C0 000047CC 1062 DC A(MJRSAFNOUSER) 0005C4 005C4 047CC 1063 ORG 0047CC E3888540A4A28599 1064 MJRSAFNOUSER DC C'The user ID is not defined to the security product' 0047FE 00 1065 DC X'00' 0047FF 047FF 005C4 1066 ORG ETAB+(4*JRSAFGROUPNOOMVS) 0005C4 000047FF 1067 DC A(MJRSAFGROUPNOOMVS) 0005C8 005C8 047FF 1068 ORG 0047FF E388854083A49999 1069 MJRSAFGROUPNOOMVS DC C'The current group does not have a GID defined i' 00482E 9540A3888540D6D4 1070 DC C'n the OMVS segment.' 004841 00 1071 DC X'00' 004842 04842 005C8 1072 ORG ETAB+(4*JRSAFUSERNOOMVS) 0005C8 00004842 1073 DC A(MJRSAFUSERNOOMVS) 0005CC 005CC 04842 1074 ORG 004842 E3888540A4A28599 1075 MJRSAFUSERNOOMVS DC C'The user ID is not authorized to use OMVS' 00486B 00 1076 DC X'00' 00486C 0486C 005CC 1077 ORG ETAB+(4*JRSAFNOUID) 0005CC 0000486C 1078 DC A(MJRSAFNOUID) 0005D0 005D0 0486C 1079 ORG 00486C E3888540A4A28599 1080 MJRSAFNOUID DC C'The user ID has no UID' 004882 00 1081 DC X'00' 004883 04883 005D0 1082 ORG ETAB+(4*JRSAFNOGID) 0005D0 00004883 1083 DC A(MJRSAFNOGID) 0005D4 005D4 04883 1084 ORG 004883 E3888540A4A28599 1085 MJRSAFNOGID DC C'The user ID is in a group that has no GID' 0048AC 00 1086 DC X'00' 0048AD 048AD 005D4 1087 ORG ETAB+(4*JRSAFINTERNAL) 0005D4 000048AD 1088 DC A(MJRSAFINTERNAL) 0005D8 005D8 048AD 1089 ORG 0048AD C195408995A38599 1090 MJRSAFINTERNAL DC C'An internal error occurred in the security product' 0048DF 00 1091 DC X'00' 0048E0 048E0 005D8 1092 ORG ETAB+(4*JRSTATUSPOSTED) 0005D8 000048E0 1093 DC A(MJRSTATUSPOSTED) 0005DC 005DC 048E0 1094 ORG 0048E0 C140998598A485A2 1095 MJRSTATUSPOSTED DC C'A request was received to dub a thread for a proc' 004911 85A2A240A38881A3 1096 DC C'ess that is stopped or has ended' 004931 00 1097 DC X'00' 004932 04932 005DC 1098 ORG ETAB+(4*JRTRUNC) 0005DC 00004932 1099 DC A(MJRTRUNC) 0005E0 005E0 04932 1100 ORG 004932 E595968485409697 1101 MJRTRUNC DC C'Vnode operation trunc is not supported by this file syst' 00496A 8594 1102 DC C'em' 00496C 00 1103 DC X'00' 00496D 0496D 005E0 1104 ORG ETAB+(4*JRFSYNC) 0005E0 0000496D 1105 DC A(MJRFSYNC) 0005E4 005E4 0496D 1106 ORG 00496D E595968485409697 1107 MJRFSYNC DC C'Vnode operation fsync is not supported by this file syst' 0049A5 8594 1108 DC C'em' 0049A7 00 1109 DC X'00' 0049A8 049A8 005E4 1110 ORG ETAB+(4*JRSETATTR) 0005E4 000049A8 1111 DC A(MJRSETATTR) 0005E8 005E8 049A8 1112 ORG 1STRREA OMVS_STR_REASON Page 27 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00049A8 E595968485409697 1113 MJRSETATTR DC C'Vnode operation setattr is not supported by this file ' 0049DE A2A8A2A38594 1114 DC C'system' 0049E4 00 1115 DC X'00' 0049E5 049E5 005E8 1116 ORG ETAB+(4*JRSYMFILEALREADYEXISTS) 0005E8 000049E5 1117 DC A(MJRSYMFILEALREADYEXISTS) 0005EC 005EC 049E5 1118 ORG 0049E5 E388854086899385 1119 MJRSYMFILEALREADYEXISTS DC C'The file requested for creation as a symb' 004A0E 9693898340938995 1120 DC C'olic link already exists' 004A26 00 1121 DC X'00' 004A27 04A27 005EC 1122 ORG ETAB+(4*JRSYMLINK) 0005EC 00004A27 1123 DC A(MJRSYMLINK) 0005F0 005F0 04A27 1124 ORG 004A27 E3888540A2A89482 1125 MJRSYMLINK DC C'The symbolic link vnode operation is not supported' 004A59 00 1126 DC X'00' 004A5A 04A5A 005F0 1127 ORG ETAB+(4*JRFILENOTSYMLINK) 0005F0 00004A5A 1128 DC A(MJRFILENOTSYMLINK) 0005F4 005F4 04A5A 1129 ORG 004A5A E388854086899385 1130 MJRFILENOTSYMLINK DC C'The file requested for readlink service is not ' 004A89 8140A2A894829693 1131 DC C'a symbolic link' 004A98 00 1132 DC X'00' 004A99 04A99 005F4 1133 ORG ETAB+(4*JRREADLINK) 0005F4 00004A99 1134 DC A(MJRREADLINK) 0005F8 005F8 04A99 1135 ORG 004A99 E388854099858184 1136 MJRREADLINK DC C'The readlink vnode operation is not supported' 004AC6 00 1137 DC X'00' 004AC7 04AC7 005F8 1138 ORG ETAB+(4*JRMKNODINVALIDTYPE) 0005F8 00004AC7 1139 DC A(MJRMKNODINVALIDTYPE) 0005FC 005FC 04AC7 1140 ORG 004AC7 E388854094929596 1141 MJRMKNODINVALIDTYPE DC C'The mknod service invoked with incorrect file' 004AF4 40A3A89785409781 1142 DC C' type parameter' 004B03 00 1143 DC X'00' 004B04 04B04 005FC 1144 ORG ETAB+(4*JRENDINGSLASHMKNOD) 0005FC 00004B04 1145 DC A(MJRENDINGSLASHMKNOD) 000600 00600 04B04 1146 ORG 004B04 E38885409781A388 1147 MJRENDINGSLASHMKNOD DC C'The pathname ended with a slash on the mknod ' 004B31 A28599A5898385 1148 DC C'service' 004B38 00 1149 DC X'00' 004B39 04B39 00600 1150 ORG ETAB+(4*JRENDINGSLASHOCREAT) 000600 00004B39 1151 DC A(MJRENDINGSLASHOCREAT) 000604 00604 04B39 1152 ORG 004B39 E38885409781A388 1153 MJRENDINGSLASHOCREAT DC C'The pathname in the open service, with the O' 004B65 6DC3D9C5C1E34096 1154 DC C'_CREAT option, ended with slash' 004B84 00 1155 DC X'00' 004B85 04B85 00604 1156 ORG ETAB+(4*JRLNKNOENT) 000604 00004B85 1157 DC A(MJRLNKNOENT) 000608 00608 04B85 1158 ORG 004B85 E3888540A28599A5 1159 MJRLNKNOENT DC C'The service tried to link to nonexistent file' 004BB2 00 1160 DC X'00' 004BB3 04BB3 00608 1161 ORG ETAB+(4*JRLNKNEWPATHEXISTS) 000608 00004BB3 1162 DC A(MJRLNKNEWPATHEXISTS) 00060C 0060C 04BB3 1163 ORG 004BB3 E3888540A28599A5 1164 MJRLNKNEWPATHEXISTS DC C'The service tried to add a link whose name al' 004BE0 99858184A84085A7 1165 DC C'ready exists' 004BEC 00 1166 DC X'00' 004BED 04BED 0060C 1167 ORG ETAB+(4*JRLNKACROSSFILESETS) 1STRREA OMVS_STR_REASON Page 28 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000060C 00004BED 1168 DC A(MJRLNKACROSSFILESETS) 000610 00610 04BED 1169 ORG 004BED E3888540A28599A5 1170 MJRLNKACROSSFILESETS DC C'The service tried to link across file system' 004C19 A2 1171 DC C's' 004C1A 00 1172 DC X'00' 004C1B 04C1B 00610 1173 ORG ETAB+(4*JRLNKROFILESET) 000610 00004C1B 1174 DC A(MJRLNKROFILESET) 000614 00614 04C1B 1175 ORG 004C1B E3888540A28599A5 1176 MJRLNKROFILESET DC C'The service tried to add a directory entry on a r' 004C4C 85818460969593A8 1177 DC C'ead-only file system' 004C60 00 1178 DC X'00' 004C61 04C61 00614 1179 ORG ETAB+(4*JRLINK) 000614 00004C61 1180 DC A(MJRLINK) 000618 00618 04C61 1181 ORG 004C61 E5956DD389959240 1182 MJRLINK DC C'Vn_Link is not supported by this physical file system' 004C96 00 1183 DC X'00' 004C97 04C97 00618 1184 ORG ETAB+(4*JREXECNMLENZERO) 000618 00004C97 1185 DC A(MJREXECNMLENZERO) 00061C 0061C 04C97 1186 ORG 004C97 E388854093859587 1187 MJREXECNMLENZERO DC C'The length of the executable name passed was zer' 004CC7 96 1188 DC C'o' 004CC8 00 1189 DC X'00' 004CC9 04CC9 00628 1190 ORG ETAB+(4*JRFSFAILQUIESCE) 000628 00004CC9 1191 DC A(MJRFSFAILQUIESCE) 00062C 0062C 04CC9 1192 ORG 004CC9 C4A4824096994086 1193 MJRFSFAILQUIESCE DC C'Dub or fork cannot complete, because the working' 004CF9 408489998583A396 1194 DC C' directory is unmounted' 004D10 00 1195 DC X'00' 004D11 04D11 0062C 1196 ORG ETAB+(4*JRNOTPERMITTED) 00062C 00004D11 1197 DC A(MJRNOTPERMITTED) 000630 00630 04D11 1198 ORG 004D11 E896A44081998540 1199 MJRNOTPERMITTED DC C'You are not permitted to signal to the specified ' 004D42 9799968385A2A240 1200 DC C'process ID (PID)' 004D52 00 1201 DC X'00' 004D53 04D53 00630 1202 ORG ETAB+(4*JRBUFFLENINVALID) 000630 00004D53 1203 DC A(MJRBUFFLENINVALID) 000634 00634 04D53 1204 ORG 004D53 E388854093859587 1205 MJRBUFFLENINVALID DC C'The length of the buffer is less than or equal ' 004D82 A39640A985999640 1206 DC C'to zero or less than a minimum length' 004DA7 00 1207 DC X'00' 004DA8 04DA8 00638 1208 ORG ETAB+(4*JRNOTREGISTERED) 000638 00004DA8 1209 DC A(MJRNOTREGISTERED) 00063C 0063C 04DA8 1210 ORG 004DA8 E388854083819393 1211 MJRNOTREGISTERED DC C'The call is not registered for signals' 004DCE 00 1212 DC X'00' 004DCF 04DCF 00640 1213 ORG ETAB+(4*JRNOTSUPPORTEDFORFILETYPE) 000640 00004DCF 1214 DC A(MJRNOTSUPPORTEDFORFILETYPE) 000644 00644 04DCF 1215 ORG 004DCF E3888540998598A4 1216 MJRNOTSUPPORTEDFORFILETYPE DC C'The requested service is not supported' 004DF5 4086969940A38889 1217 DC C' for this file type' 004E08 00 1218 DC X'00' 004E09 04E09 00644 1219 ORG ETAB+(4*JRINVALIDSYMLINKLEN) 000644 00004E09 1220 DC A(MJRINVALIDSYMLINKLEN) 000648 00648 04E09 1221 ORG 004E09 E3888540839695A3 1222 MJRINVALIDSYMLINKLEN DC C'The contents specified for the symbolic link' 1STRREA OMVS_STR_REASON Page 29 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0004E35 408881A240819540 1223 DC C' has an incorrect length' 004E4D 00 1224 DC X'00' 004E4E 04E4E 00648 1225 ORG ETAB+(4*JRINVALIDSYMLINKCOMP) 000648 00004E4E 1226 DC A(MJRINVALIDSYMLINKCOMP) 00064C 0064C 04E4E 1227 ORG 004E4E E3888540839695A3 1228 MJRINVALIDSYMLINKCOMP DC C'The contents specified for symbolic link ha' 004E79 A240819540899583 1229 DC C's an incorrect component' 004E91 00 1230 DC X'00' 004E92 04E92 0064C 1231 ORG ETAB+(4*JRFILENOTOPEN) 00064C 00004E92 1232 DC A(MJRFILENOTOPEN) 000650 00650 04E92 1233 ORG 004E92 E388854086899385 1234 MJRFILENOTOPEN DC C'The file is not opened' 004EA8 00 1235 DC X'00' 004EA9 04EA9 00650 1236 ORG ETAB+(4*JRTOOMANYSYMLINKS) 000650 00004EA9 1237 DC A(MJRTOOMANYSYMLINKS) 000654 00654 04EA9 1238 ORG 004EA9 E3969640948195A8 1239 MJRTOOMANYSYMLINKS DC C'Too many symbolic links were encountered in th' 004ED7 85409781A3889581 1240 DC C'e pathname' 004EE1 00 1241 DC X'00' 004EE2 04EE2 00654 1242 ORG ETAB+(4*JRMVSARGTOOBIG) 000654 00004EE2 1243 DC A(MJRMVSARGTOOBIG) 000658 00658 04EE2 1244 ORG 004EE2 E388854085A78583 1245 MJRMVSARGTOOBIG DC C'The execMVS argument string was too long' 004F0A 00 1246 DC X'00' 004F0B 04F0B 00658 1247 ORG ETAB+(4*JREXECNOTREGFILE) 000658 00004F0B 1248 DC A(MJREXECNOTREGFILE) 00065C 0065C 04F0B 1249 ORG 004F0B E388854086899385 1250 MJREXECNOTREGFILE DC C'The filename specified on the exec is not a reg' 004F3A A493819940868993 1251 DC C'ular file' 004F43 00 1252 DC X'00' 004F44 04F44 0065C 1253 ORG ETAB+(4*JRAPPCERRRECVINCOMP) 00065C 00004F44 1254 DC A(MJRAPPCERRRECVINCOMP) 000660 00660 04F44 1255 ORG 004F44 C19540C1D7D7C361 1256 MJRAPPCERRRECVINCOMP DC C'An APPC/MVS Receive_and_Wait error occurred.' 004F70 4040E38885408481 1257 DC C' The data is incomplete' 004F88 00 1258 DC X'00' 004F89 04F89 00660 1259 ORG ETAB+(4*JRFORKNOACCESS) 000660 00004F89 1260 DC A(MJRFORKNOACCESS) 000664 00664 04F89 1261 ORG 004F89 E388854083819393 1262 MJRFORKNOACCESS DC C'The call tried an unauthorized access to a fork c' 004FBA 8889938440A39981 1263 DC C'hild transaction program' 004FD2 00 1264 DC X'00' 004FD3 04FD3 00664 1265 ORG ETAB+(4*JRINACTIVE) 000664 00004FD3 1266 DC A(MJRINACTIVE) 000668 00668 04FD3 1267 ORG 004FD3 E3888540A5959684 1268 MJRINACTIVE DC C'The vnode operation inactive is not supported by the ' 005008 8689938540A2A8A2 1269 DC C'file system' 005013 00 1270 DC X'00' 005014 05014 00668 1271 ORG ETAB+(4*JRINVALIDMAJORNUMBER) 000668 00005014 1272 DC A(MJRINVALIDMAJORNUMBER) 00066C 0066C 05014 1273 ORG 005014 C38881998183A385 1274 MJRINVALIDMAJORNUMBER DC C'Character special file system detected an i' 00503F 95839699998583A3 1275 DC C'ncorrect device major number' 00505B 00 1276 DC X'00' 00505C 0505C 00670 1277 ORG ETAB+(4*JRRDANDWRTFORPIPE) 1STRREA OMVS_STR_REASON Page 30 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000670 0000505C 1278 DC A(MJRRDANDWRTFORPIPE) 000674 00674 0505C 1279 ORG 00505C E388854096978595 1280 MJRRDANDWRTFORPIPE DC C'The open call on a pipe was for read/write' 005086 00 1281 DC X'00' 005087 05087 0067C 1282 ORG ETAB+(4*JROPENFORWRITENOREADERS) 00067C 00005087 1283 DC A(MJROPENFORWRITENOREADERS) 000680 00680 05087 1284 ORG 005087 D697859540869699 1285 MJROPENFORWRITENOREADERS DC C'Open for write was done before any open ' 0050AF 8696994099858184 1286 DC C'for read' 0050B7 00 1287 DC X'00' 0050B8 050B8 00680 1288 ORG ETAB+(4*JRNOREADERS) 000680 000050B8 1289 DC A(MJRNOREADERS) 000684 00684 050B8 1290 ORG 0050B8 E3888540A28599A5 1291 MJRNOREADERS DC C'The service tried to write before any open for reads' 0050EC 00 1292 DC X'00' 0050ED 050ED 00684 1293 ORG ETAB+(4*JRINVPARMLENGTH) 000684 000050ED 1294 DC A(MJRINVPARMLENGTH) 000688 00688 050ED 1295 ORG 0050ED E388854097819981 1296 MJRINVPARMLENGTH DC C'The parameter length is incorrect or negative' 00511A 00 1297 DC X'00' 00511B 0511B 00694 1298 ORG ETAB+(4*JRBADADDRESS) 000694 0000511B 1299 DC A(MJRBADADDRESS) 000698 00698 0511B 1300 ORG 00511B C195408995839699 1301 MJRBADADDRESS DC C'An incorrect address was encountered when the syste' 00514E 9440A39989858440 1302 DC C'm tried to access data' 005164 00 1303 DC X'00' 005165 05165 0069C 1304 ORG ETAB+(4*JRSIGDURINGWAIT) 00069C 00005165 1305 DC A(MJRSIGDURINGWAIT) 0006A0 006A0 05165 1306 ORG 005165 C140A28987958193 1307 MJRSIGDURINGWAIT DC C'A signal occurred during a wait' 005184 00 1308 DC X'00' 005185 05185 006A8 1309 ORG ETAB+(4*JRRDNORWRTFORPIPE) 0006A8 00005185 1310 DC A(MJRRDNORWRTFORPIPE) 0006AC 006AC 05185 1311 ORG 005185 E388854096978595 1312 MJRRDNORWRTFORPIPE DC C'The open service on a pipe was for neither rea' 0051B3 844095969940A699 1313 DC C'd nor write' 0051BE 00 1314 DC X'00' 0051BF 051BF 006B0 1315 ORG ETAB+(4*JRNODATA) 0006B0 000051BF 1316 DC A(MJRNODATA) 0006B4 006B4 051BF 1317 ORG 0051BF E3888599854089A2 1318 MJRNODATA DC C'There is no data in this pipe' 0051DC 00 1319 DC X'00' 0051DD 051DD 006B4 1320 ORG ETAB+(4*JRUSERNOTAUTHORIZED) 0006B4 000051DD 1321 DC A(MJRUSERNOTAUTHORIZED) 0006B8 006B8 051DD 1322 ORG 0051DD E3888540A4A28599 1323 MJRUSERNOTAUTHORIZED DC C'The user is not authorized for the requested' 005209 4086899385408485 1324 DC C' file descriptor' 005219 00 1325 DC X'00' 00521A 0521A 006BC 1326 ORG ETAB+(4*JRFILEISBLOCKED) 0006BC 0000521A 1327 DC A(MJRFILEISBLOCKED) 0006C0 006C0 0521A 1328 ORG 00521A E388854086899385 1329 MJRFILEISBLOCKED DC C'The file is blocked' 00522D 00 1330 DC X'00' 00522E 0522E 006C0 1331 ORG ETAB+(4*JRIOCTL) 0006C0 0000522E 1332 DC A(MJRIOCTL) 1STRREA OMVS_STR_REASON Page 31 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00006C4 006C4 0522E 1333 ORG 00522E E3888540899683A3 1334 MJRIOCTL DC C'The ioctl service is not supported by this file system' 005264 00 1335 DC X'00' 005265 05265 006C4 1336 ORG ETAB+(4*JRINVALIDPID) 0006C4 00005265 1337 DC A(MJRINVALIDPID) 0006C8 006C8 05265 1338 ORG 005265 E388854097999683 1339 MJRINVALIDPID DC C'The process ID (PID) was not found, so the signal w' 005298 81A2409596A340A2 1340 DC C'as not sent' 0052A3 00 1341 DC X'00' 1342 AIF ('&SYSTEM_ID'(1,4) NE 'z/OS').NOTZOS1 1343 .NOTZOS1 ANOP 0052A4 052A4 006CC 1344 ORG ETAB+(4*JRINVRBSTATE) 0006CC 000052A4 1345 DC A(MJRINVRBSTATE) 0006D0 006D0 052A4 1346 ORG 0052A4 C381939381829385 1347 MJRINVRBSTATE DC C'Callable services cannot be nested' 0052C6 00 1348 DC X'00' 0052C7 052C7 006D0 1349 ORG ETAB+(4*JRWRONGINSTANCE) 0006D0 000052C7 1350 DC A(MJRWRONGINSTANCE) 0006D4 006D4 052C7 1351 ORG 0052C7 E388854097999683 1352 MJRWRONGINSTANCE DC C'The process is not known to current kernel insta' 0052F7 958385 1353 DC C'nce' 0052FA 00 1354 DC X'00' 0052FB 052FB 006D8 1355 ORG ETAB+(4*JRINVTERMSTAT) 0006D8 000052FB 1356 DC A(MJRINVTERMSTAT) 0006DC 006DC 052FB 1357 ORG 0052FB C195408995839699 1358 MJRINVTERMSTAT DC C'An incorrect process termination status was passed' 00532D 40A39640C2D7E7F1 1359 DC C' to BPX1MPC' 005338 00 1360 DC X'00' 005339 05339 006DC 1361 ORG ETAB+(4*JRACTIVETHREADS) 0006DC 00005339 1362 DC A(MJRACTIVETHREADS) 0006E0 006E0 05339 1363 ORG 005339 E388854097999683 1364 MJRACTIVETHREADS DC C'The process could not be terminated because ther' 005369 85408199854094A4 1365 DC C'e are multiple threads still running in the process.' 00539D 00 1366 DC X'00' 00539E 0539E 006E0 1367 ORG ETAB+(4*JRBADEXITSTATUSADDR) 0006E0 0000539E 1368 DC A(MJRBADEXITSTATUSADDR) 0006E4 006E4 0539E 1369 ORG 00539E C195408995839699 1370 MJRBADEXITSTATUSADDR DC C'An incorrect exit status address was passed ' 0053CA A39640A3888540A6 1371 DC C'to the wait call' 0053DA 00 1372 DC X'00' 0053DB 053DB 006E8 1373 ORG ETAB+(4*JRPROCESSENDING) 0006E8 000053DB 1374 DC A(MJRPROCESSENDING) 0006EC 006EC 053DB 1375 ORG 0053DB E388854083A49999 1376 MJRPROCESSENDING DC C'The current process is ending' 0053F8 00 1377 DC X'00' 0053F9 053F9 006EC 1378 ORG ETAB+(4*JRSIGNALSNOTBLOCKED) 0006EC 000053F9 1379 DC A(MJRSIGNALSNOTBLOCKED) 0006F0 006F0 053F9 1380 ORG 0053F9 E3888540A28599A5 1381 MJRSIGNALSNOTBLOCKED DC C'The service did not complete because signals' 005425 40819985409596A3 1382 DC C' are not blocked' 005435 00 1383 DC X'00' 005436 05436 006F0 1384 ORG ETAB+(4*JRFDTOOBIG) 0006F0 00005436 1385 DC A(MJRFDTOOBIG) 0006F4 006F4 05436 1386 ORG 005436 E3888540998598A4 1387 MJRFDTOOBIG DC C'The requested file descriptor exceeds the Open_max li' 1STRREA OMVS_STR_REASON Page 32 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000546B 9489A3 1388 DC C'mit' 00546E 00 1389 DC X'00' 00546F 0546F 006F4 1390 ORG ETAB+(4*JROPENMAX) 0006F4 0000546F 1391 DC A(MJROPENMAX) 0006F8 006F8 0546F 1392 ORG 00546F E38885409481A789 1393 MJROPENMAX DC C'The maximum number of open files for this process was ' 0054A5 99858183888584 1394 DC C'reached' 0054AC 00 1395 DC X'00' 0054AD 054AD 00700 1396 ORG ETAB+(4*JRIOBUFLENGTHINVALID) 000700 000054AD 1397 DC A(MJRIOBUFLENGTHINVALID) 000704 00704 054AD 1398 ORG 0054AD E3888540899597A4 1399 MJRIOBUFLENGTHINVALID DC C'The input argument buffer length was incorr' 0054D8 8583A3 1400 DC C'ect' 0054DB 00 1401 DC X'00' 0054DC 054DC 00704 1402 ORG ETAB+(4*JRINVALIDAMODE) 000704 000054DC 1403 DC A(MJRINVALIDAMODE) 000708 00708 054DC 1404 ORG 0054DC C195408995839699 1405 MJRINVALIDAMODE DC C'An incorrect access mode was specified on the acc' 00550D 85A2A240A28599A5 1406 DC C'ess service' 005518 00 1407 DC X'00' 005519 05519 00708 1408 ORG ETAB+(4*JRACCESS) 000708 00005519 1409 DC A(MJRACCESS) 00070C 0070C 05519 1410 ORG 005519 E388854081838385 1411 MJRACCESS DC C'The access vnode operation is not supported' 005544 00 1412 DC X'00' 005545 05545 00710 1413 ORG ETAB+(4*JRFSFAILCHDIR) 000710 00005545 1414 DC A(MJRFSFAILCHDIR) 000714 00714 05545 1415 ORG 005545 E388854084A48240 1416 MJRFSFAILCHDIR DC C'The dub failed, due to an error with the initial h' 005577 9694854084899985 1417 DC C'ome directory' 005584 00 1418 DC X'00' 005585 05585 0071C 1419 ORG ETAB+(4*JRBADAUDITOPTION) 00071C 00005585 1420 DC A(MJRBADAUDITOPTION) 000720 00720 05585 1421 ORG 005585 C195408995839699 1422 MJRBADAUDITOPTION DC C'An incorrect option code was specified for the ' 0055B4 838881A48489A340 1423 DC C'chaudit service' 0055C3 00 1424 DC X'00' 0055C4 055C4 00720 1425 ORG ETAB+(4*JREXECFILETOOBIG) 000720 000055C4 1426 DC A(MJREXECFILETOOBIG) 000724 00724 055C4 1427 ORG 0055C4 E3888540A289A985 1428 MJREXECFILETOOBIG DC C'The size of the specified file exceeds the priv' 0055F3 81A3854099858789 1429 DC C'ate region of the caller' 00560B 00 1430 DC X'00' 00560C 0560C 00724 1431 ORG ETAB+(4*JRINVALIDCURSOR) 000724 0000560C 1432 DC A(MJRINVALIDCURSOR) 000728 00728 0560C 1433 ORG 00560C E388854083A499A2 1434 MJRINVALIDCURSOR DC C'The cursor value passed to the w_getmntent call ' 00563C 89A2408995839699 1435 DC C'is incorrect' 005648 00 1436 DC X'00' 005649 05649 00728 1437 ORG ETAB+(4*JRPTYSLAVEOPENED) 000728 00005649 1438 DC A(MJRPTYSLAVEOPENED) 00072C 0072C 05649 1439 ORG 005649 E388854096978595 1440 MJRPTYSLAVEOPENED DC C'The open of the master pseudo-TTY failed, becau' 005678 A28540A388854081 1441 DC C'se the associated slave pseudo-TTY is still open' 0056A8 00 1442 DC X'00' 1STRREA OMVS_STR_REASON Page 33 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00056A9 056A9 0072C 1443 ORG ETAB+(4*JRPTYMINORINVALID) 00072C 000056A9 1444 DC A(MJRPTYMINORINVALID) 000730 00730 056A9 1445 ORG 0056A9 E38885408485A589 1446 MJRPTYMINORINVALID DC C'The device minor number is larger than the MAX' 0056D7 D7E3E8E240978199 1447 DC C'PTYS parameter in the BPXPRMxx member.' 0056FD 00 1448 DC X'00' 0056FE 056FE 00730 1449 ORG ETAB+(4*JRPTYALREADYACTIVE) 000730 000056FE 1450 DC A(MJRPTYALREADYACTIVE) 000734 00734 056FE 1451 ORG 0056FE E38885408485A589 1452 MJRPTYALREADYACTIVE DC C'The device minor number is already active' 005727 00 1453 DC X'00' 005728 05728 00734 1454 ORG ETAB+(4*JRSIGNALRECEIVED) 000734 00005728 1455 DC A(MJRSIGNALRECEIVED) 000738 00738 05728 1456 ORG 005728 E388854083819393 1457 MJRSIGNALRECEIVED DC C'The call was interrupted by a signal' 00574C 00 1458 DC X'00' 00574D 0574D 00738 1459 ORG ETAB+(4*JRPTYDIFFERENTUID) 000738 0000574D 1460 DC A(MJRPTYDIFFERENTUID) 00073C 0073C 0574D 1461 ORG 00574D E388854097999683 1462 MJRPTYDIFFERENTUID DC C'The process UID is different from the UID of t' 00577B 8885409799968385 1463 DC C'he process that opened the master pseudo-TTY' 0057A7 00 1464 DC X'00' 0057A8 057A8 0073C 1465 ORG ETAB+(4*JRPTYMASTERCLOSED) 00073C 000057A8 1466 DC A(MJRPTYMASTERCLOSED) 000740 00740 057A8 1467 ORG 0057A8 E3888599854089A2 1468 MJRPTYMASTERCLOSED DC C'There is no corresponding master pseudo-TTY fi' 0057D6 93854096978595 1469 DC C'le open' 0057DD 00 1470 DC X'00' 0057DE 057DE 00740 1471 ORG ETAB+(4*JRPTYDIFFERENTFILE) 000740 000057DE 1472 DC A(MJRPTYDIFFERENTFILE) 000744 00744 057DE 1473 ORG 0057DE C140A29381A58540 1474 MJRPTYDIFFERENTFILE DC C'A slave pseudo-TTY file for this minor number' 00580B 40A689A388408140 1475 DC C' with a different filename is already open' 005835 00 1476 DC X'00' 005836 05836 00748 1477 ORG ETAB+(4*JRPTYSLAVENOTINIT) 000748 00005836 1478 DC A(MJRPTYSLAVENOTINIT) 00074C 0074C 05836 1479 ORG 005836 E3888540A29381A5 1480 MJRPTYSLAVENOTINIT DC C'The slave pseudo-TTY support did not complete ' 005864 A2A4838385A2A286 1481 DC C'successfully' 005870 00 1482 DC X'00' 005871 05871 0074C 1483 ORG ETAB+(4*JRPTYINPUTSTOPPED) 00074C 00005871 1484 DC A(MJRPTYINPUTSTOPPED) 000750 00750 05871 1485 ORG 005871 E388854095969582 1486 MJRPTYINPUTSTOPPED DC C'The nonblocked write failed, because input is ' 00589F A2A39697978584 1487 DC C'stopped' 0058A6 00 1488 DC X'00' 0058A7 058A7 00754 1489 ORG ETAB+(4*JREOFALREADYSENT) 000754 000058A7 1490 DC A(MJREOFALREADYSENT) 000758 00758 058A7 1491 ORG 0058A7 E3888540A69989A3 1492 MJREOFALREADYSENT DC C'The write to the master pseudo-TTY failed, beca' 0058D6 A4A2854081939340 1493 DC C'use all slaves are closed and HUPCL was set' 005901 00 1494 DC X'00' 005902 05902 0075C 1495 ORG ETAB+(4*JRPTYORPHANEDWRITE) 00075C 00005902 1496 DC A(MJRPTYORPHANEDWRITE) 000760 00760 05902 1497 ORG 1STRREA OMVS_STR_REASON Page 34 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0005902 E3888540A69989A3 1498 MJRPTYORPHANEDWRITE DC C'The write service is processing in a backgrou' 00592F 95846B4096999788 1499 DC C'nd, orphaned process group' 005949 00 1500 DC X'00' 00594A 0594A 00760 1501 ORG ETAB+(4*JRPTYOUTPUTSTOPPED) 000760 0000594A 1502 DC A(MJRPTYOUTPUTSTOPPED) 000764 00764 0594A 1503 ORG 00594A E69989A385408381 1504 MJRPTYOUTPUTSTOPPED DC C'Write cannot be processed, because output has' 005977 40A2A39697978584 1505 DC C' stopped' 00597F 00 1506 DC X'00' 005980 05980 00768 1507 ORG ETAB+(4*JRPTYNODATA) 000768 00005980 1508 DC A(MJRPTYNODATA) 00076C 0076C 05980 1509 ORG 005980 C481A38140969940 1510 MJRPTYNODATA DC C'Data or room is not available on the queue' 0059AA 00 1511 DC X'00' 0059AB 059AB 0076C 1512 ORG ETAB+(4*JRPTYORPHANEDREAD) 00076C 000059AB 1513 DC A(MJRPTYORPHANEDREAD) 000770 00770 059AB 1514 ORG 0059AB E388854099858184 1515 MJRPTYORPHANEDREAD DC C'The read service is processing in a background' 0059D9 6B40969997888195 1516 DC C', orphaned process group' 0059F1 00 1517 DC X'00' 0059F2 059F2 00770 1518 ORG ETAB+(4*JRPTYSIGTTINBLOCKED) 000770 000059F2 1519 DC A(MJRPTYSIGTTINBLOCKED) 000774 00774 059F2 1520 ORG 0059F2 E388854097999683 1521 MJRPTYSIGTTINBLOCKED DC C'The process is in a background process group' 005A1E 4081958440E2C9C7 1522 DC C' and SIGTTIN is blocked or ignored' 005A40 00 1523 DC X'00' 005A41 05A41 00774 1524 ORG ETAB+(4*JRPTYNOBUFSTORAGE) 000774 00005A41 1525 DC A(MJRPTYNOBUFSTORAGE) 000778 00778 05A41 1526 ORG 005A41 E2A3969981878540 1527 MJRPTYNOBUFSTORAGE DC C'Storage is not available for pseudo-TTY buffer' 005A6F A2 1528 DC C's' 005A70 00 1529 DC X'00' 005A71 05A71 00780 1530 ORG ETAB+(4*JRPTATTEMPTEDCRSTORE) 000780 00005A71 1531 DC A(MJRPTATTEMPTEDCRSTORE) 000784 00784 05A71 1532 ORG 005A71 D7A3998183854081 1533 MJRPTATTEMPTEDCRSTORE DC C'Ptrace attempted to store into a control re' 005A9C 8789A2A38599 1534 DC C'gister' 005AA2 00 1535 DC X'00' 005AA3 05AA3 00784 1536 ORG ETAB+(4*JRPTATTEMPTEDPSW0STORE) 000784 00005AA3 1537 DC A(MJRPTATTEMPTEDPSW0STORE) 000788 00788 05AA3 1538 ORG 005AA3 D7A3998183854081 1539 MJRPTATTEMPTEDPSW0STORE DC C'Ptrace attempted to store into the left h' 005ACC 81938640968640D7 1540 DC C'alf of PSW' 005AD6 00 1541 DC X'00' 005AD7 05AD7 0078C 1542 ORG ETAB+(4*JRPTDBDEQUALSDBR) 00078C 00005AD7 1543 DC A(MJRPTDBDEQUALSDBR) 000790 00790 05AD7 1544 ORG 005AD7 E388854097A39981 1545 MJRPTDBDEQUALSDBR DC C'The ptrace debugger process ID (PID) is the sam' 005B06 854081A240A38885 1546 DC C'e as the debugged PID' 005B1B 00 1547 DC X'00' 005B1C 05B1C 00790 1548 ORG ETAB+(4*JRPTDBDPARENTTERM) 000790 00005B1C 1549 DC A(MJRPTDBDPARENTTERM) 000794 00794 05B1C 1550 ORG 005B1C E388854097A39981 1551 MJRPTDBDPARENTTERM DC C'The ptrace debugged parent (debugger) ended' 005B47 00 1552 DC X'00' 1STRREA OMVS_STR_REASON Page 35 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0005B48 05B48 00794 1553 ORG ETAB+(4*JRPTDBDPIDNOTFOUND) 000794 00005B48 1554 DC A(MJRPTDBDPIDNOTFOUND) 000798 00798 05B48 1555 ORG 005B48 E388854097A39981 1556 MJRPTDBDPIDNOTFOUND DC C'The ptrace target debugged process ID (PID) i' 005B75 A240899583969999 1557 DC C's incorrect' 005B80 00 1558 DC X'00' 005B81 05B81 00798 1559 ORG ETAB+(4*JRPTDBRPIDNOTFOUND) 000798 00005B81 1560 DC A(MJRPTDBRPIDNOTFOUND) 00079C 0079C 05B81 1561 ORG 005B81 E388854097A39981 1562 MJRPTDBRPIDNOTFOUND DC C'The ptrace debugger ended' 005B9A 00 1563 DC X'00' 005B9B 05B9B 0079C 1564 ORG ETAB+(4*JRPTDBRZOMBIE) 00079C 00005B9B 1565 DC A(MJRPTDBRZOMBIE) 0007A0 007A0 05B9B 1566 ORG 005B9B D7A3998183854084 1567 MJRPTDBRZOMBIE DC C'Ptrace debugger is ending' 005BB4 00 1568 DC X'00' 005BB5 05BB5 007A0 1569 ORG ETAB+(4*JRPTINVCALLINGMODE) 0007A0 00005BB5 1570 DC A(MJRPTINVCALLINGMODE) 0007A4 007A4 05BB5 1571 ORG 005BB5 E388854097A39981 1572 MJRPTINVCALLINGMODE DC C'The ptrace caller mode is incorrect' 005BD8 00 1573 DC X'00' 005BD9 05BD9 007A4 1574 ORG ETAB+(4*JRPTINVDBDADDRESS) 0007A4 00005BD9 1575 DC A(MJRPTINVDBDADDRESS) 0007A8 007A8 05BD9 1576 ORG 005BD9 C195408995839699 1577 MJRPTINVDBDADDRESS DC C'An incorrect address was supplied for the debu' 005C07 8787858440979996 1578 DC C'gged process' 005C13 00 1579 DC X'00' 005C14 05C14 007A8 1580 ORG ETAB+(4*JRPTINVDBRADDRESS) 0007A8 00005C14 1581 DC A(MJRPTINVDBRADDRESS) 0007AC 007AC 05C14 1582 ORG 005C14 C195408995839699 1583 MJRPTINVDBRADDRESS DC C'An incorrect address was supplied for the debu' 005C42 8787859940979996 1584 DC C'gger process' 005C4E 00 1585 DC X'00' 005C4F 05C4F 007AC 1586 ORG ETAB+(4*JRPTINVFPRNUMBER) 0007AC 00005C4F 1587 DC A(MJRPTINVFPRNUMBER) 0007B0 007B0 05C4F 1588 ORG 005C4F E388854097A39981 1589 MJRPTINVFPRNUMBER DC C'The ptrace call has an incorrect floating point' 005C7E 4099858789A2A385 1590 DC C' register number' 005C8E 00 1591 DC X'00' 005C8F 05C8F 007B0 1592 ORG ETAB+(4*JRPTINVGPRNUMBER) 0007B0 00005C8F 1593 DC A(MJRPTINVGPRNUMBER) 0007B4 007B4 05C8F 1594 ORG 005C8F E388854097A39981 1595 MJRPTINVGPRNUMBER DC C'The ptrace call has an incorrect general regist' 005CBE 85994095A4948285 1596 DC C'er number' 005CC7 00 1597 DC X'00' 005CC8 05CC8 007B4 1598 ORG ETAB+(4*JRPTINVLENGTH) 0007B4 00005CC8 1599 DC A(MJRPTINVLENGTH) 0007B8 007B8 05CC8 1600 ORG 005CC8 E388854097A39981 1601 MJRPTINVLENGTH DC C'The ptrace length is incorrect' 005CE6 00 1602 DC X'00' 005CE7 05CE7 007B8 1603 ORG ETAB+(4*JRPTINVNUMBERTHREADS) 0007B8 00005CE7 1604 DC A(MJRPTINVNUMBERTHREADS) 0007BC 007BC 05CE7 1605 ORG 005CE7 E388854097A39981 1606 MJRPTINVNUMBERTHREADS DC C'The ptrace target process has no threads ' 005D12 404040 1607 DC C' ' 1STRREA OMVS_STR_REASON Page 36 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0005D15 00 1608 DC X'00' 005D16 05D16 007BC 1609 ORG ETAB+(4*JRPTINVPTRACESTATE) 0007BC 00005D16 1610 DC A(MJRPTINVPTRACESTATE) 0007C0 007C0 05D16 1611 ORG 005D16 E388854097A39981 1612 MJRPTINVPTRACESTATE DC C'The ptrace mode of target process is incorrec' 005D43 A3 1613 DC C't' 005D44 00 1614 DC X'00' 005D45 05D45 007C0 1615 ORG ETAB+(4*JRPTINVREQUEST) 0007C0 00005D45 1616 DC A(MJRPTINVREQUEST) 0007C4 007C4 05D45 1617 ORG 005D45 E388854097A39981 1618 MJRPTINVREQUEST DC C'The ptrace request was not valid' 005D65 00 1619 DC X'00' 005D66 05D66 007C4 1620 ORG ETAB+(4*JRPTINVSIGNALNUMBER) 0007C4 00005D66 1621 DC A(MJRPTINVSIGNALNUMBER) 0007C8 007C8 05D66 1622 ORG 005D66 E388854097A39981 1623 MJRPTINVSIGNALNUMBER DC C'The ptrace service does not have a valid sig' 005D92 9581934095A49482 1624 DC C'nal number' 005D9C 00 1625 DC X'00' 005D9D 05D9D 007C8 1626 ORG ETAB+(4*JRPTINVUAREAOFFSET) 0007C8 00005D9D 1627 DC A(MJRPTINVUAREAOFFSET) 0007CC 007CC 05D9D 1628 ORG 005D9D E388854097A39981 1629 MJRPTINVUAREAOFFSET DC C'The ptrace service does not have a valid offs' 005DCA 85A3408995A39640 1630 DC C'et into the user area' 005DDF 00 1631 DC X'00' 005DE0 05DE0 007CC 1632 ORG ETAB+(4*JRPTOLDDBRPIDNOTFOUND) 0007CC 00005DE0 1633 DC A(MJRPTOLDDBRPIDNOTFOUND) 0007D0 007D0 05DE0 1634 ORG 005DE0 E388854097A39981 1635 MJRPTOLDDBRPIDNOTFOUND DC C'The ptrace original debugger ended' 005E02 00 1636 DC X'00' 005E03 05E03 007D4 1637 ORG ETAB+(4*JRPTPROCESSNOTPTRACED) 0007D4 00005E03 1638 DC A(MJRPTPROCESSNOTPTRACED) 0007D8 007D8 05E03 1639 ORG 005E03 E388854097A39981 1640 MJRPTPROCESSNOTPTRACED DC C'The ptrace target process is not in ptrace' 005E2D 4094968485 1641 DC C' mode' 005E32 00 1642 DC X'00' 005E33 05E33 007D8 1643 ORG ETAB+(4*JRPTPROCESSNOTSTOPPED) 0007D8 00005E33 1644 DC A(MJRPTPROCESSNOTSTOPPED) 0007DC 007DC 05E33 1645 ORG 005E33 E388854097A39981 1646 MJRPTPROCESSNOTSTOPPED DC C'The ptrace target process was not stopped ' 005E5D 8696994097A39981 1647 DC C'for ptrace' 005E67 00 1648 DC X'00' 005E68 05E68 007DC 1649 ORG ETAB+(4*JRPTPROCESSTERM) 0007DC 00005E68 1650 DC A(MJRPTPROCESSTERM) 0007E0 007E0 05E68 1651 ORG 005E68 E388854097A39981 1652 MJRPTPROCESSTERM DC C'The ptrace target process ended' 005E87 00 1653 DC X'00' 005E88 05E88 007E4 1654 ORG ETAB+(4*JRPTRESTRICTEDPROCESS) 0007E4 00005E88 1655 DC A(MJRPTRESTRICTEDPROCESS) 0007E8 007E8 05E88 1656 ORG 005E88 E388854097A39981 1657 MJRPTRESTRICTEDPROCESS DC C'The ptrace target process is restricted fr' 005EB2 969440848582A487 1658 DC C'om debugging' 005EBE 00 1659 DC X'00' 005EBF 05EBF 007E8 1660 ORG ETAB+(4*JRPTSIGINTERRUPT) 0007E8 00005EBF 1661 DC A(MJRPTSIGINTERRUPT) 0007EC 007EC 05EBF 1662 ORG 1STRREA OMVS_STR_REASON Page 37 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0005EBF E388854097A39981 1663 MJRPTSIGINTERRUPT DC C'The ptrace request was interrupted by a signal ' 005EEE 86969940A3888540 1664 DC C'for the debugger' 005EFE 00 1665 DC X'00' 005EFF 05EFF 007F4 1666 ORG ETAB+(4*JREXECPARMERR) 0007F4 00005EFF 1667 DC A(MJREXECPARMERR) 0007F8 007F8 05EFF 1668 ORG 005EFF C195408599999699 1669 MJREXECPARMERR DC C'An error occurred when copying parameters passed t' 005F31 9640A388854085A7 1670 DC C'o the exec service' 005F43 00 1671 DC X'00' 005F44 05F44 007F8 1672 ORG ETAB+(4*JRCHOWNTOPIPE) 0007F8 00005F44 1673 DC A(MJRCHOWNTOPIPE) 0007FC 007FC 05F44 1674 ORG 005F44 E388854086838896 1675 MJRCHOWNTOPIPE DC C'The fchown service was issued against a pipe' 005F70 00 1676 DC X'00' 005F71 05F71 007FC 1677 ORG ETAB+(4*JRCHAUDTOPIPE) 0007FC 00005F71 1678 DC A(MJRCHAUDTOPIPE) 000800 00800 05F71 1679 ORG 005F71 E388854086838881 1680 MJRCHAUDTOPIPE DC C'The fchaudit service was issued against a pipe' 005F9F 00 1681 DC X'00' 005FA0 05FA0 00804 1682 ORG ETAB+(4*JRBADRBSTATE) 000804 00005FA0 1683 DC A(MJRBADRBSTATE) 000808 00808 05FA0 1684 ORG 005FA0 E388854083819393 1685 MJRBADRBSTATE DC C'The caller apos.s request block state was incorrect' 005FD3 00 1686 DC X'00' 005FD4 05FD4 0080C 1687 ORG ETAB+(4*JRINVALIDSIGPROC) 00080C 00005FD4 1688 DC A(MJRINVALIDSIGPROC) 000810 00810 05FD4 1689 ORG 005FD4 E38885409481A292 1690 MJRINVALIDSIGPROC DC C'The mask address was incorrect' 005FF2 00 1691 DC X'00' 005FF3 05FF3 00810 1692 ORG ETAB+(4*JRBADALET) 000810 00005FF3 1693 DC A(MJRBADALET) 000814 00814 05FF3 1694 ORG 005FF3 C195408995839699 1695 MJRBADALET DC C'An incorrect ALET was given as input' 006017 00 1696 DC X'00' 006018 06018 00818 1697 ORG ETAB+(4*JRQUIESCING) 000818 00006018 1698 DC A(MJRQUIESCING) 00081C 0081C 06018 1699 ORG 006018 E388854083819393 1700 MJRQUIESCING DC C'The call did not complete. The file system is unmou' 00604C 95A3899587 1701 DC C'nting' 006051 00 1702 DC X'00' 006052 06052 0081C 1703 ORG ETAB+(4*JRPTYINVALIDACTION) 00081C 00006052 1704 DC A(MJRPTYINVALIDACTION) 000820 00820 06052 1705 ORG 006052 E38885408183A389 1706 MJRPTYINVALIDACTION DC C'The action code is incorrect' 00606E 00 1707 DC X'00' 00606F 0606F 00820 1708 ORG ETAB+(4*JRPTYINVALIDCCFLAG) 000820 0000606F 1709 DC A(MJRPTYINVALIDCCFLAG) 000824 00824 0606F 1710 ORG 00606F E3888540836D8386 1711 MJRPTYINVALIDCCFLAG DC C'The c_cflag bits are incorrect' 00608D 00 1712 DC X'00' 00608E 0608E 00824 1713 ORG ETAB+(4*JRPTYINVALIDCLFLAG) 000824 0000608E 1714 DC A(MJRPTYINVALIDCLFLAG) 000828 00828 0608E 1715 ORG 00608E E3888540836D9386 1716 MJRPTYINVALIDCLFLAG DC C'The c_lflag bits are incorrect' 0060AC 00 1717 DC X'00' 1STRREA OMVS_STR_REASON Page 38 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00060AD 060AD 00828 1718 ORG ETAB+(4*JRPTYINVALIDCIFLAG) 000828 000060AD 1719 DC A(MJRPTYINVALIDCIFLAG) 00082C 0082C 060AD 1720 ORG 0060AD E3888540836D8986 1721 MJRPTYINVALIDCIFLAG DC C'The c_iflag bits are incorrect' 0060CB 00 1722 DC X'00' 0060CC 060CC 0082C 1723 ORG ETAB+(4*JRPTYINVALIDCOFLAG) 00082C 000060CC 1724 DC A(MJRPTYINVALIDCOFLAG) 000830 00830 060CC 1725 ORG 0060CC E3888540836D9686 1726 MJRPTYINVALIDCOFLAG DC C'The c_oflag bits are incorrect' 0060EA 00 1727 DC X'00' 0060EB 060EB 00830 1728 ORG ETAB+(4*JRPTYINVALIDOUTBAUD) 000830 000060EB 1729 DC A(MJRPTYINVALIDOUTBAUD) 000834 00834 060EB 1730 ORG 0060EB E388854096A4A397 1731 MJRPTYINVALIDOUTBAUD DC C'The output baud rate is incorrect' 00610C 00 1732 DC X'00' 00610D 0610D 00834 1733 ORG ETAB+(4*JRPTYINVALIDINBAUD) 000834 0000610D 1734 DC A(MJRPTYINVALIDINBAUD) 000838 00838 0610D 1735 ORG 00610D E3888540899597A4 1736 MJRPTYINVALIDINBAUD DC C'The input baud rate is incorrect' 00612D 00 1737 DC X'00' 00612E 0612E 00838 1738 ORG ETAB+(4*JRPTYBGCALL) 000838 0000612E 1739 DC A(MJRPTYBGCALL) 00083C 0083C 0612E 1740 ORG 00612E E38889A24089A240 1741 MJRPTYBGCALL DC C'This is a background process' 00614A 00 1742 DC X'00' 00614B 0614B 0083C 1743 ORG ETAB+(4*JRINVIOCTLCMD) 00083C 0000614B 1744 DC A(MJRINVIOCTLCMD) 000840 00840 0614B 1745 ORG 00614B E3888540899597A4 1746 MJRINVIOCTLCMD DC C'The input command value is incorrect' 00616F 00 1747 DC X'00' 006170 06170 00840 1748 ORG ETAB+(4*JRPTYNOCNTLTERM) 000840 00006170 1749 DC A(MJRPTYNOCNTLTERM) 000844 00844 06170 1750 ORG 006170 E388854083819393 1751 MJRPTYNOCNTLTERM DC C'The caller has no controlling terminal' 006196 00 1752 DC X'00' 006197 06197 00844 1753 ORG ETAB+(4*JRPTYDIFFSESSION) 000844 00006197 1754 DC A(MJRPTYDIFFSESSION) 000848 00848 06197 1755 ORG 006197 E38889A24089A240 1756 MJRPTYDIFFSESSION DC C'This is not the caller apos.s controlling termi' 0061C6 958193 1757 DC C'nal' 0061C9 00 1758 DC X'00' 0061CA 061CA 0085C 1759 ORG ETAB+(4*JRPTEDISAUTHORIZED) 00085C 000061CA 1760 DC A(MJRPTEDISAUTHORIZED) 000860 00860 061CA 1761 ORG 0061CA E388854097A39981 1762 MJRPTEDISAUTHORIZED DC C'The ptrace debugged process is running in sup' 0061F7 8599A589A2969940 1763 DC C'ervisor state' 006204 00 1764 DC X'00' 006205 06205 00864 1765 ORG ETAB+(4*JRPTLDBUFFERTOOSMALL) 000864 00006205 1766 DC A(MJRPTLDBUFFERTOOSMALL) 000868 00868 06205 1767 ORG 006205 E388854097A39981 1768 MJRPTLDBUFFERTOOSMALL DC C'The ptrace loader information request buffe' 006230 994089A240A39696 1769 DC C'r is too small' 00623E 00 1770 DC X'00' 00623F 0623F 0086C 1771 ORG ETAB+(4*JRPTDBRPARENTEQUALSDBD) 00086C 0000623F 1772 DC A(MJRPTDBRPARENTEQUALSDBD) 1STRREA OMVS_STR_REASON Page 39 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000870 00870 0623F 1773 ORG 00623F E388854097A39981 1774 MJRPTDBRPARENTEQUALSDBD DC C'The ptrace debugger parent PID is the sam' 006268 854081A240848582 1775 DC C'e as debugged PID' 006279 00 1776 DC X'00' 00627A 0627A 00870 1777 ORG ETAB+(4*JRPTYNOTPGLEADER) 000870 0000627A 1778 DC A(MJRPTYNOTPGLEADER) 000874 00874 0627A 1779 ORG 00627A E388854097999683 1780 MJRPTYNOTPGLEADER DC C'The process is not a process group leader' 0062A3 00 1781 DC X'00' 0062A4 062A4 00874 1782 ORG ETAB+(4*JRPTYNOTSLAVE) 000874 000062A4 1783 DC A(MJRPTYNOTSLAVE) 000878 00878 062A4 1784 ORG 0062A4 E495A2A497979699 1785 MJRPTYNOTSLAVE DC C'Unsupported function against master TTY' 0062CB 00 1786 DC X'00' 0062CC 062CC 00878 1787 ORG ETAB+(4*JRPTYBADQUESEL) 000878 000062CC 1788 DC A(MJRPTYBADQUESEL) 00087C 0087C 062CC 1789 ORG 0062CC E388854098A485A4 1790 MJRPTYBADQUESEL DC C'The queue selector is not valid' 0062EB 00 1791 DC X'00' 0062EC 062EC 0087C 1792 ORG ETAB+(4*JRPTYNOSESSLEADER) 00087C 000062EC 1793 DC A(MJRPTYNOSESSLEADER) 000880 00880 062EC 1794 ORG 0062EC E3888540A2A8A2A3 1795 MJRPTYNOSESSLEADER DC C'The system is unable to locate the session lea' 00631A 848599 1796 DC C'der' 00631D 00 1797 DC X'00' 00631E 0631E 00880 1798 ORG ETAB+(4*JRNOCTTY) 000880 0000631E 1799 DC A(MJRNOCTTY) 000884 00884 0631E 1800 ORG 00631E E3888599854089A2 1801 MJRNOCTTY DC C'There is no controlling terminal for this process' 00634F 00 1802 DC X'00' 006350 06350 00884 1803 ORG ETAB+(4*JRPTYHUPCLCLOSE) 000884 00006350 1804 DC A(MJRPTYHUPCLCLOSE) 000888 00888 06350 1805 ORG 006350 E3888540A29381A5 1806 MJRPTYHUPCLCLOSE DC C'The slave pseudo-TTY file was previously closed ' 006380 A689A38840A38885 1807 DC C'with the termios HUPCL flag set' 00639F 00 1808 DC X'00' 0063A0 063A0 00888 1809 ORG ETAB+(4*JRFSINUSE) 000888 000063A0 1810 DC A(MJRFSINUSE) 00088C 0088C 063A0 1811 ORG 0063A0 E3888540998598A4 1812 MJRFSINUSE DC C'The requested file system is still in use' 0063C9 00 1813 DC X'00' 0063CA 063CA 0088C 1814 ORG ETAB+(4*JRPTYINVALIDPGID) 00088C 000063CA 1815 DC A(MJRPTYINVALIDPGID) 000890 00890 063CA 1816 ORG 0063CA E3888540998598A4 1817 MJRPTYINVALIDPGID DC C'The requested process group ID is not valid' 0063F5 00 1818 DC X'00' 0063F6 063F6 00890 1819 ORG ETAB+(4*JRPTYNOTINSESSION) 000890 000063F6 1820 DC A(MJRPTYNOTINSESSION) 000894 00894 063F6 1821 ORG 0063F6 E388854097999683 1822 MJRPTYNOTINSESSION DC C'The process group ID (PGID) does not exist in ' 006424 A388854083819393 1823 DC C'the caller apos.s session' 00643D 00 1824 DC X'00' 00643E 0643E 00894 1825 ORG ETAB+(4*JRBRLMNOTACTIVE) 000894 0000643E 1826 DC A(MJRBRLMNOTACTIVE) 000898 00898 0643E 1827 ORG 1STRREA OMVS_STR_REASON Page 40 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000643E E388854082A8A385 1828 MJRBRLMNOTACTIVE DC C'The byte-range lock manager is not active' 006467 00 1829 DC X'00' 006468 06468 00898 1830 ORG ETAB+(4*JRBRLMFILELOCKRECYCLING) 000898 00006468 1831 DC A(MJRBRLMFILELOCKRECYCLING) 00089C 0089C 06468 1832 ORG 006468 C689938540939683 1833 MJRBRLMFILELOCKRECYCLING DC C'File lock is being recycled. Do not use ' 006490 A495A3899340A388 1834 DC C'until the file is closed by all users' 0064B5 00 1835 DC X'00' 0064B6 064B6 0089C 1836 ORG ETAB+(4*JRBRLMBADFILETYPE) 00089C 000064B6 1837 DC A(MJRBRLMBADFILETYPE) 0008A0 008A0 064B6 1838 ORG 0064B6 C2A8A38560998195 1839 MJRBRLMBADFILETYPE DC C'Byte-range locking can be performed only on re' 0064E4 87A4938199408689 1840 DC C'gular files' 0064EF 00 1841 DC X'00' 0064F0 064F0 008A0 1842 ORG ETAB+(4*JRBRLMNOREADACCESS) 0008A0 000064F0 1843 DC A(MJRBRLMNOREADACCESS) 0008A4 008A4 064F0 1844 ORG 0064F0 E288819985844082 1845 MJRBRLMNOREADACCESS DC C'Shared byte-range locks are only for files op' 00651D 8595408696994099 1846 DC C'en for read' 006528 00 1847 DC X'00' 006529 06529 008A4 1848 ORG ETAB+(4*JRBRLMNOWRITEACCESS) 0008A4 00006529 1849 DC A(MJRBRLMNOWRITEACCESS) 0008A8 008A8 06529 1850 ORG 006529 C5A78393A4A289A5 1851 MJRBRLMNOWRITEACCESS DC C'Exclusive byte-range locks are only for file' 006555 A240969785954086 1852 DC C's open for write' 006565 00 1853 DC X'00' 006566 06566 008A8 1854 ORG ETAB+(4*JRBRLMBADL_TYPE) 0008A8 00006566 1855 DC A(MJRBRLMBADL_TYPE) 0008AC 008AC 06566 1856 ORG 006566 C14082A8A3856099 1857 MJRBRLMBADL_TYPE DC C'A byte-range lock request specified an l_type th' 006596 81A34089A2409596 1858 DC C'at is not valid' 0065A5 00 1859 DC X'00' 0065A6 065A6 008AC 1860 ORG ETAB+(4*JRBRLMINVALIDRANGE) 0008AC 000065A6 1861 DC A(MJRBRLMINVALIDRANGE) 0008B0 008B0 065A6 1862 ORG 0065A6 C14082A8A3856099 1863 MJRBRLMINVALIDRANGE DC C'A byte-range lock extends to before the start' 0065D3 40968640A3888540 1864 DC C' of the file' 0065DF 00 1865 DC X'00' 0065E0 065E0 008B0 1866 ORG ETAB+(4*JRBRLMBADL_WHENCE) 0008B0 000065E0 1867 DC A(MJRBRLMBADL_WHENCE) 0008B4 008B4 065E0 1868 ORG 0065E0 C14082A8A3856099 1869 MJRBRLMBADL_WHENCE DC C'A byte-range lock request specified an l_whenc' 00660E 8540A38881A34089 1870 DC C'e that is not valid' 006621 00 1871 DC X'00' 006622 06622 008B8 1872 ORG ETAB+(4*JRBRLMRANGENOTAVAILABLE) 0008B8 00006622 1873 DC A(MJRBRLMRANGENOTAVAILABLE) 0008BC 008BC 06622 1874 ORG 006622 C193934096994097 1875 MJRBRLMRANGENOTAVAILABLE DC C'All or part of requested range is held b' 00664A A840819596A38885 1876 DC C'y another user' 006658 00 1877 DC X'00' 006659 06659 008BC 1878 ORG ETAB+(4*JRBRLMDEADLOCKDETECTED) 0008BC 00006659 1879 DC A(MJRBRLMDEADLOCKDETECTED) 0008C0 008C0 06659 1880 ORG 006659 E68189A389958740 1881 MJRBRLMDEADLOCKDETECTED DC C'Waiting on the specified range causes a d' 006682 85818493968392 1882 DC C'eadlock' 1STRREA OMVS_STR_REASON Page 41 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0006689 00 1883 DC X'00' 00668A 0668A 008C0 1884 ORG ETAB+(4*JRBRLMSIGNALPOSTED) 0008C0 0000668A 1885 DC A(MJRBRLMSIGNALPOSTED) 0008C4 008C4 0668A 1886 ORG 00668A E68889938540A388 1887 MJRBRLMSIGNALPOSTED DC C'While the process was waiting for a byte-rang' 0066B7 8540939683926B40 1888 DC C'e lock, a signal was posted' 0066D2 00 1889 DC X'00' 0066D3 066D3 008D0 1890 ORG ETAB+(4*JRBRLMBADL_LEN) 0008D0 000066D3 1891 DC A(MJRBRLMBADL_LEN) 0008D4 008D4 066D3 1892 ORG 0066D3 C14082A8A3856099 1893 MJRBRLMBADL_LEN DC C'A byte-range lock request specified an incorrect ' 006704 936D938595 1894 DC C'l_len' 006709 00 1895 DC X'00' 00670A 0670A 008D8 1896 ORG ETAB+(4*JRREADUSERSTORAGEFAILED) 0008D8 0000670A 1897 DC A(MJRREADUSERSTORAGEFAILED) 0008DC 008DC 0670A 1898 ORG 00670A C140998581844085 1899 MJRREADUSERSTORAGEFAILED DC C'A read error occurred on the user data a' 006732 998581409781A2A2 1900 DC C'rea passed to the service' 00674B 00 1901 DC X'00' 00674C 0674C 008DC 1902 ORG ETAB+(4*JRWRITEUSERSTORAGEFAILED) 0008DC 0000674C 1903 DC A(MJRWRITEUSERSTORAGEFAILED) 0008E0 008E0 0674C 1904 ORG 00674C C140A69989A38540 1905 MJRWRITEUSERSTORAGEFAILED DC C'A write error occurred on the user data' 006773 4081998581409781 1906 DC C' area passed to the service' 00678E 00 1907 DC X'00' 00678F 0678F 008E4 1908 ORG ETAB+(4*JRBRLMALREADYWAITING) 0008E4 0000678F 1909 DC A(MJRBRLMALREADYWAITING) 0008E8 008E8 0678F 1910 ORG 00678F D98598A485A2A340 1911 MJRBRLMALREADYWAITING DC C'Request includes a range already being wait' 0067BA 8584409695 1912 DC C'ed on' 0067BF 00 1913 DC X'00' 0067C0 067C0 008E8 1914 ORG ETAB+(4*JRBRLMPROMOTEPENDING) 0008E8 000067C0 1915 DC A(MJRBRLMPROMOTEPENDING) 0008EC 008EC 067C0 1916 ORG 0067C0 C19596A388859940 1917 MJRBRLMPROMOTEPENDING DC C'Another user is waiting to promote the requ' 0067EB 85A2A38584409981 1918 DC C'ested range' 0067F6 00 1919 DC X'00' 0067F7 067F7 008EC 1920 ORG ETAB+(4*JRPTYNOPTYRSTORAGE) 0008EC 000067F7 1921 DC A(MJRPTYNOPTYRSTORAGE) 0008F0 008F0 067F7 1922 ORG 0067F7 E3888599854089A2 1923 MJRPTYNOPTYRSTORAGE DC C'There is not enough storage in the kernel add' 006824 9985A2A240A29781 1924 DC C'ress space' 00682E 00 1925 DC X'00' 00682F 0682F 008F0 1926 ORG ETAB+(4*JRBRLMPROCESSBROKEN) 0008F0 0000682F 1927 DC A(MJRBRLMPROCESSBROKEN) 0008F4 008F4 0682F 1928 ORG 00682F E38889A240979996 1929 MJRBRLMPROCESSBROKEN DC C'This process has been marked broken for byte' 00685B 4093968392899587 1930 DC C' locking' 006863 00 1931 DC X'00' 006864 06864 008F4 1932 ORG ETAB+(4*JRPTYCONNECTIONINOP) 0008F4 00006864 1933 DC A(MJRPTYCONNECTIONINOP) 0008F8 008F8 06864 1934 ORG 006864 E388854097A285A4 1935 MJRPTYCONNECTIONINOP DC C'The pseudo-TTY connection is inoperative' 00688C 00 1936 DC X'00' 00688D 0688D 00900 1937 ORG ETAB+(4*JRBRLMUNLOCKWHILEWAIT) 1STRREA OMVS_STR_REASON Page 42 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000900 0000688D 1938 DC A(MJRBRLMUNLOCKWHILEWAIT) 000904 00904 0688D 1939 ORG 00688D E3888540A4959396 1940 MJRBRLMUNLOCKWHILEWAIT DC C'The unlock service is not valid while the ' 0068B7 9799968385A2A240 1941 DC C'process is waiting for a lock' 0068D4 00 1942 DC X'00' 0068D5 068D5 00904 1943 ORG ETAB+(4*JRBRLMOBJANDPROCBROKEN) 000904 000068D5 1944 DC A(MJRBRLMOBJANDPROCBROKEN) 000908 00908 068D5 1945 ORG 0068D5 E388854096829185 1946 MJRBRLMOBJANDPROCBROKEN DC C'The object and process are marked broken ' 0068FE 8696994082A8A385 1947 DC C'for byte locking' 00690E 00 1948 DC X'00' 00690F 0690F 00910 1949 ORG ETAB+(4*JRFD2TOOSMALL) 000910 0000690F 1950 DC A(MJRFD2TOOSMALL) 000914 00914 0690F 1951 ORG 00690F E3888540A2858396 1952 MJRFD2TOOSMALL DC C'The second file descriptor cannot be smaller than ' 006941 A3888540868999A2 1953 DC C'the first' 00694A 00 1954 DC X'00' 00694B 0694B 00918 1955 ORG ETAB+(4*JRNOTAUTHORIZED) 000918 0000694B 1956 DC A(MJRNOTAUTHORIZED) 00091C 0091C 0694B 1957 ORG 00694B E49581A4A3889699 1958 MJRNOTAUTHORIZED DC C'Unauthorized caller of BPX1PTC in an authorized ' 00697B 8595A58999969594 1959 DC C'environment' 006986 00 1960 DC X'00' 006987 06987 00928 1961 ORG ETAB+(4*JRPTATEYE) 000928 00006987 1962 DC A(MJRPTATEYE) 00092C 0092C 06987 1963 ORG 006987 E388854097A38899 1964 MJRPTATEYE DC C'The pthread attribute area contains an incorrect eyeca' 0069BD A383888599 1965 DC C'tcher' 0069C2 00 1966 DC X'00' 0069C3 069C3 0092C 1967 ORG ETAB+(4*JRPTATADDRERROR) 00092C 000069C3 1968 DC A(MJRPTATADDRERROR) 000930 00930 069C3 1969 ORG 0069C3 E388854097A38899 1970 MJRPTATADDRERROR DC C'The pthread attribute area address is incorrect' 0069F2 00 1971 DC X'00' 0069F3 069F3 00930 1972 ORG ETAB+(4*JRPTCNOTSUPP) 000930 000069F3 1973 DC A(MJRPTCNOTSUPP) 000934 00934 069F3 1974 ORG 0069F3 C2D7E7F1D7E3C340 1975 MJRPTCNOTSUPP DC C'BPX1PTC is not supported from the calling task' 006A21 00 1976 DC X'00' 006A22 06A22 00934 1977 ORG ETAB+(4*JRALLFILESNOTCLOSED) 000934 00006A22 1978 DC A(MJRALLFILESNOTCLOSED) 000938 00938 06A22 1979 ORG 006A22 C1939340998598A4 1980 MJRALLFILESNOTCLOSED DC C'All requested files were not closed' 006A45 00 1981 DC X'00' 006A46 06A46 00938 1982 ORG ETAB+(4*JREXITRTNERROR) 000938 00006A46 1983 DC A(MJREXITRTNERROR) 00093C 0093C 06A46 1984 ORG 006A46 C195408599999699 1985 MJREXITRTNERROR DC C'An error occurred in the user exit called by the ' 006A77 85A78583 1986 DC C'exec' 006A7B 00 1987 DC X'00' 006A7C 06A7C 0093C 1988 ORG ETAB+(4*JRTHREADTERM) 00093C 00006A7C 1989 DC A(MJRTHREADTERM) 000940 00940 06A7C 1990 ORG 006A7C E3888540A28599A5 1991 MJRTHREADTERM DC C'The service was rejected because the requesting thr' 006AAF 8581844089A240A3 1992 DC C'ead is terminating' 1STRREA OMVS_STR_REASON Page 43 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0006AC1 00 1993 DC X'00' 006AC2 06AC2 00944 1994 ORG ETAB+(4*JRLIGHTWEIGHTTHID) 000944 00006AC2 1995 DC A(MJRLIGHTWEIGHTTHID) 000948 00948 06AC2 1996 ORG 006AC2 E3888540A3889985 1997 MJRLIGHTWEIGHTTHID DC C'The thread specified is a lightweight thread' 006AEE 00 1998 DC X'00' 006AEF 06AEF 00948 1999 ORG ETAB+(4*JRALREADYDETACHED) 000948 00006AEF 2000 DC A(MJRALREADYDETACHED) 00094C 0094C 06AEF 2001 ORG 006AEF E3888540A3889985 2002 MJRALREADYDETACHED DC C'The thread specified is already detached' 006B17 00 2003 DC X'00' 006B18 06B18 0094C 2004 ORG ETAB+(4*JRTHREADNOTFOUND) 00094C 00006B18 2005 DC A(MJRTHREADNOTFOUND) 000950 00950 06B18 2006 ORG 006B18 E3888540A3889985 2007 MJRTHREADNOTFOUND DC C'The thread specified was not found' 006B3A 00 2008 DC X'00' 006B3B 06B3B 00954 2009 ORG ETAB+(4*JRHEAVYWEIGHT) 000954 00006B3B 2010 DC A(MJRHEAVYWEIGHT) 000958 00958 06B3B 2011 ORG 006B3B E38885409585A640 2012 MJRHEAVYWEIGHT DC C'The new thread was not started and the existing th' 006B6D 998581844089A240 2013 DC C'read is a heavyweight thread' 006B89 00 2014 DC X'00' 006B8A 06B8A 00958 2015 ORG ETAB+(4*JRGETFIRST) 000958 00006B8A 2016 DC A(MJRGETFIRST) 00095C 0095C 06B8A 2017 ORG 006B8A E3888540868999A2 2018 MJRGETFIRST DC C'The first call did not specify PTGetNewThread' 006BB7 00 2019 DC X'00' 006BB8 06BB8 0095C 2020 ORG ETAB+(4*JRALREADYJOINED) 00095C 00006BB8 2021 DC A(MJRALREADYJOINED) 000960 00960 06BB8 2022 ORG 006BB8 E3888540A3889985 2023 MJRALREADYJOINED DC C'The thread specified was already joined by anoth' 006BE8 859940A388998581 2024 DC C'er thread' 006BF1 00 2025 DC X'00' 006BF2 06BF2 00964 2026 ORG ETAB+(4*JRJOINEXITSTATPTR) 000964 00006BF2 2027 DC A(MJRJOINEXITSTATPTR) 000968 00968 06BF2 2028 ORG 006BF2 E388854081848499 2029 MJRJOINEXITSTATPTR DC C'The address of the exit status parameter is no' 006C20 A340839699998583 2030 DC C't correct' 006C29 00 2031 DC X'00' 006C2A 06C2A 00968 2032 ORG ETAB+(4*JRJOINTOSELF) 000968 00006C2A 2033 DC A(MJRJOINTOSELF) 00096C 0096C 06C2A 2034 ORG 006C2A E3888540A3889985 2035 MJRJOINTOSELF DC C'The thread attempted to join to itself' 006C50 00 2036 DC X'00' 006C51 06C51 0096C 2037 ORG ETAB+(4*JRJOINLOOP) 00096C 00006C51 2038 DC A(MJRJOINLOOP) 000970 00970 06C51 2039 ORG 006C51 E388854083969595 2040 MJRJOINLOOP DC C'The connection would result in thread waiting for its' 006C86 859386 2041 DC C'elf' 006C89 00 2042 DC X'00' 006C8A 06C8A 00978 2043 ORG ETAB+(4*JRALREADYPTEXITED) 000978 00006C8A 2044 DC A(MJRALREADYPTEXITED) 00097C 0097C 06C8A 2045 ORG 006C8A E388854083819393 2046 MJRALREADYPTEXITED DC C'The calling thread has already been exited thr' 006CB8 96A4878840814083 2047 DC C'ough a call to the BPX1PTX service' 1STRREA OMVS_STR_REASON Page 44 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0006CDA 00 2048 DC X'00' 006CDB 06CDB 0097C 2049 ORG ETAB+(4*JRALREADYTERMINATED) 00097C 00006CDB 2050 DC A(MJRALREADYTERMINATED) 000980 00980 06CDB 2051 ORG 006CDB E3888540A3889985 2052 MJRALREADYTERMINATED DC C'The thread specified has already ended' 006D01 00 2053 DC X'00' 006D02 06D02 00984 2054 ORG ETAB+(4*JRBROKENBRLMRECYCLING) 000984 00006D02 2055 DC A(MJRBROKENBRLMRECYCLING) 000988 00988 06D02 2056 ORG 006D02 E388854082A8A385 2057 MJRBROKENBRLMRECYCLING DC C'The byte-range-lock manager is broken and ' 006D2C 89A24083A4999985 2058 DC C'is currently recycling' 006D42 00 2059 DC X'00' 006D43 06D43 00988 2060 ORG ETAB+(4*JRPTATSYSOFF) 000988 00006D43 2061 DC A(MJRPTATSYSOFF) 00098C 0098C 06D43 2062 ORG 006D43 E3888540A2A8A2A3 2063 MJRPTATSYSOFF DC C'The system offset value in the pthread attribute ar' 006D76 85814089A2408995 2064 DC C'ea is incorrect' 006D85 00 2065 DC X'00' 006D86 06D86 0098C 2066 ORG ETAB+(4*JRPTATSYSLEN) 00098C 00006D86 2067 DC A(MJRPTATSYSLEN) 000990 00990 06D86 2068 ORG 006D86 E3888540A2A8A2A3 2069 MJRPTATSYSLEN DC C'The system length value in the pthread attribute ar' 006DB9 85814089A2408995 2070 DC C'ea is incorrect' 006DC8 00 2071 DC X'00' 006DC9 06DC9 00990 2072 ORG ETAB+(4*JRPTATLEN) 000990 00006DC9 2073 DC A(MJRPTATLEN) 000994 00994 06DC9 2074 ORG 006DC9 E3888540A396A381 2075 MJRPTATLEN DC C'The total length value in the pthread attribute area i' 006DFF A240899583969999 2076 DC C's incorrect' 006E0A 00 2077 DC X'00' 006E0B 06E0B 00994 2078 ORG ETAB+(4*JRRMGWRONGDATALEN) 000994 00006E0B 2079 DC A(MJRRMGWRONGDATALEN) 000998 00998 06E0B 2080 ORG 006E0B D985A296A4998385 2081 MJRRMGWRONGDATALEN DC C'Resource data area length is not correct for t' 006E39 8889A24099859385 2082 DC C'his release' 006E44 00 2083 DC X'00' 006E45 06E45 00998 2084 ORG ETAB+(4*JRINVOPTION) 000998 00006E45 2085 DC A(MJRINVOPTION) 00099C 0099C 06E45 2086 ORG 006E45 C995839699998583 2087 MJRINVOPTION DC C'Incorrect option specified on call to BPX1PTX' 006E72 00 2088 DC X'00' 006E73 06E73 0099C 2089 ORG ETAB+(4*JRINITRTN) 00099C 00006E73 2090 DC A(MJRINITRTN) 0009A0 009A0 06E73 2091 ORG 006E73 E3888540899589A3 2092 MJRINITRTN DC C'The initialization routine is not valid for the curren' 006EA9 A3408595A5899996 2093 DC C't environment' 006EB6 00 2094 DC X'00' 006EB7 06EB7 009A0 2095 ORG ETAB+(4*JRPTATWEIGHT) 0009A0 00006EB7 2096 DC A(MJRPTATWEIGHT) 0009A4 009A4 06EB7 2097 ORG 006EB7 E388854097A38899 2098 MJRPTATWEIGHT DC C'The pthread attribute area contains an incorrect we' 006EEA 898788A340A58193 2099 DC C'ight value' 006EF4 00 2100 DC X'00' 006EF5 06EF5 009A4 2101 ORG ETAB+(4*JRPTATSYNCTYPE) 0009A4 00006EF5 2102 DC A(MJRPTATSYNCTYPE) 1STRREA OMVS_STR_REASON Page 45 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00009A8 009A8 06EF5 2103 ORG 006EF5 E388854097A38899 2104 MJRPTATSYNCTYPE DC C'The pthread attribute area contains an incorrect ' 006F26 E2A8958340E3A897 2105 DC C'Sync Type value' 006F35 00 2106 DC X'00' 006F36 06F36 009A8 2107 ORG ETAB+(4*JRPTATDETACHSTATE) 0009A8 00006F36 2108 DC A(MJRPTATDETACHSTATE) 0009AC 009AC 06F36 2109 ORG 006F36 E388854097A38899 2110 MJRPTATDETACHSTATE DC C'The pthread attribute area contains an incorre' 006F64 83A3408485A38183 2111 DC C'ct detach state value' 006F79 00 2112 DC X'00' 006F7A 06F7A 009AC 2113 ORG ETAB+(4*JRNOSUCHPID) 0009AC 00006F7A 2114 DC A(MJRNOSUCHPID) 0009B0 009B0 06F7A 2115 ORG 006F7A E388854097999683 2116 MJRNOSUCHPID DC C'The process ID is incorrect' 006F95 00 2117 DC X'00' 006F96 06F96 009B0 2118 ORG ETAB+(4*JRPIDEQSESSLEADER) 0009B0 00006F96 2119 DC A(MJRPIDEQSESSLEADER) 0009B4 009B4 06F96 2120 ORG 006F96 E388854097999683 2121 MJRPIDEQSESSLEADER DC C'The process ID is a session leader' 006FB8 00 2122 DC X'00' 006FB9 06FB9 009B4 2123 ORG ETAB+(4*JRTOOMANY) 0009B4 00006FB9 2124 DC A(MJRTOOMANY) 0009B8 009B8 06FB9 2125 ORG 006FB9 E388854085A58595 2126 MJRTOOMANY DC C'The event list specified contained more than one event' 006FEF 00 2127 DC X'00' 006FF0 06FF0 009B8 2128 ORG ETAB+(4*JRPIDDIFFERENTSESSION) 0009B8 00006FF0 2129 DC A(MJRPIDDIFFERENTSESSION) 0009BC 009BC 06FF0 2130 ORG 006FF0 E388854097999683 2131 MJRPIDDIFFERENTSESSION DC C'The process ID is in a session different f' 00701A 99969440A3888540 2132 DC C'rom the caller' 007028 00 2133 DC X'00' 007029 07029 009BC 2134 ORG ETAB+(4*JREXECAFTERFORK) 0009BC 00007029 2135 DC A(MJREXECAFTERFORK) 0009C0 009C0 07029 2136 ORG 007029 E388854097999683 2137 MJREXECAFTERFORK DC C'The process ID was called by the exec service af' 007059 A3859940A3888540 2138 DC C'ter the fork service' 00706D 00 2139 DC X'00' 00706E 0706E 009C0 2140 ORG ETAB+(4*JRTIMEOUTNOTAUTH) 0009C0 0000706E 2141 DC A(MJRTIMEOUTNOTAUTH) 0009C4 009C4 0706E 2142 ORG 00706E E388854083819393 2143 MJRTIMEOUTNOTAUTH DC C'The caller to BPX1CPO service specified the CW_' 00709D E3C9D4C5D6E4E340 2144 DC C'TIMEOUT event but is not authorized' 0070C0 00 2145 DC X'00' 0070C1 070C1 009C4 2146 ORG ETAB+(4*JRNOTDESCENDANT) 0009C4 000070C1 2147 DC A(MJRNOTDESCENDANT) 0009C8 009C8 070C1 2148 ORG 0070C1 E388854097999683 2149 MJRNOTDESCENDANT DC C'The process ID is not an immediate descendant of' 0070F1 40A3888540838193 2150 DC C' the caller.' 0070FD 00 2151 DC X'00' 0070FE 070FE 009C8 2152 ORG ETAB+(4*JRPGIDDIFFERENTSESSION) 0009C8 000070FE 2153 DC A(MJRPGIDDIFFERENTSESSION) 0009CC 009CC 070FE 2154 ORG 0070FE D799968385A2A240 2155 MJRPGIDDIFFERENTSESSION DC C'Process group ID is in a session differen' 007127 A3408699969440A3 2156 DC C't from the caller' 007138 00 2157 DC X'00' 1STRREA OMVS_STR_REASON Page 46 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0007139 07139 009CC 2158 ORG ETAB+(4*JRCALLERISPGLEADER) 0009CC 00007139 2159 DC A(MJRCALLERISPGLEADER) 0009D0 009D0 07139 2160 ORG 007139 E388854083819393 2161 MJRCALLERISPGLEADER DC C'The caller is already a process group leader' 007165 00 2162 DC X'00' 007166 07166 009D0 2163 ORG ETAB+(4*JRNULLMASK) 0009D0 00007166 2164 DC A(MJRNULLMASK) 0009D4 009D4 07166 2165 ORG 007166 E388854083819393 2166 MJRNULLMASK DC C'The caller specified a null signal mask' 00718D 00 2167 DC X'00' 00718E 0718E 009D4 2168 ORG ETAB+(4*JRRDLBUFFLENINVALID) 0009D4 0000718E 2169 DC A(MJRRDLBUFFLENINVALID) 0009D8 009D8 0718E 2170 ORG 00718E E388854093859587 2171 MJRRDLBUFFLENINVALID DC C'The length of the buffer is less than zero' 0071B8 00 2172 DC X'00' 0071B9 071B9 009DC 2173 ORG ETAB+(4*JRPSWKEYNOTVALID) 0009DC 000071B9 2174 DC A(MJRPSWKEYNOTVALID) 0009E0 009E0 071B9 2175 ORG 0071B9 E3888540D7E2E640 2176 MJRPSWKEYNOTVALID DC C'The PSW key of the caller is not a valid key' 0071E5 00 2177 DC X'00' 0071E6 071E6 009E0 2178 ORG ETAB+(4*JRALREADYSIGSETUP) 0009E0 000071E6 2179 DC A(MJRALREADYSIGSETUP) 0009E4 009E4 071E6 2180 ORG 0071E6 C2D7E7F1D4E2E240 2181 MJRALREADYSIGSETUP DC C'BPX1MSS found the process already set up for s' 007214 8987958193A2 2182 DC C'ignals' 00721A 00 2183 DC X'00' 00721B 0721B 009E4 2184 ORG ETAB+(4*JRNOTSIGSETUP) 0009E4 0000721B 2185 DC A(MJRNOTSIGSETUP) 0009E8 009E8 0721B 2186 ORG 00721B E3888540A28599A5 2187 MJRNOTSIGSETUP DC C'The service found the current task was not set up ' 00724D 86969940A2898795 2188 DC C'for signals' 007258 00 2189 DC X'00' 007259 07259 009E8 2190 ORG ETAB+(4*JRENDINGSLASHSYMLINK) 0009E8 00007259 2191 DC A(MJRENDINGSLASHSYMLINK) 0009EC 009EC 07259 2192 ORG 007259 E38885409781A388 2193 MJRENDINGSLASHSYMLINK DC C'The pathname ended with slash on the symlin' 007284 9240A28599A58983 2194 DC C'k service' 00728D 00 2195 DC X'00' 00728E 0728E 009EC 2196 ORG ETAB+(4*JRUNDEFEVENTS) 0009EC 0000728E 2197 DC A(MJRUNDEFEVENTS) 0009F0 009F0 0728E 2198 ORG 00728E E3888540A2978583 2199 MJRUNDEFEVENTS DC C'The specified event list contains undefined events' 0072C0 00 2200 DC X'00' 0072C1 072C1 009F0 2201 ORG ETAB+(4*JRNOEVENTS) 0009F0 000072C1 2202 DC A(MJRNOEVENTS) 0009F4 009F4 072C1 2203 ORG 0072C1 E3888540A2978583 2204 MJRNOEVENTS DC C'The specified event list is zero' 0072E1 00 2205 DC X'00' 0072E2 072E2 009F4 2206 ORG ETAB+(4*JRIPTCANNOTLEAVE) 0009F4 000072E2 2207 DC A(MJRIPTCANNOTLEAVE) 0009F8 009F8 072E2 2208 ORG 0072E2 E388854083819393 2209 MJRIPTCANNOTLEAVE DC C'The caller has daughter tasks. Termination is d' 007311 8595898584 2210 DC C'enied' 007316 00 2211 DC X'00' 007317 07317 009F8 2212 ORG ETAB+(4*JRNOTSETUP) 1STRREA OMVS_STR_REASON Page 47 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00009F8 00007317 2213 DC A(MJRNOTSETUP) 0009FC 009FC 07317 2214 ORG 007317 E3888540A3889985 2215 MJRNOTSETUP DC C'The thread is not set up for cond_wait or cond_timed_' 00734C A68189A3 2216 DC C'wait' 007350 00 2217 DC X'00' 007351 07351 009FC 2218 ORG ETAB+(4*JRALREADYSETUP) 0009FC 00007351 2219 DC A(MJRALREADYSETUP) 000A00 00A00 07351 2220 ORG 007351 E3888540A3889985 2221 MJRALREADYSETUP DC C'The thread is already set up for cond_setup, cond' 007382 6DA68189A36B4096 2222 DC C'_wait, or cond_timed_wait' 00739B 00 2223 DC X'00' 00739C 0739C 00A00 2224 ORG ETAB+(4*JROUTOFRANGE) 000A00 0000739C 2225 DC A(MJROUTOFRANGE) 000A04 00A04 0739C 2226 ORG 00739C E3888540A58193A4 2227 MJROUTOFRANGE DC C'The value specified for a parameter is outside the ' 0073CF 81939396A6818293 2228 DC C'allowable range' 0073DE 00 2229 DC X'00' 0073DF 073DF 00A1C 2230 ORG ETAB+(4*JRNANOSECONDSTOOBIG) 000A1C 000073DF 2231 DC A(MJRNANOSECONDSTOOBIG) 000A20 00A20 073DF 2232 ORG 0073DF E3888540A58193A4 2233 MJRNANOSECONDSTOOBIG DC C'The value specified for nanoseconds is outsi' 00740B 848540A388854081 2234 DC C'de the allowable range' 007421 00 2235 DC X'00' 007422 07422 00A20 2236 ORG ETAB+(4*JRTIMEOUT) 000A20 00007422 2237 DC A(MJRTIMEOUT) 000A24 00A24 07422 2238 ORG 007422 E3888540A3899485 2239 MJRTIMEOUT DC C'The time for the service to wait has expired' 00744E 00 2240 DC X'00' 00744F 0744F 00A24 2241 ORG ETAB+(4*JRDUP2ERROR) 000A24 0000744F 2242 DC A(MJRDUP2ERROR) 000A28 00A28 0744F 2243 ORG 00744F C140979996829385 2244 MJRDUP2ERROR DC C'A problem occurred with the requested file descripto' 007483 99 2245 DC C'r' 007484 00 2246 DC X'00' 007485 07485 00A28 2247 ORG ETAB+(4*JRACCEPT) 000A28 00007485 2248 DC A(MJRACCEPT) 000A2C 00A2C 07485 2249 ORG 007485 E595968485409697 2250 MJRACCEPT DC C'Vnode operation accept is not supported by this file sy' 0074BC A2A38594 2251 DC C'stem' 0074C0 00 2252 DC X'00' 0074C1 074C1 00A2C 2253 ORG ETAB+(4*JRBIND) 000A2C 000074C1 2254 DC A(MJRBIND) 000A30 00A30 074C1 2255 ORG 0074C1 E595968485409697 2256 MJRBIND DC C'Vnode operation bind is not supported by this file system' 0074FA 00 2257 DC X'00' 0074FB 074FB 00A30 2258 ORG ETAB+(4*JRCONNECT) 000A30 000074FB 2259 DC A(MJRCONNECT) 000A34 00A34 074FB 2260 ORG 0074FB E595968485409697 2261 MJRCONNECT DC C'Vnode operation connect is not supported by this file ' 007531 A2A8A2A38594 2262 DC C'system' 007537 00 2263 DC X'00' 007538 07538 00A34 2264 ORG ETAB+(4*JRGETHOST) 000A34 00007538 2265 DC A(MJRGETHOST) 000A38 00A38 07538 2266 ORG 007538 E595968485409697 2267 MJRGETHOST DC C'Vnode operation gethost is not supported by this file ' 1STRREA OMVS_STR_REASON Page 48 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000756E A2A8A2A38594 2268 DC C'system' 007574 00 2269 DC X'00' 007575 07575 00A38 2270 ORG ETAB+(4*JRGETNAME) 000A38 00007575 2271 DC A(MJRGETNAME) 000A3C 00A3C 07575 2272 ORG 007575 E595968485409697 2273 MJRGETNAME DC C'Vnode operation getname is not supported by this file ' 0075AB A2A8A2A38594 2274 DC C'system' 0075B1 00 2275 DC X'00' 0075B2 075B2 00A3C 2276 ORG ETAB+(4*JRSOCKOPT) 000A3C 000075B2 2277 DC A(MJRSOCKOPT) 000A40 00A40 075B2 2278 ORG 0075B2 E595968485409697 2279 MJRSOCKOPT DC C'Vnode operation sockopt is not supported by this file ' 0075E8 A2A8A2A38594 2280 DC C'system' 0075EE 00 2281 DC X'00' 0075EF 075EF 00A40 2282 ORG ETAB+(4*JRLISTEN) 000A40 000075EF 2283 DC A(MJRLISTEN) 000A44 00A44 075EF 2284 ORG 0075EF E595968485409697 2285 MJRLISTEN DC C'Vnode operation listen is not supported by this file sy' 007626 A2A38594 2286 DC C'stem' 00762A 00 2287 DC X'00' 00762B 0762B 00A44 2288 ORG ETAB+(4*JRREADWRITEV) 000A44 0000762B 2289 DC A(MJRREADWRITEV) 000A48 00A48 0762B 2290 ORG 00762B E595968485409697 2291 MJRREADWRITEV DC C'Vnode operation readwritev is not supported by this' 00765E 408689938540A2A8 2292 DC C' file system' 00766A 00 2293 DC X'00' 00766B 0766B 00A48 2294 ORG ETAB+(4*JRSNDRCV) 000A48 0000766B 2295 DC A(MJRSNDRCV) 000A4C 00A4C 0766B 2296 ORG 00766B E595968485409697 2297 MJRSNDRCV DC C'Vnode operation sndrcv is not supported by this file sy' 0076A2 A2A38594 2298 DC C'stem' 0076A6 00 2299 DC X'00' 0076A7 076A7 00A4C 2300 ORG ETAB+(4*JRSNDTORCVFM) 000A4C 000076A7 2301 DC A(MJRSNDTORCVFM) 000A50 00A50 076A7 2302 ORG 0076A7 E595968485409697 2303 MJRSNDTORCVFM DC C'Vnode operation sndtorcvfm is not supported by this' 0076DA 408689938540A2A8 2304 DC C' file system' 0076E6 00 2305 DC X'00' 0076E7 076E7 00A50 2306 ORG ETAB+(4*JRSRMSG) 000A50 000076E7 2307 DC A(MJRSRMSG) 000A54 00A54 076E7 2308 ORG 0076E7 E595968485409697 2309 MJRSRMSG DC C'Vnode operation srmsg is not supported by this file syst' 00771F 8594 2310 DC C'em' 007721 00 2311 DC X'00' 007722 07722 00A54 2312 ORG ETAB+(4*JRSELECT) 000A54 00007722 2313 DC A(MJRSELECT) 000A58 00A58 07722 2314 ORG 007722 E595968485409697 2315 MJRSELECT DC C'Vnode operation select is not supported by this file sy' 007759 A2A38594 2316 DC C'stem' 00775D 00 2317 DC X'00' 00775E 0775E 00A58 2318 ORG ETAB+(4*JRSETPEER) 000A58 0000775E 2319 DC A(MJRSETPEER) 000A5C 00A5C 0775E 2320 ORG 00775E E595968485409697 2321 MJRSETPEER DC C'Vnode operation setpeer is not supported by this file ' 007794 A2A8A2A38594 2322 DC C'system' 1STRREA OMVS_STR_REASON Page 49 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000779A 00 2323 DC X'00' 00779B 0779B 00A5C 2324 ORG ETAB+(4*JRSHUTDOWN) 000A5C 0000779B 2325 DC A(MJRSHUTDOWN) 000A60 00A60 0779B 2326 ORG 00779B E595968485409697 2327 MJRSHUTDOWN DC C'Vnode operation shutdown is not supported by this fil' 0077D0 8540A2A8A2A38594 2328 DC C'e system' 0077D8 00 2329 DC X'00' 0077D9 077D9 00A60 2330 ORG ETAB+(4*JRSOCKET) 000A60 000077D9 2331 DC A(MJRSOCKET) 000A64 00A64 077D9 2332 ORG 0077D9 E5C6E24096978599 2333 MJRSOCKET DC C'VFS operation socket is not supported by this file syst' 007810 8594 2334 DC C'em' 007812 00 2335 DC X'00' 007813 07813 00A64 2336 ORG ETAB+(4*JRNOSOCKET) 000A64 00007813 2337 DC A(MJRNOSOCKET) 000A68 00A68 07813 2338 ORG 007813 E3888540998598A4 2339 MJRNOSOCKET DC C'The requested operation cannot be performed on a sock' 007848 85A3408689938540 2340 DC C'et file descriptor' 00785A 00 2341 DC X'00' 00785B 0785B 00A68 2342 ORG ETAB+(4*JRMUSTBESOCKET) 000A68 0000785B 2343 DC A(MJRMUSTBESOCKET) 000A6C 00A6C 0785B 2344 ORG 00785B E3888540998598A4 2345 MJRMUSTBESOCKET DC C'The requested operation is only valid on a socket' 00788C 4086899385408485 2346 DC C' file descriptor' 00789C 00 2347 DC X'00' 00789D 0789D 00A6C 2348 ORG ETAB+(4*JRTARGETENDING) 000A6C 0000789D 2349 DC A(MJRTARGETENDING) 000A70 00A70 0789D 2350 ORG 00789D E3888540A3819987 2351 MJRTARGETENDING DC C'The target process is ending' 0078B9 00 2352 DC X'00' 0078BA 078BA 00A70 2353 ORG ETAB+(4*JRQUIESCETYPEINVALID) 000A70 000078BA 2354 DC A(MJRQUIESCETYPEINVALID) 000A74 00A74 078BA 2355 ORG 0078BA E388854098A48985 2356 MJRQUIESCETYPEINVALID DC C'The quiescetype specified by the caller is ' 0078E5 8995A581938984 2357 DC C'invalid' 0078EC 00 2358 DC X'00' 0078ED 078ED 00A78 2359 ORG ETAB+(4*JRLASTTHREAD) 000A78 000078ED 2360 DC A(MJRLASTTHREAD) 000A7C 00A7C 078ED 2361 ORG 0078ED E38885409381A2A3 2362 MJRLASTTHREAD DC C'The last pthread is exiting when the PTFAILIFLASTTH' 007920 D9C5C1C4409697A3 2363 DC C'READ option is specified' 007938 00 2364 DC X'00' 007939 07939 00A7C 2365 ORG ETAB+(4*JRDOMAINNOTSUPPORTED) 000A7C 00007939 2366 DC A(MJRDOMAINNOTSUPPORTED) 000A80 00A80 07939 2367 ORG 007939 E3888540998598A4 2368 MJRDOMAINNOTSUPPORTED DC C'The requested domain is not supported' 00795E 00 2369 DC X'00' 00795F 0795F 00A80 2370 ORG ETAB+(4*JRNETWORK) 000A80 0000795F 2371 DC A(MJRNETWORK) 000A84 00A84 0795F 2372 ORG 00795F E586A24096978599 2373 MJRNETWORK DC C'Vfs operation network is not supported by this file sy' 007995 A2A38594 2374 DC C'stem' 007999 00 2375 DC X'00' 00799A 0799A 00A84 2376 ORG ETAB+(4*JROUTOFVDECELLS) 000A84 0000799A 2377 DC A(MJROUTOFVDECELLS) 1STRREA OMVS_STR_REASON Page 50 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000A88 00A88 0799A 2378 ORG 00799A C1939340E5848540 2379 MJROUTOFVDECELLS DC C'All Vde cells have been allocated' 0079BB 00 2380 DC X'00' 0079BC 079BC 00A88 2381 ORG ETAB+(4*JRTOKENMAX) 000A88 000079BC 2382 DC A(MJRTOKENMAX) 000A8C 00A8C 079BC 2383 ORG 0079BC E38885409481A789 2384 MJRTOKENMAX DC C'The maximum number of Vnode tokens have been allocate' 0079F1 844086969940A388 2385 DC C'd for this process' 007A03 00 2386 DC X'00' 007A04 07A04 00A8C 2387 ORG ETAB+(4*JRVTOKENFREED) 000A8C 00007A04 2388 DC A(MJRVTOKENFREED) 000A90 00A90 07A04 2389 ORG 007A04 E3888540E5959684 2390 MJRVTOKENFREED DC C'The Vnode token has already been released' 007A2D 00 2391 DC X'00' 007A2E 07A2E 00A90 2392 ORG ETAB+(4*JRWRONGPID) 000A90 00007A2E 2393 DC A(MJRWRONGPID) 000A94 00A94 07A2E 2394 ORG 007A2E E388854097999683 2395 MJRWRONGPID DC C'The process does not own this Vde' 007A4F 00 2396 DC X'00' 007A50 07A50 00A94 2397 ORG ETAB+(4*JRSTALEVNODETOK) 000A94 00007A50 2398 DC A(MJRSTALEVNODETOK) 000A98 00A98 07A50 2399 ORG 007A50 E3888540E5959684 2400 MJRSTALEVNODETOK DC C'The Vnode token is stale' 007A68 00 2401 DC X'00' 007A69 07A69 00A98 2402 ORG ETAB+(4*JRINVALIDVNODETOK) 000A98 00007A69 2403 DC A(MJRINVALIDVNODETOK) 000A9C 00A9C 07A69 2404 ORG 007A69 E3888540E5959684 2405 MJRINVALIDVNODETOK DC C'The Vnode token does not point to a Vde' 007A90 00 2406 DC X'00' 007A91 07A91 00A9C 2407 ORG ETAB+(4*JRNOTREGISTEREDSERVER) 000A9C 00007A91 2408 DC A(MJRNOTREGISTEREDSERVER) 000AA0 00AA0 07A91 2409 ORG 007A91 E388854097999683 2410 MJRNOTREGISTEREDSERVER DC C'The process is not a registered server' 007AB7 00 2411 DC X'00' 007AB8 07AB8 00AA0 2412 ORG ETAB+(4*JRINVALIDREGTYPE) 000AA0 00007AB8 2413 DC A(MJRINVALIDREGTYPE) 000AA4 00AA4 07AB8 2414 ORG 007AB8 E3888540A28599A5 2415 MJRINVALIDREGTYPE DC C'The server type supplied in NRegSType is not va' 007AE7 938984 2416 DC C'lid' 007AEA 00 2417 DC X'00' 007AEB 07AEB 00AA4 2418 ORG ETAB+(4*JRNAMETOOLONG) 000AA4 00007AEB 2419 DC A(MJRNAMETOOLONG) 000AA8 00AA8 07AEB 2420 ORG 007AEB E388854095819485 2421 MJRNAMETOOLONG DC C'The name supplied is longer than the allowed maxim' 007B1D A494 2422 DC C'um' 007B1F 00 2423 DC X'00' 007B20 07B20 00AA8 2424 ORG ETAB+(4*JRALREADYREGISTERED) 000AA8 00007B20 2425 DC A(MJRALREADYREGISTERED) 000AAC 00AAC 07B20 2426 ORG 007B20 E388854097999683 2427 MJRALREADYREGISTERED DC C'The process is already registered as a serve' 007B4C 99 2428 DC C'r' 007B4D 00 2429 DC X'00' 007B4E 07B4E 00AAC 2430 ORG ETAB+(4*JRINVALIDNREG) 000AAC 00007B4E 2431 DC A(MJRINVALIDNREG) 000AB0 00AB0 07B4E 2432 ORG 1STRREA OMVS_STR_REASON Page 51 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0007B4E C195408995839699 2433 MJRINVALIDNREG DC C'An incorrect NReg parameter list was passed' 007B79 00 2434 DC X'00' 007B7A 07B7A 00AB0 2435 ORG ETAB+(4*JRNOLEADINGSLASH) 000AB0 00007B7A 2436 DC A(MJRNOLEADINGSLASH) 000AB4 00AB4 07B7A 2437 ORG 007B7A E38885409781A388 2438 MJRNOLEADINGSLASH DC C'The pathname does not begin with /' 007B9C 00 2439 DC X'00' 007B9D 07B9D 00AB4 2440 ORG ETAB+(4*JRSTALEVFSTOK) 000AB4 00007B9D 2441 DC A(MJRSTALEVFSTOK) 000AB8 00AB8 07B9D 2442 ORG 007B9D E3888540E5C6E240 2443 MJRSTALEVFSTOK DC C'The VFS token is stale' 007BB3 00 2444 DC X'00' 007BB4 07BB4 00AB8 2445 ORG ETAB+(4*JRSMALLATTR) 000AB8 00007BB4 2446 DC A(MJRSMALLATTR) 000ABC 00ABC 07BB4 2447 ORG 007BB4 E3888540C1A3A399 2448 MJRSMALLATTR DC C'The Attr length parameter was too small' 007BDB 00 2449 DC X'00' 007BDC 07BDC 00ABC 2450 ORG ETAB+(4*JRSMALLMNTE) 000ABC 00007BDC 2451 DC A(MJRSMALLMNTE) 000AC0 00AC0 07BDC 2452 ORG 007BDC E3888540D495A385 2453 MJRSMALLMNTE DC C'The Mnte length parameter was too small' 007C03 00 2454 DC X'00' 007C04 07C04 00AC0 2455 ORG ETAB+(4*JRRWNOTREGFILE) 000AC0 00007C04 2456 DC A(MJRRWNOTREGFILE) 000AC4 00AC4 07C04 2457 ORG 007C04 E38885409984A699 2458 MJRRWNOTREGFILE DC C'The rdwr call is valid only on a regular file' 007C31 00 2459 DC X'00' 007C32 07C32 00ADC 2460 ORG ETAB+(4*JRDUBSETTING) 000ADC 00007C32 2461 DC A(MJRDUBSETTING) 000AE0 00AE0 07C32 2462 ORG 007C32 E388854084A48240 2463 MJRDUBSETTING DC C'The dub setting value specified on the BPX1SDD serv' 007C65 8983854083819393 2464 DC C'ice call is not correct' 007C7C 00 2465 DC X'00' 007C7D 07C7D 00AE0 2466 ORG ETAB+(4*JRINVALIDATT) 000AE0 00007C7D 2467 DC A(MJRINVALIDATT) 000AE4 00AE4 07C7D 2468 ORG 007C7D E3888540C1A3A399 2469 MJRINVALIDATT DC C'The Attribute structure passed to BPX1CHR or BPX1FC' 007CB0 D940A681A2409596 2470 DC C'R was not valid' 007CBF 00 2471 DC X'00' 007CC0 07CC0 00AE4 2472 ORG ETAB+(4*JRINVALIDOSS) 000AE4 00007CC0 2473 DC A(MJRINVALIDOSS) 000AE8 00AE8 07CC0 2474 ORG 007CC0 E3888540D6E2E240 2475 MJRINVALIDOSS DC C'The OSS is not valid' 007CD4 00 2476 DC X'00' 007CD5 07CD5 00AE8 2477 ORG ETAB+(4*JRSMALLFSATTR) 000AE8 00007CD5 2478 DC A(MJRSMALLFSATTR) 000AEC 00AEC 07CD5 2479 ORG 007CD5 E3888540C6E2C1A3 2480 MJRSMALLFSATTR DC C'The FSAttr length parameter was too small' 007CFE 00 2481 DC X'00' 007CFF 07CFF 00AEC 2482 ORG ETAB+(4*JRAPFAUTHCHANGE) 000AEC 00007CFF 2483 DC A(MJRAPFAUTHCHANGE) 000AF0 00AF0 07CFF 2484 ORG 007CFF C140939683819340 2485 MJRAPFAUTHCHANGE DC C'A local process exec tried to change APF authori' 007D2F A981A3899695 2486 DC C'zation' 007D35 00 2487 DC X'00' 1STRREA OMVS_STR_REASON Page 52 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0007D36 07D36 00AF0 2488 ORG ETAB+(4*JRIDCHANGE) 000AF0 00007D36 2489 DC A(MJRIDCHANGE) 000AF4 00AF4 07D36 2490 ORG 007D36 C140939683819340 2491 MJRIDCHANGE DC C'A local process exec tried to change the UID / GID ' 007D6B 404040 2492 DC C' ' 007D6E 00 2493 DC X'00' 007D6F 07D6F 00AF4 2494 ORG ETAB+(4*JROTHERPROCESSES) 000AF4 00007D6F 2495 DC A(MJROTHERPROCESSES) 000AF8 00AF8 07D6F 2496 ORG 007D6F C1954085A7858340 2497 MJROTHERPROCESSES DC C'An exec was attempted that would terminate the ' 007D9E 96A3888599409799 2498 DC C'other processes in the address space' 007DC2 00 2499 DC X'00' 007DC3 07DC3 00AF8 2500 ORG ETAB+(4*JRPTREQUESTDENIED) 000AF8 00007DC3 2501 DC A(MJRPTREQUESTDENIED) 000AFC 00AFC 07DC3 2502 ORG 007DC3 E388854097A39981 2503 MJRPTREQUESTDENIED DC C'The ptrace request is not allowed for the curr' 007DF1 8595A340848582A4 2504 DC C'ent debugged program environment' 007E11 00 2505 DC X'00' 007E12 07E12 00AFC 2506 ORG ETAB+(4*JRINVALIDFUIO) 000AFC 00007E12 2507 DC A(MJRINVALIDFUIO) 000B00 00B00 07E12 2508 ORG 007E12 C195408995839699 2509 MJRINVALIDFUIO DC C'An incorrect FUio area was passed' 007E33 00 2510 DC X'00' 007E34 07E34 00B00 2511 ORG ETAB+(4*JRTOKDIR) 000B00 00007E34 2512 DC A(MJRTOKDIR) 000B04 00B04 07E34 2513 ORG 007E34 E3888540E5D5D6C4 2514 MJRTOKDIR DC C'The VNODE token specifies a directory' 007E59 00 2515 DC X'00' 007E5A 07E5A 00B04 2516 ORG ETAB+(4*JRTOKNOTDIR) 000B04 00007E5A 2517 DC A(MJRTOKNOTDIR) 000B08 00B08 07E5A 2518 ORG 007E5A E3888540E5D5D6C4 2519 MJRTOKNOTDIR DC C'The VNODE token does not specify a directory' 007E86 00 2520 DC X'00' 007E87 07E87 00B08 2521 ORG ETAB+(4*JRINVALIDATTR) 000B08 00007E87 2522 DC A(MJRINVALIDATTR) 000B0C 00B0C 07E87 2523 ORG 007E87 E3888540A2A49797 2524 MJRINVALIDATTR DC C'The supplied Attribute structure was not valid' 007EB5 00 2525 DC X'00' 007EB6 07EB6 00B0C 2526 ORG ETAB+(4*JRMAXTASKS) 000B0C 00007EB6 2527 DC A(MJRMAXTASKS) 000B10 00B10 07EB6 2528 ORG 007EB6 E388854095A49482 2529 MJRMAXTASKS DC C'The number of tasks in the process is greater than th' 007EEB 85409481A78994A4 2530 DC C'e maximum allowable limit' 007F04 00 2531 DC X'00' 007F05 07F05 00B10 2532 ORG ETAB+(4*JRMAXSOCKETS) 000B10 00007F05 2533 DC A(MJRMAXSOCKETS) 000B14 00B14 07F05 2534 ORG 007F05 E388854095A49482 2535 MJRMAXSOCKETS DC C'The number of active sockets is equal to the value ' 007F38 A297858389868985 2536 DC C'specified on the MAXSOCKETS parmlib statement' 007F65 00 2537 DC X'00' 007F66 07F66 00B1C 2538 ORG ETAB+(4*JRNOTDIR) 000B1C 00007F66 2539 DC A(MJRNOTDIR) 000B20 00B20 07F66 2540 ORG 007F66 E388854095819485 2541 MJRNOTDIR DC C'The name does not specify a directory' 007F8B 00 2542 DC X'00' 1STRREA OMVS_STR_REASON Page 53 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0007F8C 07F8C 00B24 2543 ORG ETAB+(4*JREXTERNALLINK) 000B24 00007F8C 2544 DC A(MJREXTERNALLINK) 000B28 00B28 07F8C 2545 ORG 007F8C C1954085A7A38599 2546 MJREXTERNALLINK DC C'An external symbolic link was found but is not su' 007FBD 97979699A38584 2547 DC C'pported' 007FC4 00 2548 DC X'00' 007FC5 07FC5 00B2C 2549 ORG ETAB+(4*JRSOCKETNAMED) 000B2C 00007FC5 2550 DC A(MJRSOCKETNAMED) 000B30 00B30 07FC5 2551 ORG 007FC5 C140C28995844099 2552 MJRSOCKETNAMED DC C'A Bind request was received for a socket that was ' 007FF7 979985A58996A4A2 2553 DC C'previously named' 008007 00 2554 DC X'00' 008008 08008 00B40 2555 ORG ETAB+(4*JRSOCANWKBITON) 000B40 00008008 2556 DC A(MJRSOCANWKBITON) 000B44 00B44 08008 2557 ORG 008008 C4A49793898381A3 2558 MJRSOCANWKBITON DC C'Duplicate NETWORK parmlib statements exist' 008032 00 2559 DC X'00' 008033 08033 00B48 2560 ORG ETAB+(4*JRLISTENNOTACCEPTED) 000B48 00008033 2561 DC A(MJRLISTENNOTACCEPTED) 000B4C 00B4C 08033 2562 ORG 008033 C1409389A2A38595 2563 MJRLISTENNOTACCEPTED DC C'A listen syscall was issued for a socket tha' 00805F A3408881A2409596 2564 DC C't has not been bound, for a socket that is already a ' 008094 A28599A585996B40 2565 DC C'server, or for a socket that is already connected' 0080C5 00 2566 DC X'00' 0080C6 080C6 00B4C 2567 ORG ETAB+(4*JRSOCKETCLOSED) 000B4C 000080C6 2568 DC A(MJRSOCKETCLOSED) 000B50 00B50 080C6 2569 ORG 0080C6 C1954081A3A38594 2570 MJRSOCKETCLOSED DC C'An attempt was made to read, write or connect to ' 0080F7 8140A296839285A3 2571 DC C'a socket that is closed' 00810E 00 2572 DC X'00' 00810F 0810F 00B50 2573 ORG ETAB+(4*JRTOOMANYTHDS) 000B50 0000810F 2574 DC A(MJRTOOMANYTHDS) 000B54 00B54 0810F 2575 ORG 00810F C1954081A3A38594 2576 MJRTOOMANYTHDS DC C'An attempt was made to create another thread but t' 008141 8885409799968385 2577 DC C'he process limit for pthreads has already been reache' 008176 84 2578 DC C'd' 008177 00 2579 DC X'00' 008178 08178 00B54 2580 ORG ETAB+(4*JRSOCKETCALLPARMERROR) 000B54 00008178 2581 DC A(MJRSOCKETCALLPARMERROR) 000B58 00B58 08178 2582 ORG 008178 C140A296839285A3 2583 MJRSOCKETCALLPARMERROR DC C'A socket syscall contains incorrect parame' 0081A2 A38599A2 2584 DC C'ters' 0081A6 00 2585 DC X'00' 0081A7 081A7 00B58 2586 ORG ETAB+(4*JRRECOVERY) 000B58 000081A7 2587 DC A(MJRRECOVERY) 000B5C 00B5C 081A7 2588 ORG 0081A7 E388854099858396 2589 MJRRECOVERY DC C'The recovery VFS operation is not supported ' 0081D8 00 2590 DC X'00' 0081D9 081D9 00B5C 2591 ORG ETAB+(4*JRINVALIDROUTINE) 000B5C 000081D9 2592 DC A(MJRINVALIDROUTINE) 000B60 00B60 081D9 2593 ORG 0081D9 C195408995839699 2594 MJRINVALIDROUTINE DC C'An incorrect routine address was passed ' 008206 00 2595 DC X'00' 008207 08207 00B60 2596 ORG ETAB+(4*JRROUTINEERROR) 000B60 00008207 2597 DC A(MJRROUTINEERROR) 1STRREA OMVS_STR_REASON Page 54 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000B64 00B64 08207 2598 ORG 008207 C195408599999699 2599 MJRROUTINEERROR DC C'An error occurred while the user-provided routine' 008238 40A681A240899540 2600 DC C' was in control ' 00824D 00 2601 DC X'00' 00824E 0824E 00B64 2602 ORG ETAB+(4*JRNOLISTS) 000B64 0000824E 2603 DC A(MJRNOLISTS) 000B68 00B68 0824E 2604 ORG 00824E C140E285938583A3 2605 MJRNOLISTS DC C'A Select request was issued without a read, write or e' 008284 A7838597A3899695 2606 DC C'xception list ' 008297 00 2607 DC X'00' 008298 08298 00B68 2608 ORG ETAB+(4*JRLISTTOOLONG) 000B68 00008298 2609 DC A(MJRLISTTOOLONG) 000B6C 00B6C 08298 2610 ORG 008298 E388854099858184 2611 MJRLISTTOOLONG DC C'The read, write or exception list is too long ' 0082CA 40 2612 DC C' ' 0082CB 00 2613 DC X'00' 0082CC 082CC 00B6C 2614 ORG ETAB+(4*JRLISTTOOSHORT) 000B6C 000082CC 2615 DC A(MJRLISTTOOSHORT) 000B70 00B70 082CC 2616 ORG 0082CC E388854099858184 2617 MJRLISTTOOSHORT DC C'The read, write or exception list is too short to' 0082FD 40839695A3818995 2618 DC C' contain the specified number of file descriptorsand ' 008332 9485A2A281878540 2619 DC C'message queue identifiers ' 008351 00 2620 DC X'00' 008352 08352 00B70 2621 ORG ETAB+(4*JRMSOUTOFRANGE) 000B70 00008352 2622 DC A(MJRMSOUTOFRANGE) 000B74 00B74 08352 2623 ORG 008352 E3888540A58193A4 2624 MJRMSOUTOFRANGE DC C'The value specified for microseconds is outside t' 008383 88854081939396A6 2625 DC C'he allowable range ' 00839B 00 2626 DC X'00' 00839C 0839C 00B74 2627 ORG ETAB+(4*JRSECOUTOFRANGE) 000B74 0000839C 2628 DC A(MJRSECOUTOFRANGE) 000B78 00B78 0839C 2629 ORG 00839C E3888540A58193A4 2630 MJRSECOUTOFRANGE DC C'The value specified for seconds is outside the a' 0083CC 939396A681829385 2631 DC C'llowable range' 0083DA 00 2632 DC X'00' 0083DB 083DB 00B78 2633 ORG ETAB+(4*JRNOFDS) 000B78 000083DB 2634 DC A(MJRNOFDS) 000B7C 00B7C 083DB 2635 ORG 0083DB E388854099858184 2636 MJRNOFDS DC C'The read, write or exception list did not contain any fi' 008413 9385408485A28399 2637 DC C'le descriptors, or the Number_FDs parameter was not g' 008448 998581A3859940A3 2638 DC C'reater than 0' 008455 00 2639 DC X'00' 2640 ***************************************************************** 008456 08456 00B80 2641 ORG ETAB+(4*JRINCORRECTSOCKETTYPE) 000B80 00008456 2642 DC A(MJRINCORRECTSOCKETTYPE) 000B84 00B84 08456 2643 ORG 008456 E3888540A2968392 2644 MJRINCORRECTSOCKETTYPE DC C'The socket type is incorrect for the reque' 008480 A2A3 2645 DC C'st' 008482 00 2646 DC X'00' 008483 08483 00B84 2647 ORG ETAB+(4*JRWOULDBLOCK) 000B84 00008483 2648 DC A(MJRWOULDBLOCK) 000B88 00B88 08483 2649 ORG 008483 E3888540D66DD5D6 2650 MJRWOULDBLOCK DC C'The O_NONBLOCK flag is set and this request would b' 0084B6 93968392 2651 DC C'lock' 0084BA 00 2652 DC X'00' 1STRREA OMVS_STR_REASON Page 55 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00084BB 084BB 00B88 2653 ORG ETAB+(4*JREXCEEDSBACKLOGCOUNT) 000B88 000084BB 2654 DC A(MJREXCEEDSBACKLOGCOUNT) 000B8C 00B8C 084BB 2655 ORG 0084BB E38889A240839695 2656 MJREXCEEDSBACKLOGCOUNT DC C'This connect request exceeds the connect b' 0084E5 8183929396874083 2657 DC C'acklog count that was specified on the Listen request' 00851A 00 2658 DC X'00' 00851B 0851B 00B8C 2659 ORG ETAB+(4*JRLEVELNOTSUPP) 000B8C 0000851B 2660 DC A(MJRLEVELNOTSUPP) 000B90 00B90 0851B 2661 ORG 00851B E3888540A58193A4 2662 MJRLEVELNOTSUPP DC C'The value specified for Level is not supported by' 00854C 40A38885409788A8 2663 DC C' the physical file system' 008565 00 2664 DC X'00' 008566 08566 00B94 2665 ORG ETAB+(4*JRINVOPOPT) 000B94 00008566 2666 DC A(MJRINVOPOPT) 000B98 00B98 08566 2667 ORG 008566 E3888540D697A389 2668 MJRINVOPOPT DC C'The Option name specified is not valid' 00858C 00 2669 DC X'00' 00858D 0858D 00B98 2670 ORG ETAB+(4*JRBUFF) 000B98 0000858D 2671 DC A(MJRBUFF) 000B9C 00B9C 0858D 2672 ORG 00858D E388854082A48686 2673 MJRBUFF DC C'The buffer for return information is too small' 0085BB 00 2674 DC X'00' 0085BC 085BC 00B9C 2675 ORG ETAB+(4*JROPTNOTSUPP) 000B9C 000085BC 2676 DC A(MJROPTNOTSUPP) 000BA0 00BA0 085BC 2677 ORG 0085BC E3888540D697A389 2678 MJROPTNOTSUPP DC C'The Option name specified is not supported' 0085E6 00 2679 DC X'00' 0085E7 085E7 00BA0 2680 ORG ETAB+(4*JRPTASYNCTHREAD) 000BA0 000085E7 2681 DC A(MJRPTASYNCTHREAD) 000BA4 00BA4 085E7 2682 ORG 0085E7 E388854097A39981 2683 MJRPTASYNCTHREAD DC C'The ptrace request is not allowed because the ta' 008617 998785A340A38899 2684 DC C'rget thread is asynchronous' 008632 00 2685 DC X'00' 008633 08633 00BA4 2686 ORG ETAB+(4*JRSOCKETNOTCON) 000BA4 00008633 2687 DC A(MJRSOCKETNOTCON) 000BA8 00BA8 08633 2688 ORG 008633 E3888540998598A4 2689 MJRSOCKETNOTCON DC C'The requested socket is not connected' 008658 00 2690 DC X'00' 008659 08659 00BA8 2691 ORG ETAB+(4*JRPTYNOPTYSSTORAGE) 000BA8 00008659 2692 DC A(MJRPTYNOPTYSSTORAGE) 000BAC 00BAC 08659 2693 ORG 008659 E3888599854089A2 2694 MJRPTYNOPTYSSTORAGE DC C'There is insufficient storage in the kernel a' 008686 84849985A2A240A2 2695 DC C'ddress space' 008692 00 2696 DC X'00' 008693 08693 00BB0 2697 ORG ETAB+(4*JRSOCKRDWRSIGNAL) 000BB0 00008693 2698 DC A(MJRSOCKRDWRSIGNAL) 000BB4 00BB4 08693 2699 ORG 008693 E289879581934089 2700 MJRSOCKRDWRSIGNAL DC C'Signal interrupt during socket read or write pr' 0086C2 968385A2A2899587 2701 DC C'ocessing' 0086CA 00 2702 DC X'00' 0086CB 086CB 00BB4 2703 ORG ETAB+(4*JRSOCKBUFMAX) 000BB4 000086CB 2704 DC A(MJRSOCKBUFMAX) 000BB8 00BB8 086CB 2705 ORG 0086CB E3888599854089A2 2706 MJRSOCKBUFMAX DC C'There is insufficient storage for the socket messag' 0086FE 85 2707 DC C'e' 1STRREA OMVS_STR_REASON Page 56 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00086FF 00 2708 DC X'00' 008700 08700 00BB8 2709 ORG ETAB+(4*JRINVALIDMSGH) 000BB8 00008700 2710 DC A(MJRINVALIDMSGH) 000BBC 00BBC 08700 2711 ORG 008700 E3888540A2968392 2712 MJRINVALIDMSGH DC C'The socket message header is not correct' 008728 00 2713 DC X'00' 008729 08729 00BBC 2714 ORG ETAB+(4*JRSOCKNONAME) 000BBC 00008729 2715 DC A(MJRSOCKNONAME) 000BC0 00BC0 08729 2716 ORG 008729 E3888540998598A4 2717 MJRSOCKNONAME DC C'The request requires a socket name structure' 008755 00 2718 DC X'00' 008756 08756 00BC0 2719 ORG ETAB+(4*JRINVALIDSERVERNAMELEN) 000BC0 00008756 2720 DC A(MJRINVALIDSERVERNAMELEN) 000BC4 00BC4 08756 2721 ORG 008756 E3888540A28599A5 2722 MJRINVALIDSERVERNAMELEN DC C'The server name length supplied in NRegSN' 00877F 819485D385954089 2723 DC C'ameLen is too long or negative' 00879D 00 2724 DC X'00' 00879E 0879E 00BC4 2725 ORG ETAB+(4*JRNOOOBDATAAVAIL) 000BC4 0000879E 2726 DC A(MJRNOOOBDATAAVAIL) 000BC8 00BC8 0879E 2727 ORG 00879E E3888540D4E2C76D 2728 MJRNOOOBDATAAVAIL DC C'The MSG_OOB flag is set but no OOB data is avai' 0087CD 9381829385409699 2729 DC C'lable or OOB data is inline' 0087E8 00 2730 DC X'00' 0087E9 087E9 00BC8 2731 ORG ETAB+(4*JRINCORRECTTYPEFORFLAG) 000BC8 000087E9 2732 DC A(MJRINCORRECTTYPEFORFLAG) 000BCC 00BCC 087E9 2733 ORG 0087E9 D4E2C76DD6D6C240 2734 MJRINCORRECTTYPEFORFLAG DC C'MSG_OOB flag is set but socket is not a s' 008812 A39985819440A296 2735 DC C'tream socket' 00881E 00 2736 DC X'00' 00881F 0881F 00BCC 2737 ORG ETAB+(4*JRSOCKSHUTDOWN) 000BCC 0000881F 2738 DC A(MJRSOCKSHUTDOWN) 000BD0 00BD0 0881F 2739 ORG 00881F E296839285A34088 2740 MJRSOCKSHUTDOWN DC C'Socket has been shutdown' 008837 00 2741 DC X'00' 008838 08838 00BD0 2742 ORG ETAB+(4*JRMSGHINVALID) 000BD0 00008838 2743 DC A(MJRMSGHINVALID) 000BD4 00BD4 08838 2744 ORG 008838 94A2876D839695A3 2745 MJRMSGHINVALID DC C'msg_controllen or a cmsg_len has an incorrect leng' 00886A A388 2746 DC C'th' 00886C 00 2747 DC X'00' 00886D 0886D 00BD4 2748 ORG ETAB+(4*JRNOADDRSPACE) 000BD4 0000886D 2749 DC A(MJRNOADDRSPACE) 000BD8 00BD8 0886D 2750 ORG 00886D E388854083819393 2751 MJRNOADDRSPACE DC C'The caller apos.s address space name cannot be det' 00889F 85999489958584 2752 DC C'ermined' 0088A6 00 2753 DC X'00' 0088A7 088A7 00BDC 2754 ORG ETAB+(4*JRNONAME) 000BDC 000088A7 2755 DC A(MJRNONAME) 000BE0 00BE0 088A7 2756 ORG 0088A7 E388854095819485 2757 MJRNONAME DC C'The name length is zero' 0088BE 00 2758 DC X'00' 0088BF 088BF 00BE0 2759 ORG ETAB+(4*JRLISTLENBAD) 000BE0 000088BF 2760 DC A(MJRLISTLENBAD) 000BE4 00BE4 088BF 2761 ORG 0088BF E388854093859587 2762 MJRLISTLENBAD DC C'The length of one or all of the input bit lists is ' 1STRREA OMVS_STR_REASON Page 57 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00088F2 9596A340814094A4 2763 DC C'not a multiple of four or is not more than 256 bytes' 008926 00 2764 DC X'00' 008927 08927 00BE4 2765 ORG ETAB+(4*JRINVUSEROP) 000BE4 00008927 2766 DC A(MJRINVUSEROP) 000BE8 00BE8 08927 2767 ORG 008927 E3888540A58193A4 2768 MJRINVUSEROP DC C'The value specifed for the User Option was not 0 or ' 00895B F1 2769 DC C'1' 00895C 00 2770 DC X'00' 00895D 0895D 00BE8 2771 ORG ETAB+(4*JRSOCKETPROTOCOLINVALID) 000BE8 0000895D 2772 DC A(MJRSOCKETPROTOCOLINVALID) 000BEC 00BEC 0895D 2773 ORG 00895D E3888540979996A3 2774 MJRSOCKETPROTOCOLINVALID DC C'The protocol argument on the socket or s' 008985 96839285A3978189 2775 DC C'ocketpair syscall was not 0. The physical file syste' 0089BA 9440969593A840A2 2776 DC C'm only supports a value of 0 for the protocol' 0089E7 00 2777 DC X'00' 0089E8 089E8 00BFC 2778 ORG ETAB+(4*JRNAMEEXISTS) 000BFC 000089E8 2779 DC A(MJRNAMEEXISTS) 000C00 00C00 089E8 2780 ORG 0089E8 E388854095819485 2781 MJRNAMEEXISTS DC C'The name specified in the request is already in use' 008A1B 00 2782 DC X'00' 008A1C 08A1C 00C00 2783 ORG ETAB+(4*JRLISTENNOTDONE) 000C00 00008A1C 2784 DC A(MJRLISTENNOTDONE) 000C04 00C04 08A1C 2785 ORG 008A1C E3888540A2968392 2786 MJRLISTENNOTDONE DC C'The socket is not ready to accept connections' 008A49 00 2787 DC X'00' 008A4A 08A4A 00C0C 2788 ORG ETAB+(4*JRLISTENNOTSTREAM) 000C0C 00008A4A 2789 DC A(MJRLISTENNOTSTREAM) 000C10 00C10 08A4A 2790 ORG 008A4A C1409389A2A38595 2791 MJRLISTENNOTSTREAM DC C'A listen syscall was issued for a socket that ' 008A78 89A2409596A34081 2792 DC C'is not a stream socket. Listen is only valid for str' 008AAD 85819440A2968392 2793 DC C'eam sockets' 008AB8 00 2794 DC X'00' 008AB9 08AB9 00C10 2795 ORG ETAB+(4*JRLISTENALREADYDONE) 000C10 00008AB9 2796 DC A(MJRLISTENALREADYDONE) 000C14 00C14 08AB9 2797 ORG 008AB9 C1409389A2A38595 2798 MJRLISTENALREADYDONE DC C'A listen request has already been completed' 008AE4 00 2799 DC X'00' 008AE5 08AE5 00C14 2800 ORG ETAB+(4*JRSTLACTIONINVALID) 000C14 00008AE5 2801 DC A(MJRSTLACTIONINVALID) 000C18 00C18 08AE5 2802 ORG 008AE5 E3888540A58193A4 2803 MJRSTLACTIONINVALID DC C'The value specified for the action parameter ' 008B12 89A2409596A340A5 2804 DC C'is not valid' 008B1E 00 2805 DC X'00' 008B1F 08B1F 00C18 2806 ORG ETAB+(4*JRSTLTASKSINVALID) 000C18 00008B1F 2807 DC A(MJRSTLTASKSINVALID) 000C1C 00C1C 08B1F 2808 ORG 008B1F E3888540A58193A4 2809 MJRSTLTASKSINVALID DC C'The value specified for the task limit is not ' 008B4D A581938984 2810 DC C'valid' 008B52 00 2811 DC X'00' 008B53 08B53 00C1C 2812 ORG ETAB+(4*JRSTLTHREADSINVALID) 000C1C 00008B53 2813 DC A(MJRSTLTHREADSINVALID) 000C20 00C20 08B53 2814 ORG 008B53 E3888540A58193A4 2815 MJRSTLTHREADSINVALID DC C'The value specified for the thread limit is ' 008B7F 9596A340A5819389 2816 DC C'not valid' 008B88 00 2817 DC X'00' 1STRREA OMVS_STR_REASON Page 58 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0008B89 08B89 00C20 2818 ORG ETAB+(4*JRTCPERROR) 000C20 00008B89 2819 DC A(MJRTCPERROR) 000C24 00C24 08B89 2820 ORG 008B89 E38397409985A3A4 2821 MJRTCPERROR DC C'Tcp returned an error identified by the return code' 008BBC 00 2822 DC X'00' 008BBD 08BBD 00C24 2823 ORG ETAB+(4*JRNOSPACE) 000C24 00008BBD 2824 DC A(MJRNOSPACE) 000C28 00C28 08BBD 2825 ORG 008BBD D7A388998581846D 2826 MJRNOSPACE DC C'Pthread_create failed, due to unavailable user address' 008BF3 40A29781838540A2 2827 DC C' space storage' 008C01 00 2828 DC X'00' 008C02 08C02 00C28 2829 ORG ETAB+(4*JRMAXTCPPATHIDS) 000C28 00008C02 2830 DC A(MJRMAXTCPPATHIDS) 000C2C 00C2C 08C02 2831 ORG 008C02 E38885409481A789 2832 MJRMAXTCPPATHIDS DC C'The maximum number of Tcp/Ip path IDs has been e' 008C32 A7838585848584 2833 DC C'xceeded' 008C39 00 2834 DC X'00' 008C3A 08C3A 00C2C 2835 ORG ETAB+(4*JRPTNOTXTDEVENT) 000C2C 00008C3A 2836 DC A(MJRPTNOTXTDEVENT) 000C30 00C30 08C3A 2837 ORG 008C3A E388854097A39981 2838 MJRPTNOTXTDEVENT DC C'The ptrace request is not allowed because the ta' 008C6A 998785A340979996 2839 DC C'rget process is not stopped for an extended event' 008C9B 00 2840 DC X'00' 008C9C 08C9C 00C30 2841 ORG ETAB+(4*JRPTTOOMANYEVENTS) 000C30 00008C9C 2842 DC A(MJRPTTOOMANYEVENTS) 000C34 00C34 08C9C 2843 ORG 008C9C E388854097A39981 2844 MJRPTTOOMANYEVENTS DC C'The ptrace PT_EVENTS request attempted to add ' 008CCA 949699854085A585 2845 DC C'more events than the specified maximum' 008CF0 00 2846 DC X'00' 008CF1 08CF1 00C34 2847 ORG ETAB+(4*JRTCPNOTACTIVE) 000C34 00008CF1 2848 DC A(MJRTCPNOTACTIVE) 000C38 00C38 08CF1 2849 ORG 008CF1 D59640C1C66DC9D5 2850 MJRTCPNOTACTIVE DC C'No AF_INET socket provider is active' 008D15 00 2851 DC X'00' 008D16 08D16 00C38 2852 ORG ETAB+(4*JRMAXINETSOCKETS) 000C38 00008D16 2853 DC A(MJRMAXINETSOCKETS) 000C3C 00C3C 08D16 2854 ORG 008D16 E388854095A49482 2855 MJRMAXINETSOCKETS DC C'The number of active INET sockets is equal to t' 008D45 888540A58193A485 2856 DC C'he value specified on the MAXSOCKETS parmlib statemen' 008D7A A3 2857 DC C't' 008D7B 00 2858 DC X'00' 008D7C 08D7C 00C3C 2859 ORG ETAB+(4*JRECBERROR) 000C3C 00008D7C 2860 DC A(MJRECBERROR) 000C40 00C40 08D7C 2861 ORG 008D7C E38885409381A2A3 2862 MJRECBERROR DC C'The last ECB pointer in the list of ECB pointers does' 008DB1 409596A3408881A5 2863 DC C' not have the high order bit ( apos.80000000 apos.x) ' 008DE6 A285A340969540A3 2864 DC C'set on to indicate that it is the last ECB pointer in' 008E1B 40A38885409389A2 2865 DC C' the list' 008E24 00 2866 DC X'00' 008E25 08E25 00C40 2867 ORG ETAB+(4*JRECBLISTBAD) 000C40 00008E25 2868 DC A(MJRECBLISTBAD) 000C44 00C44 08E25 2869 ORG 008E25 C195408599999699 2870 MJRECBLISTBAD DC C'An error occurred accessing the list of pointers to' 008E58 40C5C3C2A2409695 2871 DC C' ECBs on a call to the MVSpauseInit service' 008E83 00 2872 DC X'00' 1STRREA OMVS_STR_REASON Page 59 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0008E84 08E84 00C44 2873 ORG ETAB+(4*JRECBSTATEBAD) 000C44 00008E84 2874 DC A(MJRECBSTATEBAD) 000C48 00C48 08E84 2875 ORG 008E84 C195408599999699 2876 MJRECBSTATEBAD DC C'An error occurred accessing one or more of the inp' 008EB6 A4A340C5C3C2A240 2877 DC C'ut ECBs on a call to the MVSpauseInit or MVSpause ser' 008EEB A5898385 2878 DC C'vice' 008EEF 00 2879 DC X'00' 008EF0 08EF0 00C48 2880 ORG ETAB+(4*JRECBLISTNOTSETUP) 000C48 00008EF0 2881 DC A(MJRECBLISTNOTSETUP) 000C4C 00C4C 08EF0 2882 ORG 008EF0 E3888540D4E5E297 2883 MJRECBLISTNOTSETUP DC C'The MVSpause service was called but the MVSpau' 008F1E A285C99589A340A2 2884 DC C'seInit service was never called to prepare for an MVS' 008F53 9781A4A285 2885 DC C'pause' 008F58 00 2886 DC X'00' 008F59 08F59 00C4C 2887 ORG ETAB+(4*JRSOCKETTYPENOTSUPPORTED) 000C4C 00008F59 2888 DC A(MJRSOCKETTYPENOTSUPPORTED) 000C50 00C50 08F59 2889 ORG 008F59 E3888540998598A4 2890 MJRSOCKETTYPENOTSUPPORTED DC C'The requested socket type is not suppor' 008F80 A38584 2891 DC C'ted' 008F83 00 2892 DC X'00' 008F84 08F84 00C50 2893 ORG ETAB+(4*JRECBWAITBITON) 000C50 00008F84 2894 DC A(MJRECBWAITBITON) 000C54 00C54 08F84 2895 ORG 008F84 E3888540A68189A3 2896 MJRECBWAITBITON DC C'The wait bit (the high order bit) was on in the s' 008FB5 9785838986898584 2897 DC C'pecified event control block (ECB)' 008FD7 00 2898 DC X'00' 008FD8 08FD8 00C54 2899 ORG ETAB+(4*JRINVALIDVLOK) 000C54 00008FD8 2900 DC A(MJRINVALIDVLOK) 000C58 00C58 08FD8 2901 ORG 008FD8 E3888540A2A49797 2902 MJRINVALIDVLOK DC C'The supplied VLock structure was not valid' 009002 00 2903 DC X'00' 009003 09003 00C58 2904 ORG ETAB+(4*JRINVALIDSERVERPID) 000C58 00009003 2905 DC A(MJRINVALIDSERVERPID) 000C5C 00C5C 09003 2906 ORG 009003 E3888540A2A49797 2907 MJRINVALIDSERVERPID DC C'The supplied VLokServerPID value was not vali' 009030 84 2908 DC C'd' 009031 00 2909 DC X'00' 009032 09032 00C5C 2910 ORG ETAB+(4*JRNOLOCKERTOKEN) 000C5C 00009032 2911 DC A(MJRNOLOCKERTOKEN) 000C60 00C60 09032 2912 ORG 009032 D59640D396839285 2913 MJRNOLOCKERTOKEN DC C'No Locker token was specified in the Vlock struc' 009062 A3A49985 2914 DC C'ture' 009066 00 2915 DC X'00' 009067 09067 00C60 2916 ORG ETAB+(4*JRBRLMOBJECTMISSING) 000C60 00009067 2917 DC A(MJRBRLMOBJECTMISSING) 000C64 00C64 09067 2918 ORG 009067 D59640D682918583 2919 MJRBRLMOBJECTMISSING DC C'No Object was specified in the Vlock structu' 009093 9985 2920 DC C're' 009095 00 2921 DC X'00' 009096 09096 00C64 2922 ORG ETAB+(4*JRBRLMWRONGLEVEL) 000C64 00009096 2923 DC A(MJRBRLMWRONGLEVEL) 000C68 00C68 09096 2924 ORG 009096 E388854082A8A385 2925 MJRBRLMWRONGLEVEL DC C'The byte-range lock manager does not support th' 0090C5 8540998598A485A2 2926 DC C'e request' 0090CE 00 2927 DC X'00' 1STRREA OMVS_STR_REASON Page 60 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00090CF 090CF 00C68 2928 ORG ETAB+(4*JRBRLMLOCKERNOTREGISTERED) 000C68 000090CF 2929 DC A(MJRBRLMLOCKERNOTREGISTERED) 000C6C 00C6C 090CF 2930 ORG 0090CF E3888540D3968392 2931 MJRBRLMLOCKERNOTREGISTERED DC C'The Locker token specified in the Vloc' 0090F5 9240A2A399A483A3 2932 DC C'k structure is not registered' 009112 00 2933 DC X'00' 009113 09113 00C6C 2934 ORG ETAB+(4*JRMULTIPROC) 000C6C 00009113 2935 DC A(MJRMULTIPROC) 000C70 00C70 09113 2936 ORG 009113 E3888540A2978583 2937 MJRMULTIPROC DC C'The specified function is not supported in an addres' 009147 A240A29781838540 2938 DC C's space running multiple processes' 009169 00 2939 DC X'00' 00916A 0916A 00C70 2940 ORG ETAB+(4*JRTASKACEE) 000C70 0000916A 2941 DC A(MJRTASKACEE) 000C74 00C74 0916A 2942 ORG 00916A E3888540A2978583 2943 MJRTASKACEE DC C'The specified function is not supported when a task l' 00919F 85A5859340C1C3C5 2944 DC C'evel ACEE is active for the calling task' 0091C7 00 2945 DC X'00' 0091C8 091C8 00C74 2946 ORG ETAB+(4*JRUSERNAMELENERROR) 000C74 000091C8 2947 DC A(MJRUSERNAMELENERROR) 000C78 00C78 091C8 2948 ORG 0091C8 E3888540A4A28599 2949 MJRUSERNAMELENERROR DC C'The user name length value was incorrect.' 0091F1 00 2950 DC X'00' 0091F2 091F2 00C78 2951 ORG ETAB+(4*JRPASSWORDLENERROR) 000C78 000091F2 2952 DC A(MJRPASSWORDLENERROR) 000C7C 00C7C 091F2 2953 ORG 0091F2 E38885409781A2A2 2954 MJRPASSWORDLENERROR DC C'The password length value was incorrect.' 00921A 00 2955 DC X'00' 00921B 0921B 00C7C 2956 ORG ETAB+(4*JRNEWPASSWORDLENERROR) 000C7C 0000921B 2957 DC A(MJRNEWPASSWORDLENERROR) 000C80 00C80 0921B 2958 ORG 00921B E38885409781A2A2 2959 MJRNEWPASSWORDLENERROR DC C'The password length value was incorrect.' 009243 00 2960 DC X'00' 009244 09244 00C80 2961 ORG ETAB+(4*JRMIXEDSECURITYENV) 000C80 00009244 2962 DC A(MJRMIXEDSECURITYENV) 000C84 00C84 09244 2963 ORG 009244 E3888540A2978583 2964 MJRMIXEDSECURITYENV DC C'The specified function is not supported after' 009271 408140A285A385A4 2965 DC C' a seteuid has changed the security environment of th' 0092A6 8540838193938599 2966 DC C'e caller' 0092AE 00 2967 DC X'00' 0092AF 092AF 00C94 2968 ORG ETAB+(4*JRTSO) 000C94 000092AF 2969 DC A(MJRTSO) 000C98 00C98 092AF 2970 ORG 0092AF E3888540A2978583 2971 MJRTSO DC C'The specified function is not supported in a TSO space run' 0092E9 958995874094A493 2972 DC C'ning multiple processes' 009300 00 2973 DC X'00' 009301 09301 00C98 2974 ORG ETAB+(4*JRENVDIRTY) 000C98 00009301 2975 DC A(MJRENVDIRTY) 000C9C 00C9C 09301 2976 ORG 009301 E3888540A2978583 2977 MJRENVDIRTY DC C'The specified function is not supported in an address' 009336 40A29781838540A6 2978 DC C' space where a load was done that is not program cont' 00936B 9996939385844B 2979 DC C'rolled.' 009372 00 2980 DC X'00' 009373 09373 00DE4 2981 ORG ETAB+(4*JRIPCBADID) 000DE4 00009373 2982 DC A(MJRIPCBADID) 1STRREA OMVS_STR_REASON Page 61 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000DE8 00DE8 09373 2983 ORG 009373 E3888540C9C44089 2984 MJRIPCBADID DC C'The ID is not valid or has been removed from the syst' 0093A8 8594 2985 DC C'em' 0093AA 00 2986 DC X'00' 0093AB 093AB 00DE8 2987 ORG ETAB+(4*JRIPCDENIED) 000DE8 000093AB 2988 DC A(MJRIPCDENIED) 000DEC 00DEC 093AB 2989 ORG 0093AB C1838385A2A240A6 2990 MJRIPCDENIED DC C'Access was denied because the caller does not have t' 0093DF 8885408396999985 2991 DC C'he correct permission' 0093F4 00 2992 DC X'00' 0093F5 093F5 00DEC 2993 ORG ETAB+(4*JRIPCEXISTS) 000DEC 000093F5 2994 DC A(MJRIPCEXISTS) 000DF0 00DF0 093F5 2995 ORG 0093F5 E388854083819393 2996 MJRIPCEXISTS DC C'The caller issued CREATE, EXCL and the key was alrea' 009429 84A8408485868995 2997 DC C'dy defined to InterProcess Communications' 009452 00 2998 DC X'00' 009453 09453 00DF0 2999 ORG ETAB+(4*JRIPCMAXIDS) 000DF0 00009453 3000 DC A(MJRIPCMAXIDS) 000DF4 00DF4 09453 3001 ORG 009453 E388854095A49482 3002 MJRIPCMAXIDS DC C'The number of IDs exceeds the system limit and the c' 009487 998581A385408681 3003 DC C'reate fails' 009492 00 3004 DC X'00' 009493 09493 00DF4 3005 ORG ETAB+(4*JRIPCNOEXIST) 000DF4 00009493 3006 DC A(MJRIPCNOEXIST) 000DF8 00DF8 09493 3007 ORG 009493 E388854083819393 3008 MJRIPCNOEXIST DC C'The caller tried to locate a member for the key spe' 0094C6 8389868985844082 3009 DC C'cified but it does not exist' 0094E2 00 3010 DC X'00' 0094E3 094E3 00DF8 3011 ORG ETAB+(4*JRIPCRETRY) 000DF8 000094E3 3012 DC A(MJRIPCRETRY) 000DFC 00DFC 094E3 3013 ORG 0094E3 D5D6E6C1C9E340A6 3014 MJRIPCRETRY DC C'NOWAIT was specified but the operation could not be p' 009518 8599869699948584 3015 DC C'erformed immediately' 00952C 00 3016 DC X'00' 00952D 0952D 00DFC 3017 ORG ETAB+(4*JRIPCSIGNALED) 000DFC 0000952D 3018 DC A(MJRIPCSIGNALED) 000E00 00E00 0952D 3019 ORG 00952D C19540C9D7C340A6 3020 MJRIPCSIGNALED DC C'An IPC wait was interrupted by a signal' 009554 00 3021 DC X'00' 009555 09555 00E00 3022 ORG ETAB+(4*JRIPCBADFLAGS) 000E00 00009555 3023 DC A(MJRIPCBADFLAGS) 000E04 00E04 09555 3024 ORG 009555 C5A7A39981958596 3025 MJRIPCBADFLAGS DC C'Extraneous bits were set in the flags word paramet' 009587 8599409699408995 3026 DC C'er or in the mode flag bit field.' 0095A8 00 3027 DC X'00' 0095A9 095A9 00E04 3028 ORG ETAB+(4*JRMSQBADTYPE) 000E04 000095A9 3029 DC A(MJRMSQBADTYPE) 000E08 00E08 095A9 3030 ORG 0095A9 D485A2A281878540 3031 MJRMSQBADTYPE DC C'Message type must be greater than zero' 0095CF 00 3032 DC X'00' 0095D0 095D0 00E08 3033 ORG ETAB+(4*JRMSQBADSIZE) 000E08 000095D0 3034 DC A(MJRMSQBADSIZE) 000E0C 00E0C 095D0 3035 ORG 0095D0 E38885409485A2A2 3036 MJRMSQBADSIZE DC C'The message length exceeds the system limit or is l' 009603 85A2A240A3888195 3037 DC C'ess than zero.' 1STRREA OMVS_STR_REASON Page 62 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0009611 00 3038 DC X'00' 009612 09612 00E0C 3039 ORG ETAB+(4*JRMSQNOMSG) 000E0C 00009612 3040 DC A(MJRMSQNOMSG) 000E10 00E10 09612 3041 ORG 009612 D596409485A2A281 3042 MJRMSQNOMSG DC C'No message of the type requested was found' 00963C 00 3043 DC X'00' 00963D 0963D 00E10 3044 ORG ETAB+(4*JRMSQ2BIG) 000E10 0000963D 3045 DC A(MJRMSQ2BIG) 000E14 00E14 0963D 3046 ORG 00963D E38885409485A2A2 3047 MJRMSQ2BIG DC C'The message to receive was too large for the buffer an' 009673 8440D4E2C76DD5D6 3048 DC C'd MSG_NOERROR was not specified' 009692 00 3049 DC X'00' 009693 09693 00E14 3050 ORG ETAB+(4*JRSEMA4BADADJ) 000E14 00009693 3051 DC A(MJRSEMA4BADADJ) 000E18 00E18 09693 3052 ORG 009693 E3888540A58193A4 3053 MJRSEMA4BADADJ DC C'The value specified would exceed the system limit ' 0096C5 86969940A2859481 3054 DC C'for semadj' 0096CF 00 3055 DC X'00' 0096D0 096D0 00E18 3056 ORG ETAB+(4*JRSEMA4BADNOPS) 000E18 000096D0 3057 DC A(MJRSEMA4BADNOPS) 000E1C 00E1C 096D0 3058 ORG 0096D0 D5A4948285994096 3059 MJRSEMA4BADNOPS DC C'Number of semaphore operation exceeds the system ' 009701 93899489A3 3060 DC C'limit' 009706 00 3061 DC X'00' 009707 09707 00E1C 3062 ORG ETAB+(4*JRSEMA4BADNSEMS) 000E1C 00009707 3063 DC A(MJRSEMA4BADNSEMS) 000E20 00E20 09707 3064 ORG 009707 E285948197889699 3065 MJRSEMA4BADNSEMS DC C'Semaphore ID already exists for the KEY, but the' 009737 4095A49482859940 3066 DC C' number of semaphores is less than requested' 009763 00 3067 DC X'00' 009764 09764 00E20 3068 ORG ETAB+(4*JRTYPENOTPID) 000E20 00009764 3069 DC A(MJRTYPENOTPID) 000E24 00E24 09764 3070 ORG 009764 C14094A2879983A5 3071 MJRTYPENOTPID DC C'A msgrcv or msgsnd did not have its process ID as t' 009797 A89785 3072 DC C'ype' 00979A 00 3073 DC X'00' 00979B 0979B 00E24 3074 ORG ETAB+(4*JRSEMA4BADSEMN) 000E24 0000979B 3075 DC A(MJRSEMA4BADSEMN) 000E28 00E28 0979B 3076 ORG 00979B E3888540A2859481 3077 MJRSEMA4BADSEMN DC C'The semaphore number is invalid' 0097BA 00 3078 DC X'00' 0097BB 097BB 00E28 3079 ORG ETAB+(4*JRSEMA4BADVALUE) 000E28 000097BB 3080 DC A(MJRSEMA4BADVALUE) 000E2C 00E2C 097BB 3081 ORG 0097BB E3888540A58193A4 3082 MJRSEMA4BADVALUE DC C'The value specified would exceed the system limi' 0097EB A3 3083 DC C't' 0097EC 00 3084 DC X'00' 0097ED 097ED 00E2C 3085 ORG ETAB+(4*JRSEMA4BIGNSEMS) 000E2C 000097ED 3086 DC A(MJRSEMA4BIGNSEMS) 000E30 00E30 097ED 3087 ORG 0097ED E388854095A49482 3088 MJRSEMA4BIGNSEMS DC C'The number of semaphores exceeds the system maxi' 00981D 94A494 3089 DC C'mum' 009820 00 3090 DC X'00' 009821 09821 00E30 3091 ORG ETAB+(4*JRSEMA4ZERONSEMS) 000E30 00009821 3092 DC A(MJRSEMA4ZERONSEMS) 1STRREA OMVS_STR_REASON Page 63 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000E34 00E34 09821 3093 ORG 009821 E388854095A49482 3094 MJRSEMA4ZERONSEMS DC C'The number of semaphores specified was zero and' 009850 40A3888540A28594 3095 DC C' the semaphore does not exist' 00986D 00 3096 DC X'00' 00986E 0986E 00E34 3097 ORG ETAB+(4*JRSHMBADSIZE) 000E34 0000986E 3098 DC A(MJRSHMBADSIZE) 000E38 00E38 0986E 3099 ORG 00986E E3888540A2888199 3100 MJRSHMBADSIZE DC C'The shared memory segment size is incorrect or outs' 0098A1 89848540A3888540 3101 DC C'ide the system defined range of valid segment sizes.' 0098D5 00 3102 DC X'00' 0098D6 098D6 00E38 3103 ORG ETAB+(4*JRSHMMAXATTACH) 000E38 000098D6 3104 DC A(MJRSHMMAXATTACH) 000E3C 00E3C 098D6 3105 ORG 0098D6 E388854095A49482 3106 MJRSHMMAXATTACH DC C'The number of shared memory attaches for the curr' 009907 8595A34097999683 3107 DC C'ent process exceeds the system defined maximum.' 009936 00 3108 DC X'00' 009937 09937 00E3C 3109 ORG ETAB+(4*JRIPCREMOVED) 000E3C 00009937 3110 DC A(MJRIPCREMOVED) 000E40 00E40 09937 3111 ORG 009937 C4A4998995874081 3112 MJRIPCREMOVED DC C'During a wait, the IPC member ID was removed from t' 00996A 888540A2A8A2A385 3113 DC C'he system' 009973 00 3114 DC X'00' 009974 09974 00E40 3115 ORG ETAB+(4*JRMSQQBYTES) 000E40 00009974 3116 DC A(MJRMSQQBYTES) 000E44 00E44 09974 3117 ORG 009974 D596A34097859994 3118 MJRMSQQBYTES DC C'Not permitted to increase message qbytes or attempt ' 0099A8 82A840A2A4978599 3119 DC C'by superuser to set message qbytes exceeds system lim' 0099DD 89A34B 3120 DC C'it.' 0099E0 00 3121 DC X'00' 0099E1 099E1 00E44 3122 ORG ETAB+(4*JRBADPERFGROUP) 000E44 000099E1 3123 DC A(MJRBADPERFGROUP) 000E48 00E48 099E1 3124 ORG 0099E1 E3888540A2978583 3125 MJRBADPERFGROUP DC C'The specified priority or nice value represents a' 009A12 4097859986969994 3126 DC C' performance group that could not be used.' 009A3C 00 3127 DC X'00' 009A3D 09A3D 00E48 3128 ORG ETAB+(4*JRBADSERVCLASS) 000E48 00009A3D 3129 DC A(MJRBADSERVCLASS) 000E4C 00E4C 09A3D 3130 ORG 009A3D E3888540A2978583 3131 MJRBADSERVCLASS DC C'The specified priority or nice value represents a' 009A6E 40A28599A5898385 3132 DC C' service class that could not be used.' 009A94 00 3133 DC X'00' 009A95 09A95 00E4C 3134 ORG ETAB+(4*JRMSQQUEUEFULLMESSAGES) 000E4C 00009A95 3135 DC A(MJRMSQQUEUEFULLMESSAGES) 000E50 00E50 09A95 3136 ORG 009A95 C9D7C36DD5D6E6C1 3137 MJRMSQQUEUEFULLMESSAGES DC C'IPC_NOWAIT was specified but the operatio' 009ABE 9540A681A2409596 3138 DC C'n was not done because there was no room in the messa' 009AF3 87854098A485A485 3139 DC C'ge queue due to the number of messages in the message' 009B28 4098A485A485 3140 DC C' queue' 009B2E 00 3141 DC X'00' 009B2F 09B2F 00E50 3142 ORG ETAB+(4*JRMSQQUEUEFULLBYTES) 000E50 00009B2F 3143 DC A(MJRMSQQUEUEFULLBYTES) 000E54 00E54 09B2F 3144 ORG 009B2F C9D7C36DD5D6E6C1 3145 MJRMSQQUEUEFULLBYTES DC C'IPC_NOWAIT was specified and the operation w' 009B5B 81A2409596A34084 3146 DC C'as not done because there was no room in the message ' 009B90 98A485A4854084A4 3147 DC C'queue due to the number of bytes in the message queue' 1STRREA OMVS_STR_REASON Page 64 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0009BC5 00 3148 DC X'00' 009BC6 09BC6 00E54 3149 ORG ETAB+(4*JRRFILENOREAD) 000E54 00009BC6 3150 DC A(MJRRFILENOREAD) 000E58 00E58 09BC6 3151 ORG 009BC6 C1408381939340A3 3152 MJRRFILENOREAD DC C'A call tried to read a file opened without read ac' 009BF8 8385A2A2 3153 DC C'cess' 009BFC 00 3154 DC X'00' 009BFD 09BFD 00E58 3155 ORG ETAB+(4*JRSEMSTORAGELIMIT) 000E58 00009BFD 3156 DC A(MJRSEMSTORAGELIMIT) 000E5C 00E5C 09BFD 3157 ORG 009BFD E3888540A2859487 3158 MJRSEMSTORAGELIMIT DC C'The semget or semop failed because the semapho' 009C2B 998540A2A3969981 3159 DC C're storage limit was reached' 009C47 00 3160 DC X'00' 009C48 09C48 00E5C 3161 ORG ETAB+(4*JRINHEEYE) 000E5C 00009C48 3162 DC A(MJRINHEEYE) 000E60 00E60 09C48 3163 ORG 009C48 E388854089958885 3164 MJRINHEEYE DC C'The inheritance area contains an incorrect eyecatcher ' 009C7E A58193A485 3165 DC C'value' 009C83 00 3166 DC X'00' 009C84 09C84 00E60 3167 ORG ETAB+(4*JRINHELENGTH) 000E60 00009C84 3168 DC A(MJRINHELENGTH) 000E64 00E64 09C84 3169 ORG 009C84 E388854093859587 3170 MJRINHELENGTH DC C'The length specified for the inheritance area conta' 009CB7 8995A24081954089 3171 DC C'ins an incorrect value' 009CCD 00 3172 DC X'00' 009CCE 09CCE 00E64 3173 ORG ETAB+(4*JRINHEVERSION) 000E64 00009CCE 3174 DC A(MJRINHEVERSION) 000E68 00E68 09CCE 3175 ORG 009CCE E388854089958885 3176 MJRINHEVERSION DC C'The inheritance area contains an incorrect version' 009D00 4095A494828599 3177 DC C' number' 009D07 00 3178 DC X'00' 009D08 09D08 00E68 3179 ORG ETAB+(4*JRSPAWNTOOMANYFDS) 000E68 00009D08 3180 DC A(MJRSPAWNTOOMANYFDS) 000E6C 00E6C 09D08 3181 ORG 009D08 E38885408396A495 3182 MJRSPAWNTOOMANYFDS DC C'The count of file descriptors specified is gre' 009D36 81A3859940A38881 3183 DC C'ater than the maximum supported by the system.' 009D64 00 3184 DC X'00' 009D65 09D65 00E80 3185 ORG ETAB+(4*JRSHMMAXSPAGES) 000E80 00009D65 3186 DC A(MJRSHMMAXSPAGES) 000E84 00E84 09D65 3187 ORG 009D65 E388854096978599 3188 MJRSHMMAXSPAGES DC C'The operation was not done because the system wid' 009D96 854093899489A340 3189 DC C'e limit for shared memory segment pages was exceeded' 009DCA 00 3190 DC X'00' 009DCB 09DCB 00E84 3191 ORG ETAB+(4*JRNOACCESS) 000E84 00009DCB 3192 DC A(MJRNOACCESS) 000E88 00E88 09DCB 3193 ORG 009DCB C381939385994084 3194 MJRNOACCESS DC C'Caller does not have access to function' 009DF2 00 3195 DC X'00' 009DF3 09DF3 00E8C 3196 ORG ETAB+(4*JRFDLISTTOOBIG) 000E8C 00009DF3 3197 DC A(MJRFDLISTTOOBIG) 000E90 00E90 09DF3 3198 ORG 009DF3 E3888540A289A985 3199 MJRFDLISTTOOBIG DC C'The size of the file descriptor list is larger th' 009E24 8195408381954082 3200 DC C'an can be currently supported.' 009E42 00 3201 DC X'00' 009E43 09E43 00E90 3202 ORG ETAB+(4*JRBADFDLIST) 1STRREA OMVS_STR_REASON Page 65 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000E90 00009E43 3203 DC A(MJRBADFDLIST) 000E94 00E94 09E43 3204 ORG 009E43 E388854086899385 3205 MJRBADFDLIST DC C'The file descriptor list supplied on the call to BPX' 009E77 F1E2D7D54089A240 3206 DC C'1SPN is not accessible by the caller.' 009E9C 00 3207 DC X'00' 009E9D 09E9D 00E94 3208 ORG ETAB+(4*JRNOTMAPPED) 000E94 00009E9D 3209 DC A(MJRNOTMAPPED) 000E98 00E98 09E9D 3210 ORG 009E9D D695854096994094 3211 MJRNOTMAPPED DC C'One or more specified pages are not mapped' 009EC7 00 3212 DC X'00' 009EC8 09EC8 00E98 3213 ORG ETAB+(4*JRCLNYASCREFAILED) 000E98 00009EC8 3214 DC A(MJRCLNYASCREFAILED) 000E9C 00E9C 09EC8 3215 ORG 009EC8 E3888540C1E2C3D9 3216 MJRCLNYASCREFAILED DC C'The ASCRE macro issued to start a colony addre' 009EF6 A2A240A297818385 3217 DC C'ss space returned a failing return code.' 009F1E 00 3218 DC X'00' 009F1F 09F1F 00E9C 3219 ORG ETAB+(4*JRCLNYSTARTFAILED) 000E9C 00009F1F 3220 DC A(MJRCLNYSTARTFAILED) 000EA0 00EA0 09F1F 3221 ORG 009F1F C1408396939695A8 3222 MJRCLNYSTARTFAILED DC C'A colony address space failed to initialize.' 009F4B 00 3223 DC X'00' 009F4C 09F4C 00EA0 3224 ORG ETAB+(4*JRCLNYNOTSTOPPED) 000EA0 00009F4C 3225 DC A(MJRCLNYNOTSTOPPED) 000EA4 00EA4 09F4C 3226 ORG 009F4C E388854083969396 3227 MJRCLNYNOTSTOPPED DC C'The colony address space could not be stopped.' 009F7A 00 3228 DC X'00' 009F7B 09F7B 00EA4 3229 ORG ETAB+(4*JRCLNYNOCOMMONSTORAGE) 000EA4 00009F7B 3230 DC A(MJRCLNYNOCOMMONSTORAGE) 000EA8 00EA8 09F7B 3231 ORG 009F7B E3888540A2A8A2A3 3232 MJRCLNYNOCOMMONSTORAGE DC C'The system was unable to obtain storage in' 009FA5 4083969494969540 3233 DC C' common for a control block to represent a colony add' 009FDA 9985A2A240A29781 3234 DC C'ress space.' 009FE5 00 3235 DC X'00' 009FE6 09FE6 00EA8 3236 ORG ETAB+(4*JRPFSNOTDUBBED) 000EA8 00009FE6 3237 DC A(MJRPFSNOTDUBBED) 000EAC 00EAC 09FE6 3238 ORG 009FE6 E3888540D7C6E240 3239 MJRPFSNOTDUBBED DC C'The PFS task calling an OSI service is not dubbed' 00A017 4B 3240 DC C'.' 00A018 00 3241 DC X'00' 00A019 0A019 00EAC 3242 ORG ETAB+(4*JRCLNYNOTSTARTED) 000EAC 0000A019 3243 DC A(MJRCLNYNOTSTARTED) 000EB0 00EB0 0A019 3244 ORG 00A019 C1954081A3A38594 3245 MJRCLNYNOTSTARTED DC C'An attempt was made to start a PFS within a col' 00A048 9695A84081848499 3246 DC C'ony address space. The colony was either not complet' 00A07D 8593A840899589A3 3247 DC C'ely initialized or it was being terminated.' 00A0A8 00 3248 DC X'00' 00A0A9 0A0A9 00EB0 3249 ORG ETAB+(4*JRPTYCHGFROMSLAVE) 000EB0 0000A0A9 3250 DC A(MJRPTYCHGFROMSLAVE) 000EB4 00EB4 0A0A9 3251 ORG 00A0A9 C1954081A3A38594 3252 MJRPTYCHGFROMSLAVE DC C'An attempt was made to change a termios flag f' 00A0D7 99969440A3888540 3253 DC C'rom the slave pty, which is only allowed from the mas' 00A10C A385994B 3254 DC C'ter.' 00A110 00 3255 DC X'00' 00A111 0A111 00EB4 3256 ORG ETAB+(4*JRCLNYPFSNOTSTARTED) 000EB4 0000A111 3257 DC A(MJRCLNYPFSNOTSTARTED) 1STRREA OMVS_STR_REASON Page 66 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000EB8 00EB8 0A111 3258 ORG 00A111 C1954081A3A38594 3259 MJRCLNYPFSNOTSTARTED DC C'An attempt was made to stop or clean up a co' 00A13D 939695A840D7C6E2 3260 DC C'lony PFS that was not previously started.' 00A166 00 3261 DC X'00' 00A167 0A167 00EB8 3262 ORG ETAB+(4*JRCLNYPFSNOTDONE) 000EB8 0000A167 3263 DC A(MJRCLNYPFSNOTDONE) 000EBC 00EBC 0A167 3264 ORG 00A167 C1954081A3A38594 3265 MJRCLNYPFSNOTDONE DC C'An attempt was made to clean up a colony PFS th' 00A196 81A340A681A24095 3266 DC C'at was not completely terminated.' 00A1B7 00 3267 DC X'00' 00A1B8 0A1B8 00EC0 3268 ORG ETAB+(4*JRDEVCONFIGTYPEERROR) 000EC0 0000A1B8 3269 DC A(MJRDEVCONFIGTYPEERROR) 000EC4 00EC4 0A1B8 3270 ORG 00A1B8 C1954081A3A38594 3271 MJRDEVCONFIGTYPEERROR DC C'An attempt was made to configure a device d' 00A1E3 9989A5859940A388 3272 DC C'river that was not defined.' 00A1FE 00 3273 DC X'00' 00A1FF 0A1FF 00EC4 3274 ORG ETAB+(4*JRPTYNEEDPKT3270) 000EC4 0000A1FF 3275 DC A(MJRPTYNEEDPKT3270) 000EC8 00EC8 0A1FF 3276 ORG 00A1FF C1954081A3A38594 3277 MJRPTYNEEDPKT3270 DC C'An attempt was made to set 3270 Passthru mode w' 00A22E 89A38896A4A340F3 3278 DC C'ithout 3270 Packet mode.' 00A246 00 3279 DC X'00' 00A247 0A247 00EC8 3280 ORG ETAB+(4*JRMMAPOVEREOF) 000EC8 0000A247 3281 DC A(MJRMMAPOVEREOF) 000ECC 00ECC 0A247 3282 ORG 00A247 E388854085A7A385 3283 MJRMMAPOVEREOF DC C'The extended file cannot be mapped over its EOF po' 00A279 8995A3 3284 DC C'int' 00A27C 00 3285 DC X'00' 00A27D 0A27D 00ECC 3286 ORG ETAB+(4*JRRAISEHARDLIMIT) 000ECC 0000A27D 3287 DC A(MJRRAISEHARDLIMIT) 000ED0 00ED0 0A27D 3288 ORG 00A27D C1954081A3A38594 3289 MJRRAISEHARDLIMIT DC C'An attempt was made to raise a hard limit witho' 00A2AC A4A340A2A4978599 3290 DC C'ut superuser authority.' 00A2C3 00 3291 DC X'00' 00A2C4 0A2C4 00ED0 3292 ORG ETAB+(4*JRINVALIDRESOURCE) 000ED0 0000A2C4 3293 DC A(MJRINVALIDRESOURCE) 000ED4 00ED4 0A2C4 3294 ORG 00A2C4 E3888540899597A4 3295 MJRINVALIDRESOURCE DC C'The input resource value is not valid.' 00A2EA 00 3296 DC X'00' 00A2EB 0A2EB 00ED4 3297 ORG ETAB+(4*JRSOFTEXCEEDSHARD) 000ED4 0000A2EB 3298 DC A(MJRSOFTEXCEEDSHARD) 000ED8 00ED8 0A2EB 3299 ORG 00A2EB C1954081A3A38594 3300 MJRSOFTEXCEEDSHARD DC C'An attempt was made to raise a soft limit abov' 00A319 854089A3A2408881 3301 DC C'e its hard limit.' 00A32A 00 3302 DC X'00' 00A32B 0A32B 00ED8 3303 ORG ETAB+(4*JRSOFTBELOWUSAGE) 000ED8 0000A32B 3304 DC A(MJRSOFTBELOWUSAGE) 000EDC 00EDC 0A32B 3305 ORG 00A32B C1954081A3A38594 3306 MJRSOFTBELOWUSAGE DC C'An attempt was made to lower a soft limit below' 00A35A 40A388854083A499 3307 DC C' the current usage for the resource.' 00A37E 00 3308 DC X'00' 00A37F 0A37F 00EDC 3309 ORG ETAB+(4*JRINVALIDWHO) 000EDC 0000A37F 3310 DC A(MJRINVALIDWHO) 000EE0 00EE0 0A37F 3311 ORG 00A37F E3888540899597A4 3312 MJRINVALIDWHO DC C'The input who value is not valid.' 1STRREA OMVS_STR_REASON Page 67 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000A3A0 00 3313 DC X'00' 00A3A1 0A3A1 00EE8 3314 ORG ETAB+(4*JRPTYMUTUALLYEXCLUSIVE) 000EE8 0000A3A1 3315 DC A(MJRPTYMUTUALLYEXCLUSIVE) 000EEC 00EEC 0A3A1 3316 ORG 00A3A1 C1954081A3A38594 3317 MJRPTYMUTUALLYEXCLUSIVE DC C'An attempt was made to set mutually exclu' 00A3CA A289A585408289A3 3318 DC C'sive bits.' 00A3D4 00 3319 DC X'00' 00A3D5 0A3D5 00EEC 3320 ORG ETAB+(4*JRMMAPSTGEXCEEDED) 000EEC 0000A3D5 3321 DC A(MJRMMAPSTGEXCEEDED) 000EF0 00EF0 0A3D5 3322 ORG 00A3D5 E3888540A2A8A2A3 3323 MJRMMAPSTGEXCEEDED DC C'The system-wide limit on the amount of memory ' 00A403 839695A2A4948584 3324 DC C'consumed by memory mapped areas is exceeded' 00A42E 00 3325 DC X'00' 00A42F 0A42F 00EF0 3326 ORG ETAB+(4*JRPATHCONF) 000EF0 0000A42F 3327 DC A(MJRPATHCONF) 000EF4 00EF4 0A42F 3328 ORG 00A42F E3888540E5959684 3329 MJRPATHCONF DC C'The Vnode operation pathconf is not supported by this' 00A464 408689938540A2A8 3330 DC C' file system' 00A470 00 3331 DC X'00' 00A471 0A471 00EF4 3332 ORG ETAB+(4*JRNOTPAGE) 000EF4 0000A471 3333 DC A(MJRNOTPAGE) 000EF8 00EF8 0A471 3334 ORG 00A471 C14093968381A389 3335 MJRNOTPAGE DC C'A location specified or generated is not on a page bou' 00A4A7 95848199A8 3336 DC C'ndary' 00A4AC 00 3337 DC X'00' 00A4AD 0A4AD 00EF8 3338 ORG ETAB+(4*JRMMAPBADTYPE) 000EF8 0000A4AD 3339 DC A(MJRMMAPBADTYPE) 000EFC 00EFC 0A4AD 3340 ORG 00A4AD E3888540A58193A4 3341 MJRMMAPBADTYPE DC C'The value of the map_type is not valid' 00A4D3 00 3342 DC X'00' 00A4D4 0A4D4 00EFC 3343 ORG ETAB+(4*JRHARDWARE) 000EFC 0000A4D4 3344 DC A(MJRHARDWARE) 000F00 00F00 0A4D4 3345 ORG 00A4D4 C140998598A485A2 3346 MJRHARDWARE DC C'A request was made for a hardware that is not availab' 00A509 9385 3347 DC C'le' 00A50B 00 3348 DC X'00' 00A50C 0A50C 00F00 3349 ORG ETAB+(4*JRADDRESSNOTAVAILABLE) 000F00 0000A50C 3350 DC A(MJRADDRESSNOTAVAILABLE) 000F04 00F04 0A50C 3351 ORG 00A50C C140998598A485A2 3352 MJRADDRESSNOTAVAILABLE DC C'A request was made for a storage address, ' 00A536 82A4A34089A34083 3353 DC C'but it could not be satisfied' 00A553 00 3354 DC X'00' 00A554 0A554 00F04 3355 ORG ETAB+(4*JRPROCMAXMMAP) 000F04 0000A554 3356 DC A(MJRPROCMAXMMAP) 000F08 00F08 0A554 3357 ORG 00A554 E388854097999683 3358 MJRPROCMAXMMAP DC C'The process has exceeded the maximum number of mma' 00A586 97A2 3359 DC C'ps' 00A588 00 3360 DC X'00' 00A589 0A589 00F08 3361 ORG ETAB+(4*JRMMAPFILEADDRESS) 000F08 0000A589 3362 DC A(MJRMMAPFILEADDRESS) 000F0C 00F0C 0A589 3363 ORG 00A589 C68993856D968686 3364 MJRMMAPFILEADDRESS DC C'File_offset + map_length exceeds file size' 00A5B3 00 3365 DC X'00' 00A5B4 0A5B4 00F0C 3366 ORG ETAB+(4*JRIARVSERV) 000F0C 0000A5B4 3367 DC A(MJRIARVSERV) 1STRREA OMVS_STR_REASON Page 68 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000F10 00F10 0A5B4 3368 ORG 00A5B4 C195408995A59683 3369 MJRIARVSERV DC C'An invocation of IARVSERV service failed.' 00A5DD 00 3370 DC X'00' 00A5DE 0A5DE 00F10 3371 ORG ETAB+(4*JRPTYPENDINGCONTROLINFO) 000F10 0000A5DE 3372 DC A(MJRPTYPENDINGCONTROLINFO) 000F14 00F14 0A5DE 3373 ORG 00A5DE C1954081A3A38594 3374 MJRPTYPENDINGCONTROLINFO DC C'An attempt was made to write to a master' 00A606 4097A3A840899540 3375 DC C' pty in 3270 packet mode when control information was' 00A63B 4097859584899587 3376 DC C' pending' 00A643 00 3377 DC X'00' 00A644 0A644 00F14 3378 ORG ETAB+(4*JRZEROORNEGATIVE) 000F14 0000A644 3379 DC A(MJRZEROORNEGATIVE) 000F18 00F18 0A644 3380 ORG 00A644 C19540899597A4A3 3381 MJRZEROORNEGATIVE DC C'An input parameter must be greater than zero' 00A670 00 3382 DC X'00' 00A671 0A671 00F18 3383 ORG ETAB+(4*JRNOUSERSTORAGE) 000F18 0000A671 3384 DC A(MJRNOUSERSTORAGE) 000F1C 00F1C 0A671 3385 ORG 00A671 E3888540A28599A5 3386 MJRNOUSERSTORAGE DC C'The service could not obtain enough storage in u' 00A6A1 A285994081848499 3387 DC C'ser address space subpool 129.' 00A6BF 00 3388 DC X'00' 00A6C0 0A6C0 00F1C 3389 ORG ETAB+(4*JRASYNCHMOUNT) 000F1C 0000A6C0 3390 DC A(MJRASYNCHMOUNT) 000F20 00F20 0A6C0 3391 ORG 00A6C0 E3888540998598A4 3392 MJRASYNCHMOUNT DC C'The request to mount a file system will complete a' 00A6F2 A2A8958388999695 3393 DC C'synchronously. The system rejects all vnode (file) o' 00A727 97859981A3899695 3394 DC C'perations against the file system.' 00A749 00 3395 DC X'00' 00A74A 0A74A 00F20 3396 ORG ETAB+(4*JRPFSOPNOTSUPPORTED) 000F20 0000A74A 3397 DC A(MJRPFSOPNOTSUPPORTED) 000F24 00F24 0A74A 3398 ORG 00A74A E38885409786A283 3399 MJRPFSOPNOTSUPPORTED DC C'The pfsctl command is not supported by this ' 00A776 D7C6E24B 3400 DC C'PFS.' 00A77A 00 3401 DC X'00' 00A77B 0A77B 00F24 3402 ORG ETAB+(4*JRPFSOPNOTPERMITTED) 000F24 0000A77B 3403 DC A(MJRPFSOPNOTPERMITTED) 000F28 00F28 0A77B 3404 ORG 00A77B D596A34081A4A388 3405 MJRPFSOPNOTPERMITTED DC C'Not authorized to perform this pfsctl operat' 00A7A7 8996954B 3406 DC C'ion.' 00A7AB 00 3407 DC X'00' 00A7AC 0A7AC 00F28 3408 ORG ETAB+(4*JRPFSARGLENBAD) 000F28 0000A7AC 3409 DC A(MJRPFSARGLENBAD) 000F2C 00F2C 0A7AC 3410 ORG 00A7AC E3888540819987A4 3411 MJRPFSARGLENBAD DC C'The argument length is not valid for this pfsctl ' 00A7DD 9697859981A38996 3412 DC C'operation.' 00A7E7 00 3413 DC X'00' 00A7E8 0A7E8 00F48 3414 ORG ETAB+(4*JRCAPTUREFAILURE) 000F48 0000A7E8 3415 DC A(MJRCAPTUREFAILURE) 000F4C 00F4C 0A7E8 3416 ORG 00A7E8 C1409485949699A8 3417 MJRCAPTUREFAILURE DC C'A memory capture (IARVSERV) failed' 00A80A 00 3418 DC X'00' 00A80B 0A80B 00F54 3419 ORG ETAB+(4*JRBADSIGINFOADDR) 000F54 0000A80B 3420 DC A(MJRBADSIGINFOADDR) 000F58 00F58 0A80B 3421 ORG 00A80B C195408995839699 3422 MJRBADSIGINFOADDR DC C'An incorrect siginfo_t address was passed to th' 1STRREA OMVS_STR_REASON Page 69 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000A83A 8540A68189A38984 3423 DC C'e waitid call' 00A847 00 3424 DC X'00' 00A848 0A848 00F58 3425 ORG ETAB+(4*JRBADRUSAGEADDR) 000F58 0000A848 3426 DC A(MJRBADRUSAGEADDR) 000F5C 00F5C 0A848 3427 ORG 00A848 C195408995839699 3428 MJRBADRUSAGEADDR DC C'An incorrect rusage address was passed to the wa' 00A878 89A3F34083819393 3429 DC C'it3 call' 00A880 00 3430 DC X'00' 00A881 0A881 00F5C 3431 ORG ETAB+(4*JRPTYNOTRTSTORAGE) 000F5C 0000A881 3432 DC A(MJRPTYNOTRTSTORAGE) 000F60 00F60 0A881 3433 ORG 00A881 E2A3969981878540 3434 MJRPTYNOTRTSTORAGE DC C'Storage is not available for pseudo-TTY scan t' 00A8AF 81829385A2 3435 DC C'ables' 00A8B4 00 3436 DC X'00' 00A8B5 0A8B5 00F60 3437 ORG ETAB+(4*JRBADSTDEV) 000F60 0000A8B5 3438 DC A(MJRBADSTDEV) 000F64 00F64 0A8B5 3439 ORG 00A8B5 E38885408485A589 3440 MJRBADSTDEV DC C'The device number specified to osi_mountstatus does n' 00A8EA 96A3409985868599 3441 DC C'ot refer to a mounted file system.' 00A90C 00 3442 DC X'00' 00A90D 0A90D 00F6C 3443 ORG ETAB+(4*JROPENFILELIMITMAX) 000F6C 0000A90D 3444 DC A(MJROPENFILELIMITMAX) 000F70 00F70 0A90D 3445 ORG 00A90D E3888540D6978595 3446 MJROPENFILELIMITMAX DC C'The Open file limit cannot exceed 64K' 00A932 00 3447 DC X'00' 00A933 0A933 00F70 3448 ORG ETAB+(4*JRFDOPENABOVELIMIT) 000F70 0000A933 3449 DC A(MJRFDOPENABOVELIMIT) 000F74 00F74 0A933 3450 ORG 00A933 C140868993854084 3451 MJRFDOPENABOVELIMIT DC C'A file descriptor is open above requested lim' 00A960 89A3404040404040 3452 DC C'it ' 00A968 00 3453 DC X'00' 00A969 0A969 00F74 3454 ORG ETAB+(4*JRWRITEBEYONDLIMIT) 000F74 0000A969 3455 DC A(MJRWRITEBEYONDLIMIT) 000F78 00F78 0A969 3456 ORG 00A969 C381959596A340A6 3457 MJRWRITEBEYONDLIMIT DC C'Cannot write beyond the file size limit ' 00A996 00 3458 DC X'00' 00A997 0A997 00F78 3459 ORG ETAB+(4*JRSYSCALLFAILALL) 000F78 0000A997 3460 DC A(MJRSYSCALLFAILALL) 000F7C 00F7C 0A997 3461 ORG 00A997 C1954081A3A38594 3462 MJRSYSCALLFAILALL DC C'An attempt to process a syscall for a socket fa' 00A9C6 8993858440969540 3463 DC C'iled on all of the transport providers supporting the' 00A9FB 40A296839285A34B 3464 DC C' socket.' 00AA03 00 3465 DC X'00' 00AA04 0AA04 00F7C 3466 ORG ETAB+(4*JRSYSCALLFAILONE) 000F7C 0000AA04 3467 DC A(MJRSYSCALLFAILONE) 000F80 00F80 0AA04 3468 ORG 00AA04 C1954081A3A38594 3469 MJRSYSCALLFAILONE DC C'An attempt to process a syscall for a socket fa' 00AA33 8993858440969540 3470 DC C'iled on one of the transport providers supporting the' 00AA68 40A296839285A34B 3471 DC C' socket.' 00AA70 00 3472 DC X'00' 00AA71 0AA71 00F80 3473 ORG ETAB+(4*JRSYSCALLFAILSOME) 000F80 0000AA71 3474 DC A(MJRSYSCALLFAILSOME) 000F84 00F84 0AA71 3475 ORG 00AA71 C1954081A3A38594 3476 MJRSYSCALLFAILSOME DC C'An attempt to process a syscall for a socket f' 00AA9F 8189938584409695 3477 DC C'ailed on some of the transport providers supporting t' 1STRREA OMVS_STR_REASON Page 70 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000AAD4 888540A296839285 3478 DC C'he socket.' 00AADE 00 3479 DC X'00' 00AADF 0AADF 00F84 3480 ORG ETAB+(4*JRSETSOCKOPTFAILALL) 000F84 0000AADF 3481 DC A(MJRSETSOCKOPTFAILALL) 000F88 00F88 0AADF 3482 ORG 00AADF C1954081A3A38594 3483 MJRSETSOCKOPTFAILALL DC C'An attempt to set socket options failed on a' 00AB0B 939340968640A388 3484 DC C'll of the transport providers supporting the socket. ' 00AB40 4040404040 3485 DC C' ' 00AB45 00 3486 DC X'00' 00AB46 0AB46 00F88 3487 ORG ETAB+(4*JRSETSOCKOPTFAILONE) 000F88 0000AB46 3488 DC A(MJRSETSOCKOPTFAILONE) 000F8C 00F8C 0AB46 3489 ORG 00AB46 C1954081A3A38594 3490 MJRSETSOCKOPTFAILONE DC C'An attempt to set socket options failed on o' 00AB72 958540968640A388 3491 DC C'ne of the transport providers supporting the socket. ' 00ABA7 4040404040 3492 DC C' ' 00ABAC 00 3493 DC X'00' 00ABAD 0ABAD 00F8C 3494 ORG ETAB+(4*JRSETSOCKOPTFAILSOME) 000F8C 0000ABAD 3495 DC A(MJRSETSOCKOPTFAILSOME) 000F90 00F90 0ABAD 3496 ORG 00ABAD C1954081A3A38594 3497 MJRSETSOCKOPTFAILSOME DC C'An attempt to set socket options failed on ' 00ABD8 A296948540968640 3498 DC C'some of the transport providers supporting the socket' 00AC0D 4B404040404040 3499 DC C'. ' 00AC14 00 3500 DC X'00' 00AC15 0AC15 00F90 3501 ORG ETAB+(4*JRRLIMITCANTCREATE) 000F90 0000AC15 3502 DC A(MJRRLIMITCANTCREATE) 000F94 00F94 0AC15 3503 ORG 00AC15 E896A44083819595 3504 MJRRLIMITCANTCREATE DC C'You cannot create files when RLIMIT_FSIZE is ' 00AC42 F04B 3505 DC C'0.' 00AC44 00 3506 DC X'00' 00AC45 0AC45 00F98 3507 ORG ETAB+(4*JRNOTSTDFILE) 000F98 0000AC45 3508 DC A(MJRNOTSTDFILE) 000F9C 00F9C 0AC45 3509 ORG 00AC45 D69593A840A2A381 3510 MJRNOTSTDFILE DC C'Only standard files can be mmap' 00AC64 00 3511 DC X'00' 00AC65 0AC65 00F9C 3512 ORG ETAB+(4*JRBADIDTYPE) 000F9C 0000AC65 3513 DC A(MJRBADIDTYPE) 000FA0 00FA0 0AC65 3514 ORG 00AC65 C195408995A58193 3515 MJRBADIDTYPE DC C'An invalid ID type was passed.' 00AC83 00 3516 DC X'00' 00AC84 0AC84 00FA0 3517 ORG ETAB+(4*JRBADOPTIONS) 000FA0 0000AC84 3518 DC A(MJRBADOPTIONS) 000FA4 00FA4 0AC84 3519 ORG 00AC84 C995839699998583 3520 MJRBADOPTIONS DC C'Incorrect options were passed on the options parame' 00ACB7 A385994B 3521 DC C'ter.' 00ACBB 00 3522 DC X'00' 00ACBC 0ACBC 00FD0 3523 ORG ETAB+(4*JRPTYNOTCNTLTERM) 000FD0 0000ACBC 3524 DC A(MJRPTYNOTCNTLTERM) 000FD4 00FD4 0ACBC 3525 ORG 00ACBC E38885408485A589 3526 MJRPTYNOTCNTLTERM DC C'The device is not associated with a controlling' 00ACEB 40A3859994899581 3527 DC C' terminal' 00ACF4 00 3528 DC X'00' 00ACF5 0ACF5 00FE0 3529 ORG ETAB+(4*JRPREVSOCKERROR) 000FE0 0000ACF5 3530 DC A(MJRPREVSOCKERROR) 000FE4 00FE4 0ACF5 3531 ORG 00ACF5 C140979985A58996 3532 MJRPREVSOCKERROR DC C'A previous error caused this socket to become un' 1STRREA OMVS_STR_REASON Page 71 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000AD25 A4A2818293854B 3533 DC C'usable.' 00AD2C 00 3534 DC X'00' 00AD2D 0AD2D 00FEC 3535 ORG ETAB+(4*JRBADOSI) 000FEC 0000AD2D 3536 DC A(MJRBADOSI) 000FF0 00FF0 0AD2D 3537 ORG 00AD2D E3888540D6A28940 3538 MJRBADOSI DC C'The Osi structure passed is not valid' 00AD52 00 3539 DC X'00' 00AD53 0AD53 00FF0 3540 ORG ETAB+(4*JRBADPFSID) 000FF0 0000AD53 3541 DC A(MJRBADPFSID) 000FF4 00FF4 0AD53 3542 ORG 00AD53 E3888540A58193A4 3543 MJRBADPFSID DC C'The value of the OsiPfsId field is not valid' 00AD7F 00 3544 DC X'00' 00AD80 0AD80 00FF4 3545 ORG ETAB+(4*JRFRRACTIVE) 000FF4 0000AD80 3546 DC A(MJRFRRACTIVE) 000FF8 00FF8 0AD80 3547 ORG 00AD80 C19540C6D9D94089 3548 MJRFRRACTIVE DC C'An FRR is established' 00AD95 00 3549 DC X'00' 00AD96 0AD96 00FF8 3550 ORG ETAB+(4*JRPTYQUEUECHANGE) 000FF8 0000AD96 3551 DC A(MJRPTYQUEUECHANGE) 000FFC 00FFC 0AD96 3552 ORG 00AD96 C140A38599948996 3553 MJRPTYQUEUECHANGE DC C'A termios option change requires all output be ' 00ADC5 9985818440969940 3554 DC C'read or flushed before further writes' 00ADEA 00 3555 DC X'00' 00ADEB 0ADEB 00FFC 3556 ORG ETAB+(4*JRINTERVALTYPEINVALID) 000FFC 0000ADEB 3557 DC A(MJRINTERVALTYPEINVALID) 001000 01000 0ADEB 3558 ORG 00ADEB E3888540C995A385 3559 MJRINTERVALTYPEINVALID DC C'The IntervalType is not valid' 00AE08 00 3560 DC X'00' 00AE09 0AE09 01010 3561 ORG ETAB+(4*JRPTYORPHANED) 001010 0000AE09 3562 DC A(MJRPTYORPHANED) 001014 01014 0AE09 3563 ORG 00AE09 E3888540A2A8A283 3564 MJRPTYORPHANED DC C'The syscall is processing in an orphaned process g' 00AE3B 9996A497 3565 DC C'roup' 00AE3F 00 3566 DC X'00' 00AE40 0AE40 01014 3567 ORG ETAB+(4*JRTRANSPORTDRIVERNOTACCESSIBLE) 001014 0000AE40 3568 DC A(MJRTRANSPORTDRIVERNOTACCESSIBLE) 001018 01018 0AE40 3569 ORG 00AE40 E3888540A3998195 3570 MJRTRANSPORTDRIVERNOTACCESSIBLE DC C'The transport driver specified is' 00AE61 409596A340828589 3571 DC C' not being used by the socket specified.' 00AE89 00 3572 DC X'00' 3573 AIF ('&SYSTEM_ID'(1,4) NE 'z/OS').NOTZOS2 3574 .NOTZOS2 ANOP 00AE8A 0AE8A 01054 3575 ORG ETAB+(4*JRTOOMANYFDS) 001054 0000AE8A 3576 DC A(MJRTOOMANYFDS) 001058 01058 0AE8A 3577 ORG 00AE8A E3969640948195A8 3578 MJRTOOMANYFDS DC C'Too many Fds were specified' 00AEA5 00 3579 DC X'00' 00AEA6 0AEA6 01058 3580 ORG ETAB+(4*JRMICROSECONDSTOOBIG) 001058 0000AEA6 3581 DC A(MJRMICROSECONDSTOOBIG) 00105C 0105C 0AEA6 3582 ORG 00AEA6 E3888540A58193A4 3583 MJRMICROSECONDSTOOBIG DC C'The value specified for microseconds is out' 00AED1 A289848540A38885 3584 DC C'side the allowable range' 00AEE9 00 3585 DC X'00' 00AEEA 0AEEA 01064 3586 ORG ETAB+(4*JRSTIMERMMAX) 001064 0000AEEA 3587 DC A(MJRSTIMERMMAX) 1STRREA OMVS_STR_REASON Page 72 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001068 01068 0AEEA 3588 ORG 00AEEA C140F3F2C540A2A8 3589 MJRSTIMERMMAX DC C'A 32E system abend has been intercepted by the sysc' 00AF1D 8193934B40E28585 3590 DC C'all. See the appropriate MVS System Codes manual' 00AF4D 00 3591 DC X'00' 00AF4E 0AF4E 01068 3592 ORG ETAB+(4*JRNOCLNYTHREADSPPT) 001068 0000AF4E 3593 DC A(MJRNOCLNYTHREADSPPT) 00106C 0106C 0AF4E 3594 ORG 00AF4E C396939695A840A3 3595 MJRNOCLNYTHREADSPPT DC C'Colony thread support has not been built' 00AF76 00 3596 DC X'00' 00AF77 0AF77 0106C 3597 ORG ETAB+(4*JRSHSPMASK) 00106C 0000AF77 3598 DC A(MJRSHSPMASK) 001070 01070 0AF77 3599 ORG 00AF77 E3888540A2888199 3600 MJRSHSPMASK DC C'The shared subpool mask is not valid for the current ' 00AFAC 8595A58999969594 3601 DC C'environment' 00AFB7 00 3602 DC X'00' 00AFB8 0AFB8 01074 3603 ORG ETAB+(4*JRBADOPTNFLAGS) 001074 0000AFB8 3604 DC A(MJRBADOPTNFLAGS) 001078 01078 0AFB8 3605 ORG 00AFB8 C5A7A39981958596 3606 MJRBADOPTNFLAGS DC C'Extraneous bits were set in the option flags para' 00AFE9 9485A385994B 3607 DC C'meter.' 00AFEF 00 3608 DC X'00' 00AFF0 0AFF0 01078 3609 ORG ETAB+(4*JRNEGFILESIZELIMIT) 001078 0000AFF0 3610 DC A(MJRNEGFILESIZELIMIT) 00107C 0107C 0AFF0 3611 ORG 00AFF0 D6958540968640A3 3612 MJRNEGFILESIZELIMIT DC C'One of the file size limits specified is nega' 00B01D A389A5854B 3613 DC C'tive.' 00B022 00 3614 DC X'00' 00B023 0B023 0107C 3615 ORG ETAB+(4*JRNOSAFSUPPORT) 00107C 0000B023 3616 DC A(MJRNOSAFSUPPORT) 001080 01080 0B023 3617 ORG 00B023 E38885408995A2A3 3618 MJRNOSAFSUPPORT DC C'The installed Security product does not support t' 00B054 8889A24086A49583 3619 DC C'his function.' 00B061 00 3620 DC X'00' 00B062 0B062 01080 3621 ORG ETAB+(4*JRPTNOSTORAGE) 001080 0000B062 3622 DC A(MJRPTNOSTORAGE) 001084 01084 0B062 3623 ORG 00B062 D596A340859596A4 3624 MJRPTNOSTORAGE DC C'Not enough storage is available for ptrace' 00B08C 00 3625 DC X'00' 00B08D 0B08D 01084 3626 ORG ETAB+(4*JRPTBUFNOTFOUND) 001084 0000B08D 3627 DC A(MJRPTBUFNOTFOUND) 001088 01088 0B08D 3628 ORG 00B08D C140D7A36DE49583 3629 MJRPTBUFNOTFOUND DC C'A Pt_Uncapture ptrace request was issued for a s' 00B0BD 9785838986898340 3630 DC C'pecific buffer but the buffer was not previously capt' 00B0F2 A499858440A689A3 3631 DC C'ured with a Pt_Capture request.' 00B111 00 3632 DC X'00' 00B112 0B112 01088 3633 ORG ETAB+(4*JRPTTSO) 001088 0000B112 3634 DC A(MJRPTTSO) 00108C 0108C 0B112 3635 ORG 00B112 E3888540A2978583 3636 MJRPTTSO DC C'The specified ptrace function is not supported in a TSO ' 00B14A 8184849985A2A240 3637 DC C'address space.' 00B158 00 3638 DC X'00' 00B159 0B159 0108C 3639 ORG ETAB+(4*JRAUTHCALLER) 00108C 0000B159 3640 DC A(MJRAUTHCALLER) 001090 01090 0B159 3641 ORG 00B159 E388854083819393 3642 MJRAUTHCALLER DC C'The caller of this service is authorized. Authoriz' 1STRREA OMVS_STR_REASON Page 73 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000B18C 8584408381939385 3643 DC C'ed callers are not permitted to load or call unauthor' 00B1C1 89A9858440979996 3644 DC C'ized programs.' 00B1CF 00 3645 DC X'00' 00B1D0 0B1D0 01090 3646 ORG ETAB+(4*JRSINGLETDREQD) 001090 0000B1D0 3647 DC A(MJRSINGLETDREQD) 001094 01094 0B1D0 3648 ORG 00B1D0 E3888540C3969494 3649 MJRSINGLETDREQD DC C'The Common Inet Sockets ioctl command requires th' 00B201 81A3408140A28995 3650 DC C'at a single transport driver be connected to the sock' 00B236 85A34B 3651 DC C'et.' 00B239 00 3652 DC X'00' 00B23A 0B23A 01094 3653 ORG ETAB+(4*JRBATSEL) 001094 0000B23A 3654 DC A(MJRBATSEL) 001098 01098 0B23A 3655 ORG 00B23A E38885408281A383 3656 MJRBATSEL DC C'The batch-select VFS operation is not supported. ' 00B270 00 3657 DC X'00' 00B271 0B271 01098 3658 ORG ETAB+(4*JRREALPAGENOTSUPPORTED) 001098 0000B271 3659 DC A(MJRREALPAGENOTSUPPORTED) 00109C 0109C 0B271 3660 ORG 00B271 C140C6A489964081 3661 MJRREALPAGENOTSUPPORTED DC C'A Fuio area containing a real page addres' 00B29A A240A681A2409781 3662 DC C's was passed.' 00B2A7 00 3663 DC X'00' 00B2A8 0B2A8 0109C 3664 ORG ETAB+(4*JRBADMVSPGMNAME) 00109C 0000B2A8 3665 DC A(MJRBADMVSPGMNAME) 0010A0 010A0 0B2A8 3666 ORG 00B2A8 C1408381939340A3 3667 MJRBADMVSPGMNAME DC C'A call to the exec or loadHFS service specified ' 00B2D8 81408689938540A3 3668 DC C'a file that resolves to an MVS program name that is n' 00B30D 96A340A581938984 3669 DC C'ot valid.' 00B316 00 3670 DC X'00' 00B317 0B317 010A0 3671 ORG ETAB+(4*JRMVSLOADFAILURE) 0010A0 0000B317 3672 DC A(MJRMVSLOADFAILURE) 0010A4 010A4 0B317 3673 ORG 00B317 C1408381939340A3 3674 MJRMVSLOADFAILURE DC C'A call to the loadHFS service resulted in a fai' 00B346 93A4998540899540 3675 DC C'lure in the MVS Load service.' 00B363 00 3676 DC X'00' 00B364 0B364 010A4 3677 ORG ETAB+(4*JRMVSPGMNOTFOUND) 0010A4 0000B364 3678 DC A(MJRMVSPGMNOTFOUND) 0010A8 010A8 0B364 3679 ORG 00B364 C1408381939340A3 3680 MJRMVSPGMNOTFOUND DC C'A call to the exec or loadHFS service specified' 00B393 4081408689938540 3681 DC C' a file that resolves to an MVS program that cannot b' 00B3C8 85408696A495844B 3682 DC C'e found.' 00B3D0 00 3683 DC X'00' 00B3D1 0B3D1 010A8 3684 ORG ETAB+(4*JRNOCONSOLEBUFFERS) 0010A8 0000B3D1 3685 DC A(MJRNOCONSOLEBUFFERS) 0010AC 010AC 0B3D1 3686 ORG 00B3D1 E3888540A69989A3 3687 MJRNOCONSOLEBUFFERS DC C'The write to /dev/console cannot complete' 00B3FA 00 3688 DC X'00' 00B3FB 0B3FB 010AC 3689 ORG ETAB+(4*JRPTMAXCAPTURE) 0010AC 0000B3FB 3690 DC A(MJRPTMAXCAPTURE) 0010B0 010B0 0B3FB 3691 ORG 00B3FB E388854097A39981 3692 MJRPTMAXCAPTURE DC C'The ptrace capture request would exceed maximum a' 00B42C 939396A68584 3693 DC C'llowed' 00B432 00 3694 DC X'00' 00B433 0B433 010B0 3695 ORG ETAB+(4*JRCPCNNOTENABLED) 0010B0 0000B433 3696 DC A(MJRCPCNNOTENABLED) 0010B4 010B4 0B433 3697 ORG 1STRREA OMVS_STR_REASON Page 74 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000B433 C396848540D78187 3698 MJRCPCNNOTENABLED DC C'Code Page Change Notification is not enabled' 00B45F 00 3699 DC X'00' 00B460 0B460 010B8 3700 ORG ETAB+(4*JRSHRSTGSHORTAGE) 0010B8 0000B460 3701 DC A(MJRSHRSTGSHORTAGE) 0010BC 010BC 0B460 3702 ORG 00B460 D98598A485A2A340 3703 MJRSHRSTGSHORTAGE DC C'Request for shared storage exceeds amount avail' 00B48F 81829385 3704 DC C'able' 00B493 00 3705 DC X'00' 00B494 0B494 010BC 3706 ORG ETAB+(4*JRPTYNEEDPKTXTND) 0010BC 0000B494 3707 DC A(MJRPTYNEEDPKTXTND) 0010C0 010C0 0B494 3708 ORG 00B494 C1954081A3A38594 3709 MJRPTYNEEDPKTXTND DC C'An attempt was made to set 3270 Passthru mode w' 00B4C3 89A38896A4A340F3 3710 DC C'ithout 3270 Packet mode.' 00B4DB 00 3711 DC X'00' 3712 ****************************************************************** 00B4DC 0B4DC 010C0 3713 ORG ETAB+(4*JRWAITFOREVER) 0010C0 0000B4DC 3714 DC A(MJRWAITFOREVER) 0010C4 010C4 0B4DC 3715 ORG 00B4DC E3888540A3899485 3716 MJRWAITFOREVER DC C'The timeout value specified wait forever, but ther' 00B50E 8540A68599854095 3717 DC C'e were no events to wait for.' 00B52B 00 3718 DC X'00' 00B52C 0B52C 010C4 3719 ORG ETAB+(4*JRINVALIDNFDS) 0010C4 0000B52C 3720 DC A(MJRINVALIDNFDS) 0010C8 010C8 0B52C 3721 ORG 00B52C E3888540D5C6C4E2 3722 MJRINVALIDNFDS DC C'The NFDS parameter is larger than the OPEN_MAX(MAX' 00B55E C6C9D3C5D7D9D6C3 3723 DC C'FILEPROC) value.' 00B56E 00 3724 DC X'00' 00B56F 0B56F 010CC 3725 ORG ETAB+(4*JRPTYNOTMASTER) 0010CC 0000B56F 3726 DC A(MJRPTYNOTMASTER) 0010D0 010D0 0B56F 3727 ORG 00B56F E495A2A497979699 3728 MJRPTYNOTMASTER DC C'Unsupported function against slave TTY' 00B595 00 3729 DC X'00' 00B596 0B596 010D0 3730 ORG ETAB+(4*JRFSUNAUTHCLNT) 0010D0 0000B596 3731 DC A(MJRFSUNAUTHCLNT) 0010D4 010D4 0B596 3732 ORG 00B596 C19540A49581A4A3 3733 MJRFSUNAUTHCLNT DC C'An unauthenticated client is denied access.' 00B5C1 00 3734 DC X'00' 00B5C2 0B5C2 010D4 3735 ORG ETAB+(4*JRBADBUFLEN) 0010D4 0000B5C2 3736 DC A(MJRBADBUFLEN) 0010D8 010D8 0B5C2 3737 ORG 00B5C2 E388854093859587 3738 MJRBADBUFLEN DC C'The length of the buffer is not valid ' 00B5ED 00 3739 DC X'00' 00B5EE 0B5EE 010D8 3740 ORG ETAB+(4*JRBADSTGKEY) 0010D8 0000B5EE 3741 DC A(MJRBADSTGKEY) 0010DC 010DC 0B5EE 3742 ORG 00B5EE E38885409485A2A2 3743 MJRBADSTGKEY DC C'The message data could not be fetched using the spec' 00B622 898689858440A2A3 3744 DC C'ified storage key' 00B633 00 3745 DC X'00' 00B634 0B634 010E0 3746 ORG ETAB+(4*JRNOFDSTOOMANYQIDS) 0010E0 0000B634 3747 DC A(MJRNOFDSTOOMANYQIDS) 0010E4 010E4 0B634 3748 ORG 00B634 E388854095A49482 3749 MJRNOFDSTOOMANYQIDS DC C'The number of Fds specified is negative or to' 00B661 9640948195A840D4 3750 DC C'o many Msg Q Ids specified on select or poll service' 00B695 00 3751 DC X'00' 00B696 0B696 010E4 3752 ORG ETAB+(4*JRINVHDR) 1STRREA OMVS_STR_REASON Page 75 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00010E4 0000B696 3753 DC A(MJRINVHDR) 0010E8 010E8 0B696 3754 ORG 00B696 C995A58193898440 3755 MJRINVHDR DC C'Invalid parameter list header' 00B6B3 00 3756 DC X'00' 00B6B4 0B6B4 01104 3757 ORG ETAB+(4*JROUTOFMOUNTENTRIES) 001104 0000B6B4 3758 DC A(MJROUTOFMOUNTENTRIES) 001108 01108 0B6B4 3759 ORG 00B6B4 E3888540A2A8A2A3 3760 MJROUTOFMOUNTENTRIES DC C'The system is unable to obtain an entry in t' 00B6E0 8885408689938540 3761 DC C'he file system mount table in the OMVS couple data se' 00B715 A3 3762 DC C't' 00B716 00 3763 DC X'00' 00B717 0B717 01108 3764 ORG ETAB+(4*JRPTYUNSUPPORTEDATTR) 001108 0000B717 3765 DC A(MJRPTYUNSUPPORTEDATTR) 00110C 0110C 0B717 3766 ORG 00B717 C1A3A3859497A340 3767 MJRPTYUNSUPPORTEDATTR DC C'Attempt to change attribute to unsupported ' 00B742 A58193A485404040 3768 DC C'value ' 00B74D 00 3769 DC X'00' 00B74E 0B74E 0110C 3770 ORG ETAB+(4*JRTGTMEMBERINACTIVE) 00110C 0000B74E 3771 DC A(MJRTGTMEMBERINACTIVE) 001110 01110 0B74E 3772 ORG 00B74E E3888540E7C3C640 3773 MJRTGTMEMBERINACTIVE DC C'The XCF member represented by the input memb' 00B77A 859940A396928595 3774 DC C'er token is not active' 00B790 00 3775 DC X'00' 00B791 0B791 01114 3776 ORG ETAB+(4*JRSTALEVFS) 001114 0000B791 3777 DC A(MJRSTALEVFS) 001118 01118 0B791 3778 ORG 00B791 E3888540E586A240 3779 MJRSTALEVFS DC C'The Vfs passed to complete asynchronous mount does no' 00B7C6 A3409985979985A2 3780 DC C't represent an outstanding asynchronous mount.' 00B7F4 00 3781 DC X'00' 00B7F5 0B7F5 01118 3782 ORG ETAB+(4*JRNOAREA) 001118 0000B7F5 3783 DC A(MJRNOAREA) 00111C 0111C 0B7F5 3784 ORG 00B7F5 E3888540E2A381A3 3785 MJRNOAREA DC C'The State Area has not been established.' 00B81D 00 3786 DC X'00' 00B81E 0B81E 0111C 3787 ORG ETAB+(4*JRBADSUBFIELD) 00111C 0000B81E 3788 DC A(MJRBADSUBFIELD) 001120 01120 0B81E 3789 ORG 00B81E C140A2A482868985 3790 MJRBADSUBFIELD DC C'A subfield of the Argument is not valid.' 00B846 00 3791 DC X'00' 00B847 0B847 01120 3792 ORG ETAB+(4*JRNOCHANGEIDENTITY) 001120 0000B847 3793 DC A(MJRNOCHANGEIDENTITY) 001124 01124 0B847 3794 ORG 00B847 E38885408995A596 3795 MJRNOCHANGEIDENTITY DC C'The invoker is not authorized to change MVS u' 00B874 A285998984A24B 3796 DC C'serids.' 00B87B 00 3797 DC X'00' 00B87C 0B87C 01124 3798 ORG ETAB+(4*JRBADID) 001124 0000B87C 3799 DC A(MJRBADID) 001128 01128 0B87C 3800 ORG 00B87C C195408995839699 3801 MJRBADID DC C'An incorrect ID value was passed to the BPX1WTE service.' 00B8B4 00 3802 DC X'00' 00B8B5 0B8B5 01128 3803 ORG ETAB+(4*JRNOWORKUNIT) 001128 0000B8B5 3804 DC A(MJRNOWORKUNIT) 00112C 0112C 0B8B5 3805 ORG 00B8B5 C1A3A3859497A340 3806 MJRNOWORKUNIT DC C'Attempt to transfer work via BPX1SPW call failed' 00B8E5 00 3807 DC X'00' 1STRREA OMVS_STR_REASON Page 76 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000B8E6 0B8E6 0112C 3808 ORG ETAB+(4*JRNOWLMCONN) 00112C 0000B8E6 3809 DC A(MJRNOWLMCONN) 001130 01130 0B8E6 3810 ORG 00B8E6 C1A3A3859497A340 3811 MJRNOWLMCONN DC C'Attempt to refresh work via BPX1SPW call failed' 00B915 00 3812 DC X'00' 00B916 0B916 01134 3813 ORG ETAB+(4*JRNOMULTI) 001134 0000B916 3814 DC A(MJRNOMULTI) 001138 01138 0B916 3815 ORG 00B916 C1A3A3859497A340 3816 MJRNOMULTI DC C'Attempt to issue multiple BPX1CCS calls ' 00B943 00 3817 DC X'00' 00B944 0B944 01138 3818 ORG ETAB+(4*JRMSGLENGTHERR) 001138 0000B944 3819 DC A(MJRMSGLENGTHERR) 00113C 0113C 0B944 3820 ORG 00B944 D485A2A281878540 3821 MJRMSGLENGTHERR DC C'Message length to the console was exceeded ' 00B974 00 3822 DC X'00' 00B975 0B975 0113C 3823 ORG ETAB+(4*JRINVALIDCLASSIFY) 00113C 0000B975 3824 DC A(MJRINVALIDCLASSIFY) 001140 01140 0B975 3825 ORG 00B975 E3888540839381A2 3826 MJRINVALIDCLASSIFY DC C'The classification area is not accessible to t' 00B9A3 88854083A4999985 3827 DC C'he current caller' 00B9B4 00 3828 DC X'00' 00B9B5 0B9B5 01140 3829 ORG ETAB+(4*JRNOENCLAVE) 001140 0000B9B5 3830 DC A(MJRNOENCLAVE) 001144 01144 0B9B5 3831 ORG 00B9B5 D596408595839381 3832 MJRNOENCLAVE DC C'No enclave is associated with the calling thread or ' 00B9E9 9799968385A2A24B 3833 DC C'process.' 00B9F1 00 3834 DC X'00' 00B9F2 0B9F2 01144 3835 ORG ETAB+(4*JRSUBSYSNOTFND) 001144 0000B9F2 3836 DC A(MJRSUBSYSNOTFND) 001148 01148 0B9F2 3837 ORG 00B9F2 D596409799968385 3838 MJRSUBSYSNOTFND DC C'No process was found with the associated subsyste' 00BA23 94A3A89785408195 3839 DC C'mtype and subsystem name.' 00BA3C 00 3840 DC X'00' 00BA3D 0BA3D 01148 3841 ORG ETAB+(4*JRAPPLDATALENERR) 001148 0000BA3D 3842 DC A(MJRAPPLDATALENERR) 00114C 0114C 0BA3D 3843 ORG 00BA3D E388854081979793 3844 MJRAPPLDATALENERR DC C'The application data area is too large to be pr' 00BA6C 968385A2A28584 3845 DC C'ocessed' 00BA73 00 3846 DC X'00' 00BA74 0BA74 01150 3847 ORG ETAB+(4*JRINVALIDAPPLDATA) 001150 0000BA74 3848 DC A(MJRINVALIDAPPLDATA) 001154 01154 0BA74 3849 ORG 00BA74 E388854081979793 3850 MJRINVALIDAPPLDATA DC C'The application data area passed was not acces' 00BAA2 A289829385 3851 DC C'sible' 00BAA7 00 3852 DC X'00' 00BAA8 0BAA8 01154 3853 ORG ETAB+(4*JRINVALIDAPPLDATA2) 001154 0000BAA8 3854 DC A(MJRINVALIDAPPLDATA2) 001158 01158 0BAA8 3855 ORG 00BAA8 E388854081979793 3856 MJRINVALIDAPPLDATA2 DC C'The application data area is not accessible t' 00BAD5 9640A388854083A4 3857 DC C'o the current caller' 00BAE9 00 3858 DC X'00' 00BAEA 0BAEA 01158 3859 ORG ETAB+(4*JRINVALIDSFDL) 001158 0000BAEA 3860 DC A(MJRINVALIDSFDL) 00115C 0115C 0BAEA 3861 ORG 00BAEA E388854086899385 3862 MJRINVALIDSFDL DC C'The file descriptor list passed was not accessible' 1STRREA OMVS_STR_REASON Page 77 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000BB1C 00 3863 DC X'00' 00BB1D 0BB1D 0115C 3864 ORG ETAB+(4*JRNEWLOCATIONERR) 00115C 0000BB1D 3865 DC A(MJRNEWLOCATIONERR) 001160 01160 0BB1D 3866 ORG 00BB1D E38885409585A640 3867 MJRNEWLOCATIONERR DC C'The new tag data area passed was not accessible' 00BB4C 00 3868 DC X'00' 00BB4D 0BB4D 01160 3869 ORG ETAB+(4*JROLDLOCATIONERR) 001160 0000BB4D 3870 DC A(MJROLDLOCATIONERR) 001164 01164 0BB4D 3871 ORG 00BB4D E388854096938440 3872 MJROLDLOCATIONERR DC C'The old tag data area passed was not accessible' 00BB7C 00 3873 DC X'00' 00BB7D 0BB7D 01164 3874 ORG ETAB+(4*JRNEWLENBAD) 001164 0000BB7D 3875 DC A(MJRNEWLENBAD) 001168 01168 0BB7D 3876 ORG 00BB7D E38885409585A640 3877 MJRNEWLENBAD DC C'The new tag data length was not valid' 00BBA2 00 3878 DC X'00' 00BBA3 0BBA3 01168 3879 ORG ETAB+(4*JRMSGATTRERR) 001168 0000BBA3 3880 DC A(MJRMSGATTRERR) 00116C 0116C 0BBA3 3881 ORG 00BBA3 D485A2A281878540 3882 MJRMSGATTRERR DC C'Message attribute error detected' 00BBC3 00 3883 DC X'00' 00BBC4 0BBC4 0116C 3884 ORG ETAB+(4*JRNOACK) 00116C 0000BBC4 3885 DC A(MJRNOACK) 001170 01170 0BBC4 3886 ORG 00BBC4 D596408183929596 3887 MJRNOACK DC C'No acknowledgement signal from remote system ' 00BBF6 00 3888 DC X'00' 00BBF7 0BBF7 01178 3889 ORG ETAB+(4*JRINACCESSIBLE) 001178 0000BBF7 3890 DC A(MJRINACCESSIBLE) 00117C 0117C 0BBF7 3891 ORG 00BBF7 E3888540A4A28599 3892 MJRINACCESSIBLE DC C'The user storage is inaccessible ' 00BC1D 00 3893 DC X'00' 00BC1E 0BC1E 0117C 3894 ORG ETAB+(4*JRIEFDDSRVFAILED) 00117C 0000BC1E 3895 DC A(MJRIEFDDSRVFAILED) 001180 01180 0BC1E 3896 ORG 00BC1E E388854094818399 3897 MJRIEFDDSRVFAILED DC C'The macro IEFDDSRV failed' 00BC37 00 3898 DC X'00' 00BC38 0BC38 01180 3899 ORG ETAB+(4*JRSVC99FAILED) 001180 0000BC38 3900 DC A(MJRSVC99FAILED) 001184 01184 0BC38 3901 ORG 00BC38 E2E5C340F9F9404D 3902 MJRSVC99FAILED DC C'SVC 99 (Allocate) failed' 00BC50 00 3903 DC X'00' 00BC51 0BC51 01184 3904 ORG ETAB+(4*JRDEVNOTONLINE) 001184 0000BC51 3905 DC A(MJRDEVNOTONLINE) 001188 01188 0BC51 3906 ORG 00BC51 E297858389868985 3907 MJRDEVNOTONLINE DC C'Specified device is not online' 00BC6F 00 3908 DC X'00' 00BC70 0BC70 01188 3909 ORG ETAB+(4*JRDEVNOTFOUND) 001188 0000BC70 3910 DC A(MJRDEVNOTFOUND) 00118C 0118C 0BC70 3911 ORG 00BC70 E297858389868985 3912 MJRDEVNOTFOUND DC C'Specified device is not found' 00BC8D 00 3913 DC X'00' 00BC8E 0BC8E 0118C 3914 ORG ETAB+(4*JRALREADYINPROGRESS) 00118C 0000BC8E 3915 DC A(MJRALREADYINPROGRESS) 001190 01190 0BC8E 3916 ORG 00BC8E C19596A388859940 3917 MJRALREADYINPROGRESS DC C'Another config request is in progress ' 1STRREA OMVS_STR_REASON Page 78 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000BCB9 00 3918 DC X'00' 00BCBA 0BCBA 01190 3919 ORG ETAB+(4*JRINVALIDVERSION) 001190 0000BCBA 3920 DC A(MJRINVALIDVERSION) 001194 01194 0BCBA 3921 ORG 00BCBA C396958689874099 3922 MJRINVALIDVERSION DC C'Config request has invalid version number ' 00BCE9 00 3923 DC X'00' 00BCEA 0BCEA 01194 3924 ORG ETAB+(4*JRNOTAUTHWLM) 001194 0000BCEA 3925 DC A(MJRNOTAUTHWLM) 001198 01198 0BCEA 3926 ORG 00BCEA E28599A585996D89 3927 MJRNOTAUTHWLM DC C'Server_init service call failed permission check fo' 00BD1D 9940C2D7E74BE6D3 3928 DC C'r BPX.WLMSERVER facility class profile.' 00BD44 00 3929 DC X'00' 00BD45 0BD45 01198 3930 ORG ETAB+(4*JRTARGETIPNOTFOUND) 001198 0000BD45 3931 DC A(MJRTARGETIPNOTFOUND) 00119C 0119C 0BD45 3932 ORG 00BD45 E381998785A340C9 3933 MJRTARGETIPNOTFOUND DC C'Target IP address cannot be found' 00BD66 00 3934 DC X'00' 00BD67 0BD67 0119C 3935 ORG ETAB+(4*JRESCONNOTCONFIGURED) 00119C 0000BD67 3936 DC A(MJRESCONNOTCONFIGURED) 0011A0 011A0 0BD67 3937 ORG 00BD67 E3888540C5E2C3D6 3938 MJRESCONNOTCONFIGURED DC C'The ESCON connection is not configured ' 00BD92 40 3939 DC C' ' 00BD93 00 3940 DC X'00' 00BD94 0BD94 011A0 3941 ORG ETAB+(4*JRPTYSLAVELOCKED) 0011A0 0000BD94 3942 DC A(MJRPTYSLAVELOCKED) 0011A4 011A4 0BD94 3943 ORG 00BD94 C14087998195A397 3944 MJRPTYSLAVELOCKED DC C'A grantpt() was issued against the master pty b' 00BDC3 A4A340819540A495 3945 DC C'ut an unlockpt() has not yet been issued.' 00BDEC 00 3946 DC X'00' 00BDED 0BDED 011A4 3947 ORG ETAB+(4*JRPTYSLAVENOTLOCKED) 0011A4 0000BDED 3948 DC A(MJRPTYSLAVENOTLOCKED) 0011A8 011A8 0BDED 3949 ORG 00BDED E3888540A29381A5 3950 MJRPTYSLAVENOTLOCKED DC C'The slave pty is not locked either because g' 00BE19 998195A397A340A6 3951 DC C'rantpt was not done or because grantpt has already be' 00BE4E 85954089A2A2A485 3952 DC C'en issued.' 00BE58 00 3953 DC X'00' 00BE59 0BE59 011A8 3954 ORG ETAB+(4*JRPTYGRANTPTDONE) 0011A8 0000BE59 3955 DC A(MJRPTYGRANTPTDONE) 0011AC 011AC 0BE59 3956 ORG 00BE59 87998195A397A34D 3957 MJRPTYGRANTPTDONE DC C'grantpt() has already been issued. This grantp' 00BE88 A34089A240998584 3958 DC C't is redundant.' 00BE97 00 3959 DC X'00' 00BE98 0BE98 011AC 3960 ORG ETAB+(4*JRSRBSNOTALLOWED) 0011AC 0000BE98 3961 DC A(MJRSRBSNOTALLOWED) 0011B0 011B0 0BE98 3962 ORG 00BE98 C9A2A2A489958740 3963 MJRSRBSNOTALLOWED DC C'Issuing syscalls from an SRB is not allowed' 00BEC3 00 3964 DC X'00' 00BEC4 0BEC4 011B0 3965 ORG ETAB+(4*JRNOTSRBSYSCALL) 0011B0 0000BEC4 3966 DC A(MJRNOTSRBSYSCALL) 0011B4 011B4 0BEC4 3967 ORG 00BEC4 E3888540A2A8A283 3968 MJRNOTSRBSYSCALL DC C'The syscall requested is not supported in SRB mo' 00BEF4 8485 3969 DC C'de' 00BEF6 00 3970 DC X'00' 00BEF7 0BEF7 011B4 3971 ORG ETAB+(4*JRRTSSCONNERR) 0011B4 0000BEF7 3972 DC A(MJRRTSSCONNERR) 1STRREA OMVS_STR_REASON Page 79 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00011B8 011B8 0BEF7 3973 ORG 00BEF7 C696999240838889 3974 MJRRTSSCONNERR DC C'Fork child processing failed due to a RTSS connect' 00BF29 8996954085999996 3975 DC C'ion error.' 00BF33 00 3976 DC X'00' 00BF34 0BF34 011B8 3977 ORG ETAB+(4*JRRTSSENVERR) 0011B8 0000BF34 3978 DC A(MJRRTSSENVERR) 0011BC 011BC 0BF34 3979 ORG 00BF34 C696999240978199 3980 MJRRTSSENVERR DC C'Fork parent processing failed due to a RTSS environ' 00BF67 948595A340859999 3981 DC C'ment error.' 00BF72 00 3982 DC X'00' 00BF73 0BF73 011BC 3983 ORG ETAB+(4*JRASYNCAUTHERR) 0011BC 0000BF73 3984 DC A(MJRASYNCAUTHERR) 0011C0 011C0 0BF73 3985 ORG 00BF73 E4A285994089A240 3986 MJRASYNCAUTHERR DC C'User is not authorized for asynchronous i/o.' 00BF9F 00 3987 DC X'00' 00BFA0 0BFA0 011C0 3988 ORG ETAB+(4*JRASYNCRWLENZERO) 0011C0 0000BFA0 3989 DC A(MJRASYNCRWLENZERO) 0011C4 011C4 0BFA0 3990 ORG 00BFA0 E985999640938595 3991 MJRASYNCRWLENZERO DC C'Zero length asynchronous read or write not perm' 00BFCF 89A3A385844B 3992 DC C'itted.' 00BFD5 00 3993 DC X'00' 00BFD6 0BFD6 011C4 3994 ORG ETAB+(4*JRASYNCBADMSGHDRLEN) 0011C4 0000BFD6 3995 DC A(MJRASYNCBADMSGHDRLEN) 0011C8 011C8 0BFD6 3996 ORG 00BFD6 C18996C2A48686E2 3997 MJRASYNCBADMSGHDRLEN DC C'AioBuffSize is not set to correct message he' 00C002 8184859940938595 3998 DC C'ader length.' 00C00E 00 3999 DC X'00' 00C00F 0C00F 011C8 4000 ORG ETAB+(4*JRASYNCBADCMD) 0011C8 0000C00F 4001 DC A(MJRASYNCBADCMD) 0011CC 011CC 0C00F 4002 ORG 00C00F C18996C394844089 4003 MJRASYNCBADCMD DC C'AioCmd is not set to a supported value.' 00C036 00 4004 DC X'00' 00C037 0C037 011CC 4005 ORG ETAB+(4*JRASYNCBADNOTIFYTYPE) 0011CC 0000C037 4006 DC A(MJRASYNCBADNOTIFYTYPE) 0011D0 011D0 0C037 4007 ORG 00C037 C18996D596A38986 4008 MJRASYNCBADNOTIFYTYPE DC C'AioNotifyType is not set to a supported val' 00C062 A4854B 4009 DC C'ue.' 00C065 00 4010 DC X'00' 00C066 0C066 011D0 4011 ORG ETAB+(4*JRASYNCBADOFFSET) 0011D0 0000C066 4012 DC A(MJRASYNCBADOFFSET) 0011D4 011D4 0C066 4013 ORG 00C066 C18996D68686A285 4014 MJRASYNCBADOFFSET DC C'AioOffset is a negative value.' 00C084 00 4015 DC X'00' 00C085 0C085 011D4 4016 ORG ETAB+(4*JRASYNCBADAIOCBLEN) 0011D4 0000C085 4017 DC A(MJRASYNCBADAIOCBLEN) 0011D8 011D8 0C085 4018 ORG 00C085 E3888540899597A4 4019 MJRASYNCBADAIOCBLEN DC C'The input length for the AioCb is not a suppo' 00C0B2 99A3858440938595 4020 DC C'rted length.' 00C0BE 00 4021 DC X'00' 00C0BF 0C0BF 011D8 4022 ORG ETAB+(4*JRASYNCBADSOCKADDR) 0011D8 0000C0BF 4023 DC A(MJRASYNCBADSOCKADDR) 0011DC 011DC 0C0BF 4024 ORG 00C0BF E3888540C18996E2 4025 MJRASYNCBADSOCKADDR DC C'The AioSockAddr or AioSockAddrLen contains a ' 00C0EC 82818440A58193A4 4026 DC C'bad value.' 00C0F6 00 4027 DC X'00' 1STRREA OMVS_STR_REASON Page 80 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000C0F7 0C0F7 011E4 4028 ORG ETAB+(4*JRCANCEL) 0011E4 0000C0F7 4029 DC A(MJRCANCEL) 0011E8 011E8 0C0F7 4030 ORG 00C0F7 E595968485409697 4031 MJRCANCEL DC C'Vnode operation CANCEL is not supported by this file sy' 00C12E A2A38594 4032 DC C'stem' 00C132 00 4033 DC X'00' 00C133 0C133 011E8 4034 ORG ETAB+(4*JRDUPLICATECANCEL) 0011E8 0000C133 4035 DC A(MJRDUPLICATECANCEL) 0011EC 011EC 0C133 4036 ORG 00C133 C140838195838593 4037 MJRDUPLICATECANCEL DC C'A cancel operation is already in progress for ' 00C161 A3888540A3819987 4038 DC C'the target asyncio request.' 00C17C 00 4039 DC X'00' 00C17D 0C17D 011EC 4040 ORG ETAB+(4*JRASYNCNOTSINGLETD) 0011EC 0000C17D 4041 DC A(MJRASYNCNOTSINGLETD) 0011F0 011F0 0C17D 4042 ORG 00C17D E3888540C1A2A895 4043 MJRASYNCNOTSINGLETD DC C'The AsyncIO operation can not be performed be' 00C1AA 8381A4A28540A388 4044 DC C'cause this socket does not have a chosen transport st' 00C1DF 8183924B 4045 DC C'ack.' 00C1E3 00 4046 DC X'00' 00C1E4 0C1E4 011F0 4047 ORG ETAB+(4*JRSMFNOTAUTHORIZED) 0011F0 0000C1E4 4048 DC A(MJRSMFNOTAUTHORIZED) 0011F4 011F4 0C1E4 4049 ORG 00C1E4 E38885406D6DA294 4050 MJRSMFNOTAUTHORIZED DC C'The __smf_record function can not be performe' 00C211 844082858381A4A2 4051 DC C'd because the caller is not permitted to the BPX.SMF ' 00C246 868183899389A3A8 4052 DC C'facility class.' 00C255 00 4053 DC X'00' 00C256 0C256 011F4 4054 ORG ETAB+(4*JRSMFNOTACCEPTING) 0011F4 0000C256 4055 DC A(MJRSMFNOTACCEPTING) 0011F8 011F8 0C256 4056 ORG 00C256 E2D4C64089A24095 4057 MJRSMFNOTACCEPTING DC C'SMF is not recording SMF records of the type a' 00C284 958440A2A482A3A8 4058 DC C'nd subtype requested.' 00C299 00 4059 DC X'00' 00C29A 0C29A 011F8 4060 ORG ETAB+(4*JRSMFNOTACTIVE) 0011F8 0000C29A 4061 DC A(MJRSMFNOTACTIVE) 0011FC 011FC 0C29A 4062 ORG 00C29A E2D4C64089A24095 4063 MJRSMFNOTACTIVE DC C'SMF is not active.' 00C2AC 00 4064 DC X'00' 00C2AD 0C2AD 01200 4065 ORG ETAB+(4*JRSMFBADRECORDLENGTH) 001200 0000C2AD 4066 DC A(MJRSMFBADRECORDLENGTH) 001204 01204 0C2AD 4067 ORG 00C2AD E3888540A3888540 4068 MJRSMFBADRECORDLENGTH DC C'The the length of the SMF record passed to ' 00C2D8 6D6DA294866D9985 4069 DC C'__smf_recordis either too large or too small.' 00C305 00 4070 DC X'00' 00C306 0C306 01204 4071 ORG ETAB+(4*JRENCLAVESEXIST) 001204 0000C306 4072 DC A(MJRENCLAVESEXIST) 001208 01208 0C306 4073 ORG 00C306 E388854083819393 4074 MJRENCLAVESEXIST DC C'The calling work manager has enclaves that it cr' 00C336 8581A3858440A388 4075 DC C'eated that have yet to be serviced.' 00C359 00 4076 DC X'00' 00C35A 0C35A 01208 4077 ORG ETAB+(4*JRBINDNOTDONE) 001208 0000C35A 4078 DC A(MJRBINDNOTDONE) 00120C 0120C 0C35A 4079 ORG 00C35A C28995844D5D4094 4080 MJRBINDNOTDONE DC C'Bind() must be issued before issuing read/write' 00C389 00 4081 DC X'00' 00C38A 0C38A 01210 4082 ORG ETAB+(4*JRPINGSELF) 1STRREA OMVS_STR_REASON Page 81 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001210 0000C38A 4083 DC A(MJRPINGSELF) 001214 01214 0C38A 4084 ORG 00C38A D789958740A39640 4085 MJRPINGSELF DC C'Ping to self is not supported' 00C3A7 00 4086 DC X'00' 00C3A8 0C3A8 01214 4087 ORG ETAB+(4*JRDUPLICATEREQ) 001214 0000C3A8 4088 DC A(MJRDUPLICATEREQ) 001218 01218 0C3A8 4089 ORG 00C3A8 D98598A485A2A385 4090 MJRDUPLICATEREQ DC C'Requested connection already exists' 00C3CB 00 4091 DC X'00' 00C3CC 0C3CC 01218 4092 ORG ETAB+(4*JRTRLENOTFOUND) 001218 0000C3CC 4093 DC A(MJRTRLENOTFOUND) 00121C 0121C 0C3CC 4094 ORG 00C3CC E381998785A340E3 4095 MJRTRLENOTFOUND DC C'Target TRLE name cannot be found' 00C3EC 00 4096 DC X'00' 00C3ED 0C3ED 01220 4097 ORG ETAB+(4*JRFASTPATHRANGE) 001220 0000C3ED 4098 DC A(MJRFASTPATHRANGE) 001224 01224 0C3ED 4099 ORG 00C3ED C1409585A640A296 4100 MJRFASTPATHRANGE DC C'A new socket descriptor is too large for Fastpat' 00C41D 884B 4101 DC C'h.' 00C41F 00 4102 DC X'00' 00C420 0C420 01224 4103 ORG ETAB+(4*JRROSALREADYREG) 001224 0000C420 4104 DC A(MJRROSALREADYREG) 001228 01228 0C420 4105 ORG 00C420 C195408599999699 4106 MJRROSALREADYREG DC C'An error occurred during process signal initiali' 00C450 A981A3899695 4107 DC C'zation' 00C456 00 4108 DC X'00' 00C457 0C457 01228 4109 ORG ETAB+(4*JRASYNCSIGKEY0ERR) 001228 0000C457 4110 DC A(MJRASYNCSIGKEY0ERR) 00122C 0122C 0C457 4111 ORG 00C457 C140838193938599 4112 MJRASYNCSIGKEY0ERR DC C'A caller in key 0 cannot request signals for a' 00C485 A2A8958340896196 4113 DC C'sync i/o.' 00C48E 00 4114 DC X'00' 00C48F 0C48F 0122C 4115 ORG ETAB+(4*JRASYNCEXITMODETCB) 00122C 0000C48F 4116 DC A(MJRASYNCEXITMODETCB) 001230 01230 0C48F 4117 ORG 00C48F C140998598A485A2 4118 MJRASYNCEXITMODETCB DC C'A request for ExitMode of TCB was requested f' 00C4BC 9699408140A4A285 4119 DC C'or a user who is either not running on a TCB or runni' 00C4F1 9587408995409285 4120 DC C'ng in key 0.' 00C4FD 00 4121 DC X'00' 00C4FE 0C4FE 01230 4122 ORG ETAB+(4*JRASYNCOPNOTSUPP) 001230 0000C4FE 4123 DC A(MJRASYNCOPNOTSUPP) 001234 01234 0C4FE 4124 ORG 00C4FE E3888540C1A2A895 4125 MJRASYNCOPNOTSUPP DC C'The AsyncIO operation can not be performed beca' 00C52D A4A28540A3888540 4126 DC C'use the socket transport does not support asynchronou' 00C562 A240C961D6409699 4127 DC C's I/O or asynchronous select included a physical file' 00C597 40A2A8A2A3859440 4128 DC C' system that could not support this operation.' 00C5C5 00 4129 DC X'00' 00C5C6 0C5C6 01234 4130 ORG ETAB+(4*JRASYNCBADSIGNO) 001234 0000C5C6 4131 DC A(MJRASYNCBADSIGNO) 001238 01238 0C5C6 4132 ORG 00C5C6 E3888540C1A2A895 4133 MJRASYNCBADSIGNO DC C'The AsyncIO operation specified a signal number ' 00C5F6 A38881A340404084 4134 DC C'that does not fall within the valid range of values' 00C62B 4B 4135 DC C'.' 00C62C 00 4136 DC X'00' 00C62D 0C62D 01238 4137 ORG ETAB+(4*JRPRIVILIGEDFILE) 1STRREA OMVS_STR_REASON Page 82 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001238 0000C62D 4138 DC A(MJRPRIVILIGEDFILE) 00123C 0123C 0C62D 4139 ORG 00C62D E388854096978599 4140 MJRPRIVILIGEDFILE DC C'The operation is not allowed on a priviliged fi' 00C65C 9385 4141 DC C'le' 00C65E 00 4142 DC X'00' 00C65F 0C65F 0123C 4143 ORG ETAB+(4*JRROUTEEXISTS) 00123C 0000C65F 4144 DC A(MJRROUTEEXISTS) 001240 01240 0C65F 4145 ORG 00C65F E388854096858986 4146 MJRROUTEEXISTS DC C'The oeifconfig contained a duplicate destination I' 00C691 D7408184849985A2 4147 DC C'P address' 00C69A 00 4148 DC X'00' 00C69B 0C69B 01240 4149 ORG ETAB+(4*JRHOMEEXISTS) 001240 0000C69B 4150 DC A(MJRHOMEEXISTS) 001244 01244 0C69B 4151 ORG 00C69B E388854096858986 4152 MJRHOMEEXISTS DC C'The oeifconfig contained a duplicate home IP addres' 00C6CE A2 4153 DC C's' 00C6CF 00 4154 DC X'00' 00C6D0 0C6D0 01244 4155 ORG ETAB+(4*JRAPFNOTAUTHORIZED) 001244 0000C6D0 4156 DC A(MJRAPFNOTAUTHORIZED) 001248 01248 0C6D0 4157 ORG 00C6D0 E3888540838881A3 4158 MJRAPFNOTAUTHORIZED DC C'The chattr function can not be performed to c' 00C6FD 888195878540A388 4159 DC C'hange the APF attribute because the caller is not per' 00C732 9489A3A3858440A3 4160 DC C'mitted to the BPX.FILEATTR.APF facility class.' 00C760 00 4161 DC X'00' 00C761 0C761 01248 4162 ORG ETAB+(4*JRPGMNOTAUTHORIZED) 001248 0000C761 4163 DC A(MJRPGMNOTAUTHORIZED) 00124C 0124C 0C761 4164 ORG 00C761 E3888540838881A3 4165 MJRPGMNOTAUTHORIZED DC C'The chattr function can not be performed to c' 00C78E 888195878540A388 4166 DC C'hange the program control attribute because the calle' 00C7C3 994089A2409596A3 4167 DC C'r is not permitted to the BPX.FILEATTR.PROGCTL facili' 00C7F8 A3A840839381A2A2 4168 DC C'ty class.' 00C801 00 4169 DC X'00' 00C802 0C802 0124C 4170 ORG ETAB+(4*JRPROGCNTL) 00124C 0000C802 4171 DC A(MJRPROGCNTL) 001250 01250 0C802 4172 ORG 00C802 C140998598A485A2 4173 MJRPROGCNTL DC C'A request to load an HFS executable that is not progr' 00C837 819440839695A399 4174 DC C'am controlled was made into an environment that must ' 00C86C 828540928597A340 4175 DC C'be kept clean.' 00C87A 00 4176 DC X'00' 00C87B 0C87B 01250 4177 ORG ETAB+(4*JRFILESZEXCDLIMIT) 001250 0000C87B 4178 DC A(MJRFILESZEXCDLIMIT) 001254 01254 0C87B 4179 ORG 00C87B C140998598A485A2 4180 MJRFILESZEXCDLIMIT DC C'A request to load a file into the LFS Cache wa' 00C8A9 A240948184854086 4181 DC C's made for a file that exceeds the size limit of the ' 00C8DE 83818388854B 4182 DC C'cache.' 00C8E4 00 4183 DC X'00' 00C8E5 0C8E5 01254 4184 ORG ETAB+(4*JRFILEISEMPTY) 001254 0000C8E5 4185 DC A(MJRFILEISEMPTY) 001258 01258 0C8E5 4186 ORG 00C8E5 C140998598A485A2 4187 MJRFILEISEMPTY DC C'A request to load a file into the LFS Cache was ma' 00C917 8485408696994081 4188 DC C'de for a file that is empty.' 00C933 00 4189 DC X'00' 00C934 0C934 01258 4190 ORG ETAB+(4*JRCACHENOTREGFILE) 001258 0000C934 4191 DC A(MJRCACHENOTREGFILE) 00125C 0125C 0C934 4192 ORG 1STRREA OMVS_STR_REASON Page 83 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000C934 D98598A485A2A3A2 4193 MJRCACHENOTREGFILE DC C'Requests to load a file into the LFS Cache are' 00C962 40A5819389844086 4194 DC C' valid for only regular files.' 00C980 00 4195 DC X'00' 00C981 0C981 0125C 4196 ORG ETAB+(4*JRNOTMVSLOCALFILE) 00125C 0000C981 4197 DC A(MJRNOTMVSLOCALFILE) 001260 01260 0C981 4198 ORG 00C981 D98598A485A2A3A2 4199 MJRNOTMVSLOCALFILE DC C'Requests to load a file into the LFS Cache are' 00C9AF 40A5819389844086 4200 DC C' valid for only OS/390 local files.' 00C9D2 00 4201 DC X'00' 00C9D3 0C9D3 01260 4202 ORG ETAB+(4*JRFILEINUSE) 001260 0000C9D3 4203 DC A(MJRFILEINUSE) 001264 01264 0C9D3 4204 ORG 00C9D3 E388854086899385 4205 MJRFILEINUSE DC C'The file cannot be loaded into the LFS Cache because' 00CA07 40A3888540868993 4206 DC C' the file is currently in use or the cleanup daemon h' 00CA3C 81A2409596A34083 4207 DC C'as not completed.' 00CA4D 00 4208 DC X'00' 00CA4E 0CA4E 01264 4209 ORG ETAB+(4*JRNOFREEENTRY) 001264 0000CA4E 4210 DC A(MJRNOFREEENTRY) 001268 01268 0CA4E 4211 ORG 00CA4E D596408699858540 4212 MJRNOFREEENTRY DC C'No free entries in the interface control array' 00CA7C 00 4213 DC X'00' 00CA7D 0CA7D 01268 4214 ORG ETAB+(4*JRINHEUSERID) 001268 0000CA7D 4215 DC A(MJRINHEUSERID) 00126C 0126C 0CA7D 4216 ORG 00CA7D E4A2859940C98440 4217 MJRINHEUSERID DC C'User Id specified in Inheritance structure is not v' 00CAB0 819389844B 4218 DC C'alid.' 00CAB5 00 4219 DC X'00' 00CAB6 0CAB6 0126C 4220 ORG ETAB+(4*JRINHEREGION) 00126C 0000CAB6 4221 DC A(MJRINHEREGION) 001270 01270 0CAB6 4222 ORG 00CAB6 D9858789969540A2 4223 MJRINHEREGION DC C'Region size specified in Inheritance structure is n' 00CAE9 96A340A581938984 4224 DC C'ot valid.' 00CAF2 00 4225 DC X'00' 00CAF3 0CAF3 01270 4226 ORG ETAB+(4*JRINHECPUTIME) 001270 0000CAF3 4227 DC A(MJRINHECPUTIME) 001274 01274 0CAF3 4228 ORG 00CAF3 C3D7E440E3899485 4229 MJRINHECPUTIME DC C'CPU Time specified in Inheritance structure is not' 00CB25 40A5819389844B 4230 DC C' valid.' 00CB2C 00 4231 DC X'00' 00CB2D 0CB2D 01274 4232 ORG ETAB+(4*JRINHEACCTDATAPTR) 001274 0000CB2D 4233 DC A(MJRINHEACCTDATAPTR) 001278 01278 0CB2D 4234 ORG 00CB2D E388854081838396 4235 MJRINHEACCTDATAPTR DC C'The account data pointer in the Inheritance st' 00CB5B 99A483A3A4998597 4236 DC C'ructurepoints to a location not addressable by the ca' 00CB90 93938599 4237 DC C'ller' 00CB94 00 4238 DC X'00' 00CB95 0CB95 01278 4239 ORG ETAB+(4*JRINHECWD) 001278 0000CB95 4240 DC A(MJRINHECWD) 00127C 0127C 0CB95 4241 ORG 00CB95 C3E6C440A2978583 4242 MJRINHECWD DC C'CWD specified in Inheritance structure is not valid.' 00CBC9 00 4243 DC X'00' 00CBCA 0CBCA 0127C 4244 ORG ETAB+(4*JRTOOMANYINTF) 00127C 0000CBCA 4245 DC A(MJRTOOMANYINTF) 001280 01280 0CBCA 4246 ORG 00CBCA E3969640948195A8 4247 MJRTOOMANYINTF DC C'Too many configured interfaces already exist' 1STRREA OMVS_STR_REASON Page 84 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000CBF6 00 4248 DC X'00' 00CBF7 0CBF7 01280 4249 ORG ETAB+(4*JRBADIPADDR) 001280 0000CBF7 4250 DC A(MJRBADIPADDR) 001284 01284 0CBF7 4251 ORG 00CBF7 C19540C9D7408184 4252 MJRBADIPADDR DC C'An IP address in the configured interface is incorre' 00CC2B 83A3 4253 DC C'ct' 00CC2D 00 4254 DC X'00' 00CC2E 0CC2E 01284 4255 ORG ETAB+(4*JRDATANOTAVAIL) 001284 0000CC2E 4256 DC A(MJRDATANOTAVAIL) 001288 01288 0CC2E 4257 ORG 00CC2E E388859985408199 4258 MJRDATANOTAVAIL DC C'There are no elements to read on ESCON receive qu' 00CC5F 85A485 4259 DC C'eue' 00CC62 00 4260 DC X'00' 00CC63 0CC63 01288 4261 ORG ETAB+(4*JRREQDENIED) 001288 0000CC63 4262 DC A(MJRREQDENIED) 00128C 0128C 0CC63 4263 ORG 00CC63 E388854096858986 4264 MJRREQDENIED DC C'The oeifconfig request is not accepted' 00CC89 00 4265 DC X'00' 00CC8A 0CC8A 0128C 4266 ORG ETAB+(4*JRBADMTUSIZE) 00128C 0000CC8A 4267 DC A(MJRBADMTUSIZE) 001290 01290 0CC8A 4268 ORG 00CC8A E3888540A2978583 4269 MJRBADMTUSIZE DC C'The specified MTU size for the interface is incorre' 00CCBD 83A3 4270 DC C'ct' 00CCBF 00 4271 DC X'00' 00CCC0 0CCC0 01290 4272 ORG ETAB+(4*JRNOTOSA) 001290 0000CCC0 4273 DC A(MJRNOTOSA) 001294 01294 0CCC0 4274 ORG 00CCC0 C3A499998595A340 4275 MJRNOTOSA DC C'Current interface is not an OSA adapter' 00CCE7 00 4276 DC X'00' 00CCE8 0CCE8 01294 4277 ORG ETAB+(4*JRBADOSAPORT) 001294 0000CCE8 4278 DC A(MJRBADOSAPORT) 001298 01298 0CCE8 4279 ORG 00CCE8 C995839699998583 4280 MJRBADOSAPORT DC C'Incorrect OSA port number specified' 00CD0B 00 4281 DC X'00' 00CD0C 0CD0C 012B8 4282 ORG ETAB+(4*JRFORKEXITRCOVERLAYPGMNOTVALID) 0012B8 0000CD0C 4283 DC A(MJRFORKEXITRCOVERLAYPGMNOTVALID) 0012BC 012BC 0CD0C 4284 ORG 00CD0C C39695A38595A3A2 4285 MJRFORKEXITRCOVERLAYPGMNOTVALID DC C'Contents Supervisor Fork Exit can' 00CD2D 9596A34086969992 4286 DC C'not fork overlay programs' 00CD46 00 4287 DC X'00' 00CD47 0CD47 012BC 4288 ORG ETAB+(4*JRMSGMAXLINES) 0012BC 0000CD47 4289 DC A(MJRMSGMAXLINES) 0012C0 012C0 0CD47 4290 ORG 00CD47 D481A78994A49440 4291 MJRMSGMAXLINES DC C'Maximum number of lines was exceeded ' 00CD71 00 4292 DC X'00' 00CD72 0CD72 012C0 4293 ORG ETAB+(4*JRRDDPLUSNOCURSORSUPP) 0012C0 0000CD72 4294 DC A(MJRRDDPLUSNOCURSORSUPP) 0012C4 012C4 0CD72 4295 ORG 00CD72 C6A48996D98484D7 4296 MJRRDDPLUSNOCURSORSUPP DC C'FuioRddPlus is only supported with the ind' 00CD9C 85A740979996A396 4297 DC C'ex protocol, not the cursor protocol.' 00CDC1 00 4298 DC X'00' 00CDC2 0CDC2 012C4 4299 ORG ETAB+(4*JRBADMAXSENDRCVSIZE) 0012C4 0000CDC2 4300 DC A(MJRBADMAXSENDRCVSIZE) 0012C8 012C8 0CDC2 4301 ORG 00CDC2 C995839699998583 4302 MJRBADMAXSENDRCVSIZE DC C'Incorrect Maximum send/receive size value sp' 1STRREA OMVS_STR_REASON Page 85 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000CDEE 85838986898584 4303 DC C'ecified' 00CDF5 00 4304 DC X'00' 00CDF6 0CDF6 012C8 4305 ORG ETAB+(4*JRPTLDTOOMANYEXTENTS) 0012C8 0000CDF6 4306 DC A(MJRPTLDTOOMANYEXTENTS) 0012CC 012CC 0CDF6 4307 ORG 00CDF6 E388854097A39981 4308 MJRPTLDTOOMANYEXTENTS DC C'The ptrace loader information request faile' 00CE21 844082858381A4A2 4309 DC C'd because a load module had more than 16 extents' 00CE51 00 4310 DC X'00' 00CE52 0CE52 012CC 4311 ORG ETAB+(4*JRBADHANDLE) 0012CC 0000CE52 4312 DC A(MJRBADHANDLE) 0012D0 012D0 0CE52 4313 ORG 00CE52 E388854093968392 4314 MJRBADHANDLE DC C'The lock handle on the lock parameter is not 0' 00CE80 00 4315 DC X'00' 00CE81 0CE81 012D0 4316 ORG ETAB+(4*JRNODEFAULT) 0012D0 0000CE81 4317 DC A(MJRNODEFAULT) 0012D4 012D4 0CE81 4318 ORG 00CE81 C3969494969540C9 4319 MJRNODEFAULT DC C'Common Inet is running, but there are no transport p' 00CEB5 9996A589848599A2 4320 DC C'roviders active to run as a Default.' 00CED9 00 4321 DC X'00' 00CEDA 0CEDA 012D4 4322 ORG ETAB+(4*JRBLOCKSINFLUX) 0012D4 0000CEDA 4323 DC A(MJRBLOCKSINFLUX) 0012D8 012D8 0CEDA 4324 ORG 00CEDA E4958182938540A3 4325 MJRBLOCKSINFLUX DC C'Unable to access internal blocks without lock' 00CF07 00 4326 DC X'00' 00CF08 0CF08 012D8 4327 ORG ETAB+(4*JRLINETFAIL) 0012D8 0000CF08 4328 DC A(MJRLINETFAIL) 0012DC 012DC 0CF08 4329 ORG 00CF08 D396838193408995 4330 MJRLINETFAIL DC C'Local inet not correctly set up.' 00CF28 00 4331 DC X'00' 00CF29 0CF29 012DC 4332 ORG ETAB+(4*JRNOEPHEMERALPORTS) 0012DC 0000CF29 4333 DC A(MJRNOEPHEMERALPORTS) 0012E0 012E0 0CF29 4334 ORG 00CF29 E3888540A2A49797 4335 MJRNOEPHEMERALPORTS DC C'The supply of ephemeral port numbers is exhau' 00CF56 A2A385844B 4336 DC C'sted.' 00CF5B 00 4337 DC X'00' 00CF5C 0CF5C 012E0 4338 ORG ETAB+(4*JRSOCKETSYNRECEIVED) 0012E0 0000CF5C 4339 DC A(MJRSOCKETSYNRECEIVED) 0012E4 012E4 0CF5C 4340 ORG 00CF5C C140E2E8D540A681 4341 MJRSOCKETSYNRECEIVED DC C'A SYN was received on the socket connection.' 00CF88 00 4342 DC X'00' 00CF89 0CF89 012E4 4343 ORG ETAB+(4*JRSOCKETRSTRECEIVED) 0012E4 0000CF89 4344 DC A(MJRSOCKETRSTRECEIVED) 0012E8 012E8 0CF89 4345 ORG 00CF89 C140D9E2E340A681 4346 MJRSOCKETRSTRECEIVED DC C'A RST was received on the socket connection.' 00CFB5 00 4347 DC X'00' 00CFB6 0CFB6 012E8 4348 ORG ETAB+(4*JRSELFCONNECT) 0012E8 0000CFB6 4349 DC A(MJRSELFCONNECT) 0012EC 012EC 0CFB6 4350 ORG 00CFB6 C39695958583A340 4351 MJRSELFCONNECT DC C'Connect to self is not allowed' 00CFD4 00 4352 DC X'00' 00CFD5 0CFD5 012EC 4353 ORG ETAB+(4*JRALREADYCONN) 0012EC 0000CFD5 4354 DC A(MJRALREADYCONN) 0012F0 012F0 0CFD5 4355 ORG 00CFD5 E3888540A2968392 4356 MJRALREADYCONN DC C'The socket is already connected' 00CFF4 00 4357 DC X'00' 1STRREA OMVS_STR_REASON Page 86 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000CFF5 0CFF5 012F0 4358 ORG ETAB+(4*JRNOTSTREAM) 0012F0 0000CFF5 4359 DC A(MJRNOTSTREAM) 0012F4 012F4 0CFF5 4360 ORG 00CFF5 E3888540A2968392 4361 MJRNOTSTREAM DC C'The socket operation is only valid for a stream sock' 00D029 85A34B 4362 DC C'et.' 00D02C 00 4363 DC X'00' 00D02D 0D02D 012F4 4364 ORG ETAB+(4*JRSOCKETCONDROPPED) 0012F4 0000D02D 4365 DC A(MJRSOCKETCONDROPPED) 0012F8 012F8 0D02D 4366 ORG 00D02D E3888540A2968392 4367 MJRSOCKETCONDROPPED DC C'The socket connection was severed.' 00D04F 00 4368 DC X'00' 00D050 0D050 012F8 4369 ORG ETAB+(4*JRMPMUPROCESS) 0012F8 0000D050 4370 DC A(MJRMPMUPROCESS) 0012FC 012FC 0D050 4371 ORG 00D050 D697859981A38996 4372 MJRMPMUPROCESS DC C'Operation not permitted in a Multiproc/Multiuser p' 00D082 99968385A2A2 4373 DC C'rocess' 00D088 00 4374 DC X'00' 00D089 0D089 012FC 4375 ORG ETAB+(4*JRTLSCERTIDLENINVALID) 0012FC 0000D089 4376 DC A(MJRTLSCERTIDLENINVALID) 001300 01300 0D089 4377 ORG 00D089 E3888540838599A3 4378 MJRTLSCERTIDLENINVALID DC C'The certificate structure has an incorrect' 00D0B3 4093859587A38840 4379 DC C' length associated with it.' 00D0CE 00 4380 DC X'00' 00D0CF 0D0CF 01300 4381 ORG ETAB+(4*JRTLSCERTTYPEINVALID) 001300 0000D0CF 4382 DC A(MJRTLSCERTTYPEINVALID) 001304 01304 0D0CF 4383 ORG 00D0CF E3888540A3A89785 4384 MJRTLSCERTTYPEINVALID DC C'The type of certificate used is not valid.' 00D0F9 00 4385 DC X'00' 00D0FA 0D0FA 01304 4386 ORG ETAB+(4*JRTLSCERTLENGTHINVALID) 001304 0000D0FA 4387 DC A(MJRTLSCERTLENGTHINVALID) 001308 01308 0D0FA 4388 ORG 00D0FA E388854093859587 4389 MJRTLSCERTLENGTHINVALID DC C'The length of the certificate is not vali' 00D123 844B 4390 DC C'd.' 00D125 00 4391 DC X'00' 00D126 0D126 01308 4392 ORG ETAB+(4*JRNOINITACEE) 001308 0000D126 4393 DC A(MJRNOINITACEE) 00130C 0130C 0D126 4394 ORG 00D126 E3888599854089A2 4395 MJRNOINITACEE DC C'There is no SAF service available to manage a certi' 00D159 86898381A3854081 4396 DC C'ficate authorization.' 00D16E 00 4397 DC X'00' 00D16F 0D16F 0130C 4398 ORG ETAB+(4*JRNOCERTFORUSER) 00130C 0000D16F 4399 DC A(MJRNOCERTFORUSER) 001310 01310 0D16F 4400 ORG 00D16F E3888599854089A2 4401 MJRNOCERTFORUSER DC C'There is no userid defined for this certificate.' 00D19F 00 4402 DC X'00' 00D1A0 0D1A0 01310 4403 ORG ETAB+(4*JRCERTINVALID) 001310 0000D1A0 4404 DC A(MJRCERTINVALID) 001314 01314 0D1A0 4405 ORG 00D1A0 E3888540838599A3 4406 MJRCERTINVALID DC C'The certificate is not valid to the security servi' 00D1D2 83854B 4407 DC C'ce.' 00D1D5 00 4408 DC X'00' 00D1D6 0D1D6 01314 4409 ORG ETAB+(4*JRKEEPALIVETO) 001314 0000D1D6 4410 DC A(MJRKEEPALIVETO) 001318 01318 0D1D6 4411 ORG 00D1D6 E3888540A2968392 4412 MJRKEEPALIVETO DC C'The socket connection was severed.' 1STRREA OMVS_STR_REASON Page 87 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000D1F8 00 4413 DC X'00' 00D1F9 0D1F9 01318 4414 ORG ETAB+(4*JRINETRECYCLED) 001318 0000D1F9 4415 DC A(MJRINETRECYCLED) 00131C 0131C 0D1F9 4416 ORG 00D1F9 D6958540968640A3 4417 MJRINETRECYCLED DC C'One of the Transport Providers was activated afte' 00D22A 9940A3888540A296 4418 DC C'r the socket was opened.' 00D242 00 4419 DC X'00' 00D243 0D243 0131C 4420 ORG ETAB+(4*JRSWAPMISMATCH) 00131C 0000D243 4421 DC A(MJRSWAPMISMATCH) 001320 01320 0D243 4422 ORG 00D243 C1954081A3A38594 4423 MJRSWAPMISMATCH DC C'An attempt was made to make the address space swa' 00D274 979781829385A688 4424 DC C'ppablewhen no previous attempt to make the address sp' 00D2A9 81838595969560A2 4425 DC C'acenon-swappable was made.' 00D2C3 00 4426 DC X'00' 00D2C4 0D2C4 01320 4427 ORG ETAB+(4*JRNOBACKLOGQ) 001320 0000D2C4 4428 DC A(MJRNOBACKLOGQ) 001324 01324 0D2C4 4429 ORG 00D2C4 C195408183838597 4430 MJRNOBACKLOGQ DC C'An accept() request was issued for a serversocket t' 00D2F7 8881A340849685A2 4431 DC C'hat does not have a backlog queue.' 00D319 00 4432 DC X'00' 00D31A 0D31A 01324 4433 ORG ETAB+(4*JRFUNCTIONCODE) 001324 0000D31A 4434 DC A(MJRFUNCTIONCODE) 001328 01328 0D31A 4435 ORG 00D31A E388854086A49583 4436 MJRFUNCTIONCODE DC C'The function code for syscall is not valid.' 00D345 00 4437 DC X'00' 00D346 0D346 01328 4438 ORG ETAB+(4*JRIDENTITYTYPE) 001328 0000D346 4439 DC A(MJRIDENTITYTYPE) 00132C 0132C 0D346 4440 ORG 00D346 E388854089848595 4441 MJRIDENTITYTYPE DC C'The identity type for the syscall is not valid.' 00D375 00 4442 DC X'00' 00D376 0D376 0132C 4443 ORG ETAB+(4*JRCERTIFICATE) 00132C 0000D376 4444 DC A(MJRCERTIFICATE) 001330 01330 0D376 4445 ORG 00D376 E3888540A28583A4 4446 MJRCERTIFICATE DC C'The security certificate was either not specified ' 00D3A8 9699A38885409385 4447 DC C'orthe length was not valid.' 00D3C3 00 4448 DC X'00' 00D3C4 0D3C4 01330 4449 ORG ETAB+(4*JRCWDPLUSFILENAME) 001330 0000D3C4 4450 DC A(MJRCWDPLUSFILENAME) 001334 01334 0D3C4 4451 ORG 00D3C4 E388854083969482 4452 MJRCWDPLUSFILENAME DC C'The combined length of the CWD specified in th' 00D3F2 8540C9D5C8C54081 4453 DC C'e INHE and the filename parameter exceeded 1023 bytes' 00D427 4B 4454 DC C'.' 00D428 00 4455 DC X'00' 00D429 0D429 01334 4456 ORG ETAB+(4*JRFILECHANGEDDURINGLOAD) 001334 0000D429 4457 DC A(MJRFILECHANGEDDURINGLOAD) 001338 01338 0D429 4458 ORG 00D429 E388854086899385 4459 MJRFILECHANGEDDURINGLOAD DC C'The file or its attributes changed while' 00D451 40A3888540868993 4460 DC C' the file was in the process of being loaded.' 00D47E 00 4461 DC X'00' 00D47F 0D47F 01338 4462 ORG ETAB+(4*JRSECURITYENV) 001338 0000D47F 4463 DC A(MJRSECURITYENV) 00133C 0133C 0D47F 4464 ORG 00D47F E3888540A2A8A283 4465 MJRSECURITYENV DC C'The syscall is prohibited with the caller:apos.s c' 00D4B1 A499998595A340A2 4466 DC C'urrent security environment.' 00D4CD 00 4467 DC X'00' 1STRREA OMVS_STR_REASON Page 88 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000D4CE 0D4CE 0133C 4468 ORG ETAB+(4*JRSTORNOTAVAIL) 00133C 0000D4CE 4469 DC A(MJRSTORNOTAVAIL) 001340 01340 0D4CE 4470 ORG 00D4CE C195408184849985 4471 MJRSTORNOTAVAIL DC C'An address was specified which is not available' 00D4FD 00 4472 DC X'00' 00D4FE 0D4FE 01340 4473 ORG ETAB+(4*JRNOTSEGMENT) 001340 0000D4FE 4474 DC A(MJRNOTSEGMENT) 001344 01344 0D4FE 4475 ORG 00D4FE C14093968381A389 4476 MJRNOTSEGMENT DC C'A location specified or generated is not on a segme' 00D531 95A3408296A49584 4477 DC C'nt boundary' 00D53C 00 4478 DC X'00' 00D53D 0D53D 01344 4479 ORG ETAB+(4*JRMMAPTYPEMISMATCH) 001344 0000D53D 4480 DC A(MJRMMAPTYPEMISMATCH) 001348 01348 0D53D 4481 ORG 00D53D C140998598A485A2 4482 MJRMMAPTYPEMISMATCH DC C'A request specified the MAP_MEGA option but w' 00D56A 81A2408193998581 4483 DC C'as already mapped without the option or did not speci' 00D59F 86A840A388854040 4484 DC C'fy the MAP_MEGA option but was already mapped with t' 00D5D4 8881A3409697A389 4485 DC C'hat option.' 00D5DF 00 4486 DC X'00' 00D5E0 0D5E0 01348 4487 ORG ETAB+(4*JRWFILEMAPRDONLY) 001348 0000D5E0 4488 DC A(MJRWFILEMAPRDONLY) 00134C 0134C 0D5E0 4489 ORG 00D5E0 C140998598A485A2 4490 MJRWFILEMAPRDONLY DC C'A request tried to write to a file that is mapp' 00D60F 8584404081A24099 4491 DC C'ed as read-only' 00D61F 00 4492 DC X'00' 00D620 0D620 0134C 4493 ORG ETAB+(4*JRPTTYPENOTTRIED) 00134C 0000D620 4494 DC A(MJRPTTYPENOTTRIED) 001350 01350 0D620 4495 ORG 00D620 E38885408595A399 4496 MJRPTTYPENOTTRIED DC C'The entry in a ptrace PT_BlockReq request conta' 00D64F 899589958740A388 4497 DC C'ining this value in the status field was not processe' 00D684 844082858381A4A2 4498 DC C'd because of an unexpected error' 00D6A4 00 4499 DC X'00' 00D6A5 0D6A5 01350 4500 ORG ETAB+(4*JRPTBADBLKREQSTRUC) 001350 0000D6A5 4501 DC A(MJRPTBADBLKREQSTRUC) 001354 01354 0D6A5 4502 ORG 00D6A5 E3888540D7A3C2D9 4503 MJRPTBADBLKREQSTRUC DC C'The PtBRInfo block or related structure passe' 00D6D2 844081A240899597 4504 DC C'd as input for a ptrace Pt_BlockReq request is not va' 00D707 9389844B 4505 DC C'lid.' 00D70B 00 4506 DC X'00' 00D70C 0D70C 01354 4507 ORG ETAB+(4*JRPTSOMEBLKEDFAILED) 001354 0000D70C 4508 DC A(MJRPTSOMEBLKEDFAILED) 001358 01358 0D70C 4509 ORG 00D70C D695854096994094 4510 MJRPTSOMEBLKEDFAILED DC C'One or more entries in a Pt_BlockReq request' 00D738 40A681A2409596A3 4511 DC C' was not processed.' 00D74B 00 4512 DC X'00' 00D74C 0D74C 01358 4513 ORG ETAB+(4*JRPTTYPENOTBLOCKABLE) 001358 0000D74C 4514 DC A(MJRPTTYPENOTBLOCKABLE) 00135C 0135C 0D74C 4515 ORG 00D74C E38885408595A399 4516 MJRPTTYPENOTBLOCKABLE DC C'The entry in a ptrace PT_BlockReq request c' 00D777 9695A38189958995 4517 DC C'ontaining this value in the status field was not proc' 00D7AC 85A2A28584408285 4518 DC C'essed because the type specified is not allowed in a ' 00D7E1 8293968392858440 4519 DC C'blocked request.' 00D7F1 00 4520 DC X'00' 00D7F2 0D7F2 0135C 4521 ORG ETAB+(4*JRTARGETPID) 00135C 0000D7F2 4522 DC A(MJRTARGETPID) 1STRREA OMVS_STR_REASON Page 89 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001360 01360 0D7F2 4523 ORG 00D7F2 C140A381998785A3 4524 MJRTARGETPID DC C'A target pid specified is incorrect' 00D815 00 4525 DC X'00' 00D816 0D816 01360 4526 ORG ETAB+(4*JRSIGNALPID) 001360 0000D816 4527 DC A(MJRSIGNALPID) 001364 01364 0D816 4528 ORG 00D816 C140A28987958193 4529 MJRSIGNALPID DC C'A signal pid specified is incorrect' 00D839 00 4530 DC X'00' 00D83A 0D83A 01364 4531 ORG ETAB+(4*JRNOCALLERPID) 001364 0000D83A 4532 DC A(MJRNOCALLERPID) 001368 01368 0D83A 4533 ORG 00D83A E3888540E2898795 4534 MJRNOCALLERPID DC C'The Signal_Pid or Target_Pid did not containthe pi' 00D86C 8440968640A38885 4535 DC C'd of the caller' 00D87B 00 4536 DC X'00' 00D87C 0D87C 01368 4537 ORG ETAB+(4*JRANR) 001368 0000D87C 4538 DC A(MJRANR) 00136C 0136C 0D87C 4539 ORG 00D87C E595968485409697 4540 MJRANR DC C'Vnode operation ACCEPT_AND_RECEIVE is not supported by thi' 00D8B6 A2408689938540A2 4541 DC C's file system' 00D8C3 00 4542 DC X'00' 00D8C4 0D8C4 0136C 4543 ORG ETAB+(4*JRSRX) 00136C 0000D8C4 4544 DC A(MJRSRX) 001370 01370 0D8C4 4545 ORG 00D8C4 E595968485409697 4546 MJRSRX DC C'Vnode operation SR_CSM is not supported by this file syste' 00D8FE 94 4547 DC C'm' 00D8FF 00 4548 DC X'00' 00D900 0D900 01370 4549 ORG ETAB+(4*JRWRONGKEY) 001370 0000D900 4550 DC A(MJRWRONGKEY) 001374 01374 0D900 4551 ORG 00D900 C195408599999699 4552 MJRWRONGKEY DC C'An error occurred during process signal initializatio' 00D935 95 4553 DC C'n' 00D936 00 4554 DC X'00' 00D937 0D937 01374 4555 ORG ETAB+(4*JRPTBADBLKOFFSET) 001374 0000D937 4556 DC A(MJRPTBADBLKOFFSET) 001378 01378 0D937 4557 ORG 00D937 C140D7A3C2D9C995 4558 MJRPTBADBLKOFFSET DC C'A PtBRInfo entry has an offset that either poin' 00D966 A3A240A39640A689 4559 DC C'ts to within the PtBRInfo block or past the end of th' 00D99B 8540819985814097 4560 DC C'e area provided by the user.' 00D9B7 00 4561 DC X'00' 00D9B8 0D9B8 01378 4562 ORG ETAB+(4*JRSSETTOOSMALL) 001378 0000D9B8 4563 DC A(MJRSSETTOOSMALL) 00137C 0137C 0D9B8 4564 ORG 00D9B8 E3888540D69384C3 4565 MJRSSETTOOSMALL DC C'The OldCount value supplied was too smallto accom' 00D9E9 968481A38540A388 4566 DC C'odate the number of built entries ' 00DA0D 00 4567 DC X'00' 00DA0E 0DA0E 0137C 4568 ORG ETAB+(4*JRINVALIDRANGE) 00137C 0000DA0E 4569 DC A(MJRINVALIDRANGE) 001380 01380 0DA0E 4570 ORG 00DA0E E3888540D585A6C3 4571 MJRINVALIDRANGE DC C'The NewCount or OldCount was greater thanthe maxi' 00DA3F 94A4944095A49482 4572 DC C'mum number of signals allowed' 00DA5C 00 4573 DC X'00' 00DA5D 0DA5D 01380 4574 ORG ETAB+(4*JRINVALIDOPTION) 001380 0000DA5D 4575 DC A(MJRINVALIDOPTION) 001384 01384 0DA5D 4576 ORG 00DA5D E38885409697A389 4577 MJRINVALIDOPTION DC C'The option specified is not supported' 1STRREA OMVS_STR_REASON Page 90 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000DA82 00 4578 DC X'00' 00DA83 0DA83 01384 4579 ORG ETAB+(4*JRINVALIDBINSEMUNDO) 001384 0000DA83 4580 DC A(MJRINVALIDBINSEMUNDO) 001388 01388 0DA83 4581 ORG 00DA83 E3888540998598A4 4582 MJRINVALIDBINSEMUNDO DC C'The requested operation violates binary sema' 00DAAF 97889699854099A4 4583 DC C'phore rules by specifying UNDO option.' 00DAD5 00 4584 DC X'00' 00DAD6 0DAD6 01388 4585 ORG ETAB+(4*JRINVALIDBINSEMNUMSEMOPS) 001388 0000DAD6 4586 DC A(MJRINVALIDBINSEMNUMSEMOPS) 00138C 0138C 0DAD6 4587 ORG 00DAD6 E3888540998598A4 4588 MJRINVALIDBINSEMNUMSEMOPS DC C'The requested operation violates binary' 00DAFD 40A2859481978896 4589 DC C' semaphore rulesby specifying more than one operation' 00DB32 4097859940A28594 4590 DC C' per semop.' 00DB3D 00 4591 DC X'00' 00DB3E 0DB3E 0138C 4592 ORG ETAB+(4*JRINVALIDBINSEMNOTBINOP) 00138C 0000DB3E 4593 DC A(MJRINVALIDBINSEMNOTBINOP) 001390 01390 0DB3E 4594 ORG 00DB3E E3888540998598A4 4595 MJRINVALIDBINSEMNOTBINOP DC C'The requested operation violates binary ' 00DB66 A285948197889699 4596 DC C'semaphore rulesby specifying too large a semop or sem' 00DB9B 83A39340A58193A4 4597 DC C'ctl value for the semval.' 00DBB4 00 4598 DC X'00' 00DBB5 0DBB5 01390 4599 ORG ETAB+(4*JRINVALIDBINSEMFLAG) 001390 0000DBB5 4600 DC A(MJRINVALIDBINSEMFLAG) 001394 01394 0DBB5 4601 ORG 00DBB5 C140A2859487A340 4602 MJRINVALIDBINSEMFLAG DC C'A semgt request matched an existing key or I' 00DBE1 C44082A4A340A388 4603 DC C'D but the __IPC_BINSEM flag operand does not match.' 00DC14 00 4604 DC X'00' 00DC15 0DC15 01394 4605 ORG ETAB+(4*JRINVALIDBINSEMSETALL) 001394 0000DC15 4606 DC A(MJRINVALIDBINSEMSETALL) 001398 01398 0DC15 4607 ORG 00DC15 C140998598A485A2 4608 MJRINVALIDBINSEMSETALL DC C'A requested semctl SETALL is being done af' 00DC3F A38599408140A285 4609 DC C'ter a semop for a __IPC_BINSEM semaphore set.' 00DC6C 00 4610 DC X'00' 00DC6D 0DC6D 01398 4611 ORG ETAB+(4*JRNEGATIVELENGTH) 001398 0000DC6D 4612 DC A(MJRNEGATIVELENGTH) 00139C 0139C 0DC6D 4613 ORG 00DC6D C14095858781A389 4614 MJRNEGATIVELENGTH DC C'A negative length was specified for either the ' 00DC9C 4088858184859940 4615 DC C' header length or trailer length on the SEND_FILESysc' 00DCD1 8193934B 4616 DC C'all.' 00DCD5 00 4617 DC X'00' 00DCD6 0DCD6 0139C 4618 ORG ETAB+(4*JRINVALIDOFFSET) 00139C 0000DCD6 4619 DC A(MJRINVALIDOFFSET) 0013A0 013A0 0DCD6 4620 ORG 00DCD6 E3888540968686A2 4621 MJRINVALIDOFFSET DC C'The offset parameter specified on the SEND_FILE ' 00DD06 A2A8A28381939340 4622 DC C'syscall is not correct. It is either a negative numbe' 00DD3B 994096994089A340 4623 DC C'r or it specifies an offset past the end of the fil' 00DD70 854B 4624 DC C'e.' 00DD72 00 4625 DC X'00' 00DD73 0DD73 013A0 4626 ORG ETAB+(4*JRTOOMANYBYTES) 0013A0 0000DD73 4627 DC A(MJRTOOMANYBYTES) 0013A4 013A4 0DD73 4628 ORG 00DD73 E3888540C6C9D3C5 4629 MJRTOOMANYBYTES DC C'The FILE_BYTES parameter specified on the SEND_FI' 00DDA4 D3C540A2A8A28381 4630 DC C'LE syscall is larger than the file size.' 00DDCC 00 4631 DC X'00' 00DDCD 0DDCD 013A4 4632 ORG ETAB+(4*JRSOCKETNONBLOCK) 1STRREA OMVS_STR_REASON Page 91 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00013A4 0000DDCD 4633 DC A(MJRSOCKETNONBLOCK) 0013A8 013A8 0DDCD 4634 ORG 00DDCD E3888540A2968392 4635 MJRSOCKETNONBLOCK DC C'The socket descriptor specified on the SEND_FIL' 00DDFC C5A2A8A283819393 4636 DC C'Esyscall is a non-blocking socket. SEND_FILE requires' 00DE31 4081408293968392 4637 DC C' a blocking socket.' 00DE44 00 4638 DC X'00' 00DE45 0DE45 013A8 4639 ORG ETAB+(4*JRLOCALSPAWNNOTALLOWED) 0013A8 0000DE45 4640 DC A(MJRLOCALSPAWNNOTALLOWED) 0013AC 013AC 0DE45 4641 ORG 00DE45 C140998598A485A2 4642 MJRLOCALSPAWNNOTALLOWED DC C'A request to spawn a local child process ' 00DE6E 8396A49384409596 4643 DC C'could not be completed.' 00DE85 00 4644 DC X'00' 00DE86 0DE86 013AC 4645 ORG ETAB+(4*JRINVALIDSFPLLEN) 0013AC 0000DE86 4646 DC A(MJRINVALIDSFPLLEN) 0013B0 013B0 0DE86 4647 ORG 00DE86 E3888540E2C6D7D3 4648 MJRINVALIDSFPLLEN DC C'The SFPL_LENGTH parameter specified on the SEND' 00DEB5 6DC6C9D3C540A2A8 4649 DC C'_FILE syscall is not correct.' 00DED2 00 4650 DC X'00' 00DED3 0DED3 013B0 4651 ORG ETAB+(4*JRPTINVFPCWRITE) 0013B0 0000DED3 4652 DC A(MJRPTINVFPCWRITE) 0013B4 013B4 0DED3 4653 ORG 00DED3 E3888540A58193A4 4654 MJRPTINVFPCWRITE DC C'The value specified for writing into the Floatin' 00DF03 8740D7968995A340 4655 DC C'g Point Control Register is not valid.' 00DF29 00 4656 DC X'00' 00DF2A 0DF2A 013B4 4657 ORG ETAB+(4*JRMAXAIOCBECB) 0013B4 0000DF2A 4658 DC A(MJRMAXAIOCBECB) 0013B8 013B8 0DF2A 4659 ORG 00DF2A E38885409481A789 4660 MJRMAXAIOCBECB DC C'The maximum number of AIOCBs with user defined ECB' 00DF5C A240A681A24085A7 4661 DC C's was exceeded on the requested function.' 00DF85 00 4662 DC X'00' 00DF86 0DF86 013B8 4663 ORG ETAB+(4*JRCERTALREADYDEFINED) 0013B8 0000DF86 4664 DC A(MJRCERTALREADYDEFINED) 0013BC 013BC 0DF86 4665 ORG 00DF86 E3888540838599A3 4666 MJRCERTALREADYDEFINED DC C'The certificate being registered/deregister' 00DFB1 8584404040404089 4667 DC C'ed is already defined for another user.' 00DFDC 00 4668 DC X'00' 00DFDD 0DFDD 013BC 4669 ORG ETAB+(4*JRCERTDOESNOTMEETREQ) 0013BC 0000DFDD 4670 DC A(MJRCERTDOESNOTMEETREQ) 0013C0 013C0 0DFDD 4671 ORG 00DFDD E3888540838599A3 4672 MJRCERTDOESNOTMEETREQ DC C'The certificate being registered/deregister' 00E008 858440849685A240 4673 DC C'ed does not meet RACF requirements.' 00E02B 00 4674 DC X'00' 00E02C 0E02C 013C0 4675 ORG ETAB+(4*JRLOCKFCNCODE) 0013C0 0000E02C 4676 DC A(MJRLOCKFCNCODE) 0013C4 013C4 0E02C 4677 ORG 00E02C E3888540A58193A4 4678 MJRLOCKFCNCODE DC C'The value specified for the LockFcnCode parameter ' 00E05E 86969940A3888540 4679 DC C'for the BPX1SLK service is not valid.' 00E083 00 4680 DC X'00' 00E084 0E084 013C4 4681 ORG ETAB+(4*JRLOCKREQTYPE) 0013C4 0000E084 4682 DC A(MJRLOCKREQTYPE) 0013C8 013C8 0E084 4683 ORG 00E084 E3888540A58193A4 4684 MJRLOCKREQTYPE DC C'The value specified for the LockReqType parameter ' 00E0B6 86969940A3888540 4685 DC C'for the BPX1SLK service is not valid.' 00E0DB 00 4686 DC X'00' 00E0DC 0E0DC 013C8 4687 ORG ETAB+(4*JRLOCKTYPE) 1STRREA OMVS_STR_REASON Page 92 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00013C8 0000E0DC 4688 DC A(MJRLOCKTYPE) 0013CC 013CC 0E0DC 4689 ORG 00E0DC E3888540A58193A4 4690 MJRLOCKTYPE DC C'The value specified for the LockType parameter for th' 00E111 8540C2D7E7F1E2D3 4691 DC C'e BPX1SLK service is not valid.' 00E130 00 4692 DC X'00' 00E131 0E131 013CC 4693 ORG ETAB+(4*JRLOCKADDR) 0013CC 0000E131 4694 DC A(MJRLOCKADDR) 0013D0 013D0 0E131 4695 ORG 00E131 E388854081848499 4696 MJRLOCKADDR DC C'The address specified for the LockAddr parameter for ' 00E166 A3888540C2D7E7F1 4697 DC C'the BPX1SLK service is not a valid shared memory addr' 00E19B 85A2A24B 4698 DC C'ess.' 00E19F 00 4699 DC X'00' 00E1A0 0E1A0 013D0 4700 ORG ETAB+(4*JRLOCKTOKEN) 0013D0 0000E1A0 4701 DC A(MJRLOCKTOKEN) 0013D4 013D4 0E1A0 4702 ORG 00E1A0 E3888540A58193A4 4703 MJRLOCKTOKEN DC C'The value specified for the LockToken parameter for ' 00E1D4 A3888540C2D7E7F1 4704 DC C'the BPX1SLK service is not valid.' 00E1F5 00 4705 DC X'00' 00E1F6 0E1F6 013D4 4706 ORG ETAB+(4*JRLOCKEDALREADY) 0013D4 0000E1F6 4707 DC A(MJRLOCKEDALREADY) 0013D8 013D8 0E1F6 4708 ORG 00E1F6 E388854093968392 4709 MJRLOCKEDALREADY DC C'The lock represented by the specified lock token' 00E226 404089A240819399 4710 DC C' is already in a held state.' 00E243 00 4711 DC X'00' 00E244 0E244 013D8 4712 ORG ETAB+(4*JRLOCKINUSE) 0013D8 0000E244 4713 DC A(MJRLOCKINUSE) 0013DC 013DC 0E244 4714 ORG 00E244 E388854093968392 4715 MJRLOCKINUSE DC C'The lock represented by the specified lock token is' 00E278 40899540A4A28540 4716 DC C' in use for a condition wait.' 00E295 00 4717 DC X'00' 00E296 0E296 013DC 4718 ORG ETAB+(4*JRLOCKSHMACC) 0013DC 0000E296 4719 DC A(MJRLOCKSHMACC) 0013E0 013E0 0E296 4720 ORG 00E296 E388854083819393 4721 MJRLOCKSHMACC DC C'The caller does not have read/write access to the s' 00E2C9 8881998584409485 4722 DC C'hared memory in which the specified lock resides.' 00E2FA 00 4723 DC X'00' 00E2FB 0E2FB 013E0 4724 ORG ETAB+(4*JRLOCKNOTOWNER) 0013E0 0000E2FB 4725 DC A(MJRLOCKNOTOWNER) 0013E4 013E4 0E2FB 4726 ORG 00E2FB E388854083819393 4727 MJRLOCKNOTOWNER DC C'The calling thread does not own the lock represen' 00E32C A385844082A840A3 4728 DC C'ted by the specified lock token.' 00E34C 00 4729 DC X'00' 00E34D 0E34D 013E4 4730 ORG ETAB+(4*JRLOCKMAXCNTSYS) 0013E4 0000E34D 4731 DC A(MJRLOCKMAXCNTSYS) 0013E8 013E8 0E34D 4732 ORG 00E34D E38885409481A789 4733 MJRLOCKMAXCNTSYS DC C'The maximum number of shared memory locks for th' 00E37D 8540A2A8A2A38594 4734 DC C'e system have been initialized.' 00E39C 00 4735 DC X'00' 00E39D 0E39D 013E8 4736 ORG ETAB+(4*JRLOCKMAXCNTTHD) 0013E8 0000E39D 4737 DC A(MJRLOCKMAXCNTTHD) 0013EC 013EC 0E39D 4738 ORG 00E39D E38885409481A789 4739 MJRLOCKMAXCNTTHD DC C'The maximum number of shared memory locks for th' 00E3CD 8540838193938995 4740 DC C'e calling thread have been obtained.' 00E3F1 00 4741 DC X'00' 00E3F2 0E3F2 013EC 4742 ORG ETAB+(4*JRLOCKMAXCNTRECURSE) 1STRREA OMVS_STR_REASON Page 93 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00013EC 0000E3F2 4743 DC A(MJRLOCKMAXCNTRECURSE) 0013F0 013F0 0E3F2 4744 ORG 00E3F2 E38885409481A789 4745 MJRLOCKMAXCNTRECURSE DC C'The maximum number of recursive lock obtains' 00E41E 4086969940814087 4746 DC C' for a given lock has been reached.' 00E441 00 4747 DC X'00' 00E442 0E442 013F0 4748 ORG ETAB+(4*JRLOCKSHMREMOVED) 0013F0 0000E442 4749 DC A(MJRLOCKSHMREMOVED) 0013F4 013F4 0E442 4750 ORG 00E442 E3888540A2978583 4751 MJRLOCKSHMREMOVED DC C'The specified lock cannot be obtained because i' 00E471 A34089A240899540 4752 DC C't is in shared memory that has been removed.' 00E49D 00 4753 DC X'00' 00E49E 0E49E 013F4 4754 ORG ETAB+(4*JRBADAIOECB) 0013F4 0000E49E 4755 DC A(MJRBADAIOECB) 0013F8 013F8 0E49E 4756 ORG 00E49E C19540C583824099 4757 MJRBADAIOECB DC C'An Ecb represented by AioEcbPtr in one of the input ' 00E4D2 C189968382A240A6 4758 DC C'Aiocbs was found to be bad.' 00E4ED 00 4759 DC X'00' 00E4EE 0E4EE 013F8 4760 ORG ETAB+(4*JRNOPTSECENV) 0013F8 0000E4EE 4761 DC A(MJRNOPTSECENV) 0013FC 013FC 0E4EE 4762 ORG 00E4EE D69593A8408140A3 4763 MJRNOPTSECENV DC C'Only a thread level identity created with pthread_s' 00E521 8583A49989A3A86D 4764 DC C'ecurity_np (BPX1TLS) can be propagated over a socket.' 00E556 00 4765 DC X'00' 00E557 0E557 013FC 4766 ORG ETAB+(4*JRMULTITHREADED) 0013FC 0000E557 4767 DC A(MJRMULTITHREADED) 001400 01400 0E557 4768 ORG 00E557 E3888540998598A4 4769 MJRMULTITHREADED DC C'The requested service cannot be performed in an ' 00E587 8184849985A2A240 4770 DC C'address space with multiple user threads.' 00E5B0 00 4771 DC X'00' 00E5B1 0E5B1 01400 4772 ORG ETAB+(4*JRACTACCEPTUSERID) 001400 0000E5B1 4773 DC A(MJRACTACCEPTUSERID) 001404 01404 0E5B1 4774 ORG 00E5B1 E38885408183A389 4775 MJRACTACCEPTUSERID DC C'The active identity for the caller/process was' 00E5DF 4097999697818781 4776 DC C' propagated over a socket via accept(). The propagate' 00E614 844089848595A389 4777 DC C'd identity must be cleaned up before another identity' 00E649 4083819540828540 4778 DC C' can be propagted.' 00E65B 00 4779 DC X'00' 00E65C 0E65C 01404 4780 ORG ETAB+(4*JRLOCKTOKENADDR) 001404 0000E65C 4781 DC A(MJRLOCKTOKENADDR) 001408 01408 0E65C 4782 ORG 00E65C E388854081848499 4783 MJRLOCKTOKENADDR DC C'The address specified in the LockTokenAddr param' 00E68C 85A3859940869699 4784 DC C'eter for the BPX1SLK service is not accessible.' 00E6BB 00 4785 DC X'00' 00E6BC 0E6BC 0140C 4786 ORG ETAB+(4*JRNOTINWLMENCLAVE) 00140C 0000E6BC 4787 DC A(MJRNOTINWLMENCLAVE) 001410 01410 0E6BC 4788 ORG 00E6BC E3888540A49589A3 4789 MJRNOTINWLMENCLAVE DC C'The unit of work is not in a WLM enclave. BPX1' 00E6EA E6D3D44084898440 4790 DC C'WLM did not return an enclave token .' 00E710 00 4791 DC X'00' 00E711 0E711 01410 4792 ORG ETAB+(4*JRCSMFAILURE) 001410 0000E711 4793 DC A(MJRCSMFAILURE) 001414 01414 0E711 4794 ORG 00E711 E38885408785A36D 4795 MJRCSMFAILURE DC C'The get_buffer request to get a CSM buffer failed.' 00E743 00 4796 DC X'00' 00E744 0E744 01414 4797 ORG ETAB+(4*JRMAXQUEUEDSIGS) 1STRREA OMVS_STR_REASON Page 94 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001414 0000E744 4798 DC A(MJRMAXQUEUEDSIGS) 001418 01418 0E744 4799 ORG 00E744 D481A78994A49440 4800 MJRMAXQUEUEDSIGS DC C'Maximum number of queued signal exceeded by the ' 00E774 40408995A5969289 4801 DC C' invoking process.' 00E787 00 4802 DC X'00' 00E788 0E788 01418 4803 ORG ETAB+(4*JRSIGINFOLEN) 001418 0000E788 4804 DC A(MJRSIGINFOLEN) 00141C 0141C 0E788 4805 ORG 00E788 E3888540A58193A4 4806 MJRSIGINFOLEN DC C'The value specified for the SigInfo_Len parameter o' 00E7BB 95408140C2D7E7F1 4807 DC C'n a BPX1STW (sigtimedwait) syscall was not valid.' 00E7EC 00 4808 DC X'00' 00E7ED 0E7ED 0141C 4809 ORG ETAB+(4*JRLEVELTOOHIGH) 00141C 0000E7ED 4810 DC A(MJRLEVELTOOHIGH) 001420 01420 0E7ED 4811 ORG 00E7ED E388854093968184 4812 MJRLEVELTOOHIGH DC C'The load module format of the target executable f' 00E81E 8993854089A24081 4813 DC C'ile is at a level higher than the current system supp' 00E853 9699A3A24B 4814 DC C'orts.' 00E858 00 4815 DC X'00' 00E859 0E859 01420 4816 ORG ETAB+(4*JRBPXOINITSTARTED) 001420 0000E859 4817 DC A(MJRBPXOINITSTARTED) 001424 01424 0E859 4818 ORG 00E859 E3888540D6D4E5E2 4819 MJRBPXOINITSTARTED DC C'The OMVS initial process must be started by th' 00E887 8540A2A8A2A38594 4820 DC C'e system. Do not use the START operator command to st' 00E8BC 8199A340A3888540 4821 DC C'art the OMVS initial process.' 00E8D9 00 4822 DC X'00' 00E8DA 0E8DA 01424 4823 ORG ETAB+(4*JRBPXOINITNOTUID0) 001424 0000E8DA 4824 DC A(MJRBPXOINITNOTUID0) 001428 01428 0E8DA 4825 ORG 00E8DA E3888540A4A28599 4826 MJRBPXOINITNOTUID0 DC C'The userid associated with system procedure, B' 00E908 D7E7D6C9D5C9E36B 4827 DC C'PXOINIT, must have uid=0 in the OMVS segment in the s' 00E93D 8583A49989A3A840 4828 DC C'ecurity database.' 00E94E 00 4829 DC X'00' 00E94F 0E94F 01428 4830 ORG ETAB+(4*JRSTICKYBIT) 001428 0000E94F 4831 DC A(MJRSTICKYBIT) 00142C 0142C 0E94F 4832 ORG 00E94F C140979996879981 4833 MJRSTICKYBIT DC C'A program with the sticky bit was found but it is no' 00E983 A340A2A497979699 4834 DC C't supported on this call.' 00E99C 00 4835 DC X'00' 00E99D 0E99D 0142C 4836 ORG ETAB+(4*JRMAXASYNCIO) 00142C 0000E99D 4837 DC A(MJRMAXASYNCIO) 001430 01430 0E99D 4838 ORG 00E99D E38885409481A789 4839 MJRMAXASYNCIO DC C'The maximum number of outstanding async I/O request' 00E9D0 A2408881A2408285 4840 DC C's has been exceeded by the invoking process.' 00E9FC 00 4841 DC X'00' 00E9FD 0E9FD 01430 4842 ORG ETAB+(4*JRNOTPTCREATED) 001430 0000E9FD 4843 DC A(MJRNOTPTCREATED) 001434 01434 0E9FD 4844 ORG 00E9FD C995A59692899587 4845 MJRNOTPTCREATED DC C'Invoking task is not pthread created' 00EA21 00 4846 DC X'00' 00EA22 0EA22 01434 4847 ORG ETAB+(4*JRNOTPTSECURITY) 001434 0000EA22 4848 DC A(MJRNOTPTSECURITY) 001438 01438 0EA22 4849 ORG 00EA22 C3A499998595A340 4850 MJRNOTPTSECURITY DC C'Current task security environment is not set up ' 00EA52 A589814097A38899 4851 DC C'via pthread_security_np' 00EA69 00 4852 DC X'00' 1STRREA OMVS_STR_REASON Page 95 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000EA6A 0EA6A 01438 4853 ORG ETAB+(4*JRALREADYACTIVE) 001438 0000EA6A 4854 DC A(MJRALREADYACTIVE) 00143C 0143C 0EA6A 4855 ORG 00EA6A D98598A485A2A385 4856 MJRALREADYACTIVE DC C'Requested function is already active' 00EA8E 00 4857 DC X'00' 00EA8F 0EA8F 0143C 4858 ORG ETAB+(4*JRSECACTIVE) 00143C 0000EA8F 4859 DC A(MJRSECACTIVE) 001440 01440 0EA8F 4860 ORG 00EA8F E381A292409385A5 4861 MJRSECACTIVE DC C'Task level security environment already active' 00EABD 00 4862 DC X'00' 00EABE 0EABE 01440 4863 ORG ETAB+(4*JRINVOSENVTOK) 001440 0000EABE 4864 DC A(MJRINVOSENVTOK) 001444 01444 0EABE 4865 ORG 00EABE C99597A4A34096A2 4866 MJRINVOSENVTOK DC C'Input osenv token is incorrect' 00EADC 00 4867 DC X'00' 00EADD 0EADD 01444 4868 ORG ETAB+(4*JRNOPERSIST) 001444 0000EADD 4869 DC A(MJRNOPERSIST) 001448 01448 0EADD 4870 ORG 00EADD E495978599A289A2 4871 MJRNOPERSIST DC C'Unpersist requested but persist count is 0' 00EB07 00 4872 DC X'00' 00EB08 0EB08 01448 4873 ORG ETAB+(4*JROSENVWLMMISMATCH) 001448 0000EB08 4874 DC A(MJROSENVWLMMISMATCH) 00144C 0144C 0EB08 4875 ORG 00EB08 96A28595A540E6D3 4876 MJROSENVWLMMISMATCH DC C'osenv WLM Enclave membership does not match t' 00EB35 88854083A4999985 4877 DC C'he current pthread WLM Enclave membership' 00EB5E 00 4878 DC X'00' 00EB5F 0EB5F 0144C 4879 ORG ETAB+(4*JROSENVWRONGENCLAVE) 00144C 0000EB5F 4880 DC A(MJROSENVWRONGENCLAVE) 001450 01450 0EB5F 4881 ORG 00EB5F C3A499998595A340 4882 MJROSENVWRONGENCLAVE DC C'Current task is not associated with the osen' 00EB8B A540E6D3D4408595 4883 DC C'v WLM enclave' 00EB98 00 4884 DC X'00' 00EB99 0EB99 01450 4885 ORG ETAB+(4*JROSENVBEGINENVOUTSTANDING) 001450 0000EB99 4886 DC A(MJROSENVBEGINENVOUTSTANDING) 001454 01454 0EB99 4887 ORG 00EB99 C3A499998595A340 4888 MJROSENVBEGINENVOUTSTANDING DC C'Current task is operating under an ou' 00EBBE A3A2A38195848995 4889 DC C'tstanding WLM Begin environment. Enclave leave is not' 00EBF3 4081939396A68584 4890 DC C' allowed' 00EBFB 00 4891 DC X'00' 00EBFC 0EBFC 01454 4892 ORG ETAB+(4*JROSENVNOTEJOINEDTCB) 001454 0000EBFC 4893 DC A(MJROSENVNOTEJOINEDTCB) 001458 01458 0EBFC 4894 ORG 00EBFC C3A499998595A340 4895 MJROSENVNOTEJOINEDTCB DC C'Current task did not issue WLM Enclave Join' 00EC27 6B4082A4A3409695 4896 DC C', but only inherited Enclave attribute from mother ta' 00EC5C A292 4897 DC C'sk' 00EC5E 00 4898 DC X'00' 00EC5F 0EC5F 01458 4899 ORG ETAB+(4*JROSENVENCLAVESUBTASKEXISTS) 001458 0000EC5F 4900 DC A(MJROSENVENCLAVESUBTASKEXISTS) 00145C 0145C 0EC5F 4901 ORG 00EC5F C3A499998595A340 4902 MJROSENVENCLAVESUBTASKEXISTS DC C'Current task has residual subtasks p' 00EC83 999697818781A385 4903 DC C'ropagated to the enclave which are still associated w' 00ECB8 89A38840A3888540 4904 DC C'ith the Enclave' 00ECC7 00 4905 DC X'00' 00ECC8 0ECC8 0145C 4906 ORG ETAB+(4*JROSENVSECURITYMISMATCH) 00145C 0000ECC8 4907 DC A(MJROSENVSECURITYMISMATCH) 1STRREA OMVS_STR_REASON Page 96 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001460 01460 0ECC8 4908 ORG 00ECC8 C3A499998595A340 4909 MJROSENVSECURITYMISMATCH DC C'Current security environment does not ma' 00ECF0 A3838840A3888540 4910 DC C'tch the value specified in the osenv token' 00ED1A 00 4911 DC X'00' 00ED1B 0ED1B 01460 4912 ORG ETAB+(4*JROSENVNOTACTIVE) 001460 0000ED1B 4913 DC A(MJROSENVNOTACTIVE) 001464 01464 0ED1B 4914 ORG 00ED1B D6A28595A5408595 4915 MJROSENVNOTACTIVE DC C'Osenv environment is not active' 00ED3A 00 4916 DC X'00' 00ED3B 0ED3B 01464 4917 ORG ETAB+(4*JROSENVPERSISTCNTBAD) 001464 0000ED3B 4918 DC A(MJROSENVPERSISTCNTBAD) 001468 01468 0ED3B 4919 ORG 00ED3B E388859985408199 4920 MJROSENVPERSISTCNTBAD DC C'There are no outstanding persist requests' 00ED64 00 4921 DC X'00' 00ED65 0ED65 01468 4922 ORG ETAB+(4*JRWLMJOINERROR) 001468 0000ED65 4923 DC A(MJRWLMJOINERROR) 00146C 0146C 0ED65 4924 ORG 00ED65 C28184409985A3A4 4925 MJRWLMJOINERROR DC C'Bad return code from IWMEJOIN macro' 00ED88 00 4926 DC X'00' 00ED89 0ED89 0146C 4927 ORG ETAB+(4*JRIWMELEAVERROR) 00146C 0000ED89 4928 DC A(MJRIWMELEAVERROR) 001470 01470 0ED89 4929 ORG 00ED89 C28184409985A3A4 4930 MJRIWMELEAVERROR DC C'Bad return code from IWMELEAV macro' 00EDAC 00 4931 DC X'00' 00EDAD 0EDAD 01470 4932 ORG ETAB+(4*JRNOTSUPINSYSPLEX) 001470 0000EDAD 4933 DC A(MJRNOTSUPINSYSPLEX) 001474 01474 0EDAD 4934 ORG 00EDAD D9859496A495A340 4935 MJRNOTSUPINSYSPLEX DC C'Remount is not supported in sysplex. Unmount d' 00EDDB 998189954089A2A3 4936 DC C'rain istried as unmount normal, but if it cannot comp' 00EE10 9385A3856B819540 4937 DC C'lete,an error is returned.' 00EE2A 00 4938 DC X'00' 00EE2B 0EE2B 01474 4939 ORG ETAB+(4*JRSYSPLEXRECOVERYINPROG) 001474 0000EE2B 4940 DC A(MJRSYSPLEXRECOVERYINPROG) 001478 01478 0EE2B 4941 ORG 00EE2B C19540A4959496A4 4942 MJRSYSPLEXRECOVERYINPROG DC C'An unmount was attempted while sysplex s' 00EE53 A8A2A38594409985 4943 DC C'ystem recoverywas in progress.' 00EE71 00 4944 DC X'00' 00EE72 0EE72 01478 4945 ORG ETAB+(4*JRMUSTBEIMMED) 001478 0000EE72 4946 DC A(MJRMUSTBEIMMED) 00147C 0147C 0EE72 4947 ORG 00EE72 C19540A4959496A4 4948 MJRMUSTBEIMMED DC C'An unmount was attempted in a sysplex for a filesy' 00EEA4 A2A38594A38881A3 4949 DC C'stemthat is unowned, and Immed was not specified.' 00EED5 00 4950 DC X'00' 00EED6 0EED6 0147C 4951 ORG ETAB+(4*JRRESETALREADYINPROG) 00147C 0000EED6 4952 DC A(MJRRESETALREADYINPROG) 001480 01480 0EED6 4953 ORG 00EED6 E4959496A495A340 4954 MJRRESETALREADYINPROG DC C'Unmount reset is already in progress.' 00EEFB 00 4955 DC X'00' 00EEFC 0EEFC 01480 4956 ORG ETAB+(4*JRINVALIDSIZE) 001480 0000EEFC 4957 DC A(MJRINVALIDSIZE) 001484 01484 0EEFC 4958 ORG 00EEFC C2A4868685994099 4959 MJRINVALIDSIZE DC C'Buffer received by mount was too small.' 00EF23 00 4960 DC X'00' 00EF24 0EF24 01484 4961 ORG ETAB+(4*JRUNKNOWNBLOCK) 001484 0000EF24 4962 DC A(MJRUNKNOWNBLOCK) 1STRREA OMVS_STR_REASON Page 97 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001488 01488 0EF24 4963 ORG 00EF24 C39695A399969340 4964 MJRUNKNOWNBLOCK DC C'Control block received is unrecognized.' 00EF4B 00 4965 DC X'00' 00EF4C 0EF4C 01488 4966 ORG ETAB+(4*JRBADCOMBO) 001488 0000EF4C 4967 DC A(MJRBADCOMBO) 00148C 0148C 0EF4C 4968 ORG 00EF4C C3969586938983A3 4969 MJRBADCOMBO DC C'Conflicting values have been received.' 00EF72 00 4970 DC X'00' 00EF73 0EF73 0148C 4971 ORG ETAB+(4*JRNOWILDFROMSYS) 00148C 0000EF73 4972 DC A(MJRNOWILDFROMSYS) 001490 01490 0EF73 4973 ORG 00EF73 C3969586938983A3 4974 MJRNOWILDFROMSYS DC C'Conflicting values have been received.' 00EF99 00 4975 DC X'00' 00EF9A 0EF9A 01490 4976 ORG ETAB+(4*JRNOVALUES) 001490 0000EF9A 4977 DC A(MJRNOVALUES) 001494 01494 0EF9A 4978 ORG 00EF9A D59640A58193A485 4979 MJRNOVALUES DC C'No values for the chmount request have been given.' 00EFCC 00 4980 DC X'00' 00EFCD 0EFCD 01494 4981 ORG ETAB+(4*JRMUSTBESYSPLEX) 001494 0000EFCD 4982 DC A(MJRMUSTBESYSPLEX) 001498 01498 0EFCD 4983 ORG 00EFCD E38889A240998598 4984 MJRMUSTBESYSPLEX DC C'This request only possible in a sysplex enivornm' 00EFFD 8595A34B 4985 DC C'ent.' 00F001 00 4986 DC X'00' 00F002 0F002 01498 4987 ORG ETAB+(4*JRATTEMPTSEXHAUSTED) 001498 0000F002 4988 DC A(MJRATTEMPTSEXHAUSTED) 00149C 0149C 0F002 4989 ORG 00F002 C5A58599A84081A3 4990 MJRATTEMPTSEXHAUSTED DC C'Every attempt to move the filesystem has fai' 00F02E 9385844B 4991 DC C'led.' 00F032 00 4992 DC X'00' 00F033 0F033 0149C 4993 ORG ETAB+(4*JRLOSTSTATE) 00149C 0000F033 4994 DC A(MJRLOSTSTATE) 0014A0 014A0 0F033 4995 ORG 00F033 E388854086899385 4996 MJRLOSTSTATE DC C'The filesystem can no longer be moved by this proces' 00F067 A24B 4997 DC C's.' 00F069 00 4998 DC X'00' 00F06A 0F06A 014A0 4999 ORG ETAB+(4*JRNOFROMSYS) 0014A0 0000F06A 5000 DC A(MJRNOFROMSYS) 0014A4 014A4 0F06A 5001 ORG 00F06A E3888540A2A8A2A3 5002 MJRNOFROMSYS DC C'The system specified as the FROMSYS can not be found' 00F09E 4B 5003 DC C'.' 00F09F 00 5004 DC X'00' 00F0A0 0F0A0 014A4 5005 ORG ETAB+(4*JRNOFSFOUND) 0014A4 0000F0A0 5006 DC A(MJRNOFSFOUND) 0014A8 014A8 0F0A0 5007 ORG 00F0A0 E388854086899385 5008 MJRNOFSFOUND DC C'The filesystem requested to be moved can not be foun' 00F0D4 844B 5009 DC C'd.' 00F0D6 00 5010 DC X'00' 00F0D7 0F0D7 014A8 5011 ORG ETAB+(4*JRINRECOVERY) 0014A8 0000F0D7 5012 DC A(MJRINRECOVERY) 0014AC 014AC 0F0D7 5013 ORG 00F0D7 E388854086899385 5014 MJRINRECOVERY DC C'The filesystem requested to be moved is in recovery' 00F10A 4B 5015 DC C'.' 00F10B 00 5016 DC X'00' 00F10C 0F10C 014AC 5017 ORG ETAB+(4*JRNOMOUNTPOINTFOUND) 1STRREA OMVS_STR_REASON Page 98 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00014AC 0000F10C 5018 DC A(MJRNOMOUNTPOINTFOUND) 0014B0 014B0 0F10C 5019 ORG 00F10C E38885409496A495 5020 MJRNOMOUNTPOINTFOUND DC C'The mountpoint requested to be moved can not' 00F138 408285408696A495 5021 DC C' be found.' 00F142 00 5022 DC X'00' 00F143 0F143 014B0 5023 ORG ETAB+(4*JRBLACKHOLE) 0014B0 0000F143 5024 DC A(MJRBLACKHOLE) 0014B4 014B4 0F143 5025 ORG 00F143 C6899385A2A8A2A3 5026 MJRBLACKHOLE DC C'Filesystem is unowned.' 00F159 00 5027 DC X'00' 00F15A 0F15A 014B4 5028 ORG ETAB+(4*JRNOPLACE) 0014B4 0000F15A 5029 DC A(MJRNOPLACE) 0014B8 014B8 0F15A 5030 ORG 00F15A E38889A240868993 5031 MJRNOPLACE DC C'This filesystem can not be placed.' 00F17C 00 5032 DC X'00' 00F17D 0F17D 014B8 5033 ORG ETAB+(4*JRNOSYSTEMFOUND) 0014B8 0000F17D 5034 DC A(MJRNOSYSTEMFOUND) 0014BC 014BC 0F17D 5035 ORG 00F17D E3888599854089A2 5036 MJRNOSYSTEMFOUND DC C'There is no system with that name.' 00F19F 00 5037 DC X'00' 00F1A0 0F1A0 014BC 5038 ORG ETAB+(4*JRSYSPLEXDATASYNCLOST) 0014BC 0000F1A0 5039 DC A(MJRSYSPLEXDATASYNCLOST) 0014C0 014C0 0F1A0 5040 ORG 00F1A0 E3888540C961D640 5041 MJRSYSPLEXDATASYNCLOST DC C'The I/O request is rejected because the fi' 00F1CA 9385408995A38587 5042 DC C'le integritywas lost due to the failure of the file s' 00F1FF A8A2A3859440A285 5043 DC C'ystem server.' 00F20C 00 5044 DC X'00' 00F20D 0F20D 014C0 5045 ORG ETAB+(4*JRTDGONE) 0014C0 0000F20D 5046 DC A(MJRTDGONE) 0014C4 014C4 0F20D 5047 ORG 00F20D E3888540A2968392 5048 MJRTDGONE DC C'The socket Transport Driver has terminated and restarte' 00F244 844B 5049 DC C'd.' 00F246 00 5050 DC X'00' 00F247 0F247 014C4 5051 ORG ETAB+(4*JRNODEVICEFOUND) 0014C4 0000F247 5052 DC A(MJRNODEVICEFOUND) 0014C8 014C8 0F247 5053 ORG 00F247 E388854089A24095 5054 MJRNODEVICEFOUND DC C'The is no longer any device with that device num' 00F277 8285994B 5055 DC C'ber.' 00F27B 00 5056 DC X'00' 00F27C 0F27C 014CC 5057 ORG ETAB+(4*JRNOTMOVEABLE) 0014CC 0000F27C 5058 DC A(MJRNOTMOVEABLE) 0014D0 014D0 0F27C 5059 ORG 00F27C E38889A240868993 5060 MJRNOTMOVEABLE DC C'This filesystem can not be moved.' 00F29D 00 5061 DC X'00' 00F29E 0F29E 014D0 5062 ORG ETAB+(4*JRNOLONGERSERVER) 0014D0 0000F29E 5063 DC A(MJRNOLONGERSERVER) 0014D4 014D4 0F29E 5064 ORG 00F29E E3888540A28599A5 5065 MJRNOLONGERSERVER DC C'The server detected it is no longer the server.' 00F2CD 00 5066 DC X'00' 00F2CE 0F2CE 014D4 5067 ORG ETAB+(4*JRLOCKCTL) 0014D4 0000F2CE 5068 DC A(MJRLOCKCTL) 0014D8 014D8 0F2CE 5069 ORG 00F2CE E388854093968392 5070 MJRLOCKCTL DC C'The lockctl service vnode operation is not supported' 00F302 00 5071 DC X'00' 00F303 0F303 014D8 5072 ORG ETAB+(4*JRCPLNOTAUTH) 1STRREA OMVS_STR_REASON Page 99 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00014D8 0000F303 5073 DC A(MJRCPLNOTAUTH) 0014DC 014DC 0F303 5074 ORG 00F303 6D6D83979340A285 5075 MJRCPLNOTAUTH DC C'__cpl service call failed permission check for BPX.' 00F336 C3C6408681838993 5076 DC C'CF facility class profile.' 00F350 00 5077 DC X'00' 00F351 0F351 014DC 5078 ORG ETAB+(4*JRCPLINVFCNCODE) 0014DC 0000F351 5079 DC A(MJRCPLINVFCNCODE) 0014E0 014E0 0F351 5080 ORG 00F351 6D6D83979340A285 5081 MJRCPLINVFCNCODE DC C'__cpl service call failed because the supplied f' 00F381 A49583A389969540 5082 DC C'unction code is not valid.' 00F39B 00 5083 DC X'00' 00F39C 0F39C 014E0 5084 ORG ETAB+(4*JRCPLINVBUFFLEN) 0014E0 0000F39C 5085 DC A(MJRCPLINVBUFFLEN) 0014E4 014E4 0F39C 5086 ORG 00F39C 6D6D83979340A285 5087 MJRCPLINVBUFFLEN DC C'__cpl service call failed because the supplied b' 00F3CC A486868599409385 5088 DC C'uffer length is not valid.' 00F3E6 00 5089 DC X'00' 00F3E7 0F3E7 014E4 5090 ORG ETAB+(4*JRCPLBUFFTOOSMALL) 0014E4 0000F3E7 5091 DC A(MJRCPLBUFFTOOSMALL) 0014E8 014E8 0F3E7 5092 ORG 00F3E7 6D6D83979340A285 5093 MJRCPLBUFFTOOSMALL DC C'__cpl service call failed because the supplied' 00F415 4082A48686859940 5094 DC C' buffer was too small for the data to be returned.' 00F447 00 5095 DC X'00' 00F448 0F448 014E8 5096 ORG ETAB+(4*JRSYSPLEXBLACKHOLEIO) 0014E8 0000F448 5097 DC A(MJRSYSPLEXBLACKHOLEIO) 0014EC 014EC 0F448 5098 ORG 00F448 E3888540C961D640 5099 MJRSYSPLEXBLACKHOLEIO DC C'The I/O request is rejected because access ' 00F473 A39640A388854096 5100 DC C'to the owning file system was lost. This is a tempor' 00F4A8 8199A84083969584 5101 DC C'ary condition.' 00F4B6 00 5102 DC X'00' 00F4B7 0F4B7 014F0 5103 ORG ETAB+(4*JRCPLINVSTRUCTYPE) 0014F0 0000F4B7 5104 DC A(MJRCPLINVSTRUCTYPE) 0014F4 014F4 0F4B7 5105 ORG 00F4B7 6D6D83979340A285 5106 MJRCPLINVSTRUCTYPE DC C'__cpl service call failed because one of the s' 00F4E5 A497979389858440 5107 DC C'upplied structure entries is defined with an incorrec' 00F51A A340A3A897854B 5108 DC C't type.' 00F521 00 5109 DC X'00' 00F522 0F522 014F4 5110 ORG ETAB+(4*JRCPLCFNOTFOUND) 0014F4 0000F522 5111 DC A(MJRCPLCFNOTFOUND) 0014F8 014F8 0F522 5112 ORG 00F522 6D6D83979340A285 5113 MJRCPLCFNOTFOUND DC C'__cpl service call failed because a Coupling Fac' 00F552 899389A3A84081A3 5114 DC C'ility at the appropriate level (level 8 or greater) c' 00F587 96A49384409596A3 5115 DC C'ould not be found in the sysplex where this __cpl cal' 00F5BC 938182938540A285 5116 DC C'lable service routine is running.' 00F5DD 00 5117 DC X'00' 00F5DE 0F5DE 014F8 5118 ORG ETAB+(4*JRSHRLIBNOTAUTHORIZED) 0014F8 0000F5DE 5119 DC A(MJRSHRLIBNOTAUTHORIZED) 0014FC 014FC 0F5DE 5120 ORG 00F5DE E3888540838881A3 5121 MJRSHRLIBNOTAUTHORIZED DC C'The chattr function can not be performed t' 00F608 9640838881958785 5122 DC C'o change the shared library attribute because the cal' 00F63D 9385994089A24095 5123 DC C'ler is not permitted to the BPX.FILEATTR.SHRLIB facil' 00F672 89A3A840839381A2 5124 DC C'ity class.' 00F67C 00 5125 DC X'00' 00F67D 0F67D 014FC 5126 ORG ETAB+(4*JROUTOFAUTOMOUNTENTRIES) 0014FC 0000F67D 5127 DC A(MJROUTOFAUTOMOUNTENTRIES) 1STRREA OMVS_STR_REASON Page 100 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001500 01500 0F67D 5128 ORG 00F67D E3888540A2A8A2A3 5129 MJROUTOFAUTOMOUNTENTRIES DC C'The system is unable to obtain an entry ' 00F6A5 899540A388854086 5130 DC C'in the file system automount table in the OMVS couple' 00F6DA 408481A38140A285 5131 DC C' data set' 00F6E3 00 5132 DC X'00' 00F6E4 0F6E4 01500 5133 ORG ETAB+(4*JRNEEDABSPATH) 001500 0000F6E4 5134 DC A(MJRNEEDABSPATH) 001504 01504 0F6E4 5135 ORG 00F6E4 C195408182A29693 5136 MJRNEEDABSPATH DC C'An absolute path name must be used when performing' 00F716 404081409496A495 5137 DC C' a mount command from a userid that has changed root' 00F74B A24B 5138 DC C's.' 00F74D 00 5139 DC X'00' 00F74E 0F74E 01504 5140 ORG ETAB+(4*JRMAPBADFUNCTION) 001504 0000F74E 5141 DC A(MJRMAPBADFUNCTION) 001508 01508 0F74E 5142 ORG 00F74E E38885406D6DD481 5143 MJRMAPBADFUNCTION DC C'The __Map function or sub-function code was not' 00F77D 40A5819389844B 5144 DC C' valid.' 00F784 00 5145 DC X'00' 00F785 0F785 01508 5146 ORG ETAB+(4*JRNOTAUTHMAP) 001508 0000F785 5147 DC A(MJRNOTAUTHMAP) 00150C 0150C 0F785 5148 ORG 00F785 6D6D9481976D8995 5149 MJRNOTAUTHMAP DC C'__map_init call failed permission check for BPX.MAP' 00F7B8 40868183899389A3 5150 DC C' facility class profile.' 00F7D0 00 5151 DC X'00' 00F7D1 0F7D1 0150C 5152 ORG ETAB+(4*JRBADBLKADDR) 00150C 0000F7D1 5153 DC A(MJRBADBLKADDR) 001510 01510 0F7D1 5154 ORG 00F7D1 6D6D94819740A285 5155 MJRBADBLKADDR DC C'__map service was passed a bad block address.The bl' 00F804 9683924081848499 5156 DC C'ock address specified was not within the map area, or' 00F839 40A681A2409596A3 5157 DC C' was not on a block boundary.' 00F856 00 5158 DC X'00' 00F857 0F857 01510 5159 ORG ETAB+(4*JRMAPALREADYACTIVE) 001510 0000F857 5160 DC A(MJRMAPALREADYACTIVE) 001514 01514 0F857 5161 ORG 00F857 6D6D9481976D8995 5162 MJRMAPALREADYACTIVE DC C'__map_init requested for a process that alrea' 00F884 84A8408881844081 5163 DC C'dy had an __map environment active.' 00F8A7 00 5164 DC X'00' 00F8A8 0F8A8 01514 5165 ORG ETAB+(4*JRMAPOUTOFBLOCKS) 001514 0000F8A8 5166 DC A(MJRMAPOUTOFBLOCKS) 001518 01518 0F8A8 5167 ORG 00F8A8 6D6D94819740A285 5168 MJRMAPOUTOFBLOCKS DC C'__map service, processing for a new block or c' 00F8D7 9695958583A34099 5169 DC C'onnect request, was asked to select a map block that ' 00F90C A681A2409596A340 5170 DC C'was not currently in use, but none was available as a' 00F941 9393408293968392 5171 DC C'll blocks were currently in use.' 00F961 00 5172 DC X'00' 00F962 0F962 01518 5173 ORG ETAB+(4*JRMAPNOTACTIVE) 001518 0000F962 5174 DC A(MJRMAPNOTACTIVE) 00151C 0151C 0F962 5175 ORG 00F962 6D6D94819740A285 5176 MJRMAPNOTACTIVE DC C'__map service was requested but either no map env' 00F993 89999695948595A3 5177 DC C'ironment is active or the current map environment is ' 00F9C8 828589958740A288 5178 DC C'being shut down.' 00F9D8 00 5179 DC X'00' 00F9D9 0F9D9 0151C 5180 ORG ETAB+(4*JRMAPTOKENNOTFOUND) 00151C 0000F9D9 5181 DC A(MJRMAPTOKENNOTFOUND) 001520 01520 0F9D9 5182 ORG 1STRREA OMVS_STR_REASON Page 101 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000F9D9 6D6D94819740A285 5183 MJRMAPTOKENNOTFOUND DC C'__map service data block token not defined.' 00FA04 00 5184 DC X'00' 00FA05 0FA05 01520 5185 ORG ETAB+(4*JRMAPBLOCKNOTINUSE) 001520 0000FA05 5186 DC A(MJRMAPBLOCKNOTINUSE) 001524 01524 0FA05 5187 ORG 00FA05 6D6D94819740A285 5188 MJRMAPBLOCKNOTINUSE DC C'__map service disconnect is issued for a map ' 00FA32 829396839240A388 5189 DC C'block that is not currently in use' 00FA54 00 5190 DC X'00' 00FA55 0FA55 01524 5191 ORG ETAB+(4*JRMAPBLOCKINUSE) 001524 0000FA55 5192 DC A(MJRMAPBLOCKINUSE) 001528 01528 0FA55 5193 ORG 00FA55 6D6D94819740A285 5194 MJRMAPBLOCKINUSE DC C'__map service new block or connect specified a m' 00FA85 8197408293968392 5195 DC C'ap block that is currently in use.' 00FAA7 00 5196 DC X'00' 00FAA8 0FAA8 01528 5197 ORG ETAB+(4*JRMAPBLOCKFREEPENDING) 001528 0000FAA8 5198 DC A(MJRMAPBLOCKFREEPENDING) 00152C 0152C 0FAA8 5199 ORG 00FAA8 6D6D94819740A285 5200 MJRMAPBLOCKFREEPENDING DC C'__map service connect request specified a ' 00FAD2 8481A38140829396 5201 DC C'data block that is currently being freed.' 00FAFB 00 5202 DC X'00' 00FAFC 0FAFC 0152C 5203 ORG ETAB+(4*JRMAPBADSTORAGE) 00152C 0000FAFC 5204 DC A(MJRMAPBADSTORAGE) 001530 01530 0FAFC 5205 ORG 00FAFC E388854097819981 5206 MJRMAPBADSTORAGE DC C'The parameter list either could not be accessed ' 00FB2C 969940A681A24089 5207 DC C'or was in read only storage and could not be updated.' 00FB61 00 5208 DC X'00' 00FB62 0FB62 01534 5209 ORG ETAB+(4*JRRESERVEDVALUEINVALID) 001534 0000FB62 5210 DC A(MJRRESERVEDVALUEINVALID) 001538 01538 0FB62 5211 ORG 00FB62 C1409985A28599A5 5212 MJRRESERVEDVALUEINVALID DC C'A reserved field contained a value other ' 00FB8B A388819540A98599 5213 DC C'than zero' 00FB94 00 5214 DC X'00' 00FB95 0FB95 01538 5215 ORG ETAB+(4*JRMAPARRAYCOUNTERR) 001538 0000FB95 5216 DC A(MJRMAPARRAYCOUNTERR) 00153C 0153C 0FB95 5217 ORG 00FB95 E388854081999981 5218 MJRMAPARRAYCOUNTERR DC C'The array count was outside the valid values' 00FBC1 00 5219 DC X'00' 00FBC2 0FBC2 0153C 5220 ORG ETAB+(4*JRNOTCLIENT) 00153C 0000FBC2 5221 DC A(MJRNOTCLIENT) 001540 01540 0FBC2 5222 ORG 00FBC2 E38889A240A2A8A2 5223 MJRNOTCLIENT DC C'This system is not a client of the requested filesys' 00FBF6 A38594 5224 DC C'tem' 00FBF9 00 5225 DC X'00' 00FBFA 0FBFA 01540 5226 ORG ETAB+(4*JRJOINTMSGSENT) 001540 0000FBFA 5227 DC A(MJRJOINTMSGSENT) 001544 01544 0FBFA 5228 ORG 00FBFA E388854091968995 5229 MJRJOINTMSGSENT DC C'The joint LFS/PFS message requested for osi_xmsg ' 00FC2B A39640A285958440 5230 DC C'to send has already been sent' 00FC48 00 5231 DC X'00' 00FC49 0FC49 01544 5232 ORG ETAB+(4*JRNOWILDAUTOMOVE) 001544 0000FC49 5233 DC A(MJRNOWILDAUTOMOVE) 001548 01548 0FC49 5234 ORG 00FC49 E388854081A4A396 5235 MJRNOWILDAUTOMOVE DC C'The automove setting can not be changed while m' 00FC78 96A5899587814083 5236 DC C'ovinga collection of filesystems.' 00FC99 00 5237 DC X'00' 1STRREA OMVS_STR_REASON Page 102 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000FC9A 0FC9A 01548 5238 ORG ETAB+(4*JRINVALIDFSP) 001548 0000FC9A 5239 DC A(MJRINVALIDFSP) 00154C 0154C 0FC9A 5240 ORG 00FC9A E388854086899385 5241 MJRINVALIDFSP DC C'The file does not have a valid FSP.' 00FCBD 00 5242 DC X'00' 00FCBE 0FCBE 0154C 5243 ORG ETAB+(4*JRNOROOT) 00154C 0000FCBE 5244 DC A(MJRNOROOT) 001550 01550 0FCBE 5245 ORG 00FCBE E3888599854089A2 5246 MJRNOROOT DC C'There is no system root mounted.' 00FCDE 00 5247 DC X'00' 00FCDF 0FCDF 01550 5248 ORG ETAB+(4*JRMOVEINPROGRESS) 001550 0000FCDF 5249 DC A(MJRMOVEINPROGRESS) 001554 01554 0FCDF 5250 ORG 00FCDF E388854086899385 5251 MJRMOVEINPROGRESS DC C'The filesystem is in the process of being moved' 00FD0E 40A3968140848986 5252 DC C' toa different server.' 00FD24 00 5253 DC X'00' 00FD25 0FD25 01554 5254 ORG ETAB+(4*JRBADBODYLENGTH) 001554 0000FD25 5255 DC A(MJRBADBODYLENGTH) 001558 01558 0FD25 5256 ORG 00FD25 E3888540D4D5E3C5 5257 MJRBADBODYLENGTH DC C'The MNTE2 does not have a correct body length co' 00FD55 8485848995A39640 5258 DC C'dedinto the body length field in the MNTE header.' 00FD86 00 5259 DC X'00' 00FD87 0FD87 01558 5260 ORG ETAB+(4*JRXCFNOSTORAGE) 001558 0000FD87 5261 DC A(MJRXCFNOSTORAGE) 00155C 0155C 0FD87 5262 ORG 00FD87 C961D64082A48686 5263 MJRXCFNOSTORAGE DC C'I/O buffer shortage for writing data through XCF' 00FDB7 00 5264 DC X'00' 00FDB8 0FDB8 0155C 5265 ORG ETAB+(4*JRPFSFAILED) 00155C 0000FDB8 5266 DC A(MJRPFSFAILED) 001560 01560 0FDB8 5267 ORG 00FDB8 C140D7C6E2409985 5268 MJRPFSFAILED DC C'A PFS returned a RetVal of -1 with an errno and errn' 00FDEC 969199968640A985 5269 DC C'ojrof zero.' 00FDF7 00 5270 DC X'00' 00FDF8 0FDF8 01560 5271 ORG ETAB+(4*JRPTINVGPRHNUMBER) 001560 0000FDF8 5272 DC A(MJRPTINVGPRHNUMBER) 001564 01564 0FDF8 5273 ORG 00FDF8 E388854097A39981 5274 MJRPTINVGPRHNUMBER DC C'The ptrace call has an incorrect general regis' 00FE26 A385994095A49482 5275 DC C'ter number' 00FE30 00 5276 DC X'00' 00FE31 0FE31 01564 5277 ORG ETAB+(4*JRFILETOOLARGE) 001564 0000FE31 5278 DC A(MJRFILETOOLARGE) 001568 01568 0FE31 5279 ORG 00FE31 C689938540A289A9 5280 MJRFILETOOLARGE DC C'File size exceeded the value that can be held ino' 00FE62 82918583A3409686 5281 DC C'bject of type off_t.' 00FE76 00 5282 DC X'00' 00FE77 0FE77 01568 5283 ORG ETAB+(4*JRCANTEXPCLIENT) 001568 0000FE77 5284 DC A(MJRCANTEXPCLIENT) 00156C 0156C 0FE77 5285 ORG 00FE77 E56D85A7979699A3 5286 MJRCANTEXPCLIENT DC C'V_export of a sysplex client file system is not ' 00FEA7 81939396A685844B 5287 DC C'allowed.' 00FEAF 00 5288 DC X'00' 00FEB0 0FEB0 0156C 5289 ORG ETAB+(4*JRISEXPORTED) 00156C 0000FEB0 5290 DC A(MJRISEXPORTED) 001570 01570 0FEB0 5291 ORG 00FEB0 D496A58995874081 5292 MJRISEXPORTED DC C'Moving a file system that is exported is not allowe' 1STRREA OMVS_STR_REASON Page 103 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 000FEE3 844B 5293 DC C'd.' 00FEE5 00 5294 DC X'00' 00FEE6 0FEE6 01570 5295 ORG ETAB+(4*JRFSQUIESCEDMT) 001570 0000FEE6 5296 DC A(MJRFSQUIESCEDMT) 001574 01574 0FEE6 5297 ORG 00FEE6 C1408689938540A2 5298 MJRFSQUIESCEDMT DC C'A file system operation was rejected because the' 00FF17 4096A69589958740 5299 DC C' owning file system is quiescedand the operation cann' 00FF4C 96A3408285408485 5300 DC C'ot be delayed.order to prevent a latch deadlock.' 00FF7C 00 5301 DC X'00' 00FF7D 0FF7D 01574 5302 ORG ETAB+(4*JRMPTFSQUIESCED) 001574 0000FF7D 5303 DC A(MJRMPTFSQUIESCED) 001578 01578 0FF7D 5304 ORG 00FF7D C1409496A495A340 5305 MJRMPTFSQUIESCED DC C'A mount request was rejected because a file syst' 00FFAD 859440899540A388 5306 DC C'em in the mount path is quiesced.' 00FFCE 00 5307 DC X'00' 00FFCF 0FFCF 01578 5308 ORG ETAB+(4*JRMMAPSUSPENDED) 001578 0000FFCF 5309 DC A(MJRMMAPSUSPENDED) 00157C 0157C 0FFCF 5310 ORG 00FFCF C1409485949699A8 5311 MJRMMAPSUSPENDED DC C'A memory map request was rejected because the me' 00FFFF 949699A840948197 5312 DC C'mory map function is suspended' 01001D 00 5313 DC X'00' 5314 AIF ('&SYSTEM_ID'(1,4) NE 'z/OS').NOTZOS3 5315 .NOTZOS3 ANOP 5316 ****************************************************************** 5317 * ERRNOJR'S 7100-710F RESERVED FOR SNACKETS PFS @PCA* 5318 ****************************************************************** 5319 ****************************************************************** 5320 * ERRNOJR'S 7110-71FF Are available @PMA* 5321 ****************************************************************** 5322 ****************************************************************** 5323 * ERRNOJR'S 7200-73FF RESERVED FOR TCP/IP @QAC@PMA* 5324 ****************************************************************** 01001E 1001E 01BDC 5325 ORG ETAB2+(4*(JRACKLENFAILURE-29000)) 001BDC 0001001E 5326 DC A(MJRACKLENFAILURE) 001BE0 01BE0 1001E 5327 ORG 01001E E3888540A289A985 5328 MJRACKLENFAILURE DC C'The size of the TPI data is not large enough to ' 01004E A2A497979699A340 5329 DC C'support the Prim_type field.' 01006A 00 5330 DC X'00' 01006B 1006B 01BE0 5331 ORG ETAB2+(4*(JRUNEXPECTEDACK-29000)) 001BE0 0001006B 5332 DC A(MJRUNEXPECTEDACK) 001BE4 01BE4 1006B 5333 ORG 01006B E3888540D7998994 5334 MJRUNEXPECTEDACK DC C'The Prim_type received from the TPI request does' 01009B 409596A3409481A3 5335 DC C' not match the request.' 0100B2 00 5336 DC X'00' 0100B3 100B3 01BE4 5337 ORG ETAB2+(4*(JRALREADYBOUND-29000)) 001BE4 000100B3 5338 DC A(MJRALREADYBOUND) 001BE8 01BE8 100B3 5339 ORG 0100B3 E3888540E2968392 5340 MJRALREADYBOUND DC C'The Socket has already been bound by a previous r' 0100E4 8598A485A2A34B 5341 DC C'equest.' 0100EB 00 5342 DC X'00' 0100EC 100EC 01BE8 5343 ORG ETAB2+(4*(JRNOTBOUND-29000)) 001BE8 000100EC 5344 DC A(MJRNOTBOUND) 001BEC 01BEC 100EC 5345 ORG 0100EC D9858184409596A3 5346 MJRNOTBOUND DC C'Read not allowed on unbound socket unless it is RAW.' 010120 00 5347 DC X'00' 1STRREA OMVS_STR_REASON Page 104 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0010121 10121 01BEC 5348 ORG ETAB2+(4*(JRWRONGBAND-29000)) 001BEC 00010121 5349 DC A(MJRWRONGBAND) 001BF0 01BF0 10121 5350 ORG 010121 D485A2A281878540 5351 MJRWRONGBAND DC C'Message received on wrong band.' 010140 00 5352 DC X'00' 010141 10141 01BF0 5353 ORG ETAB2+(4*(JRTLIERROR-29000)) 001BF0 00010141 5354 DC A(MJRTLIERROR) 001BF4 01BF4 10141 5355 ORG 010141 C5D9D9D5D6409985 5356 MJRTLIERROR DC C'ERRNO returned by the transport layer interface.' 010171 00 5357 DC X'00' 010172 10172 01BF4 5358 ORG ETAB2+(4*(JRCONNFAIL-29000)) 001BF4 00010172 5359 DC A(MJRCONNFAIL) 001BF8 01BF8 10172 5360 ORG 010172 D79985A58996A4A2 5361 MJRCONNFAIL DC C'Previous connection request on this socket failed.' 0101A4 00 5362 DC X'00' 0101A5 101A5 01BF8 5363 ORG ETAB2+(4*(JRCFGMREQLENERR-29000)) 001BF8 000101A5 5364 DC A(MJRCFGMREQLENERR) 001BFC 01BFC 101A5 5365 ORG 0101A5 E3888540A289A985 5366 MJRCFGMREQLENERR DC C'The size of the returned buffer is not large eno' 0101D5 A4878840A39640A2 5367 DC C'ugh to support a CFGMREQ structure.' 0101F8 00 5368 DC X'00' 0101F9 101F9 01BFC 5369 ORG ETAB2+(4*(JRBULKMODEERR-29000)) 001BFC 000101F9 5370 DC A(MJRBULKMODEERR) 001C00 01C00 101F9 5371 ORG 0101F9 E3888540A3A89785 5372 MJRBULKMODEERR DC C'The type of socket request specified is not valid ' 01022B 869699408140C2A4 5373 DC C'for a Bulkmode socket.' 010241 00 5374 DC X'00' 010242 10242 01C00 5375 ORG ETAB2+(4*(JRIOCTLACCESSAUTHORIZATION-29000)) 001C00 00010242 5376 DC A(MJRIOCTLACCESSAUTHORIZATION) 001C04 01C04 10242 5377 ORG 010242 E3888540A4A28599 5378 MJRIOCTLACCESSAUTHORIZATION DC C'The user does not have access authori' 010267 A3A84086969940A3 5379 DC C'ty for the requested ioctl.' 010282 00 5380 DC X'00' 010283 10283 01C04 5381 ORG ETAB2+(4*(JRIOCTLSIZEINCORRECT-29000)) 001C04 00010283 5382 DC A(MJRIOCTLSIZEINCORRECT) 001C08 01C08 10283 5383 ORG 010283 E3888540A289A985 5384 MJRIOCTLSIZEINCORRECT DC C'The size of the structure used in the ioctl' 0102AE 4089A2409596A340 5385 DC C' is not correct.' 0102BE 00 5386 DC X'00' 0102BF 102BF 01C08 5387 ORG ETAB2+(4*(JRIOCTLAFNOTSUPPORTED-29000)) 001C08 000102BF 5388 DC A(MJRIOCTLAFNOTSUPPORTED) 001C0C 01C0C 102BF 5389 ORG 0102BF E388854081848499 5390 MJRIOCTLAFNOTSUPPORTED DC C'The address family is not supported for th' 0102E9 8540A29785838986 5391 DC C'e specified ioctl.' 0102FB 00 5392 DC X'00' 0102FC 102FC 01C0C 5393 ORG ETAB2+(4*(JRIOCTLRTTABLESIZE-29000)) 001C0C 000102FC 5394 DC A(MJRIOCTLRTTABLESIZE) 001C10 01C10 102FC 5395 ORG 0102FC E3888540E3C3D761 5396 MJRIOCTLRTTABLESIZE DC C'The TCP/IP Route table does not fit in the bu' 010329 8686859940979996 5397 DC C'ffer provided.' 010337 00 5398 DC X'00' 010338 10338 01C10 5399 ORG ETAB2+(4*(JRIOCTLTPRIMNOTSET-29000)) 001C10 00010338 5400 DC A(MJRIOCTLTPRIMNOTSET) 001C14 01C14 10338 5401 ORG 010338 D596409799899481 5402 MJRIOCTLTPRIMNOTSET DC C'No primary interface is defined to TCP/IP.' 1STRREA OMVS_STR_REASON Page 105 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0010362 00 5403 DC X'00' 010363 10363 01C14 5404 ORG ETAB2+(4*(JRIOCTLLINKNAME-29000)) 001C14 00010363 5405 DC A(MJRIOCTLLINKNAME) 001C18 01C18 10363 5406 ORG 010363 E38885408986996D 5407 MJRIOCTLLINKNAME DC C'The ifr_name specified was not found to be a val' 010393 89846B4084858689 5408 DC C'id, defined link name.' 0103A9 00 5409 DC X'00' 0103AA 103AA 01C18 5410 ORG ETAB2+(4*(JRDEVNUMINVALID-29000)) 001C18 000103AA 5411 DC A(MJRDEVNUMINVALID) 001C1C 01C1C 103AA 5412 ORG 0103AA E38885408485A589 5413 MJRDEVNUMINVALID DC C'The device number specified is not valid for the' 0103DA 409697859981A389 5414 DC C' operation.' 0103E5 00 5415 DC X'00' 0103E6 103E6 01C1C 5416 ORG ETAB2+(4*(JRIPADDRINVALID-29000)) 001C1C 000103E6 5417 DC A(MJRIPADDRINVALID) 001C20 01C20 103E6 5418 ORG 0103E6 E3888540C9D74081 5419 MJRIPADDRINVALID DC C'The IP address specified is not valid for the op' 010416 859981A38996954B 5420 DC C'eration.' 01041E 00 5421 DC X'00' 01041F 1041F 01C20 5422 ORG ETAB2+(4*(JRLINKNAMEINVALID-29000)) 001C20 0001041F 5423 DC A(MJRLINKNAMEINVALID) 001C24 01C24 1041F 5424 ORG 01041F E388854093899592 5425 MJRLINKNAMEINVALID DC C'The link name specified is not valid for the o' 01044D 97859981A3899695 5426 DC C'peration.' 010456 00 5427 DC X'00' 010457 10457 01C24 5428 ORG ETAB2+(4*(JRINTERFACEINVALID-29000)) 001C24 00010457 5429 DC A(MJRINTERFACEINVALID) 001C28 01C28 10457 5430 ORG 010457 E38885408995A385 5431 MJRINTERFACEINVALID DC C'The interface specified is not valid for the ' 010484 9697859981A38996 5432 DC C'operation.' 01048E 00 5433 DC X'00' 01048F 1048F 01C28 5434 ORG ETAB2+(4*(JRDEVICECTCINVALID-29000)) 001C28 0001048F 5435 DC A(MJRDEVICECTCINVALID) 001C2C 01C2C 1048F 5436 ORG 01048F E38885408485A589 5437 MJRDEVICECTCINVALID DC C'The device conflicts with a CTC device.' 0104B6 00 5438 DC X'00' 0104B7 104B7 01C2C 5439 ORG ETAB2+(4*(JRDEVICECLAWINVALID-29000)) 001C2C 000104B7 5440 DC A(MJRDEVICECLAWINVALID) 001C30 01C30 104B7 5441 ORG 0104B7 E38885408485A589 5442 MJRDEVICECLAWINVALID DC C'The device conflicts with a CLAW device.' 0104DF 00 5443 DC X'00' 0104E0 104E0 01C30 5444 ORG ETAB2+(4*(JRDEVICELCSINVALID-29000)) 001C30 000104E0 5445 DC A(MJRDEVICELCSINVALID) 001C34 01C34 104E0 5446 ORG 0104E0 E38885408485A589 5447 MJRDEVICELCSINVALID DC C'The device conflicts with a LCS device.' 010507 00 5448 DC X'00' 010508 10508 01C34 5449 ORG ETAB2+(4*(JRLINKSMAXEXCEEDED-29000)) 001C34 00010508 5450 DC A(MJRLINKSMAXEXCEEDED) 001C38 01C38 10508 5451 ORG 010508 E388854095A49482 5452 MJRLINKSMAXEXCEEDED DC C'The number of link names has been exceeded.' 010533 00 5453 DC X'00' 010534 10534 01C38 5454 ORG ETAB2+(4*(JRINTERFACEALREADYSTOPPED-29000)) 001C38 00010534 5455 DC A(MJRINTERFACEALREADYSTOPPED) 001C3C 01C3C 10534 5456 ORG 010534 E3888540C995A385 5457 MJRINTERFACEALREADYSTOPPED DC C'The Interface is already stopped.' 1STRREA OMVS_STR_REASON Page 106 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0010555 00 5458 DC X'00' 010556 10556 01C3C 5459 ORG ETAB2+(4*(JRINTERFACEALREADYSTARTED-29000)) 001C3C 00010556 5460 DC A(MJRINTERFACEALREADYSTARTED) 001C40 01C40 10556 5461 ORG 010556 E38885408995A385 5462 MJRINTERFACEALREADYSTARTED DC C'The interface is already started.' 010577 00 5463 DC X'00' 010578 10578 01C40 5464 ORG ETAB2+(4*(JRDEVICENOTDEFINED-29000)) 001C40 00010578 5465 DC A(MJRDEVICENOTDEFINED) 001C44 01C44 10578 5466 ORG 010578 E38885408485A589 5467 MJRDEVICENOTDEFINED DC C'The device number specified is not defined.' 0105A3 00 5468 DC X'00' 0105A4 105A4 01C44 5469 ORG ETAB2+(4*(JRDEVICEALREADYDEFINED-29000)) 001C44 000105A4 5470 DC A(MJRDEVICEALREADYDEFINED) 001C48 01C48 105A4 5471 ORG 0105A4 E38885408485A589 5472 MJRDEVICEALREADYDEFINED DC C'The device is already defined.' 0105C2 00 5473 DC X'00' 0105C3 105C3 01C48 5474 ORG ETAB2+(4*(JRDEVICEUNSUPPORTED-29000)) 001C48 000105C3 5475 DC A(MJRDEVICEUNSUPPORTED) 001C4C 01C4C 105C3 5476 ORG 0105C3 E38885408485A589 5477 MJRDEVICEUNSUPPORTED DC C'The device type is unsupported.' 0105E2 00 5478 DC X'00' 0105E3 105E3 01C4C 5479 ORG ETAB2+(4*(JRDEVICEACTIVE-29000)) 001C4C 000105E3 5480 DC A(MJRDEVICEACTIVE) 001C50 01C50 105E3 5481 ORG 0105E3 E38885408485A589 5482 MJRDEVICEACTIVE DC C'The device type is active.' 0105FD 00 5483 DC X'00' 0105FE 105FE 01C50 5484 ORG ETAB2+(4*(JRCONFIGERR-29000)) 001C50 000105FE 5485 DC A(MJRCONFIGERR) 001C54 01C54 105FE 5486 ORG 0105FE C3969586898740A2 5487 MJRCONFIGERR DC C'Config statement is outside of Beg/End Statement.' 01062F 00 5488 DC X'00' 010630 10630 01C54 5489 ORG ETAB2+(4*(JRAFNOTSUPPORTED-29000)) 001C54 00010630 5490 DC A(MJRAFNOTSUPPORTED) 001C58 01C58 10630 5491 ORG 010630 C184849985A2A240 5492 MJRAFNOTSUPPORTED DC C'Address Family is not supported.' 010650 00 5493 DC X'00' 010651 10651 01C58 5494 ORG ETAB2+(4*(JRTCPNOTUP-29000)) 001C58 00010651 5495 DC A(MJRTCPNOTUP) 001C5C 01C5C 10651 5496 ORG 010651 E3C3D761C9D74089 5497 MJRTCPNOTUP DC C'TCP/IP is not initialized.' 01066B 00 5498 DC X'00' 01066C 1066C 01C5C 5499 ORG ETAB2+(4*(JRUDPNOTUP-29000)) 001C5C 0001066C 5500 DC A(MJRUDPNOTUP) 001C60 01C60 1066C 5501 ORG 01066C E3C3D761C9D74089 5502 MJRUDPNOTUP DC C'TCP/IP is not initialized.' 010686 00 5503 DC X'00' 010687 10687 01C60 5504 ORG ETAB2+(4*(JRGETCONNERR-29000)) 001C60 00010687 5505 DC A(MJRGETCONNERR) 001C64 01C64 10687 5506 ORG 010687 E388854083969595 5507 MJRGETCONNERR DC C'The connection was not in the proper state for retr' 0106BA 8985A58995874B 5508 DC C'ieving.' 0106C1 00 5509 DC X'00' 0106C2 106C2 01C64 5510 ORG ETAB2+(4*(JRPATFNDERR-29000)) 001C64 000106C2 5511 DC A(MJRPATFNDERR) 001C68 01C68 106C2 5512 ORG 1STRREA OMVS_STR_REASON Page 107 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00106C2 E285819983884086 5513 MJRPATFNDERR DC C'Search for a restricted port failed.' 0106E6 00 5514 DC X'00' 0106E7 106E7 01C68 5515 ORG ETAB2+(4*(JRPATFNXERR-29000)) 001C68 000106E7 5516 DC A(MJRPATFNXERR) 001C6C 01C6C 106E7 5517 ORG 0106E7 E285819983884086 5518 MJRPATFNXERR DC C'Search for restricted ports failed.' 01070A 00 5519 DC X'00' 01070B 1070B 01C6C 5520 ORG ETAB2+(4*(JRPATADDERR-29000)) 001C6C 0001070B 5521 DC A(MJRPATADDERR) 001C70 01C70 1070B 5522 ORG 01070B C18484409585A640 5523 MJRPATADDERR DC C'Add new restricted port failed.' 01072A 00 5524 DC X'00' 01072B 1072B 01C70 5525 ORG ETAB2+(4*(JRPATDELERR-29000)) 001C70 0001072B 5526 DC A(MJRPATDELERR) 001C74 01C74 1072B 5527 ORG 01072B C4859385A3854081 5528 MJRPATDELERR DC C'Delete a restricted port failed.' 01074B 00 5529 DC X'00' 01074C 1074C 01C74 5530 ORG ETAB2+(4*(JRPATEXISTERR-29000)) 001C74 0001074C 5531 DC A(MJRPATEXISTERR) 001C78 01C78 1074C 5532 ORG 01074C D985A2A3998983A3 5533 MJRPATEXISTERR DC C'Restricted port entry already existed.' 010772 00 5534 DC X'00' 010773 10773 01C78 5535 ORG ETAB2+(4*(JRPATNOTFOUND-29000)) 001C78 00010773 5536 DC A(MJRPATNOTFOUND) 001C7C 01C7C 10773 5537 ORG 010773 D985A2A3998983A3 5538 MJRPATNOTFOUND DC C'Restricted port entry is not found.' 010796 00 5539 DC X'00' 010797 10797 01C7C 5540 ORG ETAB2+(4*(JRINVALIDDADDR-29000)) 001C7C 00010797 5541 DC A(MJRINVALIDDADDR) 001C80 01C80 10797 5542 ORG 010797 E297858389868985 5543 MJRINVALIDDADDR DC C'Specified address is not valid.' 0107B6 00 5544 DC X'00' 0107B7 107B7 01C80 5545 ORG ETAB2+(4*(JRPORTRERR-29000)) 001C80 000107B7 5546 DC A(MJRPORTRERR) 001C84 01C84 107B7 5547 ORG 0107B7 E3888540899597A4 5548 MJRPORTRERR DC C'The input specified in the port range statement is no' 0107EC A340A5819389844B 5549 DC C't valid.' 0107F4 00 5550 DC X'00' 0107F5 107F5 01C84 5551 ORG ETAB2+(4*(JRINTERFACEDEFINEDBYHOME-29000)) 001C84 000107F5 5552 DC A(MJRINTERFACEDEFINEDBYHOME) 001C88 01C88 107F5 5553 ORG 0107F5 E38885408995A385 5554 MJRINTERFACEDEFINEDBYHOME DC C'The interface has been used within a Ho' 01081C 948540A2A381A385 5555 DC C'me statement.' 010829 00 5556 DC X'00' 01082A 1082A 01C88 5557 ORG ETAB2+(4*(JRDEVICEDEFINEDBYLINK-29000)) 001C88 0001082A 5558 DC A(MJRDEVICEDEFINEDBYLINK) 001C8C 01C8C 1082A 5559 ORG 01082A E38885408485A589 5560 MJRDEVICEDEFINEDBYLINK DC C'The device is defined by a Link statement.' 010854 00 5561 DC X'00' 010855 10855 01C8C 5562 ORG ETAB2+(4*(JRDEVICETYPEINVALID-29000)) 001C8C 00010855 5563 DC A(MJRDEVICETYPEINVALID) 001C90 01C90 10855 5564 ORG 010855 E38885408485A589 5565 MJRDEVICETYPEINVALID DC C'The device type is not valid for the operati' 010881 969540998598A485 5566 DC C'on requested.' 01088E 00 5567 DC X'00' 1STRREA OMVS_STR_REASON Page 108 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 001088F 1088F 01C90 5568 ORG ETAB2+(4*(JRBSDROUTINGPARMSNEVERUSED-29000)) 001C90 0001088F 5569 DC A(MJRBSDROUTINGPARMSNEVERUSED) 001C94 01C94 1088F 5570 ORG 01088F C2E2C4D996A4A389 5571 MJRBSDROUTINGPARMSNEVERUSED DC C'BSDRoutingParms were never configured' 0108B4 4086969940E3C3D7 5572 DC C' for TCP/IP.' 0108C0 00 5573 DC X'00' 0108C1 108C1 01C94 5574 ORG ETAB2+(4*(JRBINDOUTSTATE-29000)) 001C94 000108C1 5575 DC A(MJRBINDOUTSTATE) 001C98 01C98 108C1 5576 ORG 0108C1 E388854083A49999 5577 MJRBINDOUTSTATE DC C'The current TPL state is not unbound when doing a' 0108F2 4082899584409985 5578 DC C' bind request.' 010900 00 5579 DC X'00' 010901 10901 01C98 5580 ORG ETAB2+(4*(JRBINDBADSOCKADDR-29000)) 001C98 00010901 5581 DC A(MJRBINDBADSOCKADDR) 001C9C 01C9C 10901 5582 ORG 010901 C2818440E2968392 5583 MJRBINDBADSOCKADDR DC C'Bad Socket Address data present in the source ' 01092F C9D7408184849985 5584 DC C'IP address.' 01093A 00 5585 DC X'00' 01093B 1093B 01C9C 5586 ORG ETAB2+(4*(JRBINDADDRNACTIVE-29000)) 001C9C 0001093B 5587 DC A(MJRBINDADDRNACTIVE) 001CA0 01CA0 1093B 5588 ORG 01093B D396838193408184 5589 MJRBINDADDRNACTIVE DC C'Local address was not active when processing t' 010969 8885408289958440 5590 DC C'he bind request.' 010979 00 5591 DC X'00' 01097A 1097A 01CA0 5592 ORG ETAB2+(4*(JRBINDNOPORT-29000)) 001CA0 0001097A 5593 DC A(MJRBINDNOPORT) 001CA4 01CA4 1097A 5594 ORG 01097A D59640979699A340 5595 MJRBINDNOPORT DC C'No port is available. Port entries have reached the' 0109AD 409481A78994A494 5596 DC C' maximum number.' 0109BD 00 5597 DC X'00' 0109BE 109BE 01CA4 5598 ORG ETAB2+(4*(JRBINDADDRINUSED-29000)) 001CA4 000109BE 5599 DC A(MJRBINDADDRINUSED) 001CA8 01CA8 109BE 5600 ORG 0109BE E3888540C9D5C1C4 5601 MJRBINDADDRINUSED DC C'The INADDR_ANY is being used by other users. Th' 0109ED 8540828995844099 5602 DC C'e bind request fails.' 010A02 00 5603 DC X'00' 010A03 10A03 01CA8 5604 ORG ETAB2+(4*(JRUNBINDNOTIDLE-29000)) 001CA8 00010A03 5605 DC A(MJRUNBINDNOTIDLE) 001CAC 01CAC 10A03 5606 ORG 010A03 E3888540998598A4 5607 MJRUNBINDNOTIDLE DC C'The requested connection was not in the proper s' 010A33 A381A38540869699 5608 DC C'tate for the request.' 010A48 00 5609 DC X'00' 010A49 10A49 01CAC 5610 ORG ETAB2+(4*(JROPTLERR-29000)) 001CAC 00010A49 5611 DC A(MJROPTLERR) 001CB0 01CB0 10A49 5612 ORG 010A49 E3888540A58193A4 5613 MJROPTLERR DC C'The value specified for option_length is not valid.' 010A7C 00 5614 DC X'00' 010A7D 10A7D 01CB0 5615 ORG ETAB2+(4*(JRSENDLIMIT-29000)) 001CB0 00010A7D 5616 DC A(MJRSENDLIMIT) 001CB4 01CB4 10A7D 5617 ORG 010A7D E3888540A2859584 5618 MJRSENDLIMIT DC C'The send buffer size is not valid. It is too big.' 010AAE 00 5619 DC X'00' 010AAF 10AAF 01CB4 5620 ORG ETAB2+(4*(JRRCVDLIMIT-29000)) 001CB4 00010AAF 5621 DC A(MJRRCVDLIMIT) 001CB8 01CB8 10AAF 5622 ORG 1STRREA OMVS_STR_REASON Page 109 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0010AAF E388854099858385 5623 MJRRCVDLIMIT DC C'The received buffer size is not valid. It is too big' 010AE3 4B 5624 DC C'.' 010AE4 00 5625 DC X'00' 010AE5 10AE5 01CB8 5626 ORG ETAB2+(4*(JRBSTOPT-29000)) 001CB8 00010AE5 5627 DC A(MJRBSTOPT) 001CBC 01CBC 10AE5 5628 ORG 010AE5 E3888540A58193A4 5629 MJRBSTOPT DC C'The value specified for option_value is not valid.' 010B17 00 5630 DC X'00' 010B18 10B18 01CBC 5631 ORG ETAB2+(4*(JRBRTOPT-29000)) 001CBC 00010B18 5632 DC A(MJRBRTOPT) 001CC0 01CC0 10B18 5633 ORG 010B18 E3888540A58193A4 5634 MJRBRTOPT DC C'The value specified for option_value is not valid.' 010B4A 00 5635 DC X'00' 010B4B 10B4B 01CC0 5636 ORG ETAB2+(4*(JRIPOPT-29000)) 001CC0 00010B4B 5637 DC A(MJRIPOPT) 001CC4 01CC4 10B4B 5638 ORG 010B4B E3888540A58193A4 5639 MJRIPOPT DC C'The value specified for option_value is not valid.' 010B7D 00 5640 DC X'00' 010B7E 10B7E 01CC4 5641 ORG ETAB2+(4*(JRTOSOPT-29000)) 001CC4 00010B7E 5642 DC A(MJRTOSOPT) 001CC8 01CC8 10B7E 5643 ORG 010B7E E3888540A58193A4 5644 MJRTOSOPT DC C'The value specified for type of service is not valid.' 010BB3 00 5645 DC X'00' 010BB4 10BB4 01CC8 5646 ORG ETAB2+(4*(JRTTLOPT-29000)) 001CC8 00010BB4 5647 DC A(MJRTTLOPT) 001CCC 01CCC 10BB4 5648 ORG 010BB4 E3888540A58193A4 5649 MJRTTLOPT DC C'The value specifed for time to live is not valid.' 010BE5 00 5650 DC X'00' 010BE6 10BE6 01CCC 5651 ORG ETAB2+(4*(JRIPOPTLERR-29000)) 001CCC 00010BE6 5652 DC A(MJRIPOPTLERR) 001CD0 01CD0 10BE6 5653 ORG 010BE6 E3888540A58193A4 5654 MJRIPOPTLERR DC C'The value specified for option_length is not valid.' 010C19 00 5655 DC X'00' 010C1A 10C1A 01CD0 5656 ORG ETAB2+(4*(JRTOSOPTLERR-29000)) 001CD0 00010C1A 5657 DC A(MJRTOSOPTLERR) 001CD4 01CD4 10C1A 5658 ORG 010C1A E3888540A58193A4 5659 MJRTOSOPTLERR DC C'The value specified for option_length is not valid.' 010C4D 00 5660 DC X'00' 010C4E 10C4E 01CD4 5661 ORG ETAB2+(4*(JRTTLOPTLERR-29000)) 001CD4 00010C4E 5662 DC A(MJRTTLOPTLERR) 001CD8 01CD8 10C4E 5663 ORG 010C4E E3888540A58193A4 5664 MJRTTLOPTLERR DC C'The value specified for option_length is not valid.' 010C81 00 5665 DC X'00' 010C82 10C82 01CD8 5666 ORG ETAB2+(4*(JRCONNNOTIDLE-29000)) 001CD8 00010C82 5667 DC A(MJRCONNNOTIDLE) 001CDC 01CDC 10C82 5668 ORG 010C82 C39695958583A340 5669 MJRCONNNOTIDLE DC C'Connect request not in idle state.' 010CA4 00 5670 DC X'00' 010CA5 10CA5 01CDC 5671 ORG ETAB2+(4*(JRBROADCASTDEST-29000)) 001CDC 00010CA5 5672 DC A(MJRBROADCASTDEST) 001CE0 01CE0 10CA5 5673 ORG 010CA5 C381959596A34083 5674 MJRBROADCASTDEST DC C'Cannot connect to a broadcast address.' 010CCB 00 5675 DC X'00' 010CCC 10CCC 01CE0 5676 ORG ETAB2+(4*(JRCONNECTTOSELF-29000)) 001CE0 00010CCC 5677 DC A(MJRCONNECTTOSELF) 1STRREA OMVS_STR_REASON Page 110 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001CE4 01CE4 10CCC 5678 ORG 010CCC C39695958583A340 5679 MJRCONNECTTOSELF DC C'Connect address is the same as the source addres' 010CFC A24B 5680 DC C's.' 010CFE 00 5681 DC X'00' 010CFF 10CFF 01CE4 5682 ORG ETAB2+(4*(JRCONNTCBNOTFOUND-29000)) 001CE4 00010CFF 5683 DC A(MJRCONNTCBNOTFOUND) 001CE8 01CE8 10CFF 5684 ORG 010CFF C140E3C3C240A681 5685 MJRCONNTCBNOTFOUND DC C'A TCB was not found for the specified socket.' 010D2C 00 5686 DC X'00' 010D2D 10D2D 01CE8 5687 ORG ETAB2+(4*(JRBADTCBEYE-29000)) 001CE8 00010D2D 5688 DC A(MJRBADTCBEYE) 001CEC 01CEC 10D2D 5689 ORG 010D2D E3888540E3C3C240 5690 MJRBADTCBEYE DC C'The TCB has been freed or overlaid.' 010D50 00 5691 DC X'00' 010D51 10D51 01CEC 5692 ORG ETAB2+(4*(JRNOACCEPTTCB-29000)) 001CEC 00010D51 5693 DC A(MJRNOACCEPTTCB) 001CF0 01CF0 10D51 5694 ORG 010D51 E3888599854089A2 5695 MJRNOACCEPTTCB DC C'There is no valid TCB on the accept queue.' 010D7B 00 5696 DC X'00' 010D7C 10D7C 01CF0 5697 ORG ETAB2+(4*(JRDISCONTCBNOTFOUND-29000)) 001CF0 00010D7C 5698 DC A(MJRDISCONTCBNOTFOUND) 001CF4 01CF4 10D7C 5699 ORG 010D7C E3888540E3C3C240 5700 MJRDISCONTCBNOTFOUND DC C'The TCB could not be found for disconnect.' 010DA6 00 5701 DC X'00' 010DA7 10DA7 01CF4 5702 ORG ETAB2+(4*(JRPORTACCESSAUTH-29000)) 001CF4 00010DA7 5703 DC A(MJRPORTACCESSAUTH) 001CF8 01CF8 10DA7 5704 ORG 010DA7 E4A2859940849685 5705 MJRPORTACCESSAUTH DC C'User does not have authority to access this por' 010DD6 A34B 5706 DC C't.' 010DD8 00 5707 DC X'00' 010DD9 10DD9 01CF8 5708 ORG ETAB2+(4*(JRPORTBUSY-29000)) 001CF8 00010DD9 5709 DC A(MJRPORTBUSY) 001CFC 01CFC 10DD9 5710 ORG 010DD9 E297858389868985 5711 MJRPORTBUSY DC C'Specified port is in use.' 010DF2 00 5712 DC X'00' 010DF3 10DF3 01CFC 5713 ORG ETAB2+(4*(JRSENDOPTLERR-29000)) 001CFC 00010DF3 5714 DC A(MJRSENDOPTLERR) 001D00 01D00 10DF3 5715 ORG 010DF3 E3888540A58193A4 5716 MJRSENDOPTLERR DC C'The value specified for option_length is not valid' 010E25 4B 5717 DC C'.' 010E26 00 5718 DC X'00' 010E27 10E27 01D00 5719 ORG ETAB2+(4*(JRRECVOPTLERR-29000)) 001D00 00010E27 5720 DC A(MJRRECVOPTLERR) 001D04 01D04 10E27 5721 ORG 010E27 E3888540A58193A4 5722 MJRRECVOPTLERR DC C'The value specified for option_length is not valid' 010E59 4B 5723 DC C'.' 010E5A 00 5724 DC X'00' 010E5B 10E5B 01D04 5725 ORG ETAB2+(4*(JRBSTOPTLERR-29000)) 001D04 00010E5B 5726 DC A(MJRBSTOPTLERR) 001D08 01D08 10E5B 5727 ORG 010E5B E3888540A58193A4 5728 MJRBSTOPTLERR DC C'The value specified for option_length is not valid.' 010E8E 00 5729 DC X'00' 010E8F 10E8F 01D08 5730 ORG ETAB2+(4*(JRBRTOPTLERR-29000)) 001D08 00010E8F 5731 DC A(MJRBRTOPTLERR) 001D0C 01D0C 10E8F 5732 ORG 1STRREA OMVS_STR_REASON Page 111 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0010E8F E3888540A58193A4 5733 MJRBRTOPTLERR DC C'The value specified for option_length is not valid.' 010EC2 00 5734 DC X'00' 010EC3 10EC3 01D0C 5735 ORG ETAB2+(4*(JRRTINVALIDTOS-29000)) 001D0C 00010EC3 5736 DC A(MJRRTINVALIDTOS) 001D10 01D10 10EC3 5737 ORG 010EC3 E297858389868985 5738 MJRRTINVALIDTOS DC C'Specified route type of service is not valid.' 010EF0 00 5739 DC X'00' 010EF1 10EF1 01D10 5740 ORG ETAB2+(4*(JRRTINVALIDGATEWAYADDR-29000)) 001D10 00010EF1 5741 DC A(MJRRTINVALIDGATEWAYADDR) 001D14 01D14 10EF1 5742 ORG 010EF1 E297858389868985 5743 MJRRTINVALIDGATEWAYADDR DC C'Specified route gateway address is not va' 010F1A 9389844B 5744 DC C'lid.' 010F1E 00 5745 DC X'00' 010F1F 10F1F 01D14 5746 ORG ETAB2+(4*(JRRTINVALIDPROTOCOL-29000)) 001D14 00010F1F 5747 DC A(MJRRTINVALIDPROTOCOL) 001D18 01D18 10F1F 5748 ORG 010F1F E297858389868985 5749 MJRRTINVALIDPROTOCOL DC C'Specified route protocol is not valid.' 010F45 00 5750 DC X'00' 010F46 10F46 01D18 5751 ORG ETAB2+(4*(JRRTINVALIDTYPE-29000)) 001D18 00010F46 5752 DC A(MJRRTINVALIDTYPE) 001D1C 01D1C 10F46 5753 ORG 010F46 E297858389868985 5754 MJRRTINVALIDTYPE DC C'Specified route type is not valid.' 010F68 00 5755 DC X'00' 010F69 10F69 01D1C 5756 ORG ETAB2+(4*(JRRTINVALIDDEST-29000)) 001D1C 00010F69 5757 DC A(MJRRTINVALIDDEST) 001D20 01D20 10F69 5758 ORG 010F69 E297858389868985 5759 MJRRTINVALIDDEST DC C'Specified route destination is not valid.' 010F92 00 5760 DC X'00' 010F93 10F93 01D20 5761 ORG ETAB2+(4*(JRRTINVALIDMASK-29000)) 001D20 00010F93 5762 DC A(MJRRTINVALIDMASK) 001D24 01D24 10F93 5763 ORG 010F93 E297858389868985 5764 MJRRTINVALIDMASK DC C'Specified route subnet mask is not valid.' 010FBC 00 5765 DC X'00' 010FBD 10FBD 01D24 5766 ORG ETAB2+(4*(JRRTINVALIDHOSTADDR-29000)) 001D24 00010FBD 5767 DC A(MJRRTINVALIDHOSTADDR) 001D28 01D28 10FBD 5768 ORG 010FBD E297858389868985 5769 MJRRTINVALIDHOSTADDR DC C'Specified route host ip address is not valid' 010FE9 4B 5770 DC C'.' 010FEA 00 5771 DC X'00' 010FEB 10FEB 01D28 5772 ORG ETAB2+(4*(JRHARDWARETYPENOTSUPPORTED-29000)) 001D28 00010FEB 5773 DC A(MJRHARDWARETYPENOTSUPPORTED) 001D2C 01D2C 10FEB 5774 ORG 010FEB E297858389868985 5775 MJRHARDWARETYPENOTSUPPORTED DC C'Specified hardware type is not suppor' 011010 A385844B 5776 DC C'ted.' 011014 00 5777 DC X'00' 011015 11015 01D2C 5778 ORG ETAB2+(4*(JRLINKTYPEINVALID-29000)) 001D2C 00011015 5779 DC A(MJRLINKTYPEINVALID) 001D30 01D30 11015 5780 ORG 011015 E388854093899592 5781 MJRLINKTYPEINVALID DC C'The link type is not valid for the operation r' 011043 8598A485A2A38584 5782 DC C'equested.' 01104C 00 5783 DC X'00' 01104D 1104D 01D30 5784 ORG ETAB2+(4*(JRNOHOMESTATEMENT-29000)) 001D30 0001104D 5785 DC A(MJRNOHOMESTATEMENT) 001D34 01D34 1104D 5786 ORG 01104D E388854093899592 5787 MJRNOHOMESTATEMENT DC C'The link name does not have an associated home' 1STRREA OMVS_STR_REASON Page 112 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 001107B 40A2A381A3859485 5788 DC C' statement.' 011086 00 5789 DC X'00' 011087 11087 01D34 5790 ORG ETAB2+(4*(JRIOCTLNOTSUPPORTED-29000)) 001D34 00011087 5791 DC A(MJRIOCTLNOTSUPPORTED) 001D38 01D38 11087 5792 ORG 011087 E3888540A2978583 5793 MJRIOCTLNOTSUPPORTED DC C'The specified ioctl is not supported in this' 0110B3 40A58599A2899695 5794 DC C' version of TCP/IP.' 0110C6 00 5795 DC X'00' 0110C7 110C7 01D38 5796 ORG ETAB2+(4*(JRLVLSOCNOSUP-29000)) 001D38 000110C7 5797 DC A(MJRLVLSOCNOSUP) 001D3C 01D3C 110C7 5798 ORG 0110C7 E38885409697A389 5799 MJRLVLSOCNOSUP DC C'The option_name that was specified is not supporte' 0110F9 844B 5800 DC C'd.' 0110FB 00 5801 DC X'00' 0110FC 110FC 01D3C 5802 ORG ETAB2+(4*(JRLVLTCPNOSUP-29000)) 001D3C 000110FC 5803 DC A(MJRLVLTCPNOSUP) 001D40 01D40 110FC 5804 ORG 0110FC E38885409385A585 5805 MJRLVLTCPNOSUP DC C'The level that was specified is not supported.' 01112A 00 5806 DC X'00' 01112B 1112B 01D40 5807 ORG ETAB2+(4*(JRLVLIPNOSUP-29000)) 001D40 0001112B 5808 DC A(MJRLVLIPNOSUP) 001D44 01D44 1112B 5809 ORG 01112B E38885409697A389 5810 MJRLVLIPNOSUP DC C'The option_name that was specified is not supported' 01115E 4B 5811 DC C'.' 01115F 00 5812 DC X'00' 011160 11160 01D44 5813 ORG ETAB2+(4*(JRINVOPTLEN-29000)) 001D44 00011160 5814 DC A(MJRINVOPTLEN) 001D48 01D48 11160 5815 ORG 011160 E38885409697A389 5816 MJRINVOPTLEN DC C'The option length is not valid' 01117E 00 5817 DC X'00' 01117F 1117F 01D48 5818 ORG ETAB2+(4*(JRINVOPTVAL-29000)) 001D48 0001117F 5819 DC A(MJRINVOPTVAL) 001D4C 01D4C 1117F 5820 ORG 01117F E38885409697A389 5821 MJRINVOPTVAL DC C'The option value is not valid' 01119C 00 5822 DC X'00' 01119D 1119D 01D4C 5823 ORG ETAB2+(4*(JRCONNALREADYEXISTS-29000)) 001D4C 0001119D 5824 DC A(MJRCONNALREADYEXISTS) 001D50 01D50 1119D 5825 ORG 01119D E388854081848499 5826 MJRCONNALREADYEXISTS DC C'The address is already in use.' 0111BB 00 5827 DC X'00' 0111BC 111BC 01D50 5828 ORG ETAB2+(4*(JRSTARTNONDEVICEINVALID-29000)) 001D50 000111BC 5829 DC A(MJRSTARTNONDEVICEINVALID) 001D54 01D54 111BC 5830 ORG 0111BC C1954081A3A38594 5831 MJRSTARTNONDEVICEINVALID DC C'An attempt was made to start an interfac' 0111E4 8540A68889838840 5832 DC C'e which isnot a device.' 0111FB 00 5833 DC X'00' 0111FC 111FC 01D54 5834 ORG ETAB2+(4*(JRBADIOCTLTOIF-29000)) 001D54 000111FC 5835 DC A(MJRBADIOCTLTOIF) 001D58 01D58 111FC 5836 ORG 0111FC C195408995A38599 5837 MJRBADIOCTLTOIF DC C'An internal error occurred between the ioctl and ' 01122D C995A38599868183 5838 DC C'Interface layer.' 01123D 00 5839 DC X'00' 01123E 1123E 01D58 5840 ORG ETAB2+(4*(JRLINKNOTDEFINED-29000)) 001D58 0001123E 5841 DC A(MJRLINKNOTDEFINED) 001D5C 01D5C 1123E 5842 ORG 1STRREA OMVS_STR_REASON Page 113 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 001123E E388854093899592 5843 MJRLINKNOTDEFINED DC C'The link name specified is not defined.' 011265 00 5844 DC X'00' 011266 11266 01D5C 5845 ORG ETAB2+(4*(JRMAXSTARTSEXCEEDED-29000)) 001D5C 00011266 5846 DC A(MJRMAXSTARTSEXCEEDED) 001D60 01D60 11266 5847 ORG 011266 C195408995A38599 5848 MJRMAXSTARTSEXCEEDED DC C'An internal limit of START DEVICEs has been ' 011292 85A7838585848584 5849 DC C'exceeded.' 01129B 00 5850 DC X'00' 01129C 1129C 01D60 5851 ORG ETAB2+(4*(JRDEVICEHASLINKS-29000)) 001D60 0001129C 5852 DC A(MJRDEVICEHASLINKS) 001D64 01D64 1129C 5853 ORG 01129C C1954081A3A38594 5854 MJRDEVICEHASLINKS DC C'An attempt was made to DELETE a device, but the' 0112CB 408485A589838540 5855 DC C' device has at least one LINK defined to it.' 0112F7 00 5856 DC X'00' 0112F8 112F8 01D64 5857 ORG ETAB2+(4*(JRDEVICEHASNOLINKS-29000)) 001D64 000112F8 5858 DC A(MJRDEVICEHASNOLINKS) 001D68 01D68 112F8 5859 ORG 0112F8 C1954081A3A38594 5860 MJRDEVICEHASNOLINKS DC C'An attempt was made to START a device, but th' 011325 85408485A5898385 5861 DC C'e device has no LINKs defined to it.' 011349 00 5862 DC X'00' 01134A 1134A 01D68 5863 ORG ETAB2+(4*(JRINTERFACENOTDEFINED-29000)) 001D68 0001134A 5864 DC A(MJRINTERFACENOTDEFINED) 001D6C 01D6C 1134A 5865 ORG 01134A E38885408995A385 5866 MJRINTERFACENOTDEFINED DC C'The interface specified is not defined.' 011371 00 5867 DC X'00' 011372 11372 01D6C 5868 ORG ETAB2+(4*(JRRTALREADYEXISTS-29000)) 001D6C 00011372 5869 DC A(MJRRTALREADYEXISTS) 001D70 01D70 11372 5870 ORG 011372 E38885409996A4A3 5871 MJRRTALREADYEXISTS DC C'The route already exists.' 01138B 00 5872 DC X'00' 01138C 1138C 01D70 5873 ORG ETAB2+(4*(JRRTNOTDEFINED-29000)) 001D70 0001138C 5874 DC A(MJRRTNOTDEFINED) 001D74 01D74 1138C 5875 ORG 01138C E38885409996A4A3 5876 MJRRTNOTDEFINED DC C'The route is not defined.' 0113A5 00 5877 DC X'00' 0113A6 113A6 01D74 5878 ORG ETAB2+(4*(JRRTREMOVEDIRECTERROR-29000)) 001D74 000113A6 5879 DC A(MJRRTREMOVEDIRECTERROR) 001D78 01D78 113A6 5880 ORG 0113A6 E38885409996A4A3 5881 MJRRTREMOVEDIRECTERROR DC C'The route to be removed is a direct route.' 0113D0 00 5882 DC X'00' 0113D1 113D1 01D78 5883 ORG ETAB2+(4*(JRGATEWAYUNREACHABLE-29000)) 001D78 000113D1 5884 DC A(MJRGATEWAYUNREACHABLE) 001D7C 01D7C 113D1 5885 ORG 0113D1 E38885408781A385 5886 MJRGATEWAYUNREACHABLE DC C'The gateway is unreachable by any routes.' 0113FA 00 5887 DC X'00' 0113FB 113FB 01D7C 5888 ORG ETAB2+(4*(JRRTREMOVEINDIRECTERROR-29000)) 001D7C 000113FB 5889 DC A(MJRRTREMOVEINDIRECTERROR) 001D80 01D80 113FB 5890 ORG 0113FB E38885409996A4A3 5891 MJRRTREMOVEINDIRECTERROR DC C'The route to be removed is an indirect r' 011423 96A4A3854B 5892 DC C'oute.' 011428 00 5893 DC X'00' 011429 11429 01D80 5894 ORG ETAB2+(4*(JRARPSVMULT-29000)) 001D80 00011429 5895 DC A(MJRARPSVMULT) 001D84 01D84 11429 5896 ORG 011429 D4A493A389979385 5897 MJRARPSVMULT DC C'Multiple ATMARP servers are defined for the same lin' 1STRREA OMVS_STR_REASON Page 114 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 001145D 924B 5898 DC C'k.' 01145F 00 5899 DC X'00' 011460 11460 01D84 5900 ORG ETAB2+(4*(JRDEVICEMPCPTPINVALID-29000)) 001D84 00011460 5901 DC A(MJRDEVICEMPCPTPINVALID) 001D88 01D88 11460 5902 ORG 011460 C140D4D7C3D7E3D7 5903 MJRDEVICEMPCPTPINVALID DC C'A MPCPTP link was defined for an incorrect' 01148A 408485A589838540 5904 DC C' device type.' 011497 00 5905 DC X'00' 011498 11498 01D88 5906 ORG ETAB2+(4*(JRDEVICEHCHINVALID-29000)) 001D88 00011498 5907 DC A(MJRDEVICEHCHINVALID) 001D8C 01D8C 11498 5908 ORG 011498 C19540C8C3C84093 5909 MJRDEVICEHCHINVALID DC C'An HCH link was defined for an incorrect devi' 0114C5 838540A3A897854B 5910 DC C'ce type.' 0114CD 00 5911 DC X'00' 0114CE 114CE 01D8C 5912 ORG ETAB2+(4*(JRDEVICECDLCINVALID-29000)) 001D8C 000114CE 5913 DC A(MJRDEVICECDLCINVALID) 001D90 01D90 114CE 5914 ORG 0114CE C140C3C4D3C34093 5915 MJRDEVICECDLCINVALID DC C'A CDLC link was defined for an incorrect dev' 0114FA 89838540A3A89785 5916 DC C'ice type.' 011503 00 5917 DC X'00' 011504 11504 01D90 5918 ORG ETAB2+(4*(JRDEVICEX25INVALID-29000)) 001D90 00011504 5919 DC A(MJRDEVICEX25INVALID) 001D94 01D94 11504 5920 ORG 011504 C19540E74BF2F540 5921 MJRDEVICEX25INVALID DC C'An X.25 link was defined for an incorrect dev' 011531 89838540A3A89785 5922 DC C'ice type.' 01153A 00 5923 DC X'00' 01153B 1153B 01D94 5924 ORG ETAB2+(4*(JRDEVICEATMINVALID-29000)) 001D94 0001153B 5925 DC A(MJRDEVICEATMINVALID) 001D98 01D98 1153B 5926 ORG 01153B C19540C1E3D44093 5927 MJRDEVICEATMINVALID DC C'An ATM link was defined for an incorrect devi' 011568 838540A3A897854B 5928 DC C'ce type.' 011570 00 5929 DC X'00' 011571 11571 01D98 5930 ORG ETAB2+(4*(JRLINKALREADYDEFINED-29000)) 001D98 00011571 5931 DC A(MJRLINKALREADYDEFINED) 001D9C 01D9C 11571 5932 ORG 011571 E388854093899592 5933 MJRLINKALREADYDEFINED DC C'The link is already defined.' 01158D 00 5934 DC X'00' 01158E 1158E 01D9C 5935 ORG ETAB2+(4*(JRPVCALREADYDEFINED-29000)) 001D9C 0001158E 5936 DC A(MJRPVCALREADYDEFINED) 001DA0 01DA0 1158E 5937 ORG 01158E E3888540D7E5C340 5938 MJRPVCALREADYDEFINED DC C'The PVC is already defined.' 0115A9 00 5939 DC X'00' 0115AA 115AA 01DA0 5940 ORG ETAB2+(4*(JRPVCNOTDEFINED-29000)) 001DA0 000115AA 5941 DC A(MJRPVCNOTDEFINED) 001DA4 01DA4 115AA 5942 ORG 0115AA E3888540D7E5C340 5943 MJRPVCNOTDEFINED DC C'The PVC name specified is not defined.' 0115D0 00 5944 DC X'00' 0115D1 115D1 01DA4 5945 ORG ETAB2+(4*(JRLISNOTDEFINED-29000)) 001DA4 000115D1 5946 DC A(MJRLISNOTDEFINED) 001DA8 01DA8 115D1 5947 ORG 0115D1 E3888540D3C9E240 5948 MJRLISNOTDEFINED DC C'The LIS name specified is not defined.' 0115F7 00 5949 DC X'00' 0115F8 115F8 01DA8 5950 ORG ETAB2+(4*(JRARPSVNOTDEFINED-29000)) 001DA8 000115F8 5951 DC A(MJRARPSVNOTDEFINED) 001DAC 01DAC 115F8 5952 ORG 1STRREA OMVS_STR_REASON Page 115 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00115F8 E3888540C1E3D4C1 5953 MJRARPSVNOTDEFINED DC C'The ATMARPSV name specified is not defined.' 011623 00 5954 DC X'00' 011624 11624 01DAC 5955 ORG ETAB2+(4*(JRLISINUSEFORDEVICE-29000)) 001DAC 00011624 5956 DC A(MJRLISINUSEFORDEVICE) 001DB0 01DB0 11624 5957 ORG 011624 C19596A388859940 5958 MJRLISINUSEFORDEVICE DC C'Another LINK for this device already specifi' 011650 85A240A38889A240 5959 DC C'es this LIS.' 01165C 00 5960 DC X'00' 01165D 1165D 01DB0 5961 ORG ETAB2+(4*(JRPVCLINKNOTATM-29000)) 001DB0 0001165D 5962 DC A(MJRPVCLINKNOTATM) 001DB4 01DB4 1165D 5963 ORG 01165D C19540C1E3D4D7E5 5964 MJRPVCLINKNOTATM DC C'An ATMPVC was defined for an incorrect link type' 01168D 4B 5965 DC C'.' 01168E 00 5966 DC X'00' 01168F 1168F 01DB4 5967 ORG ETAB2+(4*(JRLISINCONSISTENT-29000)) 001DB4 0001168F 5968 DC A(MJRLISINCONSISTENT) 001DB8 01DB8 1168F 5969 ORG 01168F E3888540D3C9E240 5970 MJRLISINCONSISTENT DC C'The LIS name is already defined with a differe' 0116BD 95A340A2A4829585 5971 DC C'nt subnet value/mask.' 0116D2 00 5972 DC X'00' 0116D3 116D3 01DB8 5973 ORG ETAB2+(4*(JRLISOPTIONSUPDATED-29000)) 001DB8 000116D3 5974 DC A(MJRLISOPTIONSUPDATED) 001DBC 01DBC 116D3 5975 ORG 0116D3 C19540C1E3D4D3C9 5976 MJRLISOPTIONSUPDATED DC C'An ATMLIS redefiniton caused the LIS options' 0116FF 40A39640828540A4 5977 DC C' to be updated.' 01170E 00 5978 DC X'00' 01170F 1170F 01DBC 5979 ORG ETAB2+(4*(JRPVCINUSEASARPSV-29000)) 001DBC 0001170F 5980 DC A(MJRPVCINUSEASARPSV) 001DC0 01DC0 1170F 5981 ORG 01170F C1954081A3A38594 5982 MJRPVCINUSEASARPSV DC C'An attempt was made to delete an ATMPVC which ' 01173D 89A240899540A4A2 5983 DC C'is in use as an ATMARP server.' 01175B 00 5984 DC X'00' 01175C 1175C 01DC0 5985 ORG ETAB2+(4*(JRLINKHASPVCS-29000)) 001DC0 0001175C 5986 DC A(MJRLINKHASPVCS) 001DC4 01DC4 1175C 5987 ORG 01175C C1954081A3A38594 5988 MJRLINKHASPVCS DC C'An attempt was made to DELETE a LINK, but the LINK' 01178E 408881A24081A340 5989 DC C' has at least one ATMPVC defined to it.' 0117B5 00 5990 DC X'00' 0117B6 117B6 01DC4 5991 ORG ETAB2+(4*(JRLISHASLINKS-29000)) 001DC4 000117B6 5992 DC A(MJRLISHASLINKS) 001DC8 01DC8 117B6 5993 ORG 0117B6 C1954081A3A38594 5994 MJRLISHASLINKS DC C'An attempt was made to DELETE an ATMLIS, but the A' 0117E8 E3D4D3C9E2408881 5995 DC C'TMLIS has at least one LINK defined to it.' 011812 00 5996 DC X'00' 011813 11813 01DC8 5997 ORG ETAB2+(4*(JRLISHASARPSVS-29000)) 001DC8 00011813 5998 DC A(MJRLISHASARPSVS) 001DCC 01DCC 11813 5999 ORG 011813 C1954081A3A38594 6000 MJRLISHASARPSVS DC C'An attempt was made to DELETE an ATMLIS, but the ' 011844 C1E3D4D3C9E24088 6001 DC C'ATMLIS has at least one ATMARPSV defined to it.' 011873 00 6002 DC X'00' 011874 11874 01DCC 6003 ORG ETAB2+(4*(JRARPSVINUSE-29000)) 001DCC 00011874 6004 DC A(MJRARPSVINUSE) 001DD0 01DD0 11874 6005 ORG 011874 C1954081A3A38594 6006 MJRARPSVINUSE DC C'An attempt was made to DELETE an ATMARPSV, but at a' 0118A7 A340938581A2A340 6007 DC C't least one ATM device is using the ATMARPSV.' 1STRREA OMVS_STR_REASON Page 116 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00118D4 00 6008 DC X'00' 0118D5 118D5 01DD0 6009 ORG ETAB2+(4*(JRNOTINLIS-29000)) 001DD0 000118D5 6010 DC A(MJRNOTINLIS) 001DD4 01DD4 118D5 6011 ORG 0118D5 E3888540C9D74081 6012 MJRNOTINLIS DC C'The IP address of a defined ATMARPSV is not in the sp' 01190A 8583898689858440 6013 DC C'ecified LIS.' 011916 00 6014 DC X'00' 011917 11917 01DD4 6015 ORG ETAB2+(4*(JRTELSTATERR-29000)) 001DD4 00011917 6016 DC A(MJRTELSTATERR) 001DD8 01DD8 11917 6017 ORG 011917 C1A3A3859497A340 6018 MJRTELSTATERR DC C'Attempt to update the telnet attributes when the co' 01194A 95958583A3899695 6019 DC C'nnection is not yet established.' 01196A 00 6020 DC X'00' 01196B 1196B 01DD8 6021 ORG ETAB2+(4*(JRTELNFNDERR-29000)) 001DD8 0001196B 6022 DC A(MJRTELNFNDERR) 001DDC 01DDC 1196B 6023 ORG 01196B E385939585A340A2 6024 MJRTELNFNDERR DC C'Telnet session is not found' 011986 00 6025 DC X'00' 011987 11987 01DDC 6026 ORG ETAB2+(4*(JRARPSVALREADYDEFINED-29000)) 001DDC 00011987 6027 DC A(MJRARPSVALREADYDEFINED) 001DE0 01DE0 11987 6028 ORG 011987 E3888540C1E3D4C1 6029 MJRARPSVALREADYDEFINED DC C'The ATMARPSV is already defined.' 0119A7 00 6030 DC X'00' 0119A8 119A8 01DE0 6031 ORG ETAB2+(4*(JRLISMISMATCH-29000)) 001DE0 000119A8 6032 DC A(MJRLISMISMATCH) 001DE4 01DE4 119A8 6033 ORG 0119A8 E3888540D3C9E240 6034 MJRLISMISMATCH DC C'The LIS name on the ATMARPSV PVC statement does no' 0119DA A3409481A3838840 6035 DC C't match the LIS defined on the link to which the spec' 011A0F 898689858440D7E5 6036 DC C'ified PVC is defined.' 011A24 00 6037 DC X'00' 011A25 11A25 01DE4 6038 ORG ETAB2+(4*(JRDEVICESNAINVALID-29000)) 001DE4 00011A25 6039 DC A(MJRDEVICESNAINVALID) 001DE8 01DE8 11A25 6040 ORG 011A25 C140E2D5C1409389 6041 MJRDEVICESNAINVALID DC C'A SNA link was defined for an incorrect devic' 011A52 8540A3A897854B 6042 DC C'e type.' 011A59 00 6043 DC X'00' 011A5A 11A5A 01DE8 6044 ORG ETAB2+(4*(JRLINKHASNOPVCORLIS-29000)) 001DE8 00011A5A 6045 DC A(MJRLINKHASNOPVCORLIS) 001DEC 01DEC 11A5A 6046 ORG 011A5A C19540C1E3D44093 6047 MJRLINKHASNOPVCORLIS DC C'An ATM link was defined but did not specify ' 011A86 8140D3C9E2408195 6048 DC C'a LIS and has no PVCs defined to it.' 011AAA 00 6049 DC X'00' 011AAB 11AAB 01DEC 6050 ORG ETAB2+(4*(JRRTINVALIDMASKHOST-29000)) 001DEC 00011AAB 6051 DC A(MJRRTINVALIDMASKHOST) 001DF0 01DF0 11AAB 6052 ORG 011AAB C1408896A2A34099 6053 MJRRTINVALIDMASKHOST DC C'A host route with a non-zero mask was receiv' 011AD7 8584 6054 DC C'ed' 011AD9 00 6055 DC X'00' 011ADA 11ADA 01DF0 6056 ORG ETAB2+(4*(JRRTINVALIDMASKDEFAULT-29000)) 001DF0 00011ADA 6057 DC A(MJRRTINVALIDMASKDEFAULT) 001DF4 01DF4 11ADA 6058 ORG 011ADA C140959695608485 6059 MJRRTINVALIDMASKDEFAULT DC C'A non-default route was received with a d' 011B03 85A2A3899581A389 6060 DC C'estination of 0' 011B12 00 6061 DC X'00' 011B13 11B13 01DF4 6062 ORG ETAB2+(4*(JRRTNOBSDROUTINGPARMSSET-29000)) 1STRREA OMVS_STR_REASON Page 117 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001DF4 00011B13 6063 DC A(MJRRTNOBSDROUTINGPARMSSET) 001DF8 01DF8 11B13 6064 ORG 011B13 C1409996A4A38540 6065 MJRRTNOBSDROUTINGPARMSSET DC C'A route was added for a link without BS' 011B3A C4D996A4A3899587 6066 DC C'DRoutingParms' 011B47 00 6067 DC X'00' 011B48 11B48 01DF8 6068 ORG ETAB2+(4*(JRRTINVALIDMASKCIDR-29000)) 001DF8 00011B48 6069 DC A(MJRRTINVALIDMASKCIDR) 001DFC 01DFC 11B48 6070 ORG 011B48 E38885409481A292 6071 MJRRTINVALIDMASKCIDR DC C'The mask does not conform to CIDR requiremen' 011B74 A3 6072 DC C't' 011B75 00 6073 DC X'00' 011B76 11B76 01DFC 6074 ORG ETAB2+(4*(JRMSGINVALIDFLAG-29000)) 001DFC 00011B76 6075 DC A(MJRMSGINVALIDFLAG) 001E00 01E00 11B76 6076 ORG 011B76 E3888540A2968392 6077 MJRMSGINVALIDFLAG DC C'The socket does not support the function that w' 011BA5 81A240A297858389 6078 DC C'as specified with the flags parameter.' 011BCB 00 6079 DC X'00' 011BCC 11BCC 01E00 6080 ORG ETAB2+(4*(JRVARIABLESUBNETTINGNOTALLOWED-29000)) 001E00 00011BCC 6081 DC A(MJRVARIABLESUBNETTINGNOTALLOWED) 001E04 01E04 11BCC 6082 ORG 011BCC C9D7C3D6D5C6C9C7 6083 MJRVARIABLESUBNETTINGNOTALLOWED DC C'IPCONFIG did not specify RIPV2 or' 011BED 4093859587A38840 6084 DC C' length of rtentry is wrong.' 011C09 00 6085 DC X'00' 011C0A 11C0A 01E04 6086 ORG ETAB2+(4*(JRSYSPLEXADDRNOTFOUND-29000)) 001E04 00011C0A 6087 DC A(MJRSYSPLEXADDRNOTFOUND) 001E08 01E08 11C0A 6088 ORG 011C0A E3888540A2A8A297 6089 MJRSYSPLEXADDRNOTFOUND DC C'The sysplex loopback address 127.0.0.128 c' 011C34 96A49384409596A3 6090 DC C'ould not be resolved to the sysplex domain name by t' 011C69 8885408785A38896 6091 DC C'he gethostbyaddr() syscall.' 011C84 00 6092 DC X'00' 011C85 11C85 01E08 6093 ORG ETAB2+(4*(JRRESNOTFOUNDINDNS-29000)) 001E08 00011C85 6094 DC A(MJRRESNOTFOUNDINDNS) 001E0C 01E0C 11C85 6095 ORG 011C85 E3888540A2978583 6096 MJRRESNOTFOUNDINDNS DC C'The specified group or server+group name coul' 011CB2 8440409596A34082 6097 DC C'd not be found within the sysplex domain.' 011CDC 00 6098 DC X'00' 011CDD 11CDD 01E0C 6099 ORG ETAB2+(4*(JRGROUPNAMEREQUIRED-29000)) 001E0C 00011CDD 6100 DC A(MJRGROUPNAMEREQUIRED) 001E10 01E10 11CDD 6101 ORG 011CDD C140A28599A58599 6102 MJRGROUPNAMEREQUIRED DC C'A server name was specified in the sysplexFq' 011D09 C495C481A381A2A3 6103 DC C'DnDatastructure without a group name.' 011D2E 00 6104 DC X'00' 011D2F 11D2F 01E10 6105 ORG ETAB2+(4*(JRINVALIDBUFTOKN-29000)) 001E10 00011D2F 6106 DC A(MJRINVALIDBUFTOKN) 001E14 01E14 11D2F 6107 ORG 011D2F C195408995839699 6108 MJRINVALIDBUFTOKN DC C'An incorrect CSM buffer token was provided.' 011D5A 00 6109 DC X'00' 011D5B 11D5B 01E14 6110 ORG ETAB2+(4*(JRMCTTLOPT-29000)) 001E14 00011D5B 6111 DC A(MJRMCTTLOPT) 001E18 01E18 11D5B 6112 ORG 011D5B E3888540A58193A4 6113 MJRMCTTLOPT DC C'The value specified for multicast time to live isnot ' 011D90 A5819389844B 6114 DC C'valid.' 011D96 00 6115 DC X'00' 011D97 11D97 01E18 6116 ORG ETAB2+(4*(JRMCTTLOPTLERR-29000)) 001E18 00011D97 6117 DC A(MJRMCTTLOPTLERR) 1STRREA OMVS_STR_REASON Page 118 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001E1C 01E1C 11D97 6118 ORG 011D97 E3888540A58193A4 6119 MJRMCTTLOPTLERR DC C'The value specified for option length is not vali' 011DC8 844B 6120 DC C'd.' 011DCA 00 6121 DC X'00' 011DCB 11DCB 01E1C 6122 ORG ETAB2+(4*(JRMCLOOPOPT-29000)) 001E1C 00011DCB 6123 DC A(MJRMCLOOPOPT) 001E20 01E20 11DCB 6124 ORG 011DCB E3888540A58193A4 6125 MJRMCLOOPOPT DC C'The value specified for multicast loopback is not va' 011DFF 9389844B 6126 DC C'lid.' 011E03 00 6127 DC X'00' 011E04 11E04 01E20 6128 ORG ETAB2+(4*(JRMCLOOPOPTLERR-29000)) 001E20 00011E04 6129 DC A(MJRMCLOOPOPTLERR) 001E24 01E24 11E04 6130 ORG 011E04 E3888540A58193A4 6131 MJRMCLOOPOPTLERR DC C'The value specified for option length is not val' 011E34 89844B 6132 DC C'id.' 011E37 00 6133 DC X'00' 011E38 11E38 01E24 6134 ORG ETAB2+(4*(JRMCIFOPT-29000)) 001E24 00011E38 6135 DC A(MJRMCIFOPT) 001E28 01E28 11E38 6136 ORG 011E38 E3888540A58193A4 6137 MJRMCIFOPT DC C'The value specified for multicast interface is not val' 011E6E 89844B 6138 DC C'id.' 011E71 00 6139 DC X'00' 011E72 11E72 01E28 6140 ORG ETAB2+(4*(JRMCIFOPTLERR-29000)) 001E28 00011E72 6141 DC A(MJRMCIFOPTLERR) 001E2C 01E2C 11E72 6142 ORG 011E72 E3888540A58193A4 6143 MJRMCIFOPTLERR DC C'The value specified for option length is not valid' 011EA4 4B 6144 DC C'.' 011EA5 00 6145 DC X'00' 011EA6 11EA6 01E2C 6146 ORG ETAB2+(4*(JRMCADDMEMOPT-29000)) 001E2C 00011EA6 6147 DC A(MJRMCADDMEMOPT) 001E30 01E30 11EA6 6148 ORG 011EA6 E3888540A58193A4 6149 MJRMCADDMEMOPT DC C'The value specified for multicast add membership i' 011ED8 A2409596A340A581 6150 DC C's not valid.' 011EE4 00 6151 DC X'00' 011EE5 11EE5 01E30 6152 ORG ETAB2+(4*(JRMCADDMEMOPTLERR-29000)) 001E30 00011EE5 6153 DC A(MJRMCADDMEMOPTLERR) 001E34 01E34 11EE5 6154 ORG 011EE5 E3888540A58193A4 6155 MJRMCADDMEMOPTLERR DC C'The value specified for option length is not v' 011F13 819389844B 6156 DC C'alid.' 011F18 00 6157 DC X'00' 011F19 11F19 01E34 6158 ORG ETAB2+(4*(JRMCDROPMEMOPT-29000)) 001E34 00011F19 6159 DC A(MJRMCDROPMEMOPT) 001E38 01E38 11F19 6160 ORG 011F19 E3888540A58193A4 6161 MJRMCDROPMEMOPT DC C'The value specified for multicast drop membership' 011F4A 4089A2409596A340 6162 DC C' is not valid.' 011F58 00 6163 DC X'00' 011F59 11F59 01E38 6164 ORG ETAB2+(4*(JRMCDROPMEMOPTLERR-29000)) 001E38 00011F59 6165 DC A(MJRMCDROPMEMOPTLERR) 001E3C 01E3C 11F59 6166 ORG 011F59 E3888540A58193A4 6167 MJRMCDROPMEMOPTLERR DC C'The value specified for option length is not ' 011F86 A5819389844B 6168 DC C'valid.' 011F8C 00 6169 DC X'00' 011F8D 11F8D 01E3C 6170 ORG ETAB2+(4*(JRMCMAXMEM-29000)) 001E3C 00011F8D 6171 DC A(MJRMCMAXMEM) 001E40 01E40 11F8D 6172 ORG 1STRREA OMVS_STR_REASON Page 119 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0011F8D E38885409481A789 6173 MJRMCMAXMEM DC C'The maximum number of groups per socket has been exce' 011FC2 858485844B 6174 DC C'eded.' 011FC7 00 6175 DC X'00' 011FC8 11FC8 01E40 6176 ORG ETAB2+(4*(JRIESIZEMISMATCHADD-29000)) 001E40 00011FC8 6177 DC A(MJRIESIZEMISMATCHADD) 001E44 01E44 11FC8 6178 ORG 011FC8 D98598A485A2A340 6179 MJRIESIZEMISMATCHADD DC C'Request area was not large enough on add/rem' 011FF4 96A585 6180 DC C'ove' 011FF7 00 6181 DC X'00' 011FF8 11FF8 01E44 6182 ORG ETAB2+(4*(JRIESIZEMISMATCHGET-29000)) 001E44 00011FF8 6183 DC A(MJRIESIZEMISMATCHGET) 001E48 01E48 11FF8 6184 ORG 011FF8 D98598A485A2A340 6185 MJRIESIZEMISMATCHGET DC C'Request area was not large enough on get' 012020 00 6186 DC X'00' 012021 12021 01E48 6187 ORG ETAB2+(4*(JRIESIZEMISMATCHGETTABLE-29000)) 001E48 00012021 6188 DC A(MJRIESIZEMISMATCHGETTABLE) 001E4C 01E4C 12021 6189 ORG 012021 D98598A485A2A340 6190 MJRIESIZEMISMATCHGETTABLE DC C'Request area was not large enough on Ge' 012048 A340E381829385 6191 DC C't Table' 01204F 00 6192 DC X'00' 012050 12050 01E4C 6193 ORG ETAB2+(4*(JRIESIZEMISMATCHSETTABLE-29000)) 001E4C 00012050 6194 DC A(MJRIESIZEMISMATCHSETTABLE) 001E50 01E50 12050 6195 ORG 012050 D98598A485A2A340 6196 MJRIESIZEMISMATCHSETTABLE DC C'Request area was not large enough on Se' 012077 A340E381829385 6197 DC C't Table' 01207E 00 6198 DC X'00' 01207F 1207F 01E50 6199 ORG ETAB2+(4*(JRIEOUTCNTINVALID-29000)) 001E50 0001207F 6200 DC A(MJRIEOUTCNTINVALID) 001E54 01E54 1207F 6201 ORG 01207F 83D6A4A3C395A340 6202 MJRIEOUTCNTINVALID DC C'cOutCnt is zero or less than the cInCnt' 0120A6 00 6203 DC X'00' 0120A7 120A7 01E54 6204 ORG ETAB2+(4*(JRIEINCNTINVALID-29000)) 001E54 000120A7 6205 DC A(MJRIEINCNTINVALID) 001E58 01E58 120A7 6206 ORG 0120A7 83C995C395A34089 6207 MJRIEINCNTINVALID DC C'cInCnt is zero' 0120B5 00 6208 DC X'00' 0120B6 120B6 01E58 6209 ORG ETAB2+(4*(JRIEGETTABLEFLAGS-29000)) 001E58 000120B6 6210 DC A(MJRIEGETTABLEFLAGS) 001E5C 01E5C 120B6 6211 ORG 0120B6 C6938187A240A285 6212 MJRIEGETTABLEFLAGS DC C'Flags set on a GetTable' 0120CD 00 6213 DC X'00' 0120CE 120CE 01E5C 6214 ORG ETAB2+(4*(JRIEGETFLAGS-29000)) 001E5C 000120CE 6215 DC A(MJRIEGETFLAGS) 001E60 01E60 120CE 6216 ORG 0120CE C6938187A240A285 6217 MJRIEGETFLAGS DC C'Flags set on a Get' 0120E0 00 6218 DC X'00' 0120E1 120E1 01E60 6219 ORG ETAB2+(4*(JRIESETTABLEFLAGS-29000)) 001E60 000120E1 6220 DC A(MJRIESETTABLEFLAGS) 001E64 01E64 120E1 6221 ORG 0120E1 C6938187A240A285 6222 MJRIESETTABLEFLAGS DC C'Flags set on a SetTable' 0120F8 00 6223 DC X'00' 0120F9 120F9 01E64 6224 ORG ETAB2+(4*(JRIESETFLAGS-29000)) 001E64 000120F9 6225 DC A(MJRIESETFLAGS) 001E68 01E68 120F9 6226 ORG 0120F9 C6938187A240A285 6227 MJRIESETFLAGS DC C'Flags set on a Set' 1STRREA OMVS_STR_REASON Page 120 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 001210B 00 6228 DC X'00' 01210C 1210C 01E68 6229 ORG ETAB2+(4*(JRIEGETTABLEUNEXPECTED-29000)) 001E68 0001210C 6230 DC A(MJRIEGETTABLEUNEXPECTED) 001E6C 01E6C 1210C 6231 ORG 01210C E49585A7978583A3 6232 MJRIEGETTABLEUNEXPECTED DC C'Unexpected error on GetTable' 012128 00 6233 DC X'00' 012129 12129 01E6C 6234 ORG ETAB2+(4*(JRIEGETUNEXPECTED-29000)) 001E6C 00012129 6235 DC A(MJRIEGETUNEXPECTED) 001E70 01E70 12129 6236 ORG 012129 E49585A7978583A3 6237 MJRIEGETUNEXPECTED DC C'Unexpected error on Get' 012140 00 6238 DC X'00' 012141 12141 01E70 6239 ORG ETAB2+(4*(JRIESETTABLEUNEXPECTED-29000)) 001E70 00012141 6240 DC A(MJRIESETTABLEUNEXPECTED) 001E74 01E74 12141 6241 ORG 012141 E49585A7978583A3 6242 MJRIESETTABLEUNEXPECTED DC C'Unexpected error on SetTable' 01215D 00 6243 DC X'00' 01215E 1215E 01E74 6244 ORG ETAB2+(4*(JRIESETUNEXPECTED-29000)) 001E74 0001215E 6245 DC A(MJRIESETUNEXPECTED) 001E78 01E78 1215E 6246 ORG 01215E E49585A7978583A3 6247 MJRIESETUNEXPECTED DC C'Unexpected error on Set' 012175 00 6248 DC X'00' 012176 12176 01E78 6249 ORG ETAB2+(4*(JRIERECOVERYERROR-29000)) 001E78 00012176 6250 DC A(MJRIERECOVERYERROR) 001E7C 01E7C 12176 6251 ORG 012176 E49585A7978583A3 6252 MJRIERECOVERYERROR DC C'Unexpected error on Recovery' 012192 00 6253 DC X'00' 012193 12193 01E7C 6254 ORG ETAB2+(4*(JRIEPROFILEERROR-29000)) 001E7C 00012193 6255 DC A(MJRIEPROFILEERROR) 001E80 01E80 12193 6256 ORG 012193 E49585A7978583A3 6257 MJRIEPROFILEERROR DC C'Unexpected error during profile processing' 0121BD 00 6258 DC X'00' 0121BE 121BE 01E80 6259 ORG ETAB2+(4*(JRIEADDIFCIOCTLTYPE-29000)) 001E80 000121BE 6260 DC A(MJRIEADDIFCIOCTLTYPE) 001E84 01E84 121BE 6261 ORG 0121BE C1A3A3859497A340 6262 MJRIEADDIFCIOCTLTYPE DC C'Attempt to add an ifcioctl with ifhtype not ' 0121EA 898693898683 6263 DC C'iflifc' 0121F0 00 6264 DC X'00' 0121F1 121F1 01E84 6265 ORG ETAB2+(4*(JRIEUNKNOWNIFCIOCTLTYPE-29000)) 001E84 000121F1 6266 DC A(MJRIEUNKNOWNIFCIOCTLTYPE) 001E88 01E88 121F1 6267 ORG 0121F1 E495929596A69540 6268 MJRIEUNKNOWNIFCIOCTLTYPE DC C'Unknown ifcioctl Type attempted' 012210 00 6269 DC X'00' 012211 12211 01E88 6270 ORG ETAB2+(4*(JRTCPTCPIPERROR-29000)) 001E88 00012211 6271 DC A(MJRTCPTCPIPERROR) 001E8C 01E8C 12211 6272 ORG 012211 D98586859940A396 6273 MJRTCPTCPIPERROR DC C'Refer to TSRB return and reason codes' 012236 00 6274 DC X'00' 012237 12237 01E8C 6275 ORG ETAB2+(4*(JRTCPINVALIDTCPIPNAME-29000)) 001E8C 00012237 6276 DC A(MJRTCPINVALIDTCPIPNAME) 001E90 01E90 12237 6277 ORG 012237 C995A58193898440 6278 MJRTCPINVALIDTCPIPNAME DC C'Invalid Tsrb_Tcpip_Name' 01224E 00 6279 DC X'00' 01224F 1224F 01E90 6280 ORG ETAB2+(4*(JRTCPINVALIDREQUESTCODE-29000)) 001E90 0001224F 6281 DC A(MJRTCPINVALIDREQUESTCODE) 001E94 01E94 1224F 6282 ORG 1STRREA OMVS_STR_REASON Page 121 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 001224F C995A58193898440 6283 MJRTCPINVALIDREQUESTCODE DC C'Invalid Tsrb_Request_Code' 012268 00 6284 DC X'00' 012269 12269 01E94 6285 ORG ETAB2+(4*(JRTCPNOTINSTALLEDORUP-29000)) 001E94 00012269 6286 DC A(MJRTCPNOTINSTALLEDORUP) 001E98 01E98 12269 6287 ORG 012269 E3C3D7C9D7409596 6288 MJRTCPNOTINSTALLEDORUP DC C'TCPIP not installed or active' 012286 00 6289 DC X'00' 012287 12287 01E98 6290 ORG ETAB2+(4*(JRTCPINVDELETE-29000)) 001E98 00012287 6291 DC A(MJRTCPINVDELETE) 001E9C 01E9C 12287 6292 ORG 012287 E388854084859385 6293 MJRTCPINVDELETE DC C'The delete requestor did not create the connectio' 0122B8 95 6294 DC C'n' 0122B9 00 6295 DC X'00' 0122BA 122BA 01E9C 6296 ORG ETAB2+(4*(JRTCPINVUSERDATA-29000)) 001E9C 000122BA 6297 DC A(MJRTCPINVUSERDATA) 001EA0 01EA0 122BA 6298 ORG 0122BA D98598A485A2A340 6299 MJRTCPINVUSERDATA DC C'Request contained invalid user data' 0122DD 00 6300 DC X'00' 0122DE 122DE 01EA0 6301 ORG ETAB2+(4*(JRSKCIBINVALIDMESSAGE-29000)) 001EA0 000122DE 6302 DC A(MJRSKCIBINVALIDMESSAGE) 001EA4 01EA4 122DE 6303 ORG 0122DE C995A58193898440 6304 MJRSKCIBINVALIDMESSAGE DC C'Invalid IOCTL message type' 0122F8 00 6305 DC X'00' 0122F9 122F9 01EA4 6306 ORG ETAB2+(4*(JRSKCIBALREADYSLEEPING1-29000)) 001EA4 000122F9 6307 DC A(MJRSKCIBALREADYSLEEPING1) 001EA8 01EA8 122F9 6308 ORG 0122F9 D98583A499A289A5 6309 MJRSKCIBALREADYSLEEPING1 DC C'Recursive context sleep' 012310 00 6310 DC X'00' 012311 12311 01EA8 6311 ORG ETAB2+(4*(JRSKDKINOTREADQUEUE-29000)) 001EA8 00012311 6312 DC A(MJRSKDKINOTREADQUEUE) 001EAC 01EAC 12311 6313 ORG 012311 C995A58193898440 6314 MJRSKDKINOTREADQUEUE DC C'Invalid queue for find open/close' 012332 00 6315 DC X'00' 012333 12333 01EAC 6316 ORG ETAB2+(4*(JRSKDKINOTWRITEQUEUE-29000)) 001EAC 00012333 6317 DC A(MJRSKDKINOTWRITEQUEUE) 001EB0 01EB0 12333 6318 ORG 012333 C995A58193898440 6319 MJRSKDKINOTWRITEQUEUE DC C'Invalid queue for find poll/iocport' 012356 00 6320 DC X'00' 012357 12357 01EB0 6321 ORG ETAB2+(4*(JRSKDKIBADFINDTYPE-29000)) 001EB0 00012357 6322 DC A(MJRSKDKIBADFINDTYPE) 001EB4 01EB4 12357 6323 ORG 012357 C995A58193898440 6324 MJRSKDKIBADFINDTYPE DC C'Invalid type for find' 01236C 00 6325 DC X'00' 01236D 1236D 01EB4 6326 ORG ETAB2+(4*(JRSKDKINOTFOUND-29000)) 001EB4 0001236D 6327 DC A(MJRSKDKINOTFOUND) 001EB8 01EB8 1236D 6328 ORG 01236D D59640A2A4838840 6329 MJRSKDKINOTFOUND DC C'No such device/module for find' 01238B 00 6330 DC X'00' 01238C 1238C 01EB8 6331 ORG ETAB2+(4*(JRSKDKIBADQGETTYPE-29000)) 001EB8 0001238C 6332 DC A(MJRSKDKIBADQGETTYPE) 001EBC 01EBC 1238C 6333 ORG 01238C C995A58193898440 6334 MJRSKDKIBADQGETTYPE DC C'Invalid type for queue get info' 0123AB 00 6335 DC X'00' 0123AC 123AC 01EBC 6336 ORG ETAB2+(4*(JRSKDKIBADQSETTYPE-29000)) 001EBC 000123AC 6337 DC A(MJRSKDKIBADQSETTYPE) 1STRREA OMVS_STR_REASON Page 122 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001EC0 01EC0 123AC 6338 ORG 0123AC C995A58193898440 6339 MJRSKDKIBADQSETTYPE DC C'Invalid type for queue set info' 0123CB 00 6340 DC X'00' 0123CC 123CC 01EC0 6341 ORG ETAB2+(4*(JRSKHEDBADOPEN-29000)) 001EC0 000123CC 6342 DC A(MJRSKHEDBADOPEN) 001EC4 01EC4 123CC 6343 ORG 0123CC D697859540968640 6344 MJRSKHEDBADOPEN DC C'Open of stream head driver not allowed' 0123F2 00 6345 DC X'00' 0123F3 123F3 01EC4 6346 ORG ETAB2+(4*(JRSKMNTBADMESSAGE-29000)) 001EC4 000123F3 6347 DC A(MJRSKMNTBADMESSAGE) 001EC8 01EC8 123F3 6348 ORG 0123F3 C995A58193898440 6349 MJRSKMNTBADMESSAGE DC C'Invalid message type' 012407 00 6350 DC X'00' 012408 12408 01EC8 6351 ORG ETAB2+(4*(JRSKMNTSNOOPERALREADYACTIVE-29000)) 001EC8 00012408 6352 DC A(MJRSKMNTSNOOPERALREADYACTIVE) 001ECC 01ECC 12408 6353 ORG 012408 E295969697859940 6354 MJRSKMNTSNOOPERALREADYACTIVE DC C'Snooper module previously pushed' 012428 00 6355 DC X'00' 012429 12429 01ECC 6356 ORG ETAB2+(4*(JRSKMNTSNOOPERNOTACTIVE-29000)) 001ECC 00012429 6357 DC A(MJRSKMNTSNOOPERNOTACTIVE) 001ED0 01ED0 12429 6358 ORG 012429 E295969697859940 6359 MJRSKMNTSNOOPERNOTACTIVE DC C'Snooper module not previously pushed' 01244D 00 6360 DC X'00' 01244E 1244E 01ED0 6361 ORG ETAB2+(4*(JRSKSTOBADINDEX-29000)) 001ED0 0001244E 6362 DC A(MJRSKSTOBADINDEX) 001ED4 01ED4 1244E 6363 ORG 01244E C995A58193898440 6364 MJRSKSTOBADINDEX DC C'Invalid starting index for STREAMOP' 012471 00 6365 DC X'00' 012472 12472 01ED4 6366 ORG ETAB2+(4*(JRSKSTOBADSTREAM-29000)) 001ED4 00012472 6367 DC A(MJRSKSTOBADSTREAM) 001ED8 01ED8 12472 6368 ORG 012472 C995A58193898440 6369 MJRSKSTOBADSTREAM DC C'Invalid stream address for STREAMOP' 012495 00 6370 DC X'00' 012496 12496 01ED8 6371 ORG ETAB2+(4*(JRSKSTOBADMESSAGETYPE-29000)) 001ED8 00012496 6372 DC A(MJRSKSTOBADMESSAGETYPE) 001EDC 01EDC 12496 6373 ORG 012496 C995A58193898440 6374 MJRSKSTOBADMESSAGETYPE DC C'Invalid message type for read' 0124B3 00 6375 DC X'00' 0124B4 124B4 01EDC 6376 ORG ETAB2+(4*(JRSKSTONOEMPTYMESSAGES-29000)) 001EDC 000124B4 6377 DC A(MJRSKSTONOEMPTYMESSAGES) 001EE0 01EE0 124B4 6378 ORG 0124B4 E9859996409485A2 6379 MJRSKSTONOEMPTYMESSAGES DC C'Zero message length invalid for write' 0124D9 00 6380 DC X'00' 0124DA 124DA 01EE0 6381 ORG ETAB2+(4*(JRSKSTOMESSAGETOOSHORT-29000)) 001EE0 000124DA 6382 DC A(MJRSKSTOMESSAGETOOSHORT) 001EE4 01EE4 124DA 6383 ORG 0124DA D485A2A281878540 6384 MJRSKSTOMESSAGETOOSHORT DC C'Message length too short for write' 0124FC 00 6385 DC X'00' 0124FD 124FD 01EE4 6386 ORG ETAB2+(4*(JRSKSTONOCONTROLPART1-29000)) 001EE4 000124FD 6387 DC A(MJRSKSTONOCONTROLPART1) 001EE8 01EE8 124FD 6388 ORG 0124FD D59640839695A399 6389 MJRSKSTONOCONTROLPART1 DC C'No control part for putpmsg' 012518 00 6390 DC X'00' 012519 12519 01EE8 6391 ORG ETAB2+(4*(JRSKSTOBADMESSAGELENGTH1-29000)) 001EE8 00012519 6392 DC A(MJRSKSTOBADMESSAGELENGTH1) 1STRREA OMVS_STR_REASON Page 123 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001EEC 01EEC 12519 6393 ORG 012519 C995A58193898440 6394 MJRSKSTOBADMESSAGELENGTH1 DC C'Invalid message length for putpmsg' 01253B 00 6395 DC X'00' 01253C 1253C 01EEC 6396 ORG ETAB2+(4*(JRSKSTOBADMESSAGELENGTH2-29000)) 001EEC 0001253C 6397 DC A(MJRSKSTOBADMESSAGELENGTH2) 001EF0 01EF0 1253C 6398 ORG 01253C C995A58193898440 6399 MJRSKSTOBADMESSAGELENGTH2 DC C'Invalid message length for lputpmsg' 01255F 00 6400 DC X'00' 012560 12560 01EF0 6401 ORG ETAB2+(4*(JRSKSTOBADCONTROLINFORMATION-29000)) 001EF0 00012560 6402 DC A(MJRSKSTOBADCONTROLINFORMATION) 001EF4 01EF4 12560 6403 ORG 012560 C995A58193898440 6404 MJRSKSTOBADCONTROLINFORMATION DC C'Invalid control information for fdi' 012583 95A28599A3 6405 DC C'nsert' 012588 00 6406 DC X'00' 012589 12589 01EF4 6407 ORG ETAB2+(4*(JRSKSTONOMESSAGES-29000)) 001EF4 00012589 6408 DC A(MJRSKSTONOMESSAGES) 001EF8 01EF8 12589 6409 ORG 012589 D5964098A485A485 6410 MJRSKSTONOMESSAGES DC C'No queued messages for getband' 0125A7 00 6411 DC X'00' 0125A8 125A8 01EF8 6412 ORG ETAB2+(4*(JRSKSTORESOURCESHORTAGE2-29000)) 001EF8 000125A8 6413 DC A(MJRSKSTORESOURCESHORTAGE2) 001EFC 01EFC 125A8 6414 ORG 0125A8 E4958182938540A3 6415 MJRSKSTORESOURCESHORTAGE2 DC C'Unable to get triple for M_READ message' 0125CF 00 6416 DC X'00' 0125D0 125D0 01EFC 6417 ORG ETAB2+(4*(JRSKSTORESOURCESHORTAGE3-29000)) 001EFC 000125D0 6418 DC A(MJRSKSTORESOURCESHORTAGE3) 001F00 01F00 125D0 6419 ORG 0125D0 E4958182938540A3 6420 MJRSKSTORESOURCESHORTAGE3 DC C'Unable to get triple for M_IOCTL messag' 0125F7 85 6421 DC C'e' 0125F8 00 6422 DC X'00' 0125F9 125F9 01F00 6423 ORG ETAB2+(4*(JRSKVRBBADOPTION1-29000)) 001F00 000125F9 6424 DC A(MJRSKVRBBADOPTION1) 001F04 01F04 125F9 6425 ORG 0125F9 C995A58193898440 6426 MJRSKVRBBADOPTION1 DC C'Invalid option for open' 012610 00 6427 DC X'00' 012611 12611 01F04 6428 ORG ETAB2+(4*(JRSKVRBNOTUP-29000)) 001F04 00012611 6429 DC A(MJRSKVRBNOTUP) 001F08 01F08 12611 6430 ORG 012611 E2A8A2A385944095 6431 MJRSKVRBNOTUP DC C'System not initialized' 012627 00 6432 DC X'00' 012628 12628 01F08 6433 ORG ETAB2+(4*(JRSKVRBBADNAME-29000)) 001F08 00012628 6434 DC A(MJRSKVRBBADNAME) 001F0C 01F0C 12628 6435 ORG 012628 C995A58193898440 6436 MJRSKVRBBADNAME DC C'Invalid name for push' 01263D 00 6437 DC X'00' 01263E 1263E 01F0C 6438 ORG ETAB2+(4*(JRSKVRBNORESOURCES1-29000)) 001F0C 0001263E 6439 DC A(MJRSKVRBNORESOURCES1) 001F10 01F10 1263E 6440 ORG 01263E E4958182938540A3 6441 MJRSKVRBNORESOURCES1 DC C'Unable to allocate queues for push' 012660 00 6442 DC X'00' 012661 12661 01F10 6443 ORG ETAB2+(4*(JRSKVRBNOTHINGPUSHED1-29000)) 001F10 00012661 6444 DC A(MJRSKVRBNOTHINGPUSHED1) 001F14 01F14 12661 6445 ORG 012661 D5964097A4A28885 6446 MJRSKVRBNOTHINGPUSHED1 DC C'No pushed module exists for pop' 012680 00 6447 DC X'00' 1STRREA OMVS_STR_REASON Page 124 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0012681 12681 01F14 6448 ORG ETAB2+(4*(JRSKVRBNOTMULTIPLEXED-29000)) 001F14 00012681 6449 DC A(MJRSKVRBNOTMULTIPLEXED) 001F18 01F18 12681 6450 ORG 012681 C49989A585994095 6451 MJRSKVRBNOTMULTIPLEXED DC C'Driver not multiplexed for link' 0126A0 00 6452 DC X'00' 0126A1 126A1 01F18 6453 ORG ETAB2+(4*(JRSKVRBNOTLINKED-29000)) 001F18 000126A1 6454 DC A(MJRSKVRBNOTLINKED) 001F1C 01F1C 126A1 6455 ORG 0126A1 D596409389959285 6456 MJRSKVRBNOTLINKED DC C'No linked driver/module for unlink' 0126C3 00 6457 DC X'00' 0126C4 126C4 01F1C 6458 ORG ETAB2+(4*(JRSKVRBBADTYPE-29000)) 001F1C 000126C4 6459 DC A(MJRSKVRBBADTYPE) 001F20 01F20 126C4 6460 ORG 0126C4 C995A58193898440 6461 MJRSKVRBBADTYPE DC C'Invalid type for flush' 0126DA 00 6462 DC X'00' 0126DB 126DB 01F20 6463 ORG ETAB2+(4*(JRSKVRBNORESOURCES2-29000)) 001F20 000126DB 6464 DC A(MJRSKVRBNORESOURCES2) 001F24 01F24 126DB 6465 ORG 0126DB E4958182938540A3 6466 MJRSKVRBNORESOURCES2 DC C'Unable to get triple for M_FLUSH message' 012703 00 6467 DC X'00' 012704 12704 01F24 6468 ORG ETAB2+(4*(JRSKVRBBADMASK-29000)) 001F24 00012704 6469 DC A(MJRSKVRBBADMASK) 001F28 01F28 12704 6470 ORG 012704 C995A58193898440 6471 MJRSKVRBBADMASK DC C'Invalid signal mask for setsig' 012722 00 6472 DC X'00' 012723 12723 01F28 6473 ORG ETAB2+(4*(JRSKVRBBADACTION-29000)) 001F28 00012723 6474 DC A(MJRSKVRBBADACTION) 001F2C 01F2C 12723 6475 ORG 012723 C995A58193898440 6476 MJRSKVRBBADACTION DC C'Invalid action for setsig' 01273C 00 6477 DC X'00' 01273D 1273D 01F2C 6478 ORG ETAB2+(4*(JRSKVRBBADID-29000)) 001F2C 0001273D 6479 DC A(MJRSKVRBBADID) 001F30 01F30 1273D 6480 ORG 01273D C995A58193898440 6481 MJRSKVRBBADID DC C'Invalid identifier for spgrp' 012759 00 6482 DC X'00' 01275A 1275A 01F30 6483 ORG ETAB2+(4*(JRSKVRBBADFLAG-29000)) 001F30 0001275A 6484 DC A(MJRSKVRBBADFLAG) 001F34 01F34 1275A 6485 ORG 01275A C995A58193898440 6486 MJRSKVRBBADFLAG DC C'Invalid flag for spgrp' 012770 00 6487 DC X'00' 012771 12771 01F34 6488 ORG ETAB2+(4*(JRSKVRBNOERRNO-29000)) 001F34 00012771 6489 DC A(MJRSKVRBNOERRNO) 001F38 01F38 12771 6490 ORG 012771 D596408599999699 6491 MJRSKVRBNOERRNO DC C'No error number for spgrp' 01278A 00 6492 DC X'00' 01278B 1278B 01F38 6493 ORG ETAB2+(4*(JRSKVRBBADOPTION2-29000)) 001F38 0001278B 6494 DC A(MJRSKVRBBADOPTION2) 001F3C 01F3C 1278B 6495 ORG 01278B C995A58193898440 6496 MJRSKVRBBADOPTION2 DC C'Invalid behavior option for srdopt' 0127AD 00 6497 DC X'00' 0127AE 127AE 01F3C 6498 ORG ETAB2+(4*(JRSKVRBBADOPTION3-29000)) 001F3C 000127AE 6499 DC A(MJRSKVRBBADOPTION3) 001F40 01F40 127AE 6500 ORG 0127AE C995A58193898440 6501 MJRSKVRBBADOPTION3 DC C'Invalid message option for srdopt' 0127CF 00 6502 DC X'00' 1STRREA OMVS_STR_REASON Page 125 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00127D0 127D0 01F40 6503 ORG ETAB2+(4*(JRSKVRBBADOPTION4-29000)) 001F40 000127D0 6504 DC A(MJRSKVRBBADOPTION4) 001F44 01F44 127D0 6505 ORG 0127D0 C995A58193898440 6506 MJRSKVRBBADOPTION4 DC C'Invalid length option for swropt' 0127F0 00 6507 DC X'00' 0127F1 127F1 01F44 6508 ORG ETAB2+(4*(JRSKVRBBADCLASS1-29000)) 001F44 000127F1 6509 DC A(MJRSKVRBBADCLASS1) 001F48 01F48 127F1 6510 ORG 0127F1 C995A58193898440 6511 MJRSKVRBBADCLASS1 DC C'Invalid IOCTL class for str' 01280C 00 6512 DC X'00' 01280D 1280D 01F48 6513 ORG ETAB2+(4*(JRSKVRBBADCLASS2-29000)) 001F48 0001280D 6514 DC A(MJRSKVRBBADCLASS2) 001F4C 01F4C 1280D 6515 ORG 01280D C995A58193898440 6516 MJRSKVRBBADCLASS2 DC C'Invalid IOCTL class for transprnt' 01282E 00 6517 DC X'00' 01282F 1282F 01F4C 6518 ORG ETAB2+(4*(JRSKVRBNORESOURCES3-29000)) 001F4C 0001282F 6519 DC A(MJRSKVRBNORESOURCES3) 001F50 01F50 1282F 6520 ORG 01282F E4958182938540A3 6521 MJRSKVRBNORESOURCES3 DC C'Unable to get triple for M_IOCTL message' 012857 00 6522 DC X'00' 012858 12858 01F50 6523 ORG ETAB2+(4*(JRSKVRBNOTHINGPUSHED2-29000)) 001F50 00012858 6524 DC A(MJRSKVRBNOTHINGPUSHED2) 001F54 01F54 12858 6525 ORG 012858 D59640949684A493 6526 MJRSKVRBNOTHINGPUSHED2 DC C'No module pushed for look' 012871 00 6527 DC X'00' 012872 12872 01F54 6528 ORG ETAB2+(4*(JRSKASMBADTYPE-29000)) 001F54 00012872 6529 DC A(MJRSKASMBADTYPE) 001F58 01F58 12872 6530 ORG 012872 C995A58193898440 6531 MJRSKASMBADTYPE DC C'Invalid type for ?SKASM(*RANGE)' 012891 00 6532 DC X'00' 012892 12892 01F58 6533 ORG ETAB2+(4*(JRSKSACNOSTREAM-29000)) 001F58 00012892 6534 DC A(MJRSKSACNOSTREAM) 001F5C 01F5C 12892 6535 ORG 012892 C995A58193898440 6536 MJRSKSACNOSTREAM DC C'Invalid stream @ for ?SKSAC(*ACCESS)' 0128B6 00 6537 DC X'00' 0128B7 128B7 01F5C 6538 ORG ETAB2+(4*(JRSKSACLINKEDSTREAM-29000)) 001F5C 000128B7 6539 DC A(MJRSKSACLINKEDSTREAM) 001F60 01F60 128B7 6540 ORG 0128B7 C995A58193898440 6541 MJRSKSACLINKEDSTREAM DC C'Invalid stream for ?SKSAC(*ACCESS)' 0128D9 00 6542 DC X'00' 0128DA 128DA 01F60 6543 ORG ETAB2+(4*(JRMULTIPLEREAD-29000)) 001F60 000128DA 6544 DC A(MJRMULTIPLEREAD) 001F64 01F64 128DA 6545 ORG 0128DA C140998598A485A2 6546 MJRMULTIPLEREAD DC C'A request to receive data is already outstanding.' 01290B 5D 6547 DC C')' 01290C 00 6548 DC X'00' 01290D 1290D 01F64 6549 ORG ETAB2+(4*(JRDEVICEMPCHLCSINVALID-29000)) 001F64 0001290D 6550 DC A(MJRDEVICEMPCHLCSINVALID) 001F68 01F68 1290D 6551 ORG 01290D C140D4D7C340C8D7 6552 MJRDEVICEMPCHLCSINVALID DC C'A MPC HPDT/LCS link was defined for an in' 012936 839699998583A340 6553 DC C'correct device type.' 01294A 00 6554 DC X'00' 01294B 1294B 01F68 6555 ORG ETAB2+(4*(JRCMCONFIGURED-29000)) 001F68 0001294B 6556 DC A(MJRCMCONFIGURED) 001F6C 01F6C 1294B 6557 ORG 1STRREA OMVS_STR_REASON Page 126 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 001294B C38183888540D481 6558 MJRCMCONFIGURED DC C'Cache Manager has been configured for this server' 01297C 40A296839285A34B 6559 DC C' socket.' 012984 00 6560 DC X'00' 012985 12985 01F6C 6561 ORG ETAB2+(4*(JRCMNOLOG-29000)) 001F6C 00012985 6562 DC A(MJRCMNOLOG) 001F70 01F70 12985 6563 ORG 012985 C38183888540D481 6564 MJRCMNOLOG DC C'Cache Manager Configuration parameter does not include' 0129BB 40A3888540A289A9 6565 DC C' the size of the log file.' 0129D5 00 6566 DC X'00' 0129D6 129D6 01F70 6567 ORG ETAB2+(4*(JRCMNOCACHE-29000)) 001F70 000129D6 6568 DC A(MJRCMNOCACHE) 001F74 01F74 129D6 6569 ORG 0129D6 C38183888540D481 6570 MJRCMNOCACHE DC C'Cache Manager Configuration parameter does not inclu' 012A0A 848540A3888540A2 6571 DC C'de the size of the cache file.' 012A28 00 6572 DC X'00' 012A29 12A29 01F74 6573 ORG ETAB2+(4*(JRCMSERVERNOTFOUND-29000)) 001F74 00012A29 6574 DC A(MJRCMSERVERNOTFOUND) 001F78 01F78 12A29 6575 ORG 012A29 C38183888540D481 6576 MJRCMSERVERNOTFOUND DC C'Cache Manager has not been configured for thi' 012A56 A240A28599A58599 6577 DC C's server socket.' 012A66 00 6578 DC X'00' 012A67 12A67 01F78 6579 ORG ETAB2+(4*(JRCMCANTLOAD-29000)) 001F78 00012A67 6580 DC A(MJRCMCANTLOAD) 001F7C 01F7C 12A67 6581 ORG 012A67 C995A58193898440 6582 MJRCMCANTLOAD DC C'Invalid Dynamic Exit load module name specified in ' 012A9A A3888540C3969586 6583 DC C'the Config IOCTL parameters.' 012AB6 00 6584 DC X'00' 012AB7 12AB7 01F7C 6585 ORG ETAB2+(4*(JRCMNOSTORAGE-29000)) 001F7C 00012AB7 6586 DC A(MJRCMNOSTORAGE) 001F80 01F80 12AB7 6587 ORG 012AB7 C38183888540D481 6588 MJRCMNOSTORAGE DC C'Cache Manager encountered storage shortage.' 012AE2 00 6589 DC X'00' 012AE3 12AE3 01F80 6590 ORG ETAB2+(4*(JRCMNOCSM-29000)) 001F80 00012AE3 6591 DC A(MJRCMNOCSM) 001F84 01F84 12AE3 6592 ORG 012AE3 C38183888540D481 6593 MJRCMNOCSM DC C'Cache Manager encountered a CSM storage shortage.' 012B14 00 6594 DC X'00' 012B15 12B15 01F84 6595 ORG ETAB2+(4*(JRCMNOTCONFIGURED-29000)) 001F84 00012B15 6596 DC A(MJRCMNOTCONFIGURED) 001F88 01F88 12B15 6597 ORG 012B15 C38183888540D481 6598 MJRCMNOTCONFIGURED DC C'Cache Manager has not been configured for this' 012B43 40A28599A5859940 6599 DC C' server socket.' 012B52 00 6600 DC X'00' 012B53 12B53 01F88 6601 ORG ETAB2+(4*(JRNOTCMAUTHORIZED-29000)) 001F88 00012B53 6602 DC A(MJRNOTCMAUTHORIZED) 001F8C 01F8C 12B53 6603 ORG 012B53 E4A285994089A240 6604 MJRNOTCMAUTHORIZED DC C'User is not allowed to use Cache Manager funct' 012B81 8996954B 6605 DC C'ion.' 012B85 00 6606 DC X'00' 012B86 12B86 01F8C 6607 ORG ETAB2+(4*(JRCMPARMNOTVALID-29000)) 001F8C 00012B86 6608 DC A(MJRCMPARMNOTVALID) 001F90 01F90 12B86 6609 ORG 012B86 C995A58193898440 6610 MJRCMPARMNOTVALID DC C'Invalid parameters used in Cache Manager IOCTL ' 012BB5 838193934B 6611 DC C'call.' 012BBA 00 6612 DC X'00' 1STRREA OMVS_STR_REASON Page 127 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0012BBB 12BBB 01F90 6613 ORG ETAB2+(4*(JRCMLOADMODBAD-29000)) 001F90 00012BBB 6614 DC A(MJRCMLOADMODBAD) 001F94 01F94 12BBB 6615 ORG 012BBB C995A58193898440 6616 MJRCMLOADMODBAD DC C'Invalid Dynamic Exit load module name specified i' 012BEC 9540A3888540C396 6617 DC C'n the Config IOCTL parameters.' 012C0A 00 6618 DC X'00' 012C0B 12C0B 01F94 6619 ORG ETAB2+(4*(JRUWCONOTFOUND-29000)) 001F94 00012C0B 6620 DC A(MJRUWCONOTFOUND) 001F98 01F98 12C0B 6621 ORG 012C0B C38183888540D481 6622 MJRUWCONOTFOUND DC C'Cache Manager has not been configured for this se' 012C3C 99A5859940A29683 6623 DC C'rver socket.' 012C48 00 6624 DC X'00' 012C49 12C49 01F98 6625 ORG ETAB2+(4*(JRUWCOSTORAGEFAILED-29000)) 001F98 00012C49 6626 DC A(MJRUWCOSTORAGEFAILED) 001F9C 01F9C 12C49 6627 ORG 012C49 C38183888540D481 6628 MJRUWCOSTORAGEFAILED DC C'Cache Manager encountered storage shortage.' 012C74 00 6629 DC X'00' 012C75 12C75 01F9C 6630 ORG ETAB2+(4*(JRUWCTSTORAGEFAILED-29000)) 001F9C 00012C75 6631 DC A(MJRUWCTSTORAGEFAILED) 001FA0 01FA0 12C75 6632 ORG 012C75 C38183888540D481 6633 MJRUWCTSTORAGEFAILED DC C'Cache Manager encountered storage shortage.' 012CA0 00 6634 DC X'00' 012CA1 12CA1 01FA0 6635 ORG ETAB2+(4*(JRUWHTSTORAGEFAILED-29000)) 001FA0 00012CA1 6636 DC A(MJRUWHTSTORAGEFAILED) 001FA4 01FA4 12CA1 6637 ORG 012CA1 C38183888540D481 6638 MJRUWHTSTORAGEFAILED DC C'Cache Manager encountered storage shortage.' 012CCC 00 6639 DC X'00' 012CCD 12CCD 01FA4 6640 ORG ETAB2+(4*(JRUWCTFULL-29000)) 001FA4 00012CCD 6641 DC A(MJRUWCTFULL) 001FA8 01FA8 12CCD 6642 ORG 012CCD C38183888540D481 6643 MJRUWCTFULL DC C'Cache Manager table has been filled.' 012CF1 00 6644 DC X'00' 012CF2 12CF2 01FA8 6645 ORG ETAB2+(4*(JRCMNOOBJECTS-29000)) 001FA8 00012CF2 6646 DC A(MJRCMNOOBJECTS) 001FAC 01FAC 12CF2 6647 ORG 012CF2 D481A78994A49440 6648 MJRCMNOOBJECTS DC C'Maximum number of objects has been reached.' 012D1D 00 6649 DC X'00' 012D1E 12D1E 01FAC 6650 ORG ETAB2+(4*(JRCMDISABLE-29000)) 001FAC 00012D1E 6651 DC A(MJRCMDISABLE) 001FB0 01FB0 12D1E 6652 ORG 012D1E C38183888540D481 6653 MJRCMDISABLE DC C'Cache Manager is not allowed for this TCP/IP stack' 012D50 00 6654 DC X'00' 012D51 12D51 01FB0 6655 ORG ETAB2+(4*(JRCMLSOCKBADSTATE-29000)) 001FB0 00012D51 6656 DC A(MJRCMLSOCKBADSTATE) 001FB4 01FB4 12D51 6657 ORG 012D51 C38183888540D481 6658 MJRCMLSOCKBADSTATE DC C'Cache Manager Server is not in the LISTEN stat' 012D7F 85 6659 DC C'e' 012D80 00 6660 DC X'00' 012D81 12D81 01FB4 6661 ORG ETAB2+(4*(JRCMDESTROYFAILURE-29000)) 001FB4 00012D81 6662 DC A(MJRCMDESTROYFAILURE) 001FB8 01FB8 12D81 6663 ORG 012D81 C38183888540D481 6664 MJRCMDESTROYFAILURE DC C'Cache Manager Storage cannot be removed' 012DA8 00 6665 DC X'00' 012DA9 12DA9 01FB8 6666 ORG ETAB2+(4*(JRCMBADCONFIGDATA-29000)) 001FB8 00012DA9 6667 DC A(MJRCMBADCONFIGDATA) 1STRREA OMVS_STR_REASON Page 128 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0001FBC 01FBC 12DA9 6668 ORG 012DA9 C38183888540D481 6669 MJRCMBADCONFIGDATA DC C'Cache Manager cannot call the DGW exits' 012DD0 00 6670 DC X'00' 012DD1 12DD1 01FBC 6671 ORG ETAB2+(4*(JRCMCACHEOBJLIMIT-29000)) 001FBC 00012DD1 6672 DC A(MJRCMCACHEOBJLIMIT) 001FC0 01FC0 12DD1 6673 ORG 012DD1 C38183888540D481 6674 MJRCMCACHEOBJLIMIT DC C'Cache Manager maximum number of objects has be' 012DFF 8595409985818388 6675 DC C'en reached.' 012E0A 00 6676 DC X'00' 012E0B 12E0B 01FC0 6677 ORG ETAB2+(4*(JRCMCACHESPACELIMIT-29000)) 001FC0 00012E0B 6678 DC A(MJRCMCACHESPACELIMIT) 001FC4 01FC4 12E0B 6679 ORG 012E0B C38183888540D481 6680 MJRCMCACHESPACELIMIT DC C'Cache Manager Buffer is filled.' 012E2A 00 6681 DC X'00' 012E2B 12E2B 01FC4 6682 ORG ETAB2+(4*(JRCMCACHEOBJNOTFOUND-29000)) 001FC4 00012E2B 6683 DC A(MJRCMCACHEOBJNOTFOUND) 001FC8 01FC8 12E2B 6684 ORG 012E2B C38183888540D481 6685 MJRCMCACHEOBJNOTFOUND DC C'Cache Manager Object is not found' 012E4C 00 6686 DC X'00' 012E4D 12E4D 01FC8 6687 ORG ETAB2+(4*(JRDYNADDCXFAILURE-29000)) 001FC8 00012E4D 6688 DC A(MJRDYNADDCXFAILURE) 001FCC 01FCC 12E4D 6689 ORG 012E4D C381959596A34081 6690 MJRDYNADDCXFAILURE DC C'Cannot add new connection to Dynnamic exits' 012E78 00 6691 DC X'00' 012E79 12E79 01FCC 6692 ORG ETAB2+(4*(JRDYNDELCXFAILURE-29000)) 001FCC 00012E79 6693 DC A(MJRDYNDELCXFAILURE) 001FD0 01FD0 12E79 6694 ORG 012E79 C381959596A34084 6695 MJRDYNDELCXFAILURE DC C'Cannot delete a connection from Dynnamic exits' 012EA7 00 6696 DC X'00' 012EA8 12EA8 01FD0 6697 ORG ETAB2+(4*(JRDYNTIMERFAILURE-29000)) 001FD0 00012EA8 6698 DC A(MJRDYNTIMERFAILURE) 001FD4 01FD4 12EA8 6699 ORG 012EA8 C381959596A340A2 6700 MJRDYNTIMERFAILURE DC C'Cannot start the timer from Dynnamic exits' 012ED2 00 6701 DC X'00' 012ED3 12ED3 01FD4 6702 ORG ETAB2+(4*(JRDYNRECOVERYFAILURE-29000)) 001FD4 00012ED3 6703 DC A(MJRDYNRECOVERYFAILURE) 001FD8 01FD8 12ED3 6704 ORG 012ED3 C381959596A340A2 6705 MJRDYNRECOVERYFAILURE DC C'Cannot start the recovery from Dynnamic exi' 012EFE A3A2 6706 DC C'ts' 012F00 00 6707 DC X'00' 012F01 12F01 01FD8 6708 ORG ETAB2+(4*(JRCMIOVPNOTVALID-29000)) 001FD8 00012F01 6709 DC A(MJRCMIOVPNOTVALID) 001FDC 01FDC 12F01 6710 ORG 012F01 C995A58193898440 6711 MJRCMIOVPNOTVALID DC C'Invalid IOV buffer passed in the load request' 012F2E 00 6712 DC X'00' 012F2F 12F2F 01FDC 6713 ORG ETAB2+(4*(JRCMLOGFULL-29000)) 001FDC 00012F2F 6714 DC A(MJRCMLOGFULL) 001FE0 01FE0 12F2F 6715 ORG 012F2F D39687C2A4868685 6716 MJRCMLOGFULL DC C'LogBuffer is Full' 012F40 00 6717 DC X'00' 012F41 12F41 01FE0 6718 ORG ETAB2+(4*(JRCMSGDATAINVALID-29000)) 001FE0 00012F41 6719 DC A(MJRCMSGDATAINVALID) 001FE4 01FE4 12F41 6720 ORG 012F41 8394A28788849940 6721 MJRCMSGDATAINVALID DC C'cmsghdr data has an incorrect value' 012F64 00 6722 DC X'00' 1STRREA OMVS_STR_REASON Page 129 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0012F65 12F65 01FE4 6723 ORG ETAB2+(4*(JRDVIPAALREADYACTIVE-29000)) 001FE4 00012F65 6724 DC A(MJRDVIPAALREADYACTIVE) 001FE8 01FE8 12F65 6725 ORG 012F65 E3888540C4A89581 6726 MJRDVIPAALREADYACTIVE DC C'The Dynamic VIPA activated via IOCTL was al' 012F90 99858184A8408183 6727 DC C'ready active.' 012F9D 00 6728 DC X'00' 012F9E 12F9E 01FE8 6729 ORG ETAB2+(4*(JRDVIPANOTINVIPARANGE-29000)) 001FE8 00012F9E 6730 DC A(MJRDVIPANOTINVIPARANGE) 001FEC 01FEC 12F9E 6731 ORG 012F9E E3888540C4A89581 6732 MJRDVIPANOTINVIPARANGE DC C'The Dynamic VIPA was not in any defined VI' 012FC8 D7C1D9819587854B 6733 DC C'PARange.' 012FD0 00 6734 DC X'00' 012FD1 12FD1 01FEC 6735 ORG ETAB2+(4*(JRDVIPACONFLICTDVIPA-29000)) 001FEC 00012FD1 6736 DC A(MJRDVIPACONFLICTDVIPA) 001FF0 01FF0 12FD1 6737 ORG 012FD1 E3888540C4A89581 6738 MJRDVIPACONFLICTDVIPA DC C'The Dynamic VIPA selected is already define' 012FFC 8440A5898140E5C9 6739 DC C'd via VIPADEFine or VIPABackup.' 01301B 00 6740 DC X'00' 01301C 1301C 01FF0 6741 ORG ETAB2+(4*(JRDVIPACONFLICTIPADDR-29000)) 001FF0 0001301C 6742 DC A(MJRDVIPACONFLICTIPADDR) 001FF4 01FF4 1301C 6743 ORG 01301C E3888540C4A89581 6744 MJRDVIPACONFLICTIPADDR DC C'The Dynamic VIPA selected is already activ' 013046 854081A2408140A2 6745 DC C'e as a standard IP address.' 013061 00 6746 DC X'00' 013062 13062 01FF4 6747 ORG ETAB2+(4*(JRTOOMANYDVIPAS-29000)) 001FF4 00013062 6748 DC A(MJRTOOMANYDVIPAS) 001FF8 01FF8 13062 6749 ORG 013062 E38885409481A789 6750 MJRTOOMANYDVIPAS DC C'The maximum allowed number of DVIPAs is already ' 013092 848586899585844B 6751 DC C'defined.' 01309A 00 6752 DC X'00' 01309B 1309B 01FF8 6753 ORG ETAB2+(4*(JRDVIPANOTDEFINED-29000)) 001FF8 0001309B 6754 DC A(MJRDVIPANOTDEFINED) 001FFC 01FFC 1309B 6755 ORG 01309B E3888540C4A89581 6756 MJRDVIPANOTDEFINED DC C'The Dynamic VIPA selected for deletion was not' 0130C9 4084858689958584 6757 DC C' defined here.' 0130D7 00 6758 DC X'00' 0130D8 130D8 01FFC 6759 ORG ETAB2+(4*(JRNODUAVAILABLE-29000)) 001FFC 000130D8 6760 DC A(MJRNODUAVAILABLE) 002000 02000 130D8 6761 ORG 0130D8 E3C3D761C9D74083 6762 MJRNODUAVAILABLE DC C'TCP/IP cannot create a dispatchable unit to proc' 013108 85A2A240A3888540 6763 DC C'ess the request. Either TCP/IP is not active or ther' 01313D 854089A2408995A2 6764 DC C'e is insufficient common storage available.' 013168 00 6765 DC X'00' 013169 13169 02000 6766 ORG ETAB2+(4*(JRPORTUNAVAILABLE-29000)) 002000 00013169 6767 DC A(MJRPORTUNAVAILABLE) 002004 02004 13169 6768 ORG 013169 E3888540998598A4 6769 MJRPORTUNAVAILABLE DC C'The requested port is marked reserved and is n' 013197 96A34081A5818993 6770 DC C'ot available to any application.' 0131B7 00 6771 DC X'00' 0131B8 131B8 02004 6772 ORG ETAB2+(4*(JRAFOPNOTSUPPORTED-29000)) 002004 000131B8 6773 DC A(MJRAFOPNOTSUPPORTED) 002008 02008 131B8 6774 ORG 0131B8 E388854096978599 6775 MJRAFOPNOTSUPPORTED DC C'The operation is not supported for a socket i' 0131E5 9540A38889A24081 6776 DC C'n this address family.' 0131FB 00 6777 DC X'00' 1STRREA OMVS_STR_REASON Page 130 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0 Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 00131FC 131FC 02008 6778 ORG ETAB2+(4*(JRCANNOTMAPSOCKADDR-29000)) 002008 000131FC 6779 DC A(MJRCANNOTMAPSOCKADDR) 00200C 0200C 131FC 6780 ORG 0131FC E3888540A2968392 6781 MJRCANNOTMAPSOCKADDR DC C'The socket address provided by the applicati' 013228 969540969540A388 6782 DC C'on on this call cannot be mapped to an IPv4 socket ad' 01325D 849985A2A24B 6783 DC C'dress.' 013263 00 6784 DC X'00' 013264 13264 0200C 6785 ORG ETAB2+(4*(JRNETACCESSDENIED-29000)) 00200C 00013264 6786 DC A(MJRNETACCESSDENIED) 002010 02010 13264 6787 ORG 013264 E3888540A4A28599 6788 MJRNETACCESSDENIED DC C'The user is not permitted to communicate with ' 013292 A3888540A2978583 6789 DC C'the specified network.' 0132A8 00 6790 DC X'00' 0132A9 132A9 02010 6791 ORG ETAB2+(4*(JRNOTAUTHSTACK-29000)) 002010 000132A9 6792 DC A(MJRNOTAUTHSTACK) 002014 02014 132A9 6793 ORG 0132A9 E4A2859989844089 6794 MJRNOTAUTHSTACK DC C'Userid is not authorized to access the TCP/IP Sta' 0132DA 8392 6795 DC C'ck' 0132DC 00 6796 DC X'00' 0132DD 132DD 02014 6797 ORG ETAB2+(4*(JRNOTAUTHPORT-29000)) 002014 000132DD 6798 DC A(MJRNOTAUTHPORT) 002018 02018 132DD 6799 ORG 0132DD E4A2859989844089 6800 MJRNOTAUTHPORT DC C'Userid is not authorized to access the reserved T' 01330F C3D761C9D740D796 6801 DC C'CP/IP Port' 013319 00 6802 DC X'00' 01331A 1331A 02018 6803 ORG ETAB2+(4*(JRFRCARESET-29000)) 002018 0001331A 6804 DC A(MJRFRCARESET) 00201C 0201C 1331A 6805 ORG 01331A C6D9C3C140839695 6806 MJRFRCARESET DC C'FRCA connection timer expired. Connection is being d' 01334E 9996979785844B 6807 DC C'ropped.' 013355 00 6808 DC X'00' 6809 AIF ('&SYSTEM_ID'(1,4) NE 'z/OS').NOTZOS4 6810 .NOTZOS4 ANOP 1STRREA OMVS_STR_REASON Page 131 Active Usings: PARMS(X'1000'),R10 STRREA(X'1000'),R11 WORKAREA(X'1000'),R13 0D-Loc Object Code Addr1 Addr2 Stmt Source Statement HLASM R4.0 2006/09/01 12.09 0000000 00000 00068 6812 WORKAREA DSECT 000000 6813 DS 26F 00068 6814 WORKLEN EQU *-WORKAREA 0000000 00000 0000C 6816 PARMS DSECT 000000 6817 PERRNO DS A THE ERRNO TO UNRAVEL 000004 6818 PLEN DS A POINTS TO AN INT TO RECIEVE THE LENGTH 000008 6819 PMSG DS A POINTS TO AN POINTER TO RECIEVE THE MSG ADDR 0 6821 PRINT NOGEN 6822 SYMBAR MODE=DEC 6839 BPXYERNO 10004 END 1STRREA Relocation Dictionary Page 132 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 000001C8 00000001 00000001 0C 000001CC 00000001 00000001 0C 000001D4 00000001 00000001 0C 000001D8 00000001 00000001 0C 00000220 00000001 00000001 0C 00000224 00000001 00000001 0C 00000228 00000001 00000001 0C 0000022C 00000001 00000001 0C 00000230 00000001 00000001 0C 00000234 00000001 00000001 0C 00000238 00000001 00000001 0C 00000254 00000001 00000001 0C 0000025C 00000001 00000001 0C 00000268 00000001 00000001 0C 00000274 00000001 00000001 0C 0000027C 00000001 00000001 0C 00000288 00000001 00000001 0C 00000294 00000001 00000001 0C 00000298 00000001 00000001 0C 0000029C 00000001 00000001 0C 000002A4 00000001 00000001 0C 000002A8 00000001 00000001 0C 000002AC 00000001 00000001 0C 000002B4 00000001 00000001 0C 000002B8 00000001 00000001 0C 000002BC 00000001 00000001 0C 000002C0 00000001 00000001 0C 000002C4 00000001 00000001 0C 000002CC 00000001 00000001 0C 000002D0 00000001 00000001 0C 000002D4 00000001 00000001 0C 000002D8 00000001 00000001 0C 000002E0 00000001 00000001 0C 000002E4 00000001 00000001 0C 000002E8 00000001 00000001 0C 000002EC 00000001 00000001 0C 000002F0 00000001 00000001 0C 000002F4 00000001 00000001 0C 000002F8 00000001 00000001 0C 00000304 00000001 00000001 0C 00000308 00000001 00000001 0C 0000030C 00000001 00000001 0C 00000310 00000001 00000001 0C 00000314 00000001 00000001 0C 00000318 00000001 00000001 0C 0000031C 00000001 00000001 0C 00000320 00000001 00000001 0C 00000330 00000001 00000001 0C 00000334 00000001 00000001 0C 00000338 00000001 00000001 0C 0000033C 00000001 00000001 0C 00000340 00000001 00000001 0C 00000344 00000001 00000001 0C 00000348 00000001 00000001 0C 0000034C 1STRREA Relocation Dictionary Page 133 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000350 00000001 00000001 0C 00000354 00000001 00000001 0C 0000035C 00000001 00000001 0C 00000360 00000001 00000001 0C 00000364 00000001 00000001 0C 00000368 00000001 00000001 0C 0000036C 00000001 00000001 0C 00000370 00000001 00000001 0C 00000378 00000001 00000001 0C 0000037C 00000001 00000001 0C 00000380 00000001 00000001 0C 00000384 00000001 00000001 0C 00000388 00000001 00000001 0C 0000038C 00000001 00000001 0C 00000390 00000001 00000001 0C 00000394 00000001 00000001 0C 0000039C 00000001 00000001 0C 000003A0 00000001 00000001 0C 000003A4 00000001 00000001 0C 000003A8 00000001 00000001 0C 000003B0 00000001 00000001 0C 000003B4 00000001 00000001 0C 000003B8 00000001 00000001 0C 000003BC 00000001 00000001 0C 000003C0 00000001 00000001 0C 000003C8 00000001 00000001 0C 000003CC 00000001 00000001 0C 000003D0 00000001 00000001 0C 000003D4 00000001 00000001 0C 000003D8 00000001 00000001 0C 000003DC 00000001 00000001 0C 000003E4 00000001 00000001 0C 000003E8 00000001 00000001 0C 000003F4 00000001 00000001 0C 000003FC 00000001 00000001 0C 00000404 00000001 00000001 0C 00000408 00000001 00000001 0C 0000040C 00000001 00000001 0C 00000410 00000001 00000001 0C 00000414 00000001 00000001 0C 00000418 00000001 00000001 0C 0000041C 00000001 00000001 0C 00000420 00000001 00000001 0C 0000044C 00000001 00000001 0C 00000450 00000001 00000001 0C 00000458 00000001 00000001 0C 0000045C 00000001 00000001 0C 00000460 00000001 00000001 0C 00000464 00000001 00000001 0C 00000468 00000001 00000001 0C 00000470 00000001 00000001 0C 00000478 00000001 00000001 0C 00000480 00000001 00000001 0C 00000484 00000001 00000001 0C 00000488 1STRREA Relocation Dictionary Page 134 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 0000048C 00000001 00000001 0C 00000490 00000001 00000001 0C 00000494 00000001 00000001 0C 0000049C 00000001 00000001 0C 000004A4 00000001 00000001 0C 000004A8 00000001 00000001 0C 000004AC 00000001 00000001 0C 000004B0 00000001 00000001 0C 000004B4 00000001 00000001 0C 000004B8 00000001 00000001 0C 000004BC 00000001 00000001 0C 000004C0 00000001 00000001 0C 000004C4 00000001 00000001 0C 000004C8 00000001 00000001 0C 000004CC 00000001 00000001 0C 000004D0 00000001 00000001 0C 000004D4 00000001 00000001 0C 000004D8 00000001 00000001 0C 000004DC 00000001 00000001 0C 000004E0 00000001 00000001 0C 000004E4 00000001 00000001 0C 000004E8 00000001 00000001 0C 000004EC 00000001 00000001 0C 000004F0 00000001 00000001 0C 000004F4 00000001 00000001 0C 000004F8 00000001 00000001 0C 000004FC 00000001 00000001 0C 00000500 00000001 00000001 0C 00000504 00000001 00000001 0C 00000508 00000001 00000001 0C 0000050C 00000001 00000001 0C 00000510 00000001 00000001 0C 00000514 00000001 00000001 0C 00000518 00000001 00000001 0C 00000520 00000001 00000001 0C 00000524 00000001 00000001 0C 00000528 00000001 00000001 0C 0000052C 00000001 00000001 0C 00000530 00000001 00000001 0C 00000534 00000001 00000001 0C 00000538 00000001 00000001 0C 0000053C 00000001 00000001 0C 00000540 00000001 00000001 0C 00000544 00000001 00000001 0C 00000548 00000001 00000001 0C 0000054C 00000001 00000001 0C 00000550 00000001 00000001 0C 000005B4 00000001 00000001 0C 000005B8 00000001 00000001 0C 000005C0 00000001 00000001 0C 000005C4 00000001 00000001 0C 000005C8 00000001 00000001 0C 000005CC 00000001 00000001 0C 000005D0 00000001 00000001 0C 000005D4 1STRREA Relocation Dictionary Page 135 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 000005D8 00000001 00000001 0C 000005DC 00000001 00000001 0C 000005E0 00000001 00000001 0C 000005E4 00000001 00000001 0C 000005E8 00000001 00000001 0C 000005EC 00000001 00000001 0C 000005F0 00000001 00000001 0C 000005F4 00000001 00000001 0C 000005F8 00000001 00000001 0C 000005FC 00000001 00000001 0C 00000600 00000001 00000001 0C 00000604 00000001 00000001 0C 00000608 00000001 00000001 0C 0000060C 00000001 00000001 0C 00000610 00000001 00000001 0C 00000614 00000001 00000001 0C 00000618 00000001 00000001 0C 00000628 00000001 00000001 0C 0000062C 00000001 00000001 0C 00000630 00000001 00000001 0C 00000638 00000001 00000001 0C 00000640 00000001 00000001 0C 00000644 00000001 00000001 0C 00000648 00000001 00000001 0C 0000064C 00000001 00000001 0C 00000650 00000001 00000001 0C 00000654 00000001 00000001 0C 00000658 00000001 00000001 0C 0000065C 00000001 00000001 0C 00000660 00000001 00000001 0C 00000664 00000001 00000001 0C 00000668 00000001 00000001 0C 00000670 00000001 00000001 0C 0000067C 00000001 00000001 0C 00000680 00000001 00000001 0C 00000684 00000001 00000001 0C 00000694 00000001 00000001 0C 0000069C 00000001 00000001 0C 000006A8 00000001 00000001 0C 000006B0 00000001 00000001 0C 000006B4 00000001 00000001 0C 000006BC 00000001 00000001 0C 000006C0 00000001 00000001 0C 000006C4 00000001 00000001 0C 000006CC 00000001 00000001 0C 000006D0 00000001 00000001 0C 000006D8 00000001 00000001 0C 000006DC 00000001 00000001 0C 000006E0 00000001 00000001 0C 000006E8 00000001 00000001 0C 000006EC 00000001 00000001 0C 000006F0 00000001 00000001 0C 000006F4 00000001 00000001 0C 00000700 00000001 00000001 0C 00000704 1STRREA Relocation Dictionary Page 136 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000708 00000001 00000001 0C 00000710 00000001 00000001 0C 0000071C 00000001 00000001 0C 00000720 00000001 00000001 0C 00000724 00000001 00000001 0C 00000728 00000001 00000001 0C 0000072C 00000001 00000001 0C 00000730 00000001 00000001 0C 00000734 00000001 00000001 0C 00000738 00000001 00000001 0C 0000073C 00000001 00000001 0C 00000740 00000001 00000001 0C 00000748 00000001 00000001 0C 0000074C 00000001 00000001 0C 00000754 00000001 00000001 0C 0000075C 00000001 00000001 0C 00000760 00000001 00000001 0C 00000768 00000001 00000001 0C 0000076C 00000001 00000001 0C 00000770 00000001 00000001 0C 00000774 00000001 00000001 0C 00000780 00000001 00000001 0C 00000784 00000001 00000001 0C 0000078C 00000001 00000001 0C 00000790 00000001 00000001 0C 00000794 00000001 00000001 0C 00000798 00000001 00000001 0C 0000079C 00000001 00000001 0C 000007A0 00000001 00000001 0C 000007A4 00000001 00000001 0C 000007A8 00000001 00000001 0C 000007AC 00000001 00000001 0C 000007B0 00000001 00000001 0C 000007B4 00000001 00000001 0C 000007B8 00000001 00000001 0C 000007BC 00000001 00000001 0C 000007C0 00000001 00000001 0C 000007C4 00000001 00000001 0C 000007C8 00000001 00000001 0C 000007CC 00000001 00000001 0C 000007D4 00000001 00000001 0C 000007D8 00000001 00000001 0C 000007DC 00000001 00000001 0C 000007E4 00000001 00000001 0C 000007E8 00000001 00000001 0C 000007F4 00000001 00000001 0C 000007F8 00000001 00000001 0C 000007FC 00000001 00000001 0C 00000804 00000001 00000001 0C 0000080C 00000001 00000001 0C 00000810 00000001 00000001 0C 00000818 00000001 00000001 0C 0000081C 00000001 00000001 0C 00000820 00000001 00000001 0C 00000824 1STRREA Relocation Dictionary Page 137 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000828 00000001 00000001 0C 0000082C 00000001 00000001 0C 00000830 00000001 00000001 0C 00000834 00000001 00000001 0C 00000838 00000001 00000001 0C 0000083C 00000001 00000001 0C 00000840 00000001 00000001 0C 00000844 00000001 00000001 0C 0000085C 00000001 00000001 0C 00000864 00000001 00000001 0C 0000086C 00000001 00000001 0C 00000870 00000001 00000001 0C 00000874 00000001 00000001 0C 00000878 00000001 00000001 0C 0000087C 00000001 00000001 0C 00000880 00000001 00000001 0C 00000884 00000001 00000001 0C 00000888 00000001 00000001 0C 0000088C 00000001 00000001 0C 00000890 00000001 00000001 0C 00000894 00000001 00000001 0C 00000898 00000001 00000001 0C 0000089C 00000001 00000001 0C 000008A0 00000001 00000001 0C 000008A4 00000001 00000001 0C 000008A8 00000001 00000001 0C 000008AC 00000001 00000001 0C 000008B0 00000001 00000001 0C 000008B8 00000001 00000001 0C 000008BC 00000001 00000001 0C 000008C0 00000001 00000001 0C 000008D0 00000001 00000001 0C 000008D8 00000001 00000001 0C 000008DC 00000001 00000001 0C 000008E4 00000001 00000001 0C 000008E8 00000001 00000001 0C 000008EC 00000001 00000001 0C 000008F0 00000001 00000001 0C 000008F4 00000001 00000001 0C 00000900 00000001 00000001 0C 00000904 00000001 00000001 0C 00000910 00000001 00000001 0C 00000918 00000001 00000001 0C 00000928 00000001 00000001 0C 0000092C 00000001 00000001 0C 00000930 00000001 00000001 0C 00000934 00000001 00000001 0C 00000938 00000001 00000001 0C 0000093C 00000001 00000001 0C 00000944 00000001 00000001 0C 00000948 00000001 00000001 0C 0000094C 00000001 00000001 0C 00000954 00000001 00000001 0C 00000958 00000001 00000001 0C 0000095C 1STRREA Relocation Dictionary Page 138 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000964 00000001 00000001 0C 00000968 00000001 00000001 0C 0000096C 00000001 00000001 0C 00000978 00000001 00000001 0C 0000097C 00000001 00000001 0C 00000984 00000001 00000001 0C 00000988 00000001 00000001 0C 0000098C 00000001 00000001 0C 00000990 00000001 00000001 0C 00000994 00000001 00000001 0C 00000998 00000001 00000001 0C 0000099C 00000001 00000001 0C 000009A0 00000001 00000001 0C 000009A4 00000001 00000001 0C 000009A8 00000001 00000001 0C 000009AC 00000001 00000001 0C 000009B0 00000001 00000001 0C 000009B4 00000001 00000001 0C 000009B8 00000001 00000001 0C 000009BC 00000001 00000001 0C 000009C0 00000001 00000001 0C 000009C4 00000001 00000001 0C 000009C8 00000001 00000001 0C 000009CC 00000001 00000001 0C 000009D0 00000001 00000001 0C 000009D4 00000001 00000001 0C 000009DC 00000001 00000001 0C 000009E0 00000001 00000001 0C 000009E4 00000001 00000001 0C 000009E8 00000001 00000001 0C 000009EC 00000001 00000001 0C 000009F0 00000001 00000001 0C 000009F4 00000001 00000001 0C 000009F8 00000001 00000001 0C 000009FC 00000001 00000001 0C 00000A00 00000001 00000001 0C 00000A1C 00000001 00000001 0C 00000A20 00000001 00000001 0C 00000A24 00000001 00000001 0C 00000A28 00000001 00000001 0C 00000A2C 00000001 00000001 0C 00000A30 00000001 00000001 0C 00000A34 00000001 00000001 0C 00000A38 00000001 00000001 0C 00000A3C 00000001 00000001 0C 00000A40 00000001 00000001 0C 00000A44 00000001 00000001 0C 00000A48 00000001 00000001 0C 00000A4C 00000001 00000001 0C 00000A50 00000001 00000001 0C 00000A54 00000001 00000001 0C 00000A58 00000001 00000001 0C 00000A5C 00000001 00000001 0C 00000A60 00000001 00000001 0C 00000A64 1STRREA Relocation Dictionary Page 139 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000A68 00000001 00000001 0C 00000A6C 00000001 00000001 0C 00000A70 00000001 00000001 0C 00000A78 00000001 00000001 0C 00000A7C 00000001 00000001 0C 00000A80 00000001 00000001 0C 00000A84 00000001 00000001 0C 00000A88 00000001 00000001 0C 00000A8C 00000001 00000001 0C 00000A90 00000001 00000001 0C 00000A94 00000001 00000001 0C 00000A98 00000001 00000001 0C 00000A9C 00000001 00000001 0C 00000AA0 00000001 00000001 0C 00000AA4 00000001 00000001 0C 00000AA8 00000001 00000001 0C 00000AAC 00000001 00000001 0C 00000AB0 00000001 00000001 0C 00000AB4 00000001 00000001 0C 00000AB8 00000001 00000001 0C 00000ABC 00000001 00000001 0C 00000AC0 00000001 00000001 0C 00000ADC 00000001 00000001 0C 00000AE0 00000001 00000001 0C 00000AE4 00000001 00000001 0C 00000AE8 00000001 00000001 0C 00000AEC 00000001 00000001 0C 00000AF0 00000001 00000001 0C 00000AF4 00000001 00000001 0C 00000AF8 00000001 00000001 0C 00000AFC 00000001 00000001 0C 00000B00 00000001 00000001 0C 00000B04 00000001 00000001 0C 00000B08 00000001 00000001 0C 00000B0C 00000001 00000001 0C 00000B10 00000001 00000001 0C 00000B1C 00000001 00000001 0C 00000B24 00000001 00000001 0C 00000B2C 00000001 00000001 0C 00000B40 00000001 00000001 0C 00000B48 00000001 00000001 0C 00000B4C 00000001 00000001 0C 00000B50 00000001 00000001 0C 00000B54 00000001 00000001 0C 00000B58 00000001 00000001 0C 00000B5C 00000001 00000001 0C 00000B60 00000001 00000001 0C 00000B64 00000001 00000001 0C 00000B68 00000001 00000001 0C 00000B6C 00000001 00000001 0C 00000B70 00000001 00000001 0C 00000B74 00000001 00000001 0C 00000B78 00000001 00000001 0C 00000B80 00000001 00000001 0C 00000B84 1STRREA Relocation Dictionary Page 140 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000B88 00000001 00000001 0C 00000B8C 00000001 00000001 0C 00000B94 00000001 00000001 0C 00000B98 00000001 00000001 0C 00000B9C 00000001 00000001 0C 00000BA0 00000001 00000001 0C 00000BA4 00000001 00000001 0C 00000BA8 00000001 00000001 0C 00000BB0 00000001 00000001 0C 00000BB4 00000001 00000001 0C 00000BB8 00000001 00000001 0C 00000BBC 00000001 00000001 0C 00000BC0 00000001 00000001 0C 00000BC4 00000001 00000001 0C 00000BC8 00000001 00000001 0C 00000BCC 00000001 00000001 0C 00000BD0 00000001 00000001 0C 00000BD4 00000001 00000001 0C 00000BDC 00000001 00000001 0C 00000BE0 00000001 00000001 0C 00000BE4 00000001 00000001 0C 00000BE8 00000001 00000001 0C 00000BFC 00000001 00000001 0C 00000C00 00000001 00000001 0C 00000C0C 00000001 00000001 0C 00000C10 00000001 00000001 0C 00000C14 00000001 00000001 0C 00000C18 00000001 00000001 0C 00000C1C 00000001 00000001 0C 00000C20 00000001 00000001 0C 00000C24 00000001 00000001 0C 00000C28 00000001 00000001 0C 00000C2C 00000001 00000001 0C 00000C30 00000001 00000001 0C 00000C34 00000001 00000001 0C 00000C38 00000001 00000001 0C 00000C3C 00000001 00000001 0C 00000C40 00000001 00000001 0C 00000C44 00000001 00000001 0C 00000C48 00000001 00000001 0C 00000C4C 00000001 00000001 0C 00000C50 00000001 00000001 0C 00000C54 00000001 00000001 0C 00000C58 00000001 00000001 0C 00000C5C 00000001 00000001 0C 00000C60 00000001 00000001 0C 00000C64 00000001 00000001 0C 00000C68 00000001 00000001 0C 00000C6C 00000001 00000001 0C 00000C70 00000001 00000001 0C 00000C74 00000001 00000001 0C 00000C78 00000001 00000001 0C 00000C7C 00000001 00000001 0C 00000C80 00000001 00000001 0C 00000C94 1STRREA Relocation Dictionary Page 141 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000C98 00000001 00000001 0C 00000DE4 00000001 00000001 0C 00000DE8 00000001 00000001 0C 00000DEC 00000001 00000001 0C 00000DF0 00000001 00000001 0C 00000DF4 00000001 00000001 0C 00000DF8 00000001 00000001 0C 00000DFC 00000001 00000001 0C 00000E00 00000001 00000001 0C 00000E04 00000001 00000001 0C 00000E08 00000001 00000001 0C 00000E0C 00000001 00000001 0C 00000E10 00000001 00000001 0C 00000E14 00000001 00000001 0C 00000E18 00000001 00000001 0C 00000E1C 00000001 00000001 0C 00000E20 00000001 00000001 0C 00000E24 00000001 00000001 0C 00000E28 00000001 00000001 0C 00000E2C 00000001 00000001 0C 00000E30 00000001 00000001 0C 00000E34 00000001 00000001 0C 00000E38 00000001 00000001 0C 00000E3C 00000001 00000001 0C 00000E40 00000001 00000001 0C 00000E44 00000001 00000001 0C 00000E48 00000001 00000001 0C 00000E4C 00000001 00000001 0C 00000E50 00000001 00000001 0C 00000E54 00000001 00000001 0C 00000E58 00000001 00000001 0C 00000E5C 00000001 00000001 0C 00000E60 00000001 00000001 0C 00000E64 00000001 00000001 0C 00000E68 00000001 00000001 0C 00000E80 00000001 00000001 0C 00000E84 00000001 00000001 0C 00000E8C 00000001 00000001 0C 00000E90 00000001 00000001 0C 00000E94 00000001 00000001 0C 00000E98 00000001 00000001 0C 00000E9C 00000001 00000001 0C 00000EA0 00000001 00000001 0C 00000EA4 00000001 00000001 0C 00000EA8 00000001 00000001 0C 00000EAC 00000001 00000001 0C 00000EB0 00000001 00000001 0C 00000EB4 00000001 00000001 0C 00000EB8 00000001 00000001 0C 00000EC0 00000001 00000001 0C 00000EC4 00000001 00000001 0C 00000EC8 00000001 00000001 0C 00000ECC 00000001 00000001 0C 00000ED0 00000001 00000001 0C 00000ED4 1STRREA Relocation Dictionary Page 142 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00000ED8 00000001 00000001 0C 00000EDC 00000001 00000001 0C 00000EE8 00000001 00000001 0C 00000EEC 00000001 00000001 0C 00000EF0 00000001 00000001 0C 00000EF4 00000001 00000001 0C 00000EF8 00000001 00000001 0C 00000EFC 00000001 00000001 0C 00000F00 00000001 00000001 0C 00000F04 00000001 00000001 0C 00000F08 00000001 00000001 0C 00000F0C 00000001 00000001 0C 00000F10 00000001 00000001 0C 00000F14 00000001 00000001 0C 00000F18 00000001 00000001 0C 00000F1C 00000001 00000001 0C 00000F20 00000001 00000001 0C 00000F24 00000001 00000001 0C 00000F28 00000001 00000001 0C 00000F48 00000001 00000001 0C 00000F54 00000001 00000001 0C 00000F58 00000001 00000001 0C 00000F5C 00000001 00000001 0C 00000F60 00000001 00000001 0C 00000F6C 00000001 00000001 0C 00000F70 00000001 00000001 0C 00000F74 00000001 00000001 0C 00000F78 00000001 00000001 0C 00000F7C 00000001 00000001 0C 00000F80 00000001 00000001 0C 00000F84 00000001 00000001 0C 00000F88 00000001 00000001 0C 00000F8C 00000001 00000001 0C 00000F90 00000001 00000001 0C 00000F98 00000001 00000001 0C 00000F9C 00000001 00000001 0C 00000FA0 00000001 00000001 0C 00000FD0 00000001 00000001 0C 00000FE0 00000001 00000001 0C 00000FEC 00000001 00000001 0C 00000FF0 00000001 00000001 0C 00000FF4 00000001 00000001 0C 00000FF8 00000001 00000001 0C 00000FFC 00000001 00000001 0C 00001010 00000001 00000001 0C 00001014 00000001 00000001 0C 00001054 00000001 00000001 0C 00001058 00000001 00000001 0C 00001064 00000001 00000001 0C 00001068 00000001 00000001 0C 0000106C 00000001 00000001 0C 00001074 00000001 00000001 0C 00001078 00000001 00000001 0C 0000107C 00000001 00000001 0C 00001080 1STRREA Relocation Dictionary Page 143 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001084 00000001 00000001 0C 00001088 00000001 00000001 0C 0000108C 00000001 00000001 0C 00001090 00000001 00000001 0C 00001094 00000001 00000001 0C 00001098 00000001 00000001 0C 0000109C 00000001 00000001 0C 000010A0 00000001 00000001 0C 000010A4 00000001 00000001 0C 000010A8 00000001 00000001 0C 000010AC 00000001 00000001 0C 000010B0 00000001 00000001 0C 000010B8 00000001 00000001 0C 000010BC 00000001 00000001 0C 000010C0 00000001 00000001 0C 000010C4 00000001 00000001 0C 000010CC 00000001 00000001 0C 000010D0 00000001 00000001 0C 000010D4 00000001 00000001 0C 000010D8 00000001 00000001 0C 000010E0 00000001 00000001 0C 000010E4 00000001 00000001 0C 00001104 00000001 00000001 0C 00001108 00000001 00000001 0C 0000110C 00000001 00000001 0C 00001114 00000001 00000001 0C 00001118 00000001 00000001 0C 0000111C 00000001 00000001 0C 00001120 00000001 00000001 0C 00001124 00000001 00000001 0C 00001128 00000001 00000001 0C 0000112C 00000001 00000001 0C 00001134 00000001 00000001 0C 00001138 00000001 00000001 0C 0000113C 00000001 00000001 0C 00001140 00000001 00000001 0C 00001144 00000001 00000001 0C 00001148 00000001 00000001 0C 00001150 00000001 00000001 0C 00001154 00000001 00000001 0C 00001158 00000001 00000001 0C 0000115C 00000001 00000001 0C 00001160 00000001 00000001 0C 00001164 00000001 00000001 0C 00001168 00000001 00000001 0C 0000116C 00000001 00000001 0C 00001178 00000001 00000001 0C 0000117C 00000001 00000001 0C 00001180 00000001 00000001 0C 00001184 00000001 00000001 0C 00001188 00000001 00000001 0C 0000118C 00000001 00000001 0C 00001190 00000001 00000001 0C 00001194 00000001 00000001 0C 00001198 1STRREA Relocation Dictionary Page 144 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 0000119C 00000001 00000001 0C 000011A0 00000001 00000001 0C 000011A4 00000001 00000001 0C 000011A8 00000001 00000001 0C 000011AC 00000001 00000001 0C 000011B0 00000001 00000001 0C 000011B4 00000001 00000001 0C 000011B8 00000001 00000001 0C 000011BC 00000001 00000001 0C 000011C0 00000001 00000001 0C 000011C4 00000001 00000001 0C 000011C8 00000001 00000001 0C 000011CC 00000001 00000001 0C 000011D0 00000001 00000001 0C 000011D4 00000001 00000001 0C 000011D8 00000001 00000001 0C 000011E4 00000001 00000001 0C 000011E8 00000001 00000001 0C 000011EC 00000001 00000001 0C 000011F0 00000001 00000001 0C 000011F4 00000001 00000001 0C 000011F8 00000001 00000001 0C 00001200 00000001 00000001 0C 00001204 00000001 00000001 0C 00001208 00000001 00000001 0C 00001210 00000001 00000001 0C 00001214 00000001 00000001 0C 00001218 00000001 00000001 0C 00001220 00000001 00000001 0C 00001224 00000001 00000001 0C 00001228 00000001 00000001 0C 0000122C 00000001 00000001 0C 00001230 00000001 00000001 0C 00001234 00000001 00000001 0C 00001238 00000001 00000001 0C 0000123C 00000001 00000001 0C 00001240 00000001 00000001 0C 00001244 00000001 00000001 0C 00001248 00000001 00000001 0C 0000124C 00000001 00000001 0C 00001250 00000001 00000001 0C 00001254 00000001 00000001 0C 00001258 00000001 00000001 0C 0000125C 00000001 00000001 0C 00001260 00000001 00000001 0C 00001264 00000001 00000001 0C 00001268 00000001 00000001 0C 0000126C 00000001 00000001 0C 00001270 00000001 00000001 0C 00001274 00000001 00000001 0C 00001278 00000001 00000001 0C 0000127C 00000001 00000001 0C 00001280 00000001 00000001 0C 00001284 00000001 00000001 0C 00001288 1STRREA Relocation Dictionary Page 145 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 0000128C 00000001 00000001 0C 00001290 00000001 00000001 0C 00001294 00000001 00000001 0C 000012B8 00000001 00000001 0C 000012BC 00000001 00000001 0C 000012C0 00000001 00000001 0C 000012C4 00000001 00000001 0C 000012C8 00000001 00000001 0C 000012CC 00000001 00000001 0C 000012D0 00000001 00000001 0C 000012D4 00000001 00000001 0C 000012D8 00000001 00000001 0C 000012DC 00000001 00000001 0C 000012E0 00000001 00000001 0C 000012E4 00000001 00000001 0C 000012E8 00000001 00000001 0C 000012EC 00000001 00000001 0C 000012F0 00000001 00000001 0C 000012F4 00000001 00000001 0C 000012F8 00000001 00000001 0C 000012FC 00000001 00000001 0C 00001300 00000001 00000001 0C 00001304 00000001 00000001 0C 00001308 00000001 00000001 0C 0000130C 00000001 00000001 0C 00001310 00000001 00000001 0C 00001314 00000001 00000001 0C 00001318 00000001 00000001 0C 0000131C 00000001 00000001 0C 00001320 00000001 00000001 0C 00001324 00000001 00000001 0C 00001328 00000001 00000001 0C 0000132C 00000001 00000001 0C 00001330 00000001 00000001 0C 00001334 00000001 00000001 0C 00001338 00000001 00000001 0C 0000133C 00000001 00000001 0C 00001340 00000001 00000001 0C 00001344 00000001 00000001 0C 00001348 00000001 00000001 0C 0000134C 00000001 00000001 0C 00001350 00000001 00000001 0C 00001354 00000001 00000001 0C 00001358 00000001 00000001 0C 0000135C 00000001 00000001 0C 00001360 00000001 00000001 0C 00001364 00000001 00000001 0C 00001368 00000001 00000001 0C 0000136C 00000001 00000001 0C 00001370 00000001 00000001 0C 00001374 00000001 00000001 0C 00001378 00000001 00000001 0C 0000137C 00000001 00000001 0C 00001380 00000001 00000001 0C 00001384 1STRREA Relocation Dictionary Page 146 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001388 00000001 00000001 0C 0000138C 00000001 00000001 0C 00001390 00000001 00000001 0C 00001394 00000001 00000001 0C 00001398 00000001 00000001 0C 0000139C 00000001 00000001 0C 000013A0 00000001 00000001 0C 000013A4 00000001 00000001 0C 000013A8 00000001 00000001 0C 000013AC 00000001 00000001 0C 000013B0 00000001 00000001 0C 000013B4 00000001 00000001 0C 000013B8 00000001 00000001 0C 000013BC 00000001 00000001 0C 000013C0 00000001 00000001 0C 000013C4 00000001 00000001 0C 000013C8 00000001 00000001 0C 000013CC 00000001 00000001 0C 000013D0 00000001 00000001 0C 000013D4 00000001 00000001 0C 000013D8 00000001 00000001 0C 000013DC 00000001 00000001 0C 000013E0 00000001 00000001 0C 000013E4 00000001 00000001 0C 000013E8 00000001 00000001 0C 000013EC 00000001 00000001 0C 000013F0 00000001 00000001 0C 000013F4 00000001 00000001 0C 000013F8 00000001 00000001 0C 000013FC 00000001 00000001 0C 00001400 00000001 00000001 0C 00001404 00000001 00000001 0C 0000140C 00000001 00000001 0C 00001410 00000001 00000001 0C 00001414 00000001 00000001 0C 00001418 00000001 00000001 0C 0000141C 00000001 00000001 0C 00001420 00000001 00000001 0C 00001424 00000001 00000001 0C 00001428 00000001 00000001 0C 0000142C 00000001 00000001 0C 00001430 00000001 00000001 0C 00001434 00000001 00000001 0C 00001438 00000001 00000001 0C 0000143C 00000001 00000001 0C 00001440 00000001 00000001 0C 00001444 00000001 00000001 0C 00001448 00000001 00000001 0C 0000144C 00000001 00000001 0C 00001450 00000001 00000001 0C 00001454 00000001 00000001 0C 00001458 00000001 00000001 0C 0000145C 00000001 00000001 0C 00001460 00000001 00000001 0C 00001464 1STRREA Relocation Dictionary Page 147 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001468 00000001 00000001 0C 0000146C 00000001 00000001 0C 00001470 00000001 00000001 0C 00001474 00000001 00000001 0C 00001478 00000001 00000001 0C 0000147C 00000001 00000001 0C 00001480 00000001 00000001 0C 00001484 00000001 00000001 0C 00001488 00000001 00000001 0C 0000148C 00000001 00000001 0C 00001490 00000001 00000001 0C 00001494 00000001 00000001 0C 00001498 00000001 00000001 0C 0000149C 00000001 00000001 0C 000014A0 00000001 00000001 0C 000014A4 00000001 00000001 0C 000014A8 00000001 00000001 0C 000014AC 00000001 00000001 0C 000014B0 00000001 00000001 0C 000014B4 00000001 00000001 0C 000014B8 00000001 00000001 0C 000014BC 00000001 00000001 0C 000014C0 00000001 00000001 0C 000014C4 00000001 00000001 0C 000014CC 00000001 00000001 0C 000014D0 00000001 00000001 0C 000014D4 00000001 00000001 0C 000014D8 00000001 00000001 0C 000014DC 00000001 00000001 0C 000014E0 00000001 00000001 0C 000014E4 00000001 00000001 0C 000014E8 00000001 00000001 0C 000014F0 00000001 00000001 0C 000014F4 00000001 00000001 0C 000014F8 00000001 00000001 0C 000014FC 00000001 00000001 0C 00001500 00000001 00000001 0C 00001504 00000001 00000001 0C 00001508 00000001 00000001 0C 0000150C 00000001 00000001 0C 00001510 00000001 00000001 0C 00001514 00000001 00000001 0C 00001518 00000001 00000001 0C 0000151C 00000001 00000001 0C 00001520 00000001 00000001 0C 00001524 00000001 00000001 0C 00001528 00000001 00000001 0C 0000152C 00000001 00000001 0C 00001534 00000001 00000001 0C 00001538 00000001 00000001 0C 0000153C 00000001 00000001 0C 00001540 00000001 00000001 0C 00001544 00000001 00000001 0C 00001548 00000001 00000001 0C 0000154C 1STRREA Relocation Dictionary Page 148 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001550 00000001 00000001 0C 00001554 00000001 00000001 0C 00001558 00000001 00000001 0C 0000155C 00000001 00000001 0C 00001560 00000001 00000001 0C 00001564 00000001 00000001 0C 00001568 00000001 00000001 0C 0000156C 00000001 00000001 0C 00001570 00000001 00000001 0C 00001574 00000001 00000001 0C 00001578 00000001 00000001 0C 00001BDC 00000001 00000001 0C 00001BE0 00000001 00000001 0C 00001BE4 00000001 00000001 0C 00001BE8 00000001 00000001 0C 00001BEC 00000001 00000001 0C 00001BF0 00000001 00000001 0C 00001BF4 00000001 00000001 0C 00001BF8 00000001 00000001 0C 00001BFC 00000001 00000001 0C 00001C00 00000001 00000001 0C 00001C04 00000001 00000001 0C 00001C08 00000001 00000001 0C 00001C0C 00000001 00000001 0C 00001C10 00000001 00000001 0C 00001C14 00000001 00000001 0C 00001C18 00000001 00000001 0C 00001C1C 00000001 00000001 0C 00001C20 00000001 00000001 0C 00001C24 00000001 00000001 0C 00001C28 00000001 00000001 0C 00001C2C 00000001 00000001 0C 00001C30 00000001 00000001 0C 00001C34 00000001 00000001 0C 00001C38 00000001 00000001 0C 00001C3C 00000001 00000001 0C 00001C40 00000001 00000001 0C 00001C44 00000001 00000001 0C 00001C48 00000001 00000001 0C 00001C4C 00000001 00000001 0C 00001C50 00000001 00000001 0C 00001C54 00000001 00000001 0C 00001C58 00000001 00000001 0C 00001C5C 00000001 00000001 0C 00001C60 00000001 00000001 0C 00001C64 00000001 00000001 0C 00001C68 00000001 00000001 0C 00001C6C 00000001 00000001 0C 00001C70 00000001 00000001 0C 00001C74 00000001 00000001 0C 00001C78 00000001 00000001 0C 00001C7C 00000001 00000001 0C 00001C80 00000001 00000001 0C 00001C84 00000001 00000001 0C 00001C88 1STRREA Relocation Dictionary Page 149 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001C8C 00000001 00000001 0C 00001C90 00000001 00000001 0C 00001C94 00000001 00000001 0C 00001C98 00000001 00000001 0C 00001C9C 00000001 00000001 0C 00001CA0 00000001 00000001 0C 00001CA4 00000001 00000001 0C 00001CA8 00000001 00000001 0C 00001CAC 00000001 00000001 0C 00001CB0 00000001 00000001 0C 00001CB4 00000001 00000001 0C 00001CB8 00000001 00000001 0C 00001CBC 00000001 00000001 0C 00001CC0 00000001 00000001 0C 00001CC4 00000001 00000001 0C 00001CC8 00000001 00000001 0C 00001CCC 00000001 00000001 0C 00001CD0 00000001 00000001 0C 00001CD4 00000001 00000001 0C 00001CD8 00000001 00000001 0C 00001CDC 00000001 00000001 0C 00001CE0 00000001 00000001 0C 00001CE4 00000001 00000001 0C 00001CE8 00000001 00000001 0C 00001CEC 00000001 00000001 0C 00001CF0 00000001 00000001 0C 00001CF4 00000001 00000001 0C 00001CF8 00000001 00000001 0C 00001CFC 00000001 00000001 0C 00001D00 00000001 00000001 0C 00001D04 00000001 00000001 0C 00001D08 00000001 00000001 0C 00001D0C 00000001 00000001 0C 00001D10 00000001 00000001 0C 00001D14 00000001 00000001 0C 00001D18 00000001 00000001 0C 00001D1C 00000001 00000001 0C 00001D20 00000001 00000001 0C 00001D24 00000001 00000001 0C 00001D28 00000001 00000001 0C 00001D2C 00000001 00000001 0C 00001D30 00000001 00000001 0C 00001D34 00000001 00000001 0C 00001D38 00000001 00000001 0C 00001D3C 00000001 00000001 0C 00001D40 00000001 00000001 0C 00001D44 00000001 00000001 0C 00001D48 00000001 00000001 0C 00001D4C 00000001 00000001 0C 00001D50 00000001 00000001 0C 00001D54 00000001 00000001 0C 00001D58 00000001 00000001 0C 00001D5C 00000001 00000001 0C 00001D60 00000001 00000001 0C 00001D64 1STRREA Relocation Dictionary Page 150 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001D68 00000001 00000001 0C 00001D6C 00000001 00000001 0C 00001D70 00000001 00000001 0C 00001D74 00000001 00000001 0C 00001D78 00000001 00000001 0C 00001D7C 00000001 00000001 0C 00001D80 00000001 00000001 0C 00001D84 00000001 00000001 0C 00001D88 00000001 00000001 0C 00001D8C 00000001 00000001 0C 00001D90 00000001 00000001 0C 00001D94 00000001 00000001 0C 00001D98 00000001 00000001 0C 00001D9C 00000001 00000001 0C 00001DA0 00000001 00000001 0C 00001DA4 00000001 00000001 0C 00001DA8 00000001 00000001 0C 00001DAC 00000001 00000001 0C 00001DB0 00000001 00000001 0C 00001DB4 00000001 00000001 0C 00001DB8 00000001 00000001 0C 00001DBC 00000001 00000001 0C 00001DC0 00000001 00000001 0C 00001DC4 00000001 00000001 0C 00001DC8 00000001 00000001 0C 00001DCC 00000001 00000001 0C 00001DD0 00000001 00000001 0C 00001DD4 00000001 00000001 0C 00001DD8 00000001 00000001 0C 00001DDC 00000001 00000001 0C 00001DE0 00000001 00000001 0C 00001DE4 00000001 00000001 0C 00001DE8 00000001 00000001 0C 00001DEC 00000001 00000001 0C 00001DF0 00000001 00000001 0C 00001DF4 00000001 00000001 0C 00001DF8 00000001 00000001 0C 00001DFC 00000001 00000001 0C 00001E00 00000001 00000001 0C 00001E04 00000001 00000001 0C 00001E08 00000001 00000001 0C 00001E0C 00000001 00000001 0C 00001E10 00000001 00000001 0C 00001E14 00000001 00000001 0C 00001E18 00000001 00000001 0C 00001E1C 00000001 00000001 0C 00001E20 00000001 00000001 0C 00001E24 00000001 00000001 0C 00001E28 00000001 00000001 0C 00001E2C 00000001 00000001 0C 00001E30 00000001 00000001 0C 00001E34 00000001 00000001 0C 00001E38 00000001 00000001 0C 00001E3C 00000001 00000001 0C 00001E40 1STRREA Relocation Dictionary Page 151 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001E44 00000001 00000001 0C 00001E48 00000001 00000001 0C 00001E4C 00000001 00000001 0C 00001E50 00000001 00000001 0C 00001E54 00000001 00000001 0C 00001E58 00000001 00000001 0C 00001E5C 00000001 00000001 0C 00001E60 00000001 00000001 0C 00001E64 00000001 00000001 0C 00001E68 00000001 00000001 0C 00001E6C 00000001 00000001 0C 00001E70 00000001 00000001 0C 00001E74 00000001 00000001 0C 00001E78 00000001 00000001 0C 00001E7C 00000001 00000001 0C 00001E80 00000001 00000001 0C 00001E84 00000001 00000001 0C 00001E88 00000001 00000001 0C 00001E8C 00000001 00000001 0C 00001E90 00000001 00000001 0C 00001E94 00000001 00000001 0C 00001E98 00000001 00000001 0C 00001E9C 00000001 00000001 0C 00001EA0 00000001 00000001 0C 00001EA4 00000001 00000001 0C 00001EA8 00000001 00000001 0C 00001EAC 00000001 00000001 0C 00001EB0 00000001 00000001 0C 00001EB4 00000001 00000001 0C 00001EB8 00000001 00000001 0C 00001EBC 00000001 00000001 0C 00001EC0 00000001 00000001 0C 00001EC4 00000001 00000001 0C 00001EC8 00000001 00000001 0C 00001ECC 00000001 00000001 0C 00001ED0 00000001 00000001 0C 00001ED4 00000001 00000001 0C 00001ED8 00000001 00000001 0C 00001EDC 00000001 00000001 0C 00001EE0 00000001 00000001 0C 00001EE4 00000001 00000001 0C 00001EE8 00000001 00000001 0C 00001EEC 00000001 00000001 0C 00001EF0 00000001 00000001 0C 00001EF4 00000001 00000001 0C 00001EF8 00000001 00000001 0C 00001EFC 00000001 00000001 0C 00001F00 00000001 00000001 0C 00001F04 00000001 00000001 0C 00001F08 00000001 00000001 0C 00001F0C 00000001 00000001 0C 00001F10 00000001 00000001 0C 00001F14 00000001 00000001 0C 00001F18 00000001 00000001 0C 00001F1C 1STRREA Relocation Dictionary Page 152 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001F20 00000001 00000001 0C 00001F24 00000001 00000001 0C 00001F28 00000001 00000001 0C 00001F2C 00000001 00000001 0C 00001F30 00000001 00000001 0C 00001F34 00000001 00000001 0C 00001F38 00000001 00000001 0C 00001F3C 00000001 00000001 0C 00001F40 00000001 00000001 0C 00001F44 00000001 00000001 0C 00001F48 00000001 00000001 0C 00001F4C 00000001 00000001 0C 00001F50 00000001 00000001 0C 00001F54 00000001 00000001 0C 00001F58 00000001 00000001 0C 00001F5C 00000001 00000001 0C 00001F60 00000001 00000001 0C 00001F64 00000001 00000001 0C 00001F68 00000001 00000001 0C 00001F6C 00000001 00000001 0C 00001F70 00000001 00000001 0C 00001F74 00000001 00000001 0C 00001F78 00000001 00000001 0C 00001F7C 00000001 00000001 0C 00001F80 00000001 00000001 0C 00001F84 00000001 00000001 0C 00001F88 00000001 00000001 0C 00001F8C 00000001 00000001 0C 00001F90 00000001 00000001 0C 00001F94 00000001 00000001 0C 00001F98 00000001 00000001 0C 00001F9C 00000001 00000001 0C 00001FA0 00000001 00000001 0C 00001FA4 00000001 00000001 0C 00001FA8 00000001 00000001 0C 00001FAC 00000001 00000001 0C 00001FB0 00000001 00000001 0C 00001FB4 00000001 00000001 0C 00001FB8 00000001 00000001 0C 00001FBC 00000001 00000001 0C 00001FC0 00000001 00000001 0C 00001FC4 00000001 00000001 0C 00001FC8 00000001 00000001 0C 00001FCC 00000001 00000001 0C 00001FD0 00000001 00000001 0C 00001FD4 00000001 00000001 0C 00001FD8 00000001 00000001 0C 00001FDC 00000001 00000001 0C 00001FE0 00000001 00000001 0C 00001FE4 00000001 00000001 0C 00001FE8 00000001 00000001 0C 00001FEC 00000001 00000001 0C 00001FF0 00000001 00000001 0C 00001FF4 00000001 00000001 0C 00001FF8 1STRREA Relocation Dictionary Page 153 - Pos.Id Rel.Id Flags Address HLASM R4.0 2006/09/01 12.09 0 00000001 00000001 0C 00001FFC 00000001 00000001 0C 00002000 00000001 00000001 0C 00002004 00000001 00000001 0C 00002008 00000001 00000001 0C 0000200C 00000001 00000001 0C 00002010 00000001 00000001 0C 00002014 00000001 00000001 0C 00002018 00000001 00000002 1C 000000A0 1STRREA Ordinary Symbol and Literal Cross Reference Page 154 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0ETAB 4 000001DC 00000001 A 173 166 189 194 200 205 210 215 220 225 231 237 243 248 253 258 263 269 275 280 285 291 296 301 306 311 316 321 326 331 336 341 347 352 357 363 368 373 379 384 389 394 399 405 411 417 423 428 434 440 446 451 456 461 466 471 477 483 489 495 501 507 513 518 524 530 535 540 545 550 556 561 567 573 579 585 590 595 601 607 613 619 625 630 635 641 646 652 658 664 670 675 680 685 690 696 702 708 714 720 725 730 735 740 745 750 756 761 766 772 778 783 789 795 800 805 811 816 821 826 832 837 842 848 856 862 869 876 883 890 897 903 909 915 921 928 934 940 946 951 958 965 971 977 983 988 994 1000 1006 1011 1019 1025 1032 1038 1044 1050 1056 1061 1066 1072 1077 1082 1087 1092 1098 1104 1110 1116 1122 1127 1133 1138 1144 1150 1156 1161 1167 1173 1179 1184 1190 1196 1202 1208 1213 1219 1225 1231 1236 1242 1247 1253 1259 1265 1271 1277 1282 1288 1293 1298 1304 1309 1315 1320 1326 1331 1336 1344 1349 1355 1361 1367 1373 1378 1384 1390 1396 1402 1408 1413 1419 1425 1431 1437 1443 1449 1454 1459 1465 1471 1477 1483 1489 1495 1501 1507 1512 1518 1524 1530 1536 1542 1548 1553 1559 1564 1569 1574 1580 1586 1592 1598 1603 1609 1615 1620 1626 1632 1637 1643 1649 1654 1660 1666 1672 1677 1682 1687 1692 1697 1703 1708 1713 1718 1723 1728 1733 1738 1743 1748 1753 1759 1765 1771 1777 1782 1787 1792 1798 1803 1809 1814 1819 1825 1830 1836 1842 1848 1854 1860 1866 1872 1878 1884 1890 1896 1902 1908 1914 1920 1926 1932 1937 1943 1949 1955 1961 1967 1972 1977 1982 1988 1994 1999 2004 2009 2015 2020 2026 2032 2037 2043 2049 2054 2060 2066 2072 2078 2084 2089 2095 2101 2107 2113 2118 2123 2128 2134 2140 2146 2152 2158 2163 2168 2173 2178 2184 2190 2196 2201 2206 2212 2218 2224 2230 2236 2241 2247 2253 2258 2264 2270 2276 2282 2288 2294 2300 2306 2312 2318 2324 2330 2336 2342 2348 2353 2359 2365 2370 2376 2381 2387 2392 2397 2402 2407 2412 2418 2424 2430 2435 2440 2445 2450 2455 2460 2466 2472 2477 2482 2488 2494 2500 2506 2511 2516 2521 2526 2532 2538 2543 2549 2555 2560 2567 2573 2580 2586 2591 2596 2602 2608 2614 2621 2627 2633 2641 2647 2653 2659 2665 2670 2675 2680 2686 2691 2697 2703 2709 2714 2719 2725 2731 2737 2742 2748 2754 2759 2765 2771 2778 2783 2788 2795 2800 2806 2812 2818 2823 2829 2835 2841 2847 2852 2859 2867 2873 2880 2887 2893 2899 2904 2910 2916 2922 2928 2934 2940 2946 2951 2956 2961 2968 2974 2981 2987 2993 2999 3005 3011 3017 3022 3028 3033 3039 3044 3050 3056 3062 3068 3074 3079 3085 3091 3097 3103 3109 3115 3122 3128 3134 3142 3149 3155 3161 3167 3173 3179 3185 3191 3196 3202 3208 3213 3219 3224 3229 3236 3242 3249 3256 3262 3268 3274 3280 3286 3292 3297 3303 3309 3314 1STRREA Ordinary Symbol and Literal Cross Reference Page 155 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 3320 3326 3332 3338 3343 3349 3355 3361 3366 3371 3378 3383 3389 3396 3402 3408 3414 3419 3425 3431 3437 3443 3448 3454 3459 3466 3473 3480 3487 3494 3501 3507 3512 3517 3523 3529 3535 3540 3545 3550 3556 3561 3567 3575 3580 3586 3592 3597 3603 3609 3615 3621 3626 3633 3639 3646 3653 3658 3664 3671 3677 3684 3689 3695 3700 3706 3713 3719 3725 3730 3735 3740 3746 3752 3757 3764 3770 3776 3782 3787 3792 3798 3803 3808 3813 3818 3823 3829 3835 3841 3847 3853 3859 3864 3869 3874 3879 3884 3889 3894 3899 3904 3909 3914 3919 3924 3930 3935 3941 3947 3954 3960 3965 3971 3977 3983 3988 3994 4000 4005 4011 4016 4022 4028 4034 4040 4047 4054 4060 4065 4071 4077 4082 4087 4092 4097 4103 4109 4115 4122 4130 4137 4143 4149 4155 4162 4170 4177 4184 4190 4196 4202 4209 4214 4220 4226 4232 4239 4244 4249 4255 4261 4266 4272 4277 4282 4288 4293 4299 4305 4311 4316 4322 4327 4332 4338 4343 4348 4353 4358 4364 4369 4375 4381 4386 4392 4398 4403 4409 4414 4420 4427 4433 4438 4443 4449 4456 4462 4468 4473 4479 4487 4493 4500 4507 4513 4521 4526 4531 4537 4543 4549 4555 4562 4568 4574 4579 4585 4592 4599 4605 4611 4618 4626 4632 4639 4645 4651 4657 4663 4669 4675 4681 4687 4693 4700 4706 4712 4718 4724 4730 4736 4742 4748 4754 4760 4766 4772 4780 4786 4792 4797 4803 4809 4816 4823 4830 4836 4842 4847 4853 4858 4863 4868 4873 4879 4885 4892 4899 4906 4912 4917 4922 4927 4932 4939 4945 4951 4956 4961 4966 4971 4976 4981 4987 4993 4999 5005 5011 5017 5023 5028 5033 5038 5045 5051 5057 5062 5067 5072 5078 5084 5090 5096 5103 5110 5118 5126 5133 5140 5146 5152 5159 5165 5173 5180 5185 5191 5197 5203 5209 5215 5220 5226 5232 5238 5243 5248 5254 5260 5265 5271 5277 5283 5289 5295 5302 5308 ETAB2 4 000018FC 00000001 A 175 169 5325 5331 5337 5343 5348 5353 5358 5363 5369 5375 5381 5387 5393 5399 5404 5410 5416 5422 5428 5434 5439 5444 5449 5454 5459 5464 5469 5474 5479 5484 5489 5494 5499 5504 5510 5515 5520 5525 5530 5535 5540 5545 5551 5557 5562 5568 5574 5580 5586 5592 5598 5604 5610 5615 5620 5626 5631 5636 5641 5646 5651 5656 5661 5666 5671 5676 5682 5687 5692 5697 5702 5708 5713 5719 5725 5730 5735 5740 5746 5751 5756 5761 5766 5772 5778 5784 5790 5796 5802 5807 5813 5818 5823 5828 5834 5840 5845 5851 5857 5863 5868 5873 5878 5883 5888 5894 5900 5906 5912 5918 5924 5930 5935 5940 5945 5950 5955 5961 5967 5973 5979 5985 5991 5997 6003 6009 6015 6021 6026 6031 6038 6044 6050 6056 6062 6068 6074 6080 6086 6093 6099 6105 6110 6116 6122 6128 6134 6140 6146 6152 6158 6164 6170 6176 6182 6187 6193 6199 6204 6209 6214 6219 6224 6229 6234 6239 6244 6249 6254 6259 6265 6270 6275 6280 6285 6290 6296 6301 6306 6311 6316 6321 6326 6331 6336 6341 6346 6351 6356 6361 6366 6371 6376 6381 6386 6391 6396 6401 6407 6412 6417 6423 6428 6433 6438 6443 6448 6453 6458 1STRREA Ordinary Symbol and Literal Cross Reference Page 156 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 6463 6468 6473 6478 6483 6488 6493 6498 6503 6508 6513 6518 6523 6528 6533 6538 6543 6549 6555 6561 6567 6573 6579 6585 6590 6595 6601 6607 6613 6619 6625 6630 6635 6640 6645 6650 6655 6661 6666 6671 6677 6682 6687 6692 6697 6702 6708 6713 6718 6723 6729 6735 6741 6747 6753 6759 6766 6772 6778 6785 6791 6797 6803 FINDNUL 16 000000BC 00000001 X 141 113 JRACCEPT 1 00000213 FFFFFFFE A U 7921 2247 JRACCESS 1 0000014B FFFFFFFE A U 7581 1408 JRACCESSUNDEFINED 1 000000D7 FFFFFFFE A U 7414 1006 JRACKLENFAILURE 1 00007200 FFFFFFFE A U 9445 5325 JRACTACCEPTUSERID 1 00000489 FFFFFFFE A U 9119 4772 JRACTIVEPROCESS 1 000000B9 FFFFFFFE A U 7318 826 JRACTIVETHREADS 1 00000140 FFFFFFFE A U 7562 1361 JRADDRESSNOTAVAILABLE 1 00000349 FFFFFFFE A U 8422 3349 JRAFNOTSUPPORTED 1 0000721E FFFFFFFE A U 9508 5489 JRAFOPNOTSUPPORTED 1 0000730A FFFFFFFE A U 9982 6772 JRALLFILESNOTCLOSED 1 000001D6 FFFFFFFE A U 7807 1977 JRALREADYACTIVE 1 00000497 FFFFFFFE A U 9176 4853 JRALREADYBOUND 1 00007202 FFFFFFFE A U 9451 5337 JRALREADYCONN 1 00000444 FFFFFFFE A U 8894 4353 JRALREADYDETACHED 1 000001DB FFFFFFFE A U 7816 1999 JRALREADYINPROGRESS 1 000003EC FFFFFFFE A U 8682 3914 JRALREADYJOINED 1 000001E0 FFFFFFFE A U 7825 2020 JRALREADYPTEXITED 1 000001E7 FFFFFFFE A U 7834 2043 JRALREADYREGISTERED 1 00000233 FFFFFFFE A U 7987 2424 JRALREADYSETUP 1 00000208 FFFFFFFE A U 7908 2218 JRALREADYSIGSETUP 1 00000201 FFFFFFFE A U 7894 2178 JRALREADYTERMINATED 1 000001E8 FFFFFFFE A U 7837 2049 JRANR 1 00000463 FFFFFFFE A U 8986 4537 JRAPFAUTHCHANGE 1 00000244 FFFFFFFE A U 8009 2482 JRAPFNOTAUTHORIZED 1 0000041A FFFFFFFE A U 8790 4155 1STRREA Ordinary Symbol and Literal Cross Reference Page 157 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRAPPCCHECKSTATE 1 0000004A FFFFFFFE A U 7136 373 JRAPPCERRACCEPT 1 00000017 FFFFFFFE A U 7075 220 JRAPPCERRALLOC 1 00000014 FFFFFFFE A U 7069 205 JRAPPCERRRECV 1 00000016 FFFFFFFE A U 7073 215 JRAPPCERRRECVINCOMP 1 00000120 FFFFFFFE A U 7519 1253 JRAPPCERRSEND 1 00000015 FFFFFFFE A U 7071 210 JRAPPLDATALENERR 1 000003DB FFFFFFFE A U 8653 3841 JRARPSVALREADYDEFINED 1 00007280 FFFFFFFE A U 9713 6026 JRARPSVINUSE 1 0000727C FFFFFFFE A U 9702 6003 JRARPSVMULT 1 00007269 FFFFFFFE A U 9659 5894 JRARPSVNOTDEFINED 1 00007273 FFFFFFFE A U 9677 5950 JRASYNCAUTHERR 1 000003F8 FFFFFFFE A U 8714 3983 JRASYNCBADAIOCBLEN 1 000003FE FFFFFFFE A U 8725 4016 JRASYNCBADCMD 1 000003FB FFFFFFFE A U 8720 4000 JRASYNCBADMSGHDRLEN 1 000003FA FFFFFFFE A U 8718 3994 JRASYNCBADNOTIFYTYPE 1 000003FC FFFFFFFE A U 8722 4005 JRASYNCBADOFFSET 1 000003FD FFFFFFFE A U 8724 4011 JRASYNCBADSIGNO 1 00000416 FFFFFFFE A U 8779 4130 JRASYNCBADSOCKADDR 1 000003FF FFFFFFFE A U 8727 4022 JRASYNCEXITMODETCB 1 00000414 FFFFFFFE A U 8768 4115 JRASYNCHMOUNT 1 00000350 FFFFFFFE A U 8440 3389 JRASYNCNOTSINGLETD 1 00000404 FFFFFFFE A U 8735 4040 JRASYNCOPNOTSUPP 1 00000415 FFFFFFFE A U 8772 4122 JRASYNCRWLENZERO 1 000003F9 FFFFFFFE A U 8716 3988 JRASYNCSIGKEY0ERR 1 00000413 FFFFFFFE A U 8765 4109 JRATTEMPTSEXHAUSTED 1 000004AF FFFFFFFE A U 9246 4987 JRAUDIT 1 000000AE FFFFFFFE A U 7301 778 JRAUTHCALLER 1 000003AC FFFFFFFE A U 8561 3639 1STRREA Ordinary Symbol and Literal Cross Reference Page 158 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRBADADDRESS 1 0000012E FFFFFFFE A U 7539 1298 JRBADAIOECB 1 00000486 FFFFFFFE A U 9108 4754 JRBADALET 1 0000018D FFFFFFFE A U 7699 1692 JRBADARGCOUNT 1 000000BF FFFFFFFE A U 7341 862 JRBADAUDITOPTION 1 00000150 FFFFFFFE A U 7585 1419 JRBADBLKADDR 1 000004CC FFFFFFFE A U 9346 5152 JRBADBODYLENGTH 1 000004DE FFFFFFFE A U 9401 5254 JRBADBUFLEN 1 000003BE FFFFFFFE A U 8606 3735 JRBADCOMBO 1 000004AB FFFFFFFE A U 9234 4966 JRBADENTRYCODE 1 00000086 FFFFFFFE A U 7249 646 JRBADEXITSTATUSADDR 1 00000141 FFFFFFFE A U 7566 1367 JRBADFDLIST 1 0000032D FFFFFFFE A U 8352 3202 JRBADHANDLE 1 0000043C FFFFFFFE A U 8875 4311 JRBADID 1 000003D2 FFFFFFFE A U 8635 3798 JRBADIDTYPE 1 00000370 FFFFFFFE A U 8505 3512 JRBADINPUTVALUE 1 000000C0 FFFFFFFE A U 7346 869 JRBADIOCTLTOIF 1 0000725E FFFFFFFE A U 9636 5834 JRBADIPADDR 1 00000429 FFFFFFFE A U 8845 4249 JRBADMAXSENDRCVSIZE 1 0000043A FFFFFFFE A U 8868 4299 JRBADMTUSIZE 1 0000042C FFFFFFFE A U 8852 4266 JRBADMVSPGMNAME 1 000003B0 FFFFFFFE A U 8573 3664 JRBADOPTIONS 1 00000371 FFFFFFFE A U 8506 3517 JRBADOPTNFLAGS 1 000003A6 FFFFFFFE A U 8545 3603 JRBADOSAPORT 1 0000042E FFFFFFFE A U 8857 4277 JRBADOSI 1 00000384 FFFFFFFE A U 8513 3535 JRBADPERFGROUP 1 0000031A FFFFFFFE A U 8309 3122 JRBADPFSID 1 00000385 FFFFFFFE A U 8516 3540 JRBADRBSTATE 1 0000018A FFFFFFFE A U 7696 1682 JRBADRUSAGEADDR 1STRREA Ordinary Symbol and Literal Cross Reference Page 159 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 0000035F FFFFFFFE A U 8458 3425 JRBADSERVCLASS 1 0000031B FFFFFFFE A U 8312 3128 JRBADSIGINFOADDR 1 0000035E FFFFFFFE A U 8456 3419 JRBADSTDEV 1 00000361 FFFFFFFE A U 8463 3437 JRBADSTGKEY 1 000003BF FFFFFFFE A U 8608 3740 JRBADSUBFIELD 1 000003D0 FFFFFFFE A U 8631 3787 JRBADTCBEYE 1 00007243 FFFFFFFE A U 9584 5687 JRBATSEL 1 000003AE FFFFFFFE A U 8569 3653 JRBIND 1 00000214 FFFFFFFE A U 7923 2253 JRBINDADDRINUSED 1 00007232 FFFFFFFE A U 9548 5598 JRBINDADDRNACTIVE 1 00007230 FFFFFFFE A U 9542 5586 JRBINDBADSOCKADDR 1 0000722F FFFFFFFE A U 9540 5580 JRBINDNOPORT 1 00007231 FFFFFFFE A U 9545 5592 JRBINDNOTDONE 1 0000040B FFFFFFFE A U 8753 4077 JRBINDOUTSTATE 1 0000722E FFFFFFFE A U 9537 5574 JRBLACKHOLE 1 000004B5 FFFFFFFE A U 9264 5023 JRBLOCKSINFLUX 1 0000043E FFFFFFFE A U 8882 4322 JRBOTHMODE 1 00000069 FFFFFFFE A U 7197 518 JRBPXOINITNOTUID0 1 00000492 FFFFFFFE A U 9156 4823 JRBPXOINITSTARTED 1 00000491 FFFFFFFE A U 9150 4816 JRBRLMALREADYWAITING 1 000001C2 FFFFFFFE A U 7779 1908 JRBRLMBADFILETYPE 1 000001B0 FFFFFFFE A U 7750 1836 JRBRLMBADL_LEN 1 000001BD FFFFFFFE A U 7771 1890 JRBRLMBADL_TYPE 1 000001B3 FFFFFFFE A U 7756 1854 JRBRLMBADL_WHENCE 1 000001B5 FFFFFFFE A U 7761 1866 JRBRLMDEADLOCKDETECTED 1 000001B8 FFFFFFFE A U 7766 1878 JRBRLMFILELOCKRECYCLING 1 000001AF FFFFFFFE A U 7747 1830 JRBRLMINVALIDRANGE 1 000001B4 FFFFFFFE A U 7759 1860 JRBRLMLOCKERNOTREGISTERED 1 000002A3 FFFFFFFE A U 8216 2928 1STRREA Ordinary Symbol and Literal Cross Reference Page 160 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRBRLMNOREADACCESS 1 000001B1 FFFFFFFE A U 7752 1842 JRBRLMNOTACTIVE 1 000001AE FFFFFFFE A U 7745 1825 JRBRLMNOWRITEACCESS 1 000001B2 FFFFFFFE A U 7754 1848 JRBRLMOBJANDPROCBROKEN 1 000001CA FFFFFFFE A U 7793 1943 JRBRLMOBJECTMISSING 1 000002A1 FFFFFFFE A U 8212 2916 JRBRLMPROCESSBROKEN 1 000001C5 FFFFFFFE A U 7785 1926 JRBRLMPROMOTEPENDING 1 000001C3 FFFFFFFE A U 7781 1914 JRBRLMRANGENOTAVAILABLE 1 000001B7 FFFFFFFE A U 7764 1872 JRBRLMSIGNALPOSTED 1 000001B9 FFFFFFFE A U 7768 1884 JRBRLMUNLOCKWHILEWAIT 1 000001C9 FFFFFFFE A U 7790 1937 JRBRLMWRONGLEVEL 1 000002A2 FFFFFFFE A U 8214 2922 JRBROADCASTDEST 1 00007240 FFFFFFFE A U 9578 5671 JRBROKENBRLMRECYCLING 1 000001EA FFFFFFFE A U 7839 2054 JRBRTOPT 1 00007238 FFFFFFFE A U 9562 5631 JRBRTOPTLERR 1 0000724B FFFFFFFE A U 9599 5730 JRBSDROUTINGPARMSNEVERUSED 1 0000722D FFFFFFFE A U 9535 5568 JRBSTOPT 1 00007237 FFFFFFFE A U 9560 5626 JRBSTOPTLERR 1 0000724A FFFFFFFE A U 9597 5725 JRBUFF 1 0000026F FFFFFFFE A U 8101 2670 JRBUFFLENINVALID 1 00000115 FFFFFFFE A U 7499 1202 JRBUFFTOOSMALL 1 0000006B FFFFFFFE A U 7202 530 JRBULKMODEERR 1 00007208 FFFFFFFE A U 9463 5369 JRBYTES2RWZERO 1 0000008A FFFFFFFE A U 7254 658 JRCACHENOTREGFILE 1 0000041F FFFFFFFE A U 8814 4190 JRCALLERISPGLEADER 1 000001FC FFFFFFFE A U 7886 2158 JRCANCEL 1 00000402 FFFFFFFE A U 8730 4028 JRCANNOTMAPSOCKADDR 1 0000730B FFFFFFFE A U 9985 6778 JRCANTEXPCLIENT 1 000004E3 FFFFFFFE A U 9419 5283 JRCAPTUREFAILURE 1 0000035B FFFFFFFE A U 8454 3414 JRCERTALREADYDEFINED 1STRREA Ordinary Symbol and Literal Cross Reference Page 161 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00000477 FFFFFFFE A U 9058 4663 JRCERTDOESNOTMEETREQ 1 00000478 FFFFFFFE A U 9062 4669 JRCERTIFICATE 1 00000454 FFFFFFFE A U 8934 4443 JRCERTINVALID 1 0000044D FFFFFFFE A U 8914 4403 JRCFGMREQLENERR 1 00007207 FFFFFFFE A U 9460 5363 JRCHAUDTOPIPE 1 00000188 FFFFFFFE A U 7694 1677 JRCHDNOENT 1 00000050 FFFFFFFE A U 7150 405 JRCHDNOTDIR 1 0000004F FFFFFFFE A U 7147 399 JRCHOWNTOPIPE 1 00000187 FFFFFFFE A U 7692 1672 JRCLASSLENERR 1 000000D5 FFFFFFFE A U 7408 994 JRCLNEEDCLOSE 1 00000042 FFFFFFFE A U 7122 341 JRCLNYASCREFAILED 1 0000032F FFFFFFFE A U 8358 3213 JRCLNYNOCOMMONSTORAGE 1 00000332 FFFFFFFE A U 8365 3229 JRCLNYNOTSTARTED 1 00000334 FFFFFFFE A U 8371 3242 JRCLNYNOTSTOPPED 1 00000331 FFFFFFFE A U 8363 3224 JRCLNYPFSNOTDONE 1 00000337 FFFFFFFE A U 8383 3262 JRCLNYPFSNOTSTARTED 1 00000336 FFFFFFFE A U 8380 3256 JRCLNYSTARTFAILED 1 00000330 FFFFFFFE A U 8361 3219 JRCLOSE 1 00000045 FFFFFFFE A U 7129 357 JRCMBADCONFIGDATA 1 000072F7 FFFFFFFE A U 9939 6666 JRCMCACHEOBJLIMIT 1 000072F8 FFFFFFFE A U 9941 6671 JRCMCACHEOBJNOTFOUND 1 000072FA FFFFFFFE A U 9944 6682 JRCMCACHESPACELIMIT 1 000072F9 FFFFFFFE A U 9943 6677 JRCMCANTLOAD 1 000072E7 FFFFFFFE A U 9903 6579 JRCMCONFIGURED 1 000072E3 FFFFFFFE A U 9891 6555 JRCMDESTROYFAILURE 1 000072F6 FFFFFFFE A U 9937 6661 JRCMDISABLE 1 000072F4 FFFFFFFE A U 9933 6650 JRCMIOVPNOTVALID 1 000072FF FFFFFFFE A U 9954 6708 JRCMLOADMODBAD 1STRREA Ordinary Symbol and Literal Cross Reference Page 162 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000072ED FFFFFFFE A U 9917 6613 JRCMLOGFULL 1 00007300 FFFFFFFE A U 9956 6713 JRCMLSOCKBADSTATE 1 000072F5 FFFFFFFE A U 9935 6655 JRCMNOCACHE 1 000072E5 FFFFFFFE A U 9897 6567 JRCMNOCSM 1 000072E9 FFFFFFFE A U 9908 6590 JRCMNOLOG 1 000072E4 FFFFFFFE A U 9894 6561 JRCMNOOBJECTS 1 000072F3 FFFFFFFE A U 9931 6645 JRCMNOSTORAGE 1 000072E8 FFFFFFFE A U 9906 6585 JRCMNOTCONFIGURED 1 000072EA FFFFFFFE A U 9910 6595 JRCMPARMNOTVALID 1 000072EC FFFFFFFE A U 9915 6607 JRCMSERVERNOTFOUND 1 000072E6 FFFFFFFE A U 9900 6573 JRCMSGDATAINVALID 1 00007301 FFFFFFFE A U 9957 6718 JRCOMPNAMETOOLONG 1 0000003E FFFFFFFE A U 7116 326 JRCOMPNOTDIR 1 0000003C FFFFFFFE A U 7112 316 JRCONFIGERR 1 0000721D FFFFFFFE A U 9506 5484 JRCONNALREADYEXISTS 1 0000725C FFFFFFFE A U 9633 5823 JRCONNECT 1 00000215 FFFFFFFE A U 7925 2258 JRCONNECTTOSELF 1 00007241 FFFFFFFE A U 9580 5676 JRCONNFAIL 1 00007206 FFFFFFFE A U 9458 5358 JRCONNNOTIDLE 1 0000723F FFFFFFFE A U 9576 5666 JRCONNTCBNOTFOUND 1 00007242 FFFFFFFE A U 9582 5682 JRCPCNNOTENABLED 1 000003B5 FFFFFFFE A U 8588 3695 JRCPLBUFFTOOSMALL 1 000004C2 FFFFFFFE A U 9302 5090 JRCPLCFNOTFOUND 1 000004C6 FFFFFFFE A U 9318 5110 JRCPLINVBUFFLEN 1 000004C1 FFFFFFFE A U 9298 5084 JRCPLINVFCNCODE 1 000004C0 FFFFFFFE A U 9294 5078 JRCPLINVSTRUCTYPE 1 000004C5 FFFFFFFE A U 9313 5103 JRCPLNOTAUTH 1 000004BF FFFFFFFE A U 9290 5072 1STRREA Ordinary Symbol and Literal Cross Reference Page 163 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRCREATE 1 0000004C FFFFFFFE A U 7141 384 JRCSMFAILURE 1 0000048D FFFFFFFE A U 9134 4792 JRCWDPLUSFILENAME 1 00000455 FFFFFFFE A U 8937 4449 JRDATANOTAVAIL 1 0000042A FFFFFFFE A U 8848 4255 JRDEVCONFIGTYPEERROR 1 00000339 FFFFFFFE A U 8386 3268 JRDEVICEACTIVE 1 0000721C FFFFFFFE A U 9505 5479 JRDEVICEALREADYDEFINED 1 0000721A FFFFFFFE A U 9503 5469 JRDEVICEATMINVALID 1 0000726E FFFFFFFE A U 9669 5924 JRDEVICECDLCINVALID 1 0000726C FFFFFFFE A U 9665 5912 JRDEVICECLAWINVALID 1 00007214 FFFFFFFE A U 9491 5439 JRDEVICECTCINVALID 1 00007213 FFFFFFFE A U 9489 5434 JRDEVICEDEFINEDBYLINK 1 0000722B FFFFFFFE A U 9530 5557 JRDEVICEHASLINKS 1 00007261 FFFFFFFE A U 9643 5851 JRDEVICEHASNOLINKS 1 00007262 FFFFFFFE A U 9646 5857 JRDEVICEHCHINVALID 1 0000726B FFFFFFFE A U 9663 5906 JRDEVICELCSINVALID 1 00007215 FFFFFFFE A U 9493 5444 JRDEVICEMPCHLCSINVALID 1 000072E2 FFFFFFFE A U 9889 6549 JRDEVICEMPCPTPINVALID 1 0000726A FFFFFFFE A U 9661 5900 JRDEVICENOTDEFINED 1 00007219 FFFFFFFE A U 9501 5464 JRDEVICESNAINVALID 1 00007282 FFFFFFFE A U 9720 6038 JRDEVICETYPEINVALID 1 0000722C FFFFFFFE A U 9532 5562 JRDEVICEUNSUPPORTED 1 0000721B FFFFFFFE A U 9504 5474 JRDEVICEX25INVALID 1 0000726D FFFFFFFE A U 9667 5918 JRDEVNOTFOUND 1 000003EB FFFFFFFE A U 8680 3909 JRDEVNOTONLINE 1 000003EA FFFFFFFE A U 8678 3904 JRDEVNUMINVALID 1 0000720F FFFFFFFE A U 9481 5410 JRDIFFFILESETS 1 0000007B FFFFFFFE A U 7230 601 JRDIRNOTFOUND 1 0000003D FFFFFFFE A U 7114 321 1STRREA Ordinary Symbol and Literal Cross Reference Page 164 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRDIRWRITEREQUEST 1 00000064 FFFFFFFE A U 7188 495 JRDISCONTCBNOTFOUND 1 00007245 FFFFFFFE A U 9588 5697 JRDOMAINNOTSUPPORTED 1 00000228 FFFFFFFE A U 7965 2365 JRDOTORDOTDOT 1 00000082 FFFFFFFE A U 7244 635 JRDUBSETTING 1 00000240 FFFFFFFE A U 8000 2460 JRDUPLICATECANCEL 1 00000403 FFFFFFFE A U 8732 4034 JRDUPLICATEREQ 1 0000040E FFFFFFFE A U 8756 4087 JRDUP2ERROR 1 00000212 FFFFFFFE A U 7919 2241 JRDVIPAALREADYACTIVE 1 00007302 FFFFFFFE A U 9959 6723 JRDVIPACONFLICTDVIPA 1 00007304 FFFFFFFE A U 9963 6735 JRDVIPACONFLICTIPADDR 1 00007305 FFFFFFFE A U 9966 6741 JRDVIPANOTDEFINED 1 00007307 FFFFFFFE A U 9971 6753 JRDVIPANOTINVIPARANGE 1 00007303 FFFFFFFE A U 9961 6729 JRDYNADDCXFAILURE 1 000072FB FFFFFFFE A U 9946 6687 JRDYNDELCXFAILURE 1 000072FC FFFFFFFE A U 9948 6692 JRDYNRECOVERYFAILURE 1 000072FE FFFFFFFE A U 9952 6702 JRDYNTIMERFAILURE 1 000072FD FFFFFFFE A U 9950 6697 JRECBERROR 1 00000298 FFFFFFFE A U 8182 2859 JRECBLISTBAD 1 00000299 FFFFFFFE A U 8189 2867 JRECBLISTNOTSETUP 1 0000029B FFFFFFFE A U 8197 2880 JRECBSTATEBAD 1 0000029A FFFFFFFE A U 8193 2873 JRECBWAITBITON 1 0000029D FFFFFFFE A U 8203 2893 JRENCLAVESEXIST 1 0000040A FFFFFFFE A U 8750 4071 JRENDINGSLASHMKNOD 1 00000108 FFFFFFFE A U 7475 1144 JRENDINGSLASHOCREAT 1 00000109 FFFFFFFE A U 7477 1150 JRENDINGSLASHSYMLINK 1 00000203 FFFFFFFE A U 7898 2190 JRENTITYLENERR 1 000000D6 FFFFFFFE A U 7411 1000 JRENVDIRTY 1STRREA Ordinary Symbol and Literal Cross Reference Page 165 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000002AF FFFFFFFE A U 8239 2974 JREOFALREADYSENT 1 0000015E FFFFFFFE A U 7619 1489 JRESCONNOTCONFIGURED 1 000003F0 FFFFFFFE A U 8692 3935 JREXCEEDSBACKLOGCOUNT 1 0000026B FFFFFFFE A U 8092 2653 JREXECAFTERFORK 1 000001F8 FFFFFFFE A U 7874 2134 JREXECFILETOOBIG 1 00000151 FFFFFFFE A U 7588 1425 JREXECNMLENZERO 1 0000010F FFFFFFFE A U 7491 1184 JREXECNOTREGFILE 1 0000011F FFFFFFFE A U 7517 1247 JREXECPARMERR 1 00000186 FFFFFFFE A U 7689 1666 JREXITRTNERROR 1 000001D7 FFFFFFFE A U 7809 1982 JREXTERNALLINK 1 00000252 FFFFFFFE A U 8037 2543 JRFASTPATHRANGE 1 00000411 FFFFFFFE A U 8760 4097 JRFDALLOCERR 1 00000088 FFFFFFFE A U 7251 652 JRFDLISTTOOBIG 1 0000032C FFFFFFFE A U 8349 3196 JRFDOPENABOVELIMIT 1 00000365 FFFFFFFE A U 8468 3448 JRFDTOOBIG 1 00000145 FFFFFFFE A U 7572 1384 JRFD2TOOSMALL 1 000001CD FFFFFFFE A U 7795 1949 JRFILECHANGEDDURINGLOAD 1 00000456 FFFFFFFE A U 8941 4456 JRFILEDESNOTINUSE 1 00000037 FFFFFFFE A U 7104 296 JRFILEEXISTSEXCLFLAGSET 1 00000063 FFFFFFFE A U 7186 489 JRFILEINUSE 1 00000421 FFFFFFFE A U 8820 4202 JRFILEISBLOCKED 1 00000138 FFFFFFFE A U 7548 1326 JRFILEISEMPTY 1 0000041E FFFFFFFE A U 8811 4184 JRFILENOTOPEN 1 0000011C FFFFFFFE A U 7512 1231 JRFILENOTSYMLINK 1 00000105 FFFFFFFE A U 7469 1127 JRFILENOTTHERE 1 0000006C FFFFFFFE A U 7204 535 JRFILESYSNOTTHERE 1 0000002E FFFFFFFE A U 7089 258 JRFILESYSWASRESET 1 0000002F FFFFFFFE A U 7091 263 1STRREA Ordinary Symbol and Literal Cross Reference Page 166 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRFILESZEXCDLIMIT 1 0000041D FFFFFFFE A U 8807 4177 JRFILETOOLARGE 1 000004E2 FFFFFFFE A U 9415 5277 JRFORKEXITRCOVERLAYPGMNOTVALID 1 00000437 FFFFFFFE A U 8860 4282 JRFORKEXITRCPARENTBADENV 1 00000020 FFFFFFFE A U 7079 231 JRFORKEXITRCPARENTNOROOM 1 0000001E FFFFFFFE A U 7077 225 JRFORKNOACCESS 1 00000121 FFFFFFFE A U 7522 1259 JRFORKNORESOURCE 1 000000F7 FFFFFFFE A U 7441 1056 JRFORKVSMLISTTOOLARGE 1 00000023 FFFFFFFE A U 7081 237 JRFRCARESET 1 0000730F FFFFFFFE A U 9997 6803 JRFREEZEEXITTOOSLOW 1 000000C3 FFFFFFFE A U 7359 890 JRFRRACTIVE 1 00000386 FFFFFFFE A U 8519 3545 JRFSFAILCHDIR 1 0000014D FFFFFFFE A U 7583 1413 JRFSFAILQUIESCE 1 00000113 FFFFFFFE A U 7493 1190 JRFSFORCEUMOUNT 1 000000AD FFFFFFFE A U 7299 772 JRFSINUSE 1 000001AB FFFFFFFE A U 7738 1809 JRFSMUSTRESET 1 000000AC FFFFFFFE A U 7297 766 JRFSNOTSTART 1 0000005A FFFFFFFE A U 7168 446 JRFSPARENTFS 1 000000AA FFFFFFFE A U 7293 756 JRFSQUIESCEDMT 1 000004E5 FFFFFFFE A U 9423 5295 JRFSUNAUTHCLNT 1 000003BD FFFFFFFE A U 8604 3730 JRFSUNMOUNTINPROGRESS 1 000000AB FFFFFFFE A U 7295 761 JRFSYNC 1 00000101 FFFFFFFE A U 7460 1104 JRFUNCTIONCODE 1 00000452 FFFFFFFE A U 8930 4433 JRFUNCUNDEFINED 1 000000BE FFFFFFFE A U 7337 856 JRGATEWAYUNREACHABLE 1 00007267 FFFFFFFE A U 9655 5883 JRGETATTR 1 0000006E FFFFFFFE A U 7208 545 JRGETCONNERR 1 00007221 FFFFFFFE A U 9512 5504 JRGETFIRST 1 000001DF FFFFFFFE A U 7823 2015 1STRREA Ordinary Symbol and Literal Cross Reference Page 167 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRGETHOST 1 00000216 FFFFFFFE A U 7927 2264 JRGETNAME 1 00000217 FFFFFFFE A U 7929 2270 JRGROUPNAMEREQUIRED 1 0000728C FFFFFFFE A U 9749 6099 JRHARDWARE 1 00000348 FFFFFFFE A U 8420 3343 JRHARDWARETYPENOTSUPPORTED 1 00007253 FFFFFFFE A U 9615 5772 JRHEAVYWEIGHT 1 000001DE FFFFFFFE A U 7820 2009 JRHOMEEXISTS 1 00000419 FFFFFFFE A U 8788 4149 JRIARVSERV 1 0000034C FFFFFFFE A U 8429 3366 JRIDCHANGE 1 00000245 FFFFFFFE A U 8012 2488 JRIDENTITYTYPE 1 00000453 FFFFFFFE A U 8932 4438 JRIEADDIFCIOCTLTYPE 1 000072A9 FFFFFFFE A U 9803 6259 JRIEFDDSRVFAILED 1 000003E8 FFFFFFFE A U 8674 3894 JRIEGETFLAGS 1 000072A0 FFFFFFFE A U 9793 6214 JRIEGETTABLEFLAGS 1 0000729F FFFFFFFE A U 9792 6209 JRIEGETTABLEUNEXPECTED 1 000072A3 FFFFFFFE A U 9796 6229 JRIEGETUNEXPECTED 1 000072A4 FFFFFFFE A U 9797 6234 JRIEINCNTINVALID 1 0000729E FFFFFFFE A U 9791 6204 JRIEOUTCNTINVALID 1 0000729D FFFFFFFE A U 9789 6199 JRIEPROFILEERROR 1 000072A8 FFFFFFFE A U 9801 6254 JRIERECOVERYERROR 1 000072A7 FFFFFFFE A U 9800 6249 JRIESETFLAGS 1 000072A2 FFFFFFFE A U 9795 6224 JRIESETTABLEFLAGS 1 000072A1 FFFFFFFE A U 9794 6219 JRIESETTABLEUNEXPECTED 1 000072A5 FFFFFFFE A U 9798 6239 JRIESETUNEXPECTED 1 000072A6 FFFFFFFE A U 9799 6244 JRIESIZEMISMATCHADD 1 00007299 FFFFFFFE A U 9781 6176 JRIESIZEMISMATCHGET 1 0000729A FFFFFFFE A U 9783 6182 JRIESIZEMISMATCHGETTABLE 1 0000729B FFFFFFFE A U 9785 6187 JRIESIZEMISMATCHSETTABLE 1STRREA Ordinary Symbol and Literal Cross Reference Page 168 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 0000729C FFFFFFFE A U 9787 6193 JRIEUNKNOWNIFCIOCTLTYPE 1 000072AA FFFFFFFE A U 9805 6265 JRINACCESSIBLE 1 000003E7 FFFFFFFE A U 8672 3889 JRINACTIVE 1 00000122 FFFFFFFE A U 7525 1265 JRINCORRECTSOCKETTYPE 1 00000269 FFFFFFFE A U 8088 2641 JRINCORRECTTYPEFORFLAG 1 0000027B FFFFFFFE A U 8126 2731 JRINETRECYCLED 1 0000044F FFFFFFFE A U 8918 4414 JRINHEACCTDATAPTR 1 00000426 FFFFFFFE A U 8836 4232 JRINHECPUTIME 1 00000425 FFFFFFFE A U 8833 4226 JRINHECWD 1 00000427 FFFFFFFE A U 8840 4239 JRINHEEYE 1 00000320 FFFFFFFE A U 8332 3161 JRINHELENGTH 1 00000321 FFFFFFFE A U 8334 3167 JRINHEREGION 1 00000424 FFFFFFFE A U 8830 4220 JRINHEUSERID 1 00000423 FFFFFFFE A U 8827 4214 JRINHEVERSION 1 00000322 FFFFFFFE A U 8337 3173 JRINITRTN 1 000001F0 FFFFFFFE A U 7855 2089 JRINRECOVERY 1 000004B3 FFFFFFFE A U 9258 5011 JRINTERFACEALREADYSTARTED 1 00007218 FFFFFFFE A U 9499 5459 JRINTERFACEALREADYSTOPPED 1 00007217 FFFFFFFE A U 9497 5454 JRINTERFACEDEFINEDBYHOME 1 0000722A FFFFFFFE A U 9528 5551 JRINTERFACEINVALID 1 00007212 FFFFFFFE A U 9487 5428 JRINTERFACENOTDEFINED 1 00007263 FFFFFFFE A U 9649 5863 JRINTERVALTYPEINVALID 1 00000388 FFFFFFFE A U 8525 3556 JRINVALIDAMODE 1 0000014A FFFFFFFE A U 7579 1402 JRINVALIDAPPLDATA 1 000003DD FFFFFFFE A U 8655 3847 JRINVALIDAPPLDATA2 1 000003DE FFFFFFFE A U 8657 3853 JRINVALIDATT 1 00000241 FFFFFFFE A U 8003 2466 JRINVALIDATTR 1 0000024B FFFFFFFE A U 8026 2521 1STRREA Ordinary Symbol and Literal Cross Reference Page 169 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRINVALIDBINSEMFLAG 1 0000046D FFFFFFFE A U 9019 4599 JRINVALIDBINSEMNOTBINOP 1 0000046C FFFFFFFE A U 9014 4592 JRINVALIDBINSEMNUMSEMOPS 1 0000046B FFFFFFFE A U 9010 4585 JRINVALIDBINSEMSETALL 1 0000046E FFFFFFFE A U 9023 4605 JRINVALIDBINSEMUNDO 1 0000046A FFFFFFFE A U 9007 4579 JRINVALIDBUFTOKN 1 0000728D FFFFFFFE A U 9752 6105 JRINVALIDCLASSIFY 1 000003D8 FFFFFFFE A U 8645 3823 JRINVALIDCURSOR 1 00000152 FFFFFFFE A U 7591 1431 JRINVALIDDADDR 1 00007228 FFFFFFFE A U 9525 5540 JRINVALIDFSP 1 000004DB FFFFFFFE A U 9393 5238 JRINVALIDFUIO 1 00000248 FFFFFFFE A U 8020 2506 JRINVALIDMAJORNUMBER 1 00000123 FFFFFFFE A U 7528 1271 JRINVALIDMSGH 1 00000277 FFFFFFFE A U 8116 2709 JRINVALIDNAME 1 00000051 FFFFFFFE A U 7153 411 JRINVALIDNFDS 1 000003BA FFFFFFFE A U 8599 3719 JRINVALIDNREG 1 00000234 FFFFFFFE A U 7989 2430 JRINVALIDOFFSET 1 00000470 FFFFFFFE A U 9030 4618 JRINVALIDOPTION 1 00000469 FFFFFFFE A U 9005 4574 JRINVALIDOSS 1 00000242 FFFFFFFE A U 8006 2472 JRINVALIDPARMS 1 000000A9 FFFFFFFE A U 7291 750 JRINVALIDPID 1 0000013A FFFFFFFE A U 7551 1336 JRINVALIDRANGE 1 00000468 FFFFFFFE A U 9002 4568 JRINVALIDREGTYPE 1 00000231 FFFFFFFE A U 7983 2412 JRINVALIDREQUESTER 1 000000B5 FFFFFFFE A U 7311 805 JRINVALIDRESOURCE 1 0000033D FFFFFFFE A U 8397 3292 JRINVALIDROUTINE 1 00000260 FFFFFFFE A U 8061 2591 JRINVALIDSERVERNAMELEN 1 00000279 FFFFFFFE A U 8120 2719 JRINVALIDSERVERPID 1STRREA Ordinary Symbol and Literal Cross Reference Page 170 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 0000029F FFFFFFFE A U 8208 2904 JRINVALIDSFDL 1 000003DF FFFFFFFE A U 8660 3859 JRINVALIDSFPLLEN 1 00000474 FFFFFFFE A U 9047 4645 JRINVALIDSIGACT 1 0000008E FFFFFFFE A U 7262 680 JRINVALIDSIGHOW 1 0000008F FFFFFFFE A U 7264 685 JRINVALIDSIGNAL 1 0000008D FFFFFFFE A U 7260 675 JRINVALIDSIGPROC 1 0000018C FFFFFFFE A U 7698 1687 JRINVALIDSIZE 1 000004A9 FFFFFFFE A U 9228 4956 JRINVALIDSYMLINKCOMP 1 0000011B FFFFFFFE A U 7509 1225 JRINVALIDSYMLINKLEN 1 0000011A FFFFFFFE A U 7506 1219 JRINVALIDVERSION 1 000003ED FFFFFFFE A U 8684 3919 JRINVALIDVLOK 1 0000029E FFFFFFFE A U 8206 2899 JRINVALIDVNODETOK 1 0000022F FFFFFFFE A U 7979 2402 JRINVALIDWHO 1 00000340 FFFFFFFE A U 8405 3309 JRINVHDR 1 000003C2 FFFFFFFE A U 8615 3752 JRINVIOCTLCMD 1 00000198 FFFFFFFE A U 7713 1743 JRINVOPENFLAGS 1 0000003F FFFFFFFE A U 7118 331 JRINVOPOPT 1 0000026E FFFFFFFE A U 8099 2665 JRINVOPTION 1 000001EF FFFFFFFE A U 7853 2084 JRINVOPTLEN 1 0000725A FFFFFFFE A U 9631 5813 JRINVOPTVAL 1 0000725B FFFFFFFE A U 9632 5818 JRINVOSENVTOK 1 00000499 FFFFFFFE A U 9180 4863 JRINVPARMLENGTH 1 0000012A FFFFFFFE A U 7537 1293 JRINVRBSTATE 1 0000013C FFFFFFFE A U 7555 1344 JRINVTERMSTAT 1 0000013F FFFFFFFE A U 7559 1355 JRINVUSEROP 1 00000282 FFFFFFFE A U 8138 2765 JRIOBUFLENGTHINVALID 1 00000149 FFFFFFFE A U 7577 1396 JRIOCTL 1 00000139 FFFFFFFE A U 7549 1331 JRIOCTLACCESSAUTHORIZATION 1 00007209 FFFFFFFE A U 9466 5375 1STRREA Ordinary Symbol and Literal Cross Reference Page 171 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRIOCTLAFNOTSUPPORTED 1 0000720B FFFFFFFE A U 9471 5387 JRIOCTLLINKNAME 1 0000720E FFFFFFFE A U 9478 5404 JRIOCTLNOTSUPPORTED 1 00007256 FFFFFFFE A U 9622 5790 JRIOCTLRTTABLESIZE 1 0000720C FFFFFFFE A U 9474 5393 JRIOCTLSIZEINCORRECT 1 0000720A FFFFFFFE A U 9469 5381 JRIOCTLTPRIMNOTSET 1 0000720D FFFFFFFE A U 9476 5399 JRIPADDRINVALID 1 00007210 FFFFFFFE A U 9483 5416 JRIPCBADFLAGS 1 00000309 FFFFFFFE A U 8263 3022 JRIPCBADID 1 00000302 FFFFFFFE A U 8244 2981 JRIPCDENIED 1 00000303 FFFFFFFE A U 8246 2987 JRIPCEXISTS 1 00000304 FFFFFFFE A U 8249 2993 JRIPCMAXIDS 1 00000305 FFFFFFFE A U 8252 2999 JRIPCNOEXIST 1 00000306 FFFFFFFE A U 8255 3005 JRIPCREMOVED 1 00000318 FFFFFFFE A U 8303 3109 JRIPCRETRY 1 00000307 FFFFFFFE A U 8258 3011 JRIPCSIGNALED 1 00000308 FFFFFFFE A U 8261 3017 JRIPOPT 1 00007239 FFFFFFFE A U 9564 5636 JRIPOPTLERR 1 0000723C FFFFFFFE A U 9570 5651 JRIPTCANNOTLEAVE 1 00000206 FFFFFFFE A U 7904 2206 JRISEXPORTED 1 000004E4 FFFFFFFE A U 9421 5289 JRISFSROOT 1 0000007F FFFFFFFE A U 7239 625 JRISMOUNTED 1 0000005B FFFFFFFE A U 7170 451 JRIWMELEAVERROR 1 000004A4 FFFFFFFE A U 9208 4927 JRJOINEXITSTATPTR 1 000001E2 FFFFFFFE A U 7828 2026 JRJOINLOOP 1 000001E4 FFFFFFFE A U 7832 2037 JRJOINTMSGSENT 1 000004D9 FFFFFFFE A U 9386 5226 JRJOINTOSELF 1 000001E3 FFFFFFFE A U 7830 2032 JRKEEPALIVETO 1 0000044E FFFFFFFE A U 8916 4409 1STRREA Ordinary Symbol and Literal Cross Reference Page 172 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRKERNELDOWN 1 00000083 FFFFFFFE A U 7247 641 JRKERNELREADY 1 00000026 FFFFFFFE A U 7083 243 JRLASTTHREAD 1 00000227 FFFFFFFE A U 7962 2359 JRLEVELNOTSUPP 1 0000026C FFFFFFFE A U 8096 2659 JRLEVELTOOHIGH 1 00000490 FFFFFFFE A U 9145 4809 JRLIGHTWEIGHTTHID 1 000001DA FFFFFFFE A U 7814 1994 JRLINETFAIL 1 0000043F FFFFFFFE A U 8884 4327 JRLINK 1 0000010E FFFFFFFE A U 7489 1179 JRLINKALREADYDEFINED 1 0000726F FFFFFFFE A U 9671 5930 JRLINKHASNOPVCORLIS 1 00007283 FFFFFFFE A U 9722 6044 JRLINKHASPVCS 1 00007279 FFFFFFFE A U 9691 5985 JRLINKNAMEINVALID 1 00007211 FFFFFFFE A U 9485 5422 JRLINKNOTDEFINED 1 0000725F FFFFFFFE A U 9639 5840 JRLINKSMAXEXCEEDED 1 00007216 FFFFFFFE A U 9495 5449 JRLINKTYPEINVALID 1 00007254 FFFFFFFE A U 9617 5778 JRLISHASARPSVS 1 0000727B FFFFFFFE A U 9698 5997 JRLISHASLINKS 1 0000727A FFFFFFFE A U 9694 5991 JRLISINCONSISTENT 1 00007276 FFFFFFFE A U 9683 5967 JRLISINUSEFORDEVICE 1 00007274 FFFFFFFE A U 9679 5955 JRLISMISMATCH 1 00007281 FFFFFFFE A U 9715 6031 JRLISNOTDEFINED 1 00007272 FFFFFFFE A U 9675 5945 JRLISOPTIONSUPDATED 1 00007277 FFFFFFFE A U 9686 5973 JRLISTEN 1 00000219 FFFFFFFE A U 7933 2282 JRLISTENALREADYDONE 1 0000028D FFFFFFFE A U 8153 2795 JRLISTENNOTACCEPTED 1 0000025B FFFFFFFE A U 8044 2560 JRLISTENNOTDONE 1 00000289 FFFFFFFE A U 8147 2783 JRLISTENNOTSTREAM 1 0000028C FFFFFFFE A U 8149 2788 JRLISTLENBAD 1 00000281 FFFFFFFE A U 8134 2759 JRLISTTOOLONG 1STRREA Ordinary Symbol and Literal Cross Reference Page 173 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00000263 FFFFFFFE A U 8069 2608 JRLISTTOOSHORT 1 00000264 FFFFFFFE A U 8071 2614 JRLNKACROSSFILESETS 1 0000010C FFFFFFFE A U 7484 1167 JRLNKDIR 1 00000056 FFFFFFFE A U 7160 423 JRLNKNEWPATHEXISTS 1 0000010B FFFFFFFE A U 7482 1161 JRLNKNOENT 1 0000010A FFFFFFFE A U 7480 1156 JRLNKROFILESET 1 0000010D FFFFFFFE A U 7486 1173 JRLOCALSPAWNNOTALLOWED 1 00000473 FFFFFFFE A U 9044 4639 JRLOCKADDR 1 0000047C FFFFFFFE A U 9075 4693 JRLOCKCTL 1 000004BE FFFFFFFE A U 9287 5067 JRLOCKEDALREADY 1 0000047E FFFFFFFE A U 9082 4706 JRLOCKFCNCODE 1 00000479 FFFFFFFE A U 9066 4675 JRLOCKINUSE 1 0000047F FFFFFFFE A U 9085 4712 JRLOCKMAXCNTRECURSE 1 00000484 FFFFFFFE A U 9101 4742 JRLOCKMAXCNTSYS 1 00000482 FFFFFFFE A U 9095 4730 JRLOCKMAXCNTTHD 1 00000483 FFFFFFFE A U 9098 4736 JRLOCKNOTOWNER 1 00000481 FFFFFFFE A U 9092 4724 JRLOCKREQTYPE 1 0000047A FFFFFFFE A U 9069 4681 JRLOCKSHMACC 1 00000480 FFFFFFFE A U 9088 4718 JRLOCKSHMREMOVED 1 00000485 FFFFFFFE A U 9104 4748 JRLOCKTOKEN 1 0000047D FFFFFFFE A U 9079 4700 JRLOCKTOKENADDR 1 0000048A FFFFFFFE A U 9125 4780 JRLOCKTYPE 1 0000047B FFFFFFFE A U 9072 4687 JRLOOKUP 1 00000047 FFFFFFFE A U 7134 368 JRLOSTSTATE 1 000004B0 FFFFFFFE A U 9249 4993 JRLSKOFFSETISINVALID 1 00000058 FFFFFFFE A U 7164 434 JRLSKONPIPE 1 00000057 FFFFFFFE A U 7162 428 JRLSKWHENCEISINVALID 1 00000059 FFFFFFFE A U 7166 440 JRLVLIPNOSUP 1 00007259 FFFFFFFE A U 9629 5807 1STRREA Ordinary Symbol and Literal Cross Reference Page 174 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRLVLSOCNOSUP 1 00007257 FFFFFFFE A U 9625 5796 JRLVLTCPNOSUP 1 00007258 FFFFFFFE A U 9627 5802 JRMAPALREADYACTIVE 1 000004CD FFFFFFFE A U 9351 5159 JRMAPARRAYCOUNTERR 1 000004D7 FFFFFFFE A U 9381 5215 JRMAPBADFUNCTION 1 000004CA FFFFFFFE A U 9340 5140 JRMAPBADSTORAGE 1 000004D4 FFFFFFFE A U 9375 5203 JRMAPBLOCKFREEPENDING 1 000004D3 FFFFFFFE A U 9372 5197 JRMAPBLOCKINUSE 1 000004D2 FFFFFFFE A U 9369 5191 JRMAPBLOCKNOTINUSE 1 000004D1 FFFFFFFE A U 9366 5185 JRMAPNOTACTIVE 1 000004CF FFFFFFFE A U 9360 5173 JRMAPOUTOFBLOCKS 1 000004CE FFFFFFFE A U 9354 5165 JRMAPTOKENNOTFOUND 1 000004D0 FFFFFFFE A U 9364 5180 JRMAXAIOCBECB 1 00000476 FFFFFFFE A U 9054 4657 JRMAXASYNCIO 1 00000494 FFFFFFFE A U 9166 4836 JRMAXCHILD 1 00000012 FFFFFFFE A U 7064 194 JRMAXINETSOCKETS 1 00000297 FFFFFFFE A U 8178 2852 JRMAXPROC 1 00000028 FFFFFFFE A U 7085 248 JRMAXQUEUEDSIGS 1 0000048E FFFFFFFE A U 9137 4797 JRMAXSOCKETS 1 0000024D FFFFFFFE A U 8031 2532 JRMAXSTARTSEXCEEDED 1 00007260 FFFFFFFE A U 9641 5845 JRMAXTASKS 1 0000024C FFFFFFFE A U 8028 2526 JRMAXTCPPATHIDS 1 00000293 FFFFFFFE A U 8167 2829 JRMAXUIDS 1 00000013 FFFFFFFE A U 7067 200 JRMCADDMEMOPT 1 00007294 FFFFFFFE A U 9769 6146 JRMCADDMEMOPTLERR 1 00007295 FFFFFFFE A U 9772 6152 JRMCDROPMEMOPT 1 00007296 FFFFFFFE A U 9774 6158 JRMCDROPMEMOPTLERR 1 00007297 FFFFFFFE A U 9777 6164 JRMCIFOPT 1STRREA Ordinary Symbol and Literal Cross Reference Page 175 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00007292 FFFFFFFE A U 9764 6134 JRMCIFOPTLERR 1 00007293 FFFFFFFE A U 9767 6140 JRMCLOOPOPT 1 00007290 FFFFFFFE A U 9759 6122 JRMCLOOPOPTLERR 1 00007291 FFFFFFFE A U 9762 6128 JRMCMAXMEM 1 00007298 FFFFFFFE A U 9779 6170 JRMCTTLOPT 1 0000728E FFFFFFFE A U 9754 6110 JRMCTTLOPTLERR 1 0000728F FFFFFFFE A U 9757 6116 JRMICROSECONDSTOOBIG 1 0000039F FFFFFFFE A U 8533 3580 JRMIXEDSECURITYENV 1 000002A9 FFFFFFFE A U 8232 2961 JRMKDIR 1 00000044 FFFFFFFE A U 7127 352 JRMKDIREXIST 1 00000038 FFFFFFFE A U 7106 301 JRMKDIRRONLY 1 00000055 FFFFFFFE A U 7158 417 JRMKNODINVALIDTYPE 1 00000107 FFFFFFFE A U 7473 1138 JRMMAPBADTYPE 1 00000347 FFFFFFFE A U 8418 3338 JRMMAPFILEADDRESS 1 0000034B FFFFFFFE A U 8427 3361 JRMMAPOVEREOF 1 0000033B FFFFFFFE A U 8392 3280 JRMMAPSTGEXCEEDED 1 00000344 FFFFFFFE A U 8409 3320 JRMMAPSUSPENDED 1 000004E7 FFFFFFFE A U 9432 5308 JRMMAPTYPEMISMATCH 1 0000045A FFFFFFFE A U 8952 4479 JRMOUNT 1 000000A1 FFFFFFFE A U 7281 725 JRMOUNTPT 1 0000005C FFFFFFFE A U 7172 456 JRMOVEINPROGRESS 1 000004DD FFFFFFFE A U 9397 5248 JRMPMUPROCESS 1 00000447 FFFFFFFE A U 8899 4369 JRMPTFSQUIESCED 1 000004E6 FFFFFFFE A U 9429 5302 JRMSGATTRERR 1 000003E3 FFFFFFFE A U 8668 3879 JRMSGHINVALID 1 0000027D FFFFFFFE A U 8129 2742 JRMSGINVALIDFLAG 1 00007288 FFFFFFFE A U 9734 6074 JRMSGLENGTHERR 1 000003D7 FFFFFFFE A U 8643 3818 JRMSGMAXLINES 1 00000438 FFFFFFFE A U 8863 4288 1STRREA Ordinary Symbol and Literal Cross Reference Page 176 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRMSOUTOFRANGE 1 00000265 FFFFFFFE A U 8076 2621 JRMSQBADSIZE 1 0000030B FFFFFFFE A U 8268 3033 JRMSQBADTYPE 1 0000030A FFFFFFFE A U 8266 3028 JRMSQNOMSG 1 0000030C FFFFFFFE A U 8271 3039 JRMSQQBYTES 1 00000319 FFFFFFFE A U 8305 3115 JRMSQQUEUEFULLBYTES 1 0000031D FFFFFFFE A U 8321 3142 JRMSQQUEUEFULLMESSAGES 1 0000031C FFFFFFFE A U 8315 3134 JRMSQ2BIG 1 0000030D FFFFFFFE A U 8273 3044 JRMULTIPLEREAD 1 000072E1 FFFFFFFE A U 9887 6543 JRMULTIPROC 1 000002A4 FFFFFFFE A U 8219 2934 JRMULTITHREADED 1 00000488 FFFFFFFE A U 9116 4766 JRMUSTBEIMMED 1 000004A7 FFFFFFFE A U 9220 4945 JRMUSTBESOCKET 1 00000223 FFFFFFFE A U 7956 2342 JRMUSTBESYSPLEX 1 000004AE FFFFFFFE A U 9243 4981 JRMUSTUMOUNTIMMED 1 000000B2 FFFFFFFE A U 7305 789 JRMVSARGTOOBIG 1 0000011E FFFFFFFE A U 7515 1242 JRMVSLOADFAILURE 1 000003B1 FFFFFFFE A U 8577 3671 JRMVSPGMNOTFOUND 1 000003B2 FFFFFFFE A U 8580 3677 JRNAMEEXISTS 1 00000288 FFFFFFFE A U 8145 2778 JRNAMETOOLONG 1 00000232 FFFFFFFE A U 7985 2418 JRNANOSECONDSTOOBIG 1 00000210 FFFFFFFE A U 7914 2230 JRNEEDABSPATH 1 000004C9 FFFFFFFE A U 9336 5133 JRNEGATIVELENGTH 1 0000046F FFFFFFFE A U 9026 4611 JRNEGATIVEVALUEINVALID 1 00000030 FFFFFFFE A U 7093 269 JRNEGFILEDES 1 00000036 FFFFFFFE A U 7102 291 JRNEGFILESIZELIMIT 1 000003A7 FFFFFFFE A U 8547 3609 JRNEITHERMODE 1 0000006A FFFFFFFE A U 7199 524 JRNETACCESSDENIED 1STRREA Ordinary Symbol and Literal Cross Reference Page 177 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 0000730C FFFFFFFE A U 9989 6785 JRNETWORK 1 00000229 FFFFFFFE A U 7967 2370 JRNEWISDIR 1 0000007D FFFFFFFE A U 7235 613 JRNEWLENBAD 1 000003E2 FFFFFFFE A U 8666 3874 JRNEWLOCATIONERR 1 000003E0 FFFFFFFE A U 8662 3864 JRNEWNOTDIR 1 0000007C FFFFFFFE A U 7232 607 JRNEWPASSWORDLENERROR 1 000002A8 FFFFFFFE A U 8230 2956 JRNOACCEPTTCB 1 00007244 FFFFFFFE A U 9586 5692 JRNOACCESS 1 0000032A FFFFFFFE A U 8347 3191 JRNOACK 1 000003E4 FFFFFFFE A U 8670 3884 JRNOADDRSPACE 1 0000027E FFFFFFFE A U 8131 2748 JRNOAREA 1 000003CF FFFFFFFE A U 8629 3782 JRNOBACKLOGQ 1 00000451 FFFFFFFE A U 8926 4427 JRNOBUFSTORAGE 1 000000DD FFFFFFFE A U 7436 1044 JRNOCALLERPID 1 00000462 FFFFFFFE A U 8983 4531 JRNOCERTFORUSER 1 0000044C FFFFFFFE A U 8912 4398 JRNOCHANGEIDENTITY 1 000003D1 FFFFFFFE A U 8633 3792 JRNOCLNYTHREADSPPT 1 000003A3 FFFFFFFE A U 8540 3592 JRNOCONSOLEBUFFERS 1 000003B3 FFFFFFFE A U 8584 3684 JRNOCTTY 1 000001A9 FFFFFFFE A U 7733 1798 JRNODATA 1 00000135 FFFFFFFE A U 7545 1315 JRNODEFAULT 1 0000043D FFFFFFFE A U 8877 4316 JRNODEVICEFOUND 1 000004BA FFFFFFFE A U 9278 5051 JRNODUAVAILABLE 1 00007308 FFFFFFFE A U 9973 6759 JRNOENCLAVE 1 000003D9 FFFFFFFE A U 8648 3829 JRNOEPHEMERALPORTS 1 00000440 FFFFFFFE A U 8887 4332 JRNOEVENTS 1 00000205 FFFFFFFE A U 7902 2201 JRNOFDS 1 00000267 FFFFFFFE A U 8082 2633 JRNOFDSTOOMANYQIDS 1 000003C1 FFFFFFFE A U 8611 3746 JRNOFILENOCREATFLAG 1 00000062 FFFFFFFE A U 7183 483 JRNOFREEENTRY 1STRREA Ordinary Symbol and Literal Cross Reference Page 178 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00000422 FFFFFFFE A U 8825 4209 JRNOFROMSYS 1 000004B1 FFFFFFFE A U 9252 4999 JRNOFSFOUND 1 000004B2 FFFFFFFE A U 9255 5005 JRNOHOMESTATEMENT 1 00007255 FFFFFFFE A U 9620 5784 JRNOINITACEE 1 0000044B FFFFFFFE A U 8909 4392 JRNOLEADINGSLASH 1 00000235 FFFFFFFE A U 7991 2435 JRNOLISTS 1 00000262 FFFFFFFE A U 8066 2602 JRNOLOCKERTOKEN 1 000002A0 FFFFFFFE A U 8210 2910 JRNOLONGERSERVER 1 000004BD FFFFFFFE A U 9284 5062 JRNOMOUNTPOINTFOUND 1 000004B4 FFFFFFFE A U 9261 5017 JRNOMULTI 1 000003D6 FFFFFFFE A U 8641 3813 JRNONAME 1 00000280 FFFFFFFE A U 8133 2754 JRNOOOBDATAAVAIL 1 0000027A FFFFFFFE A U 8123 2725 JRNOPATH 1 0000004D FFFFFFFE A U 7143 389 JRNOPERSIST 1 0000049A FFFFFFFE A U 9181 4868 JRNOPLACE 1 000004B6 FFFFFFFE A U 9266 5028 JRNOPTRACETASKSEC 1 000000CE FFFFFFFE A U 7390 958 JRNOPTSECENV 1 00000487 FFFFFFFE A U 9111 4760 JRNOREADERS 1 00000129 FFFFFFFE A U 7535 1288 JRNORESERVEDPORTS 1 000000C8 FFFFFFFE A U 7374 921 JRNORESOURCEACCESS 1 000000D9 FFFFFFFE A U 7422 1019 JRNOROOT 1 000004DC FFFFFFFE A U 9395 5243 JRNOSAFSUPPORT 1 000003A8 FFFFFFFE A U 8549 3615 JRNOSECURITYPRODUCT 1 0000002B FFFFFFFE A U 7087 253 JRNOSOCKET 1 00000222 FFFFFFFE A U 7953 2336 JRNOSPACE 1 00000292 FFFFFFFE A U 8164 2823 JRNOSTORAGE 1 000000B8 FFFFFFFE A U 7316 821 JRNOSUCHPID 1 000001F4 FFFFFFFE A U 7867 2113 JRNOSURROGATEPERM 1 000000DB FFFFFFFE A U 7430 1032 JRNOSYSTEMFOUND 1STRREA Ordinary Symbol and Literal Cross Reference Page 179 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000004B7 FFFFFFFE A U 9269 5033 JRNOTACTIVE 1 0000004E FFFFFFFE A U 7145 394 JRNOTAUTHMAP 1 000004CB FFFFFFFE A U 9343 5146 JRNOTAUTHORIZED 1 000001CF FFFFFFFE A U 7798 1955 JRNOTAUTHPORT 1 0000730E FFFFFFFE A U 9994 6797 JRNOTAUTHSTACK 1 0000730D FFFFFFFE A U 9992 6791 JRNOTAUTHWLM 1 000003EE FFFFFFFE A U 8686 3924 JRNOTBOUND 1 00007203 FFFFFFFE A U 9453 5343 JRNOTCLIENT 1 000004D8 FFFFFFFE A U 9383 5220 JRNOTCMAUTHORIZED 1 000072EB FFFFFFFE A U 9913 6601 JRNOTDESCENDANT 1 000001FA FFFFFFFE A U 7880 2146 JRNOTDIR 1 00000250 FFFFFFFE A U 8035 2538 JRNOTFORDIR 1 00000090 FFFFFFFE A U 7266 690 JRNOTINLIS 1 0000727D FFFFFFFE A U 9706 6009 JRNOTINWLMENCLAVE 1 0000048C FFFFFFFE A U 9130 4786 JRNOTKEY8 1 00000011 FFFFFFFE A U 7063 189 JRNOTMAPPED 1 0000032E FFFFFFFE A U 8356 3208 JRNOTMOVEABLE 1 000004BC FFFFFFFE A U 9281 5057 JRNOTMVSLOCALFILE 1 00000420 FFFFFFFE A U 8817 4196 JRNOTOSA 1 0000042D FFFFFFFE A U 8855 4272 JRNOTPAGE 1 00000346 FFFFFFFE A U 8415 3332 JRNOTPERMITTED 1 00000114 FFFFFFFE A U 7496 1196 JRNOTPRB 1 00000073 FFFFFFFE A U 7217 567 JRNOTPTCREATED 1 00000495 FFFFFFFE A U 9171 4842 JRNOTPTSECURITY 1 00000496 FFFFFFFE A U 9173 4847 JRNOTQUIESCED 1 000000B3 FFFFFFFE A U 7307 795 JRNOTREGISTERED 1 00000117 FFFFFFFE A U 7502 1208 JRNOTREGISTEREDSERVER 1 00000230 FFFFFFFE A U 7981 2407 JRNOTSEGMENT 1 00000459 FFFFFFFE A U 8949 4473 JRNOTSERVERAUTHORIZED 1STRREA Ordinary Symbol and Literal Cross Reference Page 180 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000000D8 FFFFFFFE A U 7416 1011 JRNOTSETUP 1 00000207 FFFFFFFE A U 7906 2212 JRNOTSIGSETUP 1 00000202 FFFFFFFE A U 7896 2184 JRNOTSRBSYSCALL 1 000003F5 FFFFFFFE A U 8707 3965 JRNOTSTDFILE 1 0000036F FFFFFFFE A U 8504 3507 JRNOTSTREAM 1 00000445 FFFFFFFE A U 8895 4358 JRNOTSUPINSYSPLEX 1 000004A5 FFFFFFFE A U 9210 4932 JRNOTSUPPORTEDFORFILETYPE 1 00000119 FFFFFFFE A U 7504 1213 JRNOUSEREXIT 1 000000C1 FFFFFFFE A U 7350 876 JRNOUSERSTORAGE 1 0000034F FFFFFFFE A U 8437 3383 JRNOVALUES 1 000004AD FFFFFFFE A U 9240 4976 JRNOVSMLIST 1 000000F6 FFFFFFFE A U 7438 1050 JRNOWILDAUTOMOVE 1 000004DA FFFFFFFE A U 9390 5232 JRNOWILDFROMSYS 1 000004AC FFFFFFFE A U 9237 4971 JRNOWLMCONN 1 000003D4 FFFFFFFE A U 8639 3808 JRNOWORKUNIT 1 000003D3 FFFFFFFE A U 8637 3803 JRNULLINPATH 1 0000003A FFFFFFFE A U 7109 311 JRNULLMASK 1 000001FD FFFFFFFE A U 7888 2163 JROLDLOCATIONERR 1 000003E1 FFFFFFFE A U 8664 3869 JROLDNOEXIST 1 0000007E FFFFFFFE A U 7237 619 JROLDPARTOFNEW 1 00000091 FFFFFFFE A U 7269 696 JROPEN 1 0000004B FFFFFFFE A U 7139 379 JROPENDIRNOTFOUND 1 00000072 FFFFFFFE A U 7215 561 JROPENFILELIMITMAX 1 00000364 FFFFFFFE A U 8466 3443 JROPENFLAGCONFLICT 1 00000065 FFFFFFFE A U 7190 501 JROPENFORWRITENOREADERS 1 00000128 FFFFFFFE A U 7533 1282 JROPENMAX 1 00000146 FFFFFFFE A U 7574 1390 JROPTLERR 1 00007234 FFFFFFFE A U 9554 5610 JROPTNOTSUPP 1STRREA Ordinary Symbol and Literal Cross Reference Page 181 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00000270 FFFFFFFE A U 8103 2675 JROSENVBEGINENVOUTSTANDING 1 0000049D FFFFFFFE A U 9188 4885 JROSENVENCLAVESUBTASKEXISTS 1 0000049F FFFFFFFE A U 9196 4899 JROSENVNOTACTIVE 1 000004A1 FFFFFFFE A U 9203 4912 JROSENVNOTEJOINEDTCB 1 0000049E FFFFFFFE A U 9192 4892 JROSENVPERSISTCNTBAD 1 000004A2 FFFFFFFE A U 9204 4917 JROSENVSECURITYMISMATCH 1 000004A0 FFFFFFFE A U 9200 4906 JROSENVWLMMISMATCH 1 0000049B FFFFFFFE A U 9183 4873 JROSENVWRONGENCLAVE 1 0000049C FFFFFFFE A U 9186 4879 JROTHERPROCESSES 1 00000246 FFFFFFFE A U 8014 2494 JROUTOFAUTOMOUNTENTRIES 1 000004C8 FFFFFFFE A U 9332 5126 JROUTOFLOCKS 1 000000A0 FFFFFFFE A U 7279 720 JROUTOFMOUNTENTRIES 1 000003CA FFFFFFFE A U 8616 3757 JROUTOFRANGE 1 00000209 FFFFFFFE A U 7911 2224 JROUTOFVDECELLS 1 0000022A FFFFFFFE A U 7969 2376 JRPARMTOOLONG 1 00000067 FFFFFFFE A U 7193 507 JRPASSWORDLENERROR 1 000002A7 FFFFFFFE A U 8228 2951 JRPATADDERR 1 00007224 FFFFFFFE A U 9518 5520 JRPATDELERR 1 00007225 FFFFFFFE A U 9519 5525 JRPATEXISTERR 1 00007226 FFFFFFFE A U 9521 5530 JRPATFNDERR 1 00007222 FFFFFFFE A U 9514 5510 JRPATFNXERR 1 00007223 FFFFFFFE A U 9516 5515 JRPATHCONF 1 00000345 FFFFFFFE A U 8412 3326 JRPATHNOTDIR 1 00000078 FFFFFFFE A U 7226 590 JRPATHTOOLONG 1 00000039 FFFFFFFE A U 7108 306 JRPATNOTFOUND 1 00007227 FFFFFFFE A U 9523 5535 JRPFSABEND 1 000000B7 FFFFFFFE A U 7314 816 JRPFSARGLENBAD 1 00000353 FFFFFFFE A U 8451 3408 1STRREA Ordinary Symbol and Literal Cross Reference Page 182 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRPFSCTL 1 000000BA FFFFFFFE A U 7322 832 JRPFSDEAD 1 00000043 FFFFFFFE A U 7125 347 JRPFSFAILED 1 000004E0 FFFFFFFE A U 9408 5265 JRPFSINITFAILED 1 000000BB FFFFFFFE A U 7324 837 JRPFSNOTDUBBED 1 00000333 FFFFFFFE A U 8369 3236 JRPFSOPNOTPERMITTED 1 00000352 FFFFFFFE A U 8449 3402 JRPFSOPNOTSUPPORTED 1 00000351 FFFFFFFE A U 8446 3396 JRPFSSUSPEND 1 000000B6 FFFFFFFE A U 7313 811 JRPGIDDIFFERENTSESSION 1 000001FB FFFFFFFE A U 7883 2152 JRPGMNOTAUTHORIZED 1 0000041B FFFFFFFE A U 8796 4162 JRPIDDIFFERENTSESSION 1 000001F7 FFFFFFFE A U 7872 2128 JRPIDEQSESSLEADER 1 000001F5 FFFFFFFE A U 7868 2118 JRPINGSELF 1 0000040D FFFFFFFE A U 8755 4082 JRPORTACCESSAUTH 1 00007246 FFFFFFFE A U 9590 5702 JRPORTBUSY 1 00007247 FFFFFFFE A U 9592 5708 JRPORTRERR 1 00007229 FFFFFFFE A U 9526 5545 JRPORTUNAVAILABLE 1 00007309 FFFFFFFE A U 9979 6766 JRPREVSOCKERROR 1 00000381 FFFFFFFE A U 8510 3529 JRPRIVILIGEDFILE 1 00000417 FFFFFFFE A U 8783 4137 JRPROCESSENDING 1 00000143 FFFFFFFE A U 7569 1373 JRPROCESSNOTFROZEN 1 000000C2 FFFFFFFE A U 7355 883 JRPROCMAXMMAP 1 0000034A FFFFFFFE A U 8425 3355 JRPROGCNTL 1 0000041C FFFFFFFE A U 8802 4170 JRPSWKEYNOTVALID 1 00000200 FFFFFFFE A U 7892 2173 JRPTASYNCTHREAD 1 00000271 FFFFFFFE A U 8105 2680 JRPTATADDRERROR 1 000001D4 FFFFFFFE A U 7803 1967 JRPTATDETACHSTATE 1 000001F3 FFFFFFFE A U 7864 2107 JRPTATEYE 1 000001D3 FFFFFFFE A U 7800 1961 1STRREA Ordinary Symbol and Literal Cross Reference Page 183 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRPTATLEN 1 000001ED FFFFFFFE A U 7848 2072 JRPTATSYNCTYPE 1 000001F2 FFFFFFFE A U 7861 2101 JRPTATSYSLEN 1 000001EC FFFFFFFE A U 7845 2066 JRPTATSYSOFF 1 000001EB FFFFFFFE A U 7842 2060 JRPTATTEMPTEDCRSTORE 1 00000169 FFFFFFFE A U 7638 1530 JRPTATTEMPTEDPSW0STORE 1 0000016A FFFFFFFE A U 7640 1536 JRPTATWEIGHT 1 000001F1 FFFFFFFE A U 7858 2095 JRPTBADBLKOFFSET 1 00000466 FFFFFFFE A U 8993 4555 JRPTBADBLKREQSTRUC 1 0000045D FFFFFFFE A U 8966 4500 JRPTBUFNOTFOUND 1 000003AA FFFFFFFE A U 8553 3626 JRPTCNOTSUPP 1 000001D5 FFFFFFFE A U 7805 1972 JRPTDBDEQUALSDBR 1 0000016C FFFFFFFE A U 7642 1542 JRPTDBDPARENTTERM 1 0000016D FFFFFFFE A U 7645 1548 JRPTDBDPIDNOTFOUND 1 0000016E FFFFFFFE A U 7647 1553 JRPTDBRPARENTEQUALSDBD 1 000001A4 FFFFFFFE A U 7724 1771 JRPTDBRPIDNOTFOUND 1 0000016F FFFFFFFE A U 7649 1559 JRPTDBRZOMBIE 1 00000170 FFFFFFFE A U 7650 1564 JRPTEDISAUTHORIZED 1 000001A0 FFFFFFFE A U 7720 1759 JRPTINVCALLINGMODE 1 00000171 FFFFFFFE A U 7651 1569 JRPTINVDBDADDRESS 1 00000172 FFFFFFFE A U 7653 1574 JRPTINVDBRADDRESS 1 00000173 FFFFFFFE A U 7656 1580 JRPTINVFPCWRITE 1 00000475 FFFFFFFE A U 9051 4651 JRPTINVFPRNUMBER 1 00000174 FFFFFFFE A U 7659 1586 JRPTINVGPRHNUMBER 1 000004E1 FFFFFFFE A U 9412 5271 JRPTINVGPRNUMBER 1 00000175 FFFFFFFE A U 7662 1592 JRPTINVLENGTH 1 00000176 FFFFFFFE A U 7665 1598 JRPTINVNUMBERTHREADS 1 00000177 FFFFFFFE A U 7666 1603 JRPTINVPTRACESTATE 1STRREA Ordinary Symbol and Literal Cross Reference Page 184 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00000178 FFFFFFFE A U 7668 1609 JRPTINVREQUEST 1 00000179 FFFFFFFE A U 7670 1615 JRPTINVSIGNALNUMBER 1 0000017A FFFFFFFE A U 7672 1620 JRPTINVUAREAOFFSET 1 0000017B FFFFFFFE A U 7674 1626 JRPTLDBUFFERTOOSMALL 1 000001A2 FFFFFFFE A U 7722 1765 JRPTLDTOOMANYEXTENTS 1 0000043B FFFFFFFE A U 8871 4305 JRPTMAXCAPTURE 1 000003B4 FFFFFFFE A U 8586 3689 JRPTNOSTORAGE 1 000003A9 FFFFFFFE A U 8551 3621 JRPTNOTXTDEVENT 1 00000294 FFFFFFFE A U 8169 2835 JRPTOLDDBRPIDNOTFOUND 1 0000017C FFFFFFFE A U 7677 1632 JRPTPROCESSNOTPTRACED 1 0000017E FFFFFFFE A U 7679 1637 JRPTPROCESSNOTSTOPPED 1 0000017F FFFFFFFE A U 7681 1643 JRPTPROCESSTERM 1 00000180 FFFFFFFE A U 7683 1649 JRPTREQUESTDENIED 1 00000247 FFFFFFFE A U 8017 2500 JRPTRESTRICTEDPROCESS 1 00000182 FFFFFFFE A U 7684 1654 JRPTSIGINTERRUPT 1 00000183 FFFFFFFE A U 7686 1660 JRPTSOMEBLKEDFAILED 1 0000045E FFFFFFFE A U 8970 4507 JRPTTOOMANYEVENTS 1 00000295 FFFFFFFE A U 8173 2841 JRPTTSO 1 000003AB FFFFFFFE A U 8558 3633 JRPTTYPENOTBLOCKABLE 1 0000045F FFFFFFFE A U 8973 4513 JRPTTYPENOTTRIED 1 0000045C FFFFFFFE A U 8961 4493 JRPTYALREADYACTIVE 1 00000155 FFFFFFFE A U 7601 1449 JRPTYBADQUESEL 1 000001A7 FFFFFFFE A U 7730 1787 JRPTYBGCALL 1 00000197 FFFFFFFE A U 7712 1738 JRPTYCHGFROMSLAVE 1 00000335 FFFFFFFE A U 8376 3249 JRPTYCONNECTIONINOP 1 000001C6 FFFFFFFE A U 7787 1932 JRPTYDIFFERENTFILE 1 00000159 FFFFFFFE A U 7611 1471 JRPTYDIFFERENTUID 1 00000157 FFFFFFFE A U 7605 1459 JRPTYDIFFSESSION 1STRREA Ordinary Symbol and Literal Cross Reference Page 185 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 0000019A FFFFFFFE A U 7717 1753 JRPTYGRANTPTDONE 1 000003F3 FFFFFFFE A U 8702 3954 JRPTYHUPCLCLOSE 1 000001AA FFFFFFFE A U 7735 1803 JRPTYINPUTSTOPPED 1 0000015C FFFFFFFE A U 7617 1483 JRPTYINVALIDACTION 1 00000190 FFFFFFFE A U 7703 1703 JRPTYINVALIDCCFLAG 1 00000191 FFFFFFFE A U 7704 1708 JRPTYINVALIDCIFLAG 1 00000193 FFFFFFFE A U 7706 1718 JRPTYINVALIDCLFLAG 1 00000192 FFFFFFFE A U 7705 1713 JRPTYINVALIDCOFLAG 1 00000194 FFFFFFFE A U 7707 1723 JRPTYINVALIDINBAUD 1 00000196 FFFFFFFE A U 7710 1733 JRPTYINVALIDOUTBAUD 1 00000195 FFFFFFFE A U 7708 1728 JRPTYINVALIDPGID 1 000001AC FFFFFFFE A U 7740 1814 JRPTYMASTERCLOSED 1 00000158 FFFFFFFE A U 7609 1465 JRPTYMINORINVALID 1 00000154 FFFFFFFE A U 7597 1443 JRPTYMUTUALLYEXCLUSIVE 1 00000343 FFFFFFFE A U 8407 3314 JRPTYNEEDPKTXTND 1 000003B8 FFFFFFFE A U 8592 3706 JRPTYNEEDPKT3270 1 0000033A FFFFFFFE A U 8389 3274 JRPTYNOBUFSTORAGE 1 00000166 FFFFFFFE A U 7636 1524 JRPTYNOCNTLTERM 1 00000199 FFFFFFFE A U 7715 1748 JRPTYNODATA 1 00000163 FFFFFFFE A U 7628 1507 JRPTYNOPTYRSTORAGE 1 000001C4 FFFFFFFE A U 7783 1920 JRPTYNOPTYSSTORAGE 1 00000273 FFFFFFFE A U 8110 2691 JRPTYNOSESSLEADER 1 000001A8 FFFFFFFE A U 7731 1792 JRPTYNOTCNTLTERM 1 0000037D FFFFFFFE A U 8508 3523 JRPTYNOTINSESSION 1 000001AD FFFFFFFE A U 7742 1819 JRPTYNOTMASTER 1 000003BC FFFFFFFE A U 8602 3725 JRPTYNOTPGLEADER 1 000001A5 FFFFFFFE A U 7726 1777 JRPTYNOTRTSTORAGE 1 00000360 FFFFFFFE A U 8460 3431 1STRREA Ordinary Symbol and Literal Cross Reference Page 186 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRPTYNOTSLAVE 1 000001A6 FFFFFFFE A U 7728 1782 JRPTYORPHANED 1 0000038D FFFFFFFE A U 8526 3561 JRPTYORPHANEDREAD 1 00000164 FFFFFFFE A U 7630 1512 JRPTYORPHANEDWRITE 1 00000160 FFFFFFFE A U 7623 1495 JRPTYOUTPUTSTOPPED 1 00000161 FFFFFFFE A U 7626 1501 JRPTYPENDINGCONTROLINFO 1 0000034D FFFFFFFE A U 8431 3371 JRPTYQUEUECHANGE 1 00000387 FFFFFFFE A U 8521 3550 JRPTYSIGTTINBLOCKED 1 00000165 FFFFFFFE A U 7633 1518 JRPTYSLAVELOCKED 1 000003F1 FFFFFFFE A U 8694 3941 JRPTYSLAVENOTINIT 1 0000015B FFFFFFFE A U 7615 1477 JRPTYSLAVENOTLOCKED 1 000003F2 FFFFFFFE A U 8698 3947 JRPTYSLAVEOPENED 1 00000153 FFFFFFFE A U 7593 1437 JRPTYUNSUPPORTEDATTR 1 000003CB FFFFFFFE A U 8620 3764 JRPVCALREADYDEFINED 1 00007270 FFFFFFFE A U 9672 5935 JRPVCINUSEASARPSV 1 00007278 FFFFFFFE A U 9688 5979 JRPVCLINKNOTATM 1 00007275 FFFFFFFE A U 9681 5961 JRPVCNOTDEFINED 1 00007271 FFFFFFFE A U 9673 5940 JRQUIESCED 1 000000B4 FFFFFFFE A U 7309 800 JRQUIESCETYPEINVALID 1 00000225 FFFFFFFE A U 7960 2353 JRQUIESCING 1 0000018F FFFFFFFE A U 7701 1697 JRRAISEHARDLIMIT 1 0000033C FFFFFFFE A U 8394 3286 JRRCVDLIMIT 1 00007236 FFFFFFFE A U 9558 5620 JRRDANDWRTFORPIPE 1 00000125 FFFFFFFE A U 7531 1277 JRRDDFILENOTDIR 1 00000070 FFFFFFFE A U 7210 550 JRRDDPLUSNOCURSORSUPP 1 00000439 FFFFFFFE A U 8865 4293 JRRDLBUFFLENINVALID 1 000001FE FFFFFFFE A U 7890 2168 JRRDNORWRTFORPIPE 1 00000133 FFFFFFFE A U 7543 1309 JRRDWR 1 00000046 FFFFFFFE A U 7132 363 1STRREA Ordinary Symbol and Literal Cross Reference Page 187 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRREADDIR 1 0000006D FFFFFFFE A U 7206 540 JRREADLINK 1 00000106 FFFFFFFE A U 7471 1133 JRREADONLYFILESETCREATREQ 1 00000061 FFFFFFFE A U 7181 477 JRREADONLYFILESETMKNODREQ 1 00000076 FFFFFFFE A U 7221 579 JRREADONLYFILESETWRITEREQ 1 00000060 FFFFFFFE A U 7178 471 JRREADONLYFS 1 00000079 FFFFFFFE A U 7228 595 JRREADUSERSTORAGEFAILED 1 000001BF FFFFFFFE A U 7773 1896 JRREADWRITEV 1 0000021A FFFFFFFE A U 7935 2288 JRREALPAGENOTSUPPORTED 1 000003AF FFFFFFFE A U 8571 3658 JRRECOVERY 1 0000025F FFFFFFFE A U 8059 2586 JRRECVOPTLERR 1 00007249 FFFFFFFE A U 9595 5719 JRREMOVE 1 00000068 FFFFFFFE A U 7195 513 JRRENAME 1 00000080 FFFFFFFE A U 7242 630 JRREQDENIED 1 0000042B FFFFFFFE A U 8850 4261 JRRESERVEDVALUEINVALID 1 000004D6 FFFFFFFE A U 9379 5209 JRRESETALREADYINPROG 1 000004A8 FFFFFFFE A U 9225 4951 JRRESNOTFOUNDINDNS 1 0000728B FFFFFFFE A U 9745 6093 JRRESRPORTNOTAVAIL 1 000000C5 FFFFFFFE A U 7367 903 JRRESRPORTSPECIFIED 1 000000C4 FFFFFFFE A U 7364 897 JRRESRPORTUSED 1 000000C6 FFFFFFFE A U 7369 909 JRRFILENOREAD 1 0000031E FFFFFFFE A U 8327 3149 JRRFILEWRONLY 1 00000033 FFFFFFFE A U 7098 280 JRRLIMITCANTCREATE 1 0000036D FFFFFFFE A U 8502 3501 JRRMDIR 1 00000077 FFFFFFFE A U 7224 585 JRRMGWRONGDATALEN 1 000001EE FFFFFFFE A U 7851 2078 JRROOTNODE 1 0000008C FFFFFFFE A U 7258 670 JRROSALREADYREG 1 00000412 FFFFFFFE A U 8762 4103 JRROUTEEXISTS 1 00000418 FFFFFFFE A U 8785 4143 JRROUTINEERROR 1 00000261 FFFFFFFE A U 8063 2596 1STRREA Ordinary Symbol and Literal Cross Reference Page 188 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRRTALREADYEXISTS 1 00007264 FFFFFFFE A U 9651 5868 JRRTINVALIDDEST 1 00007250 FFFFFFFE A U 9609 5756 JRRTINVALIDGATEWAYADDR 1 0000724D FFFFFFFE A U 9603 5740 JRRTINVALIDHOSTADDR 1 00007252 FFFFFFFE A U 9613 5766 JRRTINVALIDMASK 1 00007251 FFFFFFFE A U 9611 5761 JRRTINVALIDMASKCIDR 1 00007287 FFFFFFFE A U 9732 6068 JRRTINVALIDMASKDEFAULT 1 00007285 FFFFFFFE A U 9727 6056 JRRTINVALIDMASKHOST 1 00007284 FFFFFFFE A U 9725 6050 JRRTINVALIDPROTOCOL 1 0000724E FFFFFFFE A U 9605 5746 JRRTINVALIDTOS 1 0000724C FFFFFFFE A U 9601 5735 JRRTINVALIDTYPE 1 0000724F FFFFFFFE A U 9607 5751 JRRTNOBSDROUTINGPARMSSET 1 00007286 FFFFFFFE A U 9730 6062 JRRTNOTDEFINED 1 00007265 FFFFFFFE A U 9652 5873 JRRTREMOVEDIRECTERROR 1 00007266 FFFFFFFE A U 9653 5878 JRRTREMOVEINDIRECTERROR 1 00007268 FFFFFFFE A U 9657 5888 JRRTSSCONNERR 1 000003F6 FFFFFFFE A U 8709 3971 JRRTSSENVERR 1 000003F7 FFFFFFFE A U 8711 3977 JRRWDFILENOTDIR 1 0000008B FFFFFFFE A U 7256 664 JRRWNOTREGFILE 1 00000239 FFFFFFFE A U 7998 2455 JRSAFGROUPNOOMVS 1 000000FA FFFFFFFE A U 7445 1066 JRSAFINTERNAL 1 000000FE FFFFFFFE A U 7453 1087 JRSAFNOCELLUUID 1 000000D4 FFFFFFFE A U 7404 988 JRSAFNODCECLASS 1 000000D3 FFFFFFFE A U 7402 983 JRSAFNOGID 1 000000FD FFFFFFFE A U 7451 1082 JRSAFNOTAUTHORIZED 1 000000DC FFFFFFFE A U 7433 1038 JRSAFNOUID 1 000000FC FFFFFFFE A U 7450 1077 JRSAFNOUSER 1 000000F9 FFFFFFFE A U 7443 1061 JRSAFNOUSERTOUUID 1STRREA Ordinary Symbol and Literal Cross Reference Page 189 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000000D2 FFFFFFFE A U 7400 977 JRSAFNOUUIDTOUSER 1 000000D1 FFFFFFFE A U 7396 971 JRSAFRESOURCEUNDEFINED 1 000000CF FFFFFFFE A U 7394 965 JRSAFUSERNOOMVS 1 000000FB FFFFFFFE A U 7448 1072 JRSECACTIVE 1 00000498 FFFFFFFE A U 9178 4858 JRSECOUTOFRANGE 1 00000266 FFFFFFFE A U 8079 2627 JRSECURITYENV 1 00000457 FFFFFFFE A U 8944 4462 JRSELECT 1 0000021E FFFFFFFE A U 7945 2312 JRSELFCONNECT 1 00000443 FFFFFFFE A U 8893 4348 JRSEMA4BADADJ 1 0000030E FFFFFFFE A U 8276 3050 JRSEMA4BADNOPS 1 0000030F FFFFFFFE A U 8279 3056 JRSEMA4BADNSEMS 1 00000310 FFFFFFFE A U 8281 3062 JRSEMA4BADSEMN 1 00000312 FFFFFFFE A U 8287 3074 JRSEMA4BADVALUE 1 00000313 FFFFFFFE A U 8288 3079 JRSEMA4BIGNSEMS 1 00000314 FFFFFFFE A U 8290 3085 JRSEMA4ZERONSEMS 1 00000315 FFFFFFFE A U 8292 3091 JRSEMSTORAGELIMIT 1 0000031F FFFFFFFE A U 8329 3155 JRSENDLIMIT 1 00007235 FFFFFFFE A U 9556 5615 JRSENDOPTLERR 1 00007248 FFFFFFFE A U 9593 5713 JRSETATTR 1 00000102 FFFFFFFE A U 7462 1110 JRSETPEER 1 0000021F FFFFFFFE A U 7947 2318 JRSETSOCKOPTFAILALL 1 0000036A FFFFFFFE A U 8489 3480 JRSETSOCKOPTFAILONE 1 0000036B FFFFFFFE A U 8493 3487 JRSETSOCKOPTFAILSOME 1 0000036C FFFFFFFE A U 8497 3494 JRSHMBADSIZE 1 00000316 FFFFFFFE A U 8295 3097 JRSHMMAXATTACH 1 00000317 FFFFFFFE A U 8299 3103 JRSHMMAXSPAGES 1 00000329 FFFFFFFE A U 8343 3185 JRSHRLIBNOTAUTHORIZED 1 000004C7 FFFFFFFE A U 9326 5118 JRSHRSTGSHORTAGE 1STRREA Ordinary Symbol and Literal Cross Reference Page 190 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000003B7 FFFFFFFE A U 8590 3700 JRSHSPMASK 1 000003A4 FFFFFFFE A U 8542 3597 JRSHUTDOWN 1 00000220 FFFFFFFE A U 7949 2324 JRSIGDURINGWAIT 1 00000130 FFFFFFFE A U 7542 1304 JRSIGINFOLEN 1 0000048F FFFFFFFE A U 9140 4803 JRSIGNALPID 1 00000461 FFFFFFFE A U 8981 4526 JRSIGNALRECEIVED 1 00000156 FFFFFFFE A U 7603 1454 JRSIGNALSNOTBLOCKED 1 00000144 FFFFFFFE A U 7570 1378 JRSINGLETDREQD 1 000003AD FFFFFFFE A U 8565 3646 JRSKASMBADTYPE 1 000072DE FFFFFFFE A U 9882 6528 JRSKCIBALREADYSLEEPING1 1 000072B2 FFFFFFFE A U 9816 6306 JRSKCIBINVALIDMESSAGE 1 000072B1 FFFFFFFE A U 9815 6301 JRSKDKIBADFINDTYPE 1 000072B5 FFFFFFFE A U 9821 6321 JRSKDKIBADQGETTYPE 1 000072B7 FFFFFFFE A U 9823 6331 JRSKDKIBADQSETTYPE 1 000072B8 FFFFFFFE A U 9824 6336 JRSKDKINOTFOUND 1 000072B6 FFFFFFFE A U 9822 6326 JRSKDKINOTREADQUEUE 1 000072B3 FFFFFFFE A U 9817 6311 JRSKDKINOTWRITEQUEUE 1 000072B4 FFFFFFFE A U 9819 6316 JRSKHEDBADOPEN 1 000072B9 FFFFFFFE A U 9825 6341 JRSKMNTBADMESSAGE 1 000072BA FFFFFFFE A U 9827 6346 JRSKMNTSNOOPERALREADYACTIVE 1 000072BB FFFFFFFE A U 9828 6351 JRSKMNTSNOOPERNOTACTIVE 1 000072BC FFFFFFFE A U 9830 6356 JRSKSACLINKEDSTREAM 1 000072E0 FFFFFFFE A U 9885 6538 JRSKSACNOSTREAM 1 000072DF FFFFFFFE A U 9883 6533 JRSKSTOBADCONTROLINFORMATION 1 000072C5 FFFFFFFE A U 9846 6401 JRSKSTOBADINDEX 1 000072BD FFFFFFFE A U 9832 6361 JRSKSTOBADMESSAGELENGTH1 1 000072C3 FFFFFFFE A U 9842 6391 JRSKSTOBADMESSAGELENGTH2 1 000072C4 FFFFFFFE A U 9844 6396 1STRREA Ordinary Symbol and Literal Cross Reference Page 191 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRSKSTOBADMESSAGETYPE 1 000072BF FFFFFFFE A U 9836 6371 JRSKSTOBADSTREAM 1 000072BE FFFFFFFE A U 9834 6366 JRSKSTOMESSAGETOOSHORT 1 000072C1 FFFFFFFE A U 9839 6381 JRSKSTONOCONTROLPART1 1 000072C2 FFFFFFFE A U 9841 6386 JRSKSTONOEMPTYMESSAGES 1 000072C0 FFFFFFFE A U 9837 6376 JRSKSTONOMESSAGES 1 000072C6 FFFFFFFE A U 9848 6407 JRSKSTORESOURCESHORTAGE2 1 000072C7 FFFFFFFE A U 9849 6412 JRSKSTORESOURCESHORTAGE3 1 000072C8 FFFFFFFE A U 9851 6417 JRSKVRBBADACTION 1 000072D3 FFFFFFFE A U 9866 6473 JRSKVRBBADCLASS1 1 000072DA FFFFFFFE A U 9876 6508 JRSKVRBBADCLASS2 1 000072DB FFFFFFFE A U 9877 6513 JRSKVRBBADFLAG 1 000072D5 FFFFFFFE A U 9868 6483 JRSKVRBBADID 1 000072D4 FFFFFFFE A U 9867 6478 JRSKVRBBADMASK 1 000072D2 FFFFFFFE A U 9865 6468 JRSKVRBBADNAME 1 000072CB FFFFFFFE A U 9855 6433 JRSKVRBBADOPTION1 1 000072C9 FFFFFFFE A U 9853 6423 JRSKVRBBADOPTION2 1 000072D7 FFFFFFFE A U 9870 6493 JRSKVRBBADOPTION3 1 000072D8 FFFFFFFE A U 9872 6498 JRSKVRBBADOPTION4 1 000072D9 FFFFFFFE A U 9874 6503 JRSKVRBBADTYPE 1 000072D0 FFFFFFFE A U 9862 6458 JRSKVRBNOERRNO 1 000072D6 FFFFFFFE A U 9869 6488 JRSKVRBNORESOURCES1 1 000072CC FFFFFFFE A U 9856 6438 JRSKVRBNORESOURCES2 1 000072D1 FFFFFFFE A U 9863 6463 JRSKVRBNORESOURCES3 1 000072DC FFFFFFFE A U 9879 6518 JRSKVRBNOTHINGPUSHED1 1 000072CD FFFFFFFE A U 9858 6443 JRSKVRBNOTHINGPUSHED2 1 000072DD FFFFFFFE A U 9881 6523 JRSKVRBNOTLINKED 1 000072CF FFFFFFFE A U 9860 6453 JRSKVRBNOTMULTIPLEXED 1STRREA Ordinary Symbol and Literal Cross Reference Page 192 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000072CE FFFFFFFE A U 9859 6448 JRSKVRBNOTUP 1 000072CA FFFFFFFE A U 9854 6428 JRSMALLATTR 1 00000237 FFFFFFFE A U 7994 2445 JRSMALLFSATTR 1 00000243 FFFFFFFE A U 8007 2477 JRSMALLMNTE 1 00000238 FFFFFFFE A U 7996 2450 JRSMFBADRECORDLENGTH 1 00000409 FFFFFFFE A U 8747 4065 JRSMFNOTACCEPTING 1 00000406 FFFFFFFE A U 8743 4054 JRSMFNOTACTIVE 1 00000407 FFFFFFFE A U 8746 4060 JRSMFNOTAUTHORIZED 1 00000405 FFFFFFFE A U 8739 4047 JRSNDRCV 1 0000021B FFFFFFFE A U 7938 2294 JRSNDTORCVFM 1 0000021C FFFFFFFE A U 7940 2300 JRSOCANWKBITON 1 00000259 FFFFFFFE A U 8042 2555 JRSOCKBUFMAX 1 00000276 FFFFFFFE A U 8114 2703 JRSOCKET 1 00000221 FFFFFFFE A U 7951 2330 JRSOCKETCALLPARMERROR 1 0000025E FFFFFFFE A U 8057 2580 JRSOCKETCLOSED 1 0000025C FFFFFFFE A U 8050 2567 JRSOCKETCONDROPPED 1 00000446 FFFFFFFE A U 8897 4364 JRSOCKETNAMED 1 00000254 FFFFFFFE A U 8039 2549 JRSOCKETNONBLOCK 1 00000472 FFFFFFFE A U 9040 4632 JRSOCKETNOTCON 1 00000272 FFFFFFFE A U 8108 2686 JRSOCKETPROTOCOLINVALID 1 00000283 FFFFFFFE A U 8140 2771 JRSOCKETRSTRECEIVED 1 00000442 FFFFFFFE A U 8891 4343 JRSOCKETSYNRECEIVED 1 00000441 FFFFFFFE A U 8889 4338 JRSOCKETTYPENOTSUPPORTED 1 0000029C FFFFFFFE A U 8201 2887 JRSOCKNONAME 1 00000278 FFFFFFFE A U 8118 2714 JRSOCKOPT 1 00000218 FFFFFFFE A U 7931 2276 JRSOCKRDWRSIGNAL 1 00000275 FFFFFFFE A U 8112 2697 JRSOCKSHUTDOWN 1 0000027C FFFFFFFE A U 8128 2737 JRSOFTBELOWUSAGE 1 0000033F FFFFFFFE A U 8402 3303 1STRREA Ordinary Symbol and Literal Cross Reference Page 193 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRSOFTEXCEEDSHARD 1 0000033E FFFFFFFE A U 8399 3297 JRSPAWNARGSTOOBIG 1 000000BD FFFFFFFE A U 7330 848 JRSPAWNNOCOMMONSTG 1 000000BC FFFFFFFE A U 7326 842 JRSPAWNTOOMANYFDS 1 00000323 FFFFFFFE A U 8339 3179 JRSPFILEEXISTS 1 00000075 FFFFFFFE A U 7219 573 JRSRBSNOTALLOWED 1 000003F4 FFFFFFFE A U 8705 3960 JRSRMSG 1 0000021D FFFFFFFE A U 7943 2306 JRSRX 1 00000464 FFFFFFFE A U 8989 4543 JRSSETTOOSMALL 1 00000467 FFFFFFFE A U 8999 4562 JRSTALEVFS 1 000003CE FFFFFFFE A U 8625 3776 JRSTALEVFSTOK 1 00000236 FFFFFFFE A U 7993 2440 JRSTALEVNODETOK 1 0000022E FFFFFFFE A U 7978 2397 JRSTARTNONDEVICEINVALID 1 0000725D FFFFFFFE A U 9634 5828 JRSTATFS 1 000000A5 FFFFFFFE A U 7287 740 JRSTATUSPOSTED 1 000000FF FFFFFFFE A U 7455 1092 JRSTICKYBIT 1 00000493 FFFFFFFE A U 9162 4830 JRSTIMERMMAX 1 000003A2 FFFFFFFE A U 8536 3586 JRSTLACTIONINVALID 1 0000028E FFFFFFFE A U 8155 2800 JRSTLTASKSINVALID 1 0000028F FFFFFFFE A U 8157 2806 JRSTLTHREADSINVALID 1 00000290 FFFFFFFE A U 8159 2812 JRSTORNOTAVAIL 1 00000458 FFFFFFFE A U 8947 4468 JRSUBSYSNOTFND 1 000003DA FFFFFFFE A U 8650 3835 JRSURROGATEUNDEFINED 1 000000DA FFFFFFFE A U 7425 1025 JRSVC99FAILED 1 000003E9 FFFFFFFE A U 8676 3899 JRSWAPMISMATCH 1 00000450 FFFFFFFE A U 8921 4420 JRSYMFILEALREADYEXISTS 1 00000103 FFFFFFFE A U 7464 1116 JRSYMLINK 1 00000104 FFFFFFFE A U 7467 1122 JRSYNC 1 000000A3 FFFFFFFE A U 7285 735 JRSYSCALLFAILALL 1 00000367 FFFFFFFE A U 8473 3459 JRSYSCALLFAILONE 1STRREA Ordinary Symbol and Literal Cross Reference Page 194 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00000368 FFFFFFFE A U 8478 3466 JRSYSCALLFAILSOME 1 00000369 FFFFFFFE A U 8483 3473 JRSYSPLEXADDRNOTFOUND 1 0000728A FFFFFFFE A U 9740 6086 JRSYSPLEXBLACKHOLEIO 1 000004C3 FFFFFFFE A U 9308 5096 JRSYSPLEXDATASYNCLOST 1 000004B8 FFFFFFFE A U 9272 5038 JRSYSPLEXRECOVERYINPROG 1 000004A6 FFFFFFFE A U 9216 4939 JRTARGETENDING 1 00000224 FFFFFFFE A U 7959 2348 JRTARGETIPNOTFOUND 1 000003EF FFFFFFFE A U 8690 3930 JRTARGETNOTDIR 1 00000071 FFFFFFFE A U 7213 556 JRTARGETPID 1 00000460 FFFFFFFE A U 8979 4521 JRTASKACEE 1 000002A5 FFFFFFFE A U 8222 2940 JRTCPERROR 1 00000291 FFFFFFFE A U 8161 2818 JRTCPINVALIDREQUESTCODE 1 000072AD FFFFFFFE A U 9809 6280 JRTCPINVALIDTCPIPNAME 1 000072AC FFFFFFFE A U 9808 6275 JRTCPINVDELETE 1 000072AF FFFFFFFE A U 9811 6290 JRTCPINVUSERDATA 1 000072B0 FFFFFFFE A U 9813 6296 JRTCPNOTACTIVE 1 00000296 FFFFFFFE A U 8176 2847 JRTCPNOTINSTALLEDORUP 1 000072AE FFFFFFFE A U 9810 6285 JRTCPNOTUP 1 0000721F FFFFFFFE A U 9510 5494 JRTCPTCPIPERROR 1 000072AB FFFFFFFE A U 9806 6270 JRTDGONE 1 000004B9 FFFFFFFE A U 9276 5045 JRTELNFNDERR 1 0000727F FFFFFFFE A U 9712 6021 JRTELSTATERR 1 0000727E FFFFFFFE A U 9709 6015 JRTGTMEMBERINACTIVE 1 000003CC FFFFFFFE A U 8622 3770 JRTHREADNOTFOUND 1 000001DC FFFFFFFE A U 7818 2004 JRTHREADTERM 1 000001D8 FFFFFFFE A U 7811 1988 JRTIMEOUT 1 00000211 FFFFFFFE A U 7917 2236 JRTIMEOUTNOTAUTH 1 000001F9 FFFFFFFE A U 7877 2140 JRTLIERROR 1STRREA Ordinary Symbol and Literal Cross Reference Page 195 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 00007205 FFFFFFFE A U 9456 5353 JRTLSADDRESSLENGTHINVALID 1 000000CB FFFFFFFE A U 7382 940 JRTLSCALLERISIPT 1 000000CC FFFFFFFE A U 7385 946 JRTLSCERTIDLENINVALID 1 00000448 FFFFFFFE A U 8902 4375 JRTLSCERTLENGTHINVALID 1 0000044A FFFFFFFE A U 8907 4386 JRTLSCERTTYPEINVALID 1 00000449 FFFFFFFE A U 8905 4381 JRTLSIDLENGTHINVALID 1 000000CA FFFFFFFE A U 7380 934 JRTLSIDTYPEINVALID 1 000000C9 FFFFFFFE A U 7378 928 JRTLSNOTDONEBYOE 1 000000CD FFFFFFFE A U 7386 951 JRTLSREQUESTINVALID 1 000000C7 FFFFFFFE A U 7372 915 JRTOKDIR 1 00000249 FFFFFFFE A U 8022 2511 JRTOKENMAX 1 0000022B FFFFFFFE A U 7971 2381 JRTOKNOTDIR 1 0000024A FFFFFFFE A U 8024 2516 JRTOOMANY 1 000001F6 FFFFFFFE A U 7870 2123 JRTOOMANYBYTES 1 00000471 FFFFFFFE A U 9036 4626 JRTOOMANYDVIPAS 1 00007306 FFFFFFFE A U 9969 6747 JRTOOMANYFDS 1 0000039E FFFFFFFE A U 8532 3575 JRTOOMANYINTF 1 00000428 FFFFFFFE A U 8842 4244 JRTOOMANYSYMLINKS 1 0000011D FFFFFFFE A U 7513 1236 JRTOOMANYTHDS 1 0000025D FFFFFFFE A U 8053 2573 JRTOSOPT 1 0000723A FFFFFFFE A U 9566 5641 JRTOSOPTLERR 1 0000723D FFFFFFFE A U 9572 5656 JRTRANSPORTDRIVERNOTACCESSIBLE 1 0000038E FFFFFFFE A U 8529 3567 JRTRLENOTFOUND 1 0000040F FFFFFFFE A U 8758 4092 JRTRMOUNTEDRO 1 0000009D FFFFFFFE A U 7274 708 JRTRNEGOFFSET 1 0000009F FFFFFFFE A U 7277 714 JRTRNOTREGFILE 1 00000041 FFFFFFFE A U 7120 336 JRTROPENEDRO 1 0000009C FFFFFFFE A U 7272 702 JRTRUNC 1 00000100 FFFFFFFE A U 7458 1098 JRTSO 1 000002AE FFFFFFFE A U 8236 2968 1STRREA Ordinary Symbol and Literal Cross Reference Page 196 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0JRTTLOPT 1 0000723B FFFFFFFE A U 9568 5646 JRTTLOPTLERR 1 0000723E FFFFFFFE A U 9574 5661 JRTYPENOTPID 1 00000311 FFFFFFFE A U 8285 3068 JRUDPNOTUP 1 00007220 FFFFFFFE A U 9511 5499 JRUMOUNT 1 000000A2 FFFFFFFE A U 7283 730 JRUNBINDNOTIDLE 1 00007233 FFFFFFFE A U 9551 5604 JRUNDEFEVENTS 1 00000204 FFFFFFFE A U 7900 2196 JRUNEXPECTEDACK 1 00007201 FFFFFFFE A U 9448 5331 JRUNKNOWNBLOCK 1 000004AA FFFFFFFE A U 9231 4961 JRUNLDIR 1 0000005E FFFFFFFE A U 7176 466 JRUNLMOUNTRO 1 00000032 FFFFFFFE A U 7096 275 JRUNLNOENT 1 0000005D FFFFFFFE A U 7174 461 JRUSERNAMELENERROR 1 000002A6 FFFFFFFE A U 8226 2946 JRUSERNOTAUTHORIZED 1 00000136 FFFFFFFE A U 7546 1320 JRUSERNOTPRIVILEGED 1 000000B0 FFFFFFFE A U 7303 783 JRUWCONOTFOUND 1 000072EE FFFFFFFE A U 9920 6619 JRUWCOSTORAGEFAILED 1 000072EF FFFFFFFE A U 9923 6625 JRUWCTFULL 1 000072F2 FFFFFFFE A U 9929 6640 JRUWCTSTORAGEFAILED 1 000072F0 FFFFFFFE A U 9925 6630 JRUWHTSTORAGEFAILED 1 000072F1 FFFFFFFE A U 9927 6635 JRVARIABLESUBNETTINGNOTALLOWED 1 00007289 FFFFFFFE A U 9737 6080 JRVGET 1 000000A7 FFFFFFFE A U 7289 745 JRVTOKENFREED 1 0000022C FFFFFFFE A U 7974 2387 JRWAITFOREVER 1 000003B9 FFFFFFFE A U 8596 3713 JRWFILEMAPRDONLY 1 0000045B FFFFFFFE A U 8958 4487 JRWFILERDONLY 1 00000034 FFFFFFFE A U 7100 285 JRWLMJOINERROR 1 000004A3 FFFFFFFE A U 9206 4922 JRWOULDBLOCK 1 0000026A FFFFFFFE A U 8090 2647 JRWRITEBEYONDLIMIT 1 00000366 FFFFFFFE A U 8470 3454 JRWRITEUSERSTORAGEFAILED 1STRREA Ordinary Symbol and Literal Cross Reference Page 197 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 1 000001C0 FFFFFFFE A U 7776 1902 JRWRONGBAND 1 00007204 FFFFFFFE A U 9455 5348 JRWRONGINSTANCE 1 0000013D FFFFFFFE A U 7557 1349 JRWRONGKEY 1 00000465 FFFFFFFE A U 8991 4549 JRWRONGPID 1 0000022D FFFFFFFE A U 7976 2392 JRXCFNOSTORAGE 1 000004DF FFFFFFFE A U 9406 5260 JRZEROORNEGATIVE 1 0000034E FFFFFFFE A U 8435 3378 KEEP1 2 00000062 00000001 H 102 96B LASTMSG 1 000018FC 00000001 U 174 167 LASTMSG2 1 000023EC 00000001 U 176 170 MJRACCEPT 55 00007485 00000001 C 2250 2248 MJRACCESS 43 00005519 00000001 C 1411 1409 MJRACCESSUNDEFINED 39 0000450D 00000001 C 1009 1007 MJRACKLENFAILURE 48 0001001E 00000001 C 5328 5326 MJRACTACCEPTUSERID 46 0000E5B1 00000001 C 4775 4773 MJRACTIVEPROCESS 48 00003B7E 00000001 C 829 827 MJRACTIVETHREADS 48 00005339 00000001 C 1364 1362 MJRADDRESSNOTAVAILABLE 42 0000A50C 00000001 C 3352 3350 MJRAFNOTSUPPORTED 32 00010630 00000001 C 5492 5490 MJRAFOPNOTSUPPORTED 45 000131B8 00000001 C 6775 6773 MJRALLFILESNOTCLOSED 35 00006A22 00000001 C 1980 1978 MJRALREADYACTIVE 36 0000EA6A 00000001 C 4856 4854 MJRALREADYBOUND 49 000100B3 00000001 C 5340 5338 MJRALREADYCONN 31 0000CFD5 00000001 C 4356 4354 MJRALREADYDETACHED 40 00006AEF 00000001 C 2002 2000 MJRALREADYINPROGRESS 43 0000BC8E 00000001 C 3917 3915 MJRALREADYJOINED 48 00006BB8 00000001 C 2023 2021 MJRALREADYPTEXITED 46 00006C8A 00000001 C 2046 2044 MJRALREADYREGISTERED 44 00007B20 00000001 C 2427 2425 MJRALREADYSETUP 1STRREA Ordinary Symbol and Literal Cross Reference Page 198 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 49 00007351 00000001 C 2221 2219 MJRALREADYSIGSETUP 46 000071E6 00000001 C 2181 2179 MJRALREADYTERMINATED 38 00006CDB 00000001 C 2052 2050 MJRANR 58 0000D87C 00000001 C 4540 4538 MJRAPFAUTHCHANGE 48 00007CFF 00000001 C 2485 2483 MJRAPFNOTAUTHORIZED 45 0000C6D0 00000001 C 4158 4156 MJRAPPCCHECKSTATE 47 00002A5A 00000001 C 376 374 MJRAPPCERRACCEPT 46 00002501 00000001 C 223 221 MJRAPPCERRALLOC 48 0000247F 00000001 C 208 206 MJRAPPCERRRECV 43 000024D5 00000001 C 218 216 MJRAPPCERRRECVINCOMP 44 00004F44 00000001 C 1256 1254 MJRAPPCERRSEND 36 000024B0 00000001 C 213 211 MJRAPPLDATALENERR 47 0000BA3D 00000001 C 3844 3842 MJRARPSVALREADYDEFINED 32 00011987 00000001 C 6029 6027 MJRARPSVINUSE 51 00011874 00000001 C 6006 6004 MJRARPSVMULT 52 00011429 00000001 C 5897 5895 MJRARPSVNOTDEFINED 43 000115F8 00000001 C 5953 5951 MJRASYNCAUTHERR 44 0000BF73 00000001 C 3986 3984 MJRASYNCBADAIOCBLEN 45 0000C085 00000001 C 4019 4017 MJRASYNCBADCMD 39 0000C00F 00000001 C 4003 4001 MJRASYNCBADMSGHDRLEN 44 0000BFD6 00000001 C 3997 3995 MJRASYNCBADNOTIFYTYPE 43 0000C037 00000001 C 4008 4006 MJRASYNCBADOFFSET 30 0000C066 00000001 C 4014 4012 MJRASYNCBADSIGNO 48 0000C5C6 00000001 C 4133 4131 MJRASYNCBADSOCKADDR 45 0000C0BF 00000001 C 4025 4023 MJRASYNCEXITMODETCB 45 0000C48F 00000001 C 4118 4116 MJRASYNCHMOUNT 50 0000A6C0 00000001 C 3392 3390 MJRASYNCNOTSINGLETD 45 0000C17D 00000001 C 4043 4041 MJRASYNCOPNOTSUPP 1STRREA Ordinary Symbol and Literal Cross Reference Page 199 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 47 0000C4FE 00000001 C 4125 4123 MJRASYNCRWLENZERO 47 0000BFA0 00000001 C 3991 3989 MJRASYNCSIGKEY0ERR 46 0000C457 00000001 C 4112 4110 MJRATTEMPTSEXHAUSTED 44 0000F002 00000001 C 4990 4988 MJRAUDIT 42 000039FD 00000001 C 781 779 MJRAUTHCALLER 51 0000B159 00000001 C 3642 3640 MJRBADADDRESS 51 0000511B 00000001 C 1301 1299 MJRBADAIOECB 52 0000E49E 00000001 C 4757 4755 MJRBADALET 36 00005FF3 00000001 C 1695 1693 MJRBADARGCOUNT 50 00003D85 00000001 C 865 863 MJRBADAUDITOPTION 47 00005585 00000001 C 1422 1420 MJRBADBLKADDR 51 0000F7D1 00000001 C 5155 5153 MJRBADBODYLENGTH 48 0000FD25 00000001 C 5257 5255 MJRBADBUFLEN 43 0000B5C2 00000001 C 3738 3736 MJRBADCOMBO 38 0000EF4C 00000001 C 4969 4967 MJRBADENTRYCODE 49 00003508 00000001 C 649 647 MJRBADEXITSTATUSADDR 44 0000539E 00000001 C 1370 1368 MJRBADFDLIST 52 00009E43 00000001 C 3205 3203 MJRBADHANDLE 46 0000CE52 00000001 C 4314 4312 MJRBADID 56 0000B87C 00000001 C 3801 3799 MJRBADIDTYPE 30 0000AC65 00000001 C 3515 3513 MJRBADINPUTVALUE 48 00003E17 00000001 C 872 870 MJRBADIOCTLTOIF 49 000111FC 00000001 C 5837 5835 MJRBADIPADDR 52 0000CBF7 00000001 C 4252 4250 MJRBADMAXSENDRCVSIZE 44 0000CDC2 00000001 C 4302 4300 MJRBADMTUSIZE 51 0000CC8A 00000001 C 4269 4267 MJRBADMVSPGMNAME 48 0000B2A8 00000001 C 3667 3665 MJRBADOPTIONS 51 0000AC84 00000001 C 3520 3518 MJRBADOPTNFLAGS 49 0000AFB8 00000001 C 3606 3604 1STRREA Ordinary Symbol and Literal Cross Reference Page 200 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRBADOSAPORT 35 0000CCE8 00000001 C 4280 4278 MJRBADOSI 37 0000AD2D 00000001 C 3538 3536 MJRBADPERFGROUP 49 000099E1 00000001 C 3125 3123 MJRBADPFSID 44 0000AD53 00000001 C 3543 3541 MJRBADRBSTATE 51 00005FA0 00000001 C 1685 1683 MJRBADRUSAGEADDR 48 0000A848 00000001 C 3428 3426 MJRBADSERVCLASS 49 00009A3D 00000001 C 3131 3129 MJRBADSIGINFOADDR 47 0000A80B 00000001 C 3422 3420 MJRBADSTDEV 53 0000A8B5 00000001 C 3440 3438 MJRBADSTGKEY 52 0000B5EE 00000001 C 3743 3741 MJRBADSUBFIELD 40 0000B81E 00000001 C 3790 3788 MJRBADTCBEYE 35 00010D2D 00000001 C 5690 5688 MJRBATSEL 54 0000B23A 00000001 C 3656 3654 MJRBIND 57 000074C1 00000001 C 2256 2254 MJRBINDADDRINUSED 47 000109BE 00000001 C 5601 5599 MJRBINDADDRNACTIVE 46 0001093B 00000001 C 5589 5587 MJRBINDBADSOCKADDR 46 00010901 00000001 C 5583 5581 MJRBINDNOPORT 51 0001097A 00000001 C 5595 5593 MJRBINDNOTDONE 47 0000C35A 00000001 C 4080 4078 MJRBINDOUTSTATE 49 000108C1 00000001 C 5577 5575 MJRBLACKHOLE 22 0000F143 00000001 C 5026 5024 MJRBLOCKSINFLUX 45 0000CEDA 00000001 C 4325 4323 MJRBOTHMODE 53 0000300F 00000001 C 521 519 MJRBPXOINITNOTUID0 46 0000E8DA 00000001 C 4826 4824 MJRBPXOINITSTARTED 46 0000E859 00000001 C 4819 4817 MJRBRLMALREADYWAITING 43 0000678F 00000001 C 1911 1909 MJRBRLMBADFILETYPE 46 000064B6 00000001 C 1839 1837 MJRBRLMBADL_LEN 49 000066D3 00000001 C 1893 1891 1STRREA Ordinary Symbol and Literal Cross Reference Page 201 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRBRLMBADL_TYPE 48 00006566 00000001 C 1857 1855 MJRBRLMBADL_WHENCE 46 000065E0 00000001 C 1869 1867 MJRBRLMDEADLOCKDETECTED 41 00006659 00000001 C 1881 1879 MJRBRLMFILELOCKRECYCLING 40 00006468 00000001 C 1833 1831 MJRBRLMINVALIDRANGE 45 000065A6 00000001 C 1863 1861 MJRBRLMLOCKERNOTREGISTERED 38 000090CF 00000001 C 2931 2929 MJRBRLMNOREADACCESS 45 000064F0 00000001 C 1845 1843 MJRBRLMNOTACTIVE 41 0000643E 00000001 C 1828 1826 MJRBRLMNOWRITEACCESS 44 00006529 00000001 C 1851 1849 MJRBRLMOBJANDPROCBROKEN 41 000068D5 00000001 C 1946 1944 MJRBRLMOBJECTMISSING 44 00009067 00000001 C 2919 2917 MJRBRLMPROCESSBROKEN 44 0000682F 00000001 C 1929 1927 MJRBRLMPROMOTEPENDING 43 000067C0 00000001 C 1917 1915 MJRBRLMRANGENOTAVAILABLE 40 00006622 00000001 C 1875 1873 MJRBRLMSIGNALPOSTED 45 0000668A 00000001 C 1887 1885 MJRBRLMUNLOCKWHILEWAIT 42 0000688D 00000001 C 1940 1938 MJRBRLMWRONGLEVEL 47 00009096 00000001 C 2925 2923 MJRBROADCASTDEST 38 00010CA5 00000001 C 5674 5672 MJRBROKENBRLMRECYCLING 42 00006D02 00000001 C 2057 2055 MJRBRTOPT 50 00010B18 00000001 C 5634 5632 MJRBRTOPTLERR 51 00010E8F 00000001 C 5733 5731 MJRBSDROUTINGPARMSNEVERUSED 37 0001088F 00000001 C 5571 5569 MJRBSTOPT 50 00010AE5 00000001 C 5629 5627 MJRBSTOPTLERR 51 00010E5B 00000001 C 5728 5726 MJRBUFF 46 0000858D 00000001 C 2673 2671 MJRBUFFLENINVALID 47 00004D53 00000001 C 1205 1203 MJRBUFFTOOSMALL 46 0000308E 00000001 C 533 531 MJRBULKMODEERR 50 000101F9 00000001 C 5372 5370 1STRREA Ordinary Symbol and Literal Cross Reference Page 202 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRBYTES2RWZERO 49 00003581 00000001 C 661 659 MJRCACHENOTREGFILE 46 0000C934 00000001 C 4193 4191 MJRCALLERISPGLEADER 44 00007139 00000001 C 2161 2159 MJRCANCEL 55 0000C0F7 00000001 C 4031 4029 MJRCANNOTMAPSOCKADDR 44 000131FC 00000001 C 6781 6779 MJRCANTEXPCLIENT 48 0000FE77 00000001 C 5286 5284 MJRCAPTUREFAILURE 34 0000A7E8 00000001 C 3417 3415 MJRCERTALREADYDEFINED 43 0000DF86 00000001 C 4666 4664 MJRCERTDOESNOTMEETREQ 43 0000DFDD 00000001 C 4672 4670 MJRCERTIFICATE 50 0000D376 00000001 C 4446 4444 MJRCERTINVALID 50 0000D1A0 00000001 C 4406 4404 MJRCFGMREQLENERR 48 000101A5 00000001 C 5366 5364 MJRCHAUDTOPIPE 46 00005F71 00000001 C 1680 1678 MJRCHDNOENT 53 00002BA5 00000001 C 408 406 MJRCHDNOTDIR 52 00002B5E 00000001 C 402 400 MJRCHOWNTOPIPE 44 00005F44 00000001 C 1675 1673 MJRCLASSLENERR 50 0000446C 00000001 C 997 995 MJRCLNEEDCLOSE 50 00002906 00000001 C 344 342 MJRCLNYASCREFAILED 46 00009EC8 00000001 C 3216 3214 MJRCLNYNOCOMMONSTORAGE 42 00009F7B 00000001 C 3232 3230 MJRCLNYNOTSTARTED 47 0000A019 00000001 C 3245 3243 MJRCLNYNOTSTOPPED 46 00009F4C 00000001 C 3227 3225 MJRCLNYPFSNOTDONE 47 0000A167 00000001 C 3265 3263 MJRCLNYPFSNOTSTARTED 44 0000A111 00000001 C 3259 3257 MJRCLNYSTARTFAILED 44 00009F1F 00000001 C 3222 3220 MJRCLOSE 56 000029B5 00000001 C 360 358 MJRCMBADCONFIGDATA 39 00012DA9 00000001 C 6669 6667 MJRCMCACHEOBJLIMIT 46 00012DD1 00000001 C 6674 6672 1STRREA Ordinary Symbol and Literal Cross Reference Page 203 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRCMCACHEOBJNOTFOUND 33 00012E2B 00000001 C 6685 6683 MJRCMCACHESPACELIMIT 31 00012E0B 00000001 C 6680 6678 MJRCMCANTLOAD 51 00012A67 00000001 C 6582 6580 MJRCMCONFIGURED 49 0001294B 00000001 C 6558 6556 MJRCMDESTROYFAILURE 39 00012D81 00000001 C 6664 6662 MJRCMDISABLE 50 00012D1E 00000001 C 6653 6651 MJRCMIOVPNOTVALID 45 00012F01 00000001 C 6711 6709 MJRCMLOADMODBAD 49 00012BBB 00000001 C 6616 6614 MJRCMLOGFULL 17 00012F2F 00000001 C 6716 6714 MJRCMLSOCKBADSTATE 46 00012D51 00000001 C 6658 6656 MJRCMNOCACHE 52 000129D6 00000001 C 6570 6568 MJRCMNOCSM 49 00012AE3 00000001 C 6593 6591 MJRCMNOLOG 54 00012985 00000001 C 6564 6562 MJRCMNOOBJECTS 43 00012CF2 00000001 C 6648 6646 MJRCMNOSTORAGE 43 00012AB7 00000001 C 6588 6586 MJRCMNOTCONFIGURED 46 00012B15 00000001 C 6598 6596 MJRCMPARMNOTVALID 47 00012B86 00000001 C 6610 6608 MJRCMSERVERNOTFOUND 45 00012A29 00000001 C 6576 6574 MJRCMSGDATAINVALID 35 00012F41 00000001 C 6721 6719 MJRCOMPNAMETOOLONG 40 00002888 00000001 C 329 327 MJRCOMPNOTDIR 41 00002834 00000001 C 319 317 MJRCONFIGERR 49 000105FE 00000001 C 5487 5485 MJRCONNALREADYEXISTS 30 0001119D 00000001 C 5826 5824 MJRCONNECT 54 000074FB 00000001 C 2261 2259 MJRCONNECTTOSELF 48 00010CCC 00000001 C 5679 5677 MJRCONNFAIL 50 00010172 00000001 C 5361 5359 MJRCONNNOTIDLE 34 00010C82 00000001 C 5669 5667 MJRCONNTCBNOTFOUND 1STRREA Ordinary Symbol and Literal Cross Reference Page 204 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 45 00010CFF 00000001 C 5685 5683 MJRCPCNNOTENABLED 44 0000B433 00000001 C 3698 3696 MJRCPLBUFFTOOSMALL 46 0000F3E7 00000001 C 5093 5091 MJRCPLCFNOTFOUND 48 0000F522 00000001 C 5113 5111 MJRCPLINVBUFFLEN 48 0000F39C 00000001 C 5087 5085 MJRCPLINVFCNCODE 48 0000F351 00000001 C 5081 5079 MJRCPLINVSTRUCTYPE 46 0000F4B7 00000001 C 5106 5104 MJRCPLNOTAUTH 51 0000F303 00000001 C 5075 5073 MJRCREATE 55 00002ADF 00000001 C 387 385 MJRCSMFAILURE 50 0000E711 00000001 C 4795 4793 MJRCWDPLUSFILENAME 46 0000D3C4 00000001 C 4452 4450 MJRDATANOTAVAIL 49 0000CC2E 00000001 C 4258 4256 MJRDEVCONFIGTYPEERROR 43 0000A1B8 00000001 C 3271 3269 MJRDEVICEACTIVE 26 000105E3 00000001 C 5482 5480 MJRDEVICEALREADYDEFINED 30 000105A4 00000001 C 5472 5470 MJRDEVICEATMINVALID 45 0001153B 00000001 C 5927 5925 MJRDEVICECDLCINVALID 44 000114CE 00000001 C 5915 5913 MJRDEVICECLAWINVALID 40 000104B7 00000001 C 5442 5440 MJRDEVICECTCINVALID 39 0001048F 00000001 C 5437 5435 MJRDEVICEDEFINEDBYLINK 42 0001082A 00000001 C 5560 5558 MJRDEVICEHASLINKS 47 0001129C 00000001 C 5854 5852 MJRDEVICEHASNOLINKS 45 000112F8 00000001 C 5860 5858 MJRDEVICEHCHINVALID 45 00011498 00000001 C 5909 5907 MJRDEVICELCSINVALID 39 000104E0 00000001 C 5447 5445 MJRDEVICEMPCHLCSINVALID 41 0001290D 00000001 C 6552 6550 MJRDEVICEMPCPTPINVALID 42 00011460 00000001 C 5903 5901 MJRDEVICENOTDEFINED 43 00010578 00000001 C 5467 5465 MJRDEVICESNAINVALID 45 00011A25 00000001 C 6041 6039 1STRREA Ordinary Symbol and Literal Cross Reference Page 205 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRDEVICETYPEINVALID 44 00010855 00000001 C 5565 5563 MJRDEVICEUNSUPPORTED 31 000105C3 00000001 C 5477 5475 MJRDEVICEX25INVALID 45 00011504 00000001 C 5921 5919 MJRDEVNOTFOUND 29 0000BC70 00000001 C 3912 3910 MJRDEVNOTONLINE 30 0000BC51 00000001 C 3907 3905 MJRDEVNUMINVALID 48 000103AA 00000001 C 5413 5411 MJRDIFFFILESETS 49 0000333D 00000001 C 604 602 MJRDIRNOTFOUND 41 0000285E 00000001 C 324 322 MJRDIRWRITEREQUEST 46 00002F20 00000001 C 498 496 MJRDISCONTCBNOTFOUND 42 00010D7C 00000001 C 5700 5698 MJRDOMAINNOTSUPPORTED 37 00007939 00000001 C 2368 2366 MJRDOTORDOTDOT 50 00003494 00000001 C 638 636 MJRDUBSETTING 51 00007C32 00000001 C 2463 2461 MJRDUPLICATECANCEL 46 0000C133 00000001 C 4037 4035 MJRDUPLICATEREQ 35 0000C3A8 00000001 C 4090 4088 MJRDUP2ERROR 52 0000744F 00000001 C 2244 2242 MJRDVIPAALREADYACTIVE 43 00012F65 00000001 C 6726 6724 MJRDVIPACONFLICTDVIPA 43 00012FD1 00000001 C 6738 6736 MJRDVIPACONFLICTIPADDR 42 0001301C 00000001 C 6744 6742 MJRDVIPANOTDEFINED 46 0001309B 00000001 C 6756 6754 MJRDVIPANOTINVIPARANGE 42 00012F9E 00000001 C 6732 6730 MJRDYNADDCXFAILURE 43 00012E4D 00000001 C 6690 6688 MJRDYNDELCXFAILURE 46 00012E79 00000001 C 6695 6693 MJRDYNRECOVERYFAILURE 43 00012ED3 00000001 C 6705 6703 MJRDYNTIMERFAILURE 42 00012EA8 00000001 C 6700 6698 MJRECBERROR 53 00008D7C 00000001 C 2862 2860 MJRECBLISTBAD 51 00008E25 00000001 C 2870 2868 MJRECBLISTNOTSETUP 1STRREA Ordinary Symbol and Literal Cross Reference Page 206 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 46 00008EF0 00000001 C 2883 2881 MJRECBSTATEBAD 50 00008E84 00000001 C 2876 2874 MJRECBWAITBITON 49 00008F84 00000001 C 2896 2894 MJRENCLAVESEXIST 48 0000C306 00000001 C 4074 4072 MJRENDINGSLASHMKNOD 45 00004B04 00000001 C 1147 1145 MJRENDINGSLASHOCREAT 44 00004B39 00000001 C 1153 1151 MJRENDINGSLASHSYMLINK 43 00007259 00000001 C 2193 2191 MJRENTITYLENERR 49 000044BB 00000001 C 1003 1001 MJRENVDIRTY 53 00009301 00000001 C 2977 2975 MJREOFALREADYSENT 47 000058A7 00000001 C 1492 1490 MJRESCONNOTCONFIGURED 43 0000BD67 00000001 C 3938 3936 MJREXCEEDSBACKLOGCOUNT 42 000084BB 00000001 C 2656 2654 MJREXECAFTERFORK 48 00007029 00000001 C 2137 2135 MJREXECFILETOOBIG 47 000055C4 00000001 C 1428 1426 MJREXECNMLENZERO 48 00004C97 00000001 C 1187 1185 MJREXECNOTREGFILE 47 00004F0B 00000001 C 1250 1248 MJREXECPARMERR 50 00005EFF 00000001 C 1669 1667 MJREXITRTNERROR 49 00006A46 00000001 C 1985 1983 MJREXTERNALLINK 49 00007F8C 00000001 C 2546 2544 MJRFASTPATHRANGE 48 0000C3ED 00000001 C 4100 4098 MJRFDALLOCERR 51 0000353E 00000001 C 655 653 MJRFDLISTTOOBIG 49 00009DF3 00000001 C 3199 3197 MJRFDOPENABOVELIMIT 45 0000A933 00000001 C 3451 3449 MJRFDTOOBIG 53 00005436 00000001 C 1387 1385 MJRFD2TOOSMALL 50 0000690F 00000001 C 1952 1950 MJRFILECHANGEDDURINGLOAD 40 0000D429 00000001 C 4459 4457 MJRFILEDESNOTINUSE 43 00002799 00000001 C 299 297 MJRFILEEXISTSEXCLFLAGSET 40 00002EE6 00000001 C 492 490 1STRREA Ordinary Symbol and Literal Cross Reference Page 207 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRFILEINUSE 52 0000C9D3 00000001 C 4205 4203 MJRFILEISBLOCKED 19 0000521A 00000001 C 1329 1327 MJRFILEISEMPTY 50 0000C8E5 00000001 C 4187 4185 MJRFILENOTOPEN 22 00004E92 00000001 C 1234 1232 MJRFILENOTSYMLINK 47 00004A5A 00000001 C 1130 1128 MJRFILENOTTHERE 33 000030BD 00000001 C 538 536 MJRFILESYSNOTTHERE 36 00002649 00000001 C 261 259 MJRFILESYSWASRESET 46 0000266E 00000001 C 266 264 MJRFILESZEXCDLIMIT 46 0000C87B 00000001 C 4180 4178 MJRFILETOOLARGE 49 0000FE31 00000001 C 5280 5278 MJRFORKEXITRCOVERLAYPGMNOTVALID 33 0000CD0C 00000001 C 4285 4283 MJRFORKEXITRCPARENTBADENV 39 00002564 00000001 C 234 232 MJRFORKEXITRCPARENTNOROOM 39 00002530 00000001 C 228 226 MJRFORKNOACCESS 49 00004F89 00000001 C 1262 1260 MJRFORKNORESOURCE 45 0000479E 00000001 C 1059 1057 MJRFORKVSMLISTTOOLARGE 42 000025A2 00000001 C 240 238 MJRFRCARESET 52 0001331A 00000001 C 6806 6804 MJRFREEZEEXITTOOSLOW 44 00003F83 00000001 C 893 891 MJRFRRACTIVE 21 0000AD80 00000001 C 3548 3546 MJRFSFAILCHDIR 50 00005545 00000001 C 1416 1414 MJRFSFAILQUIESCE 48 00004CC9 00000001 C 1193 1191 MJRFSFORCEUMOUNT 48 000039C7 00000001 C 775 773 MJRFSINUSE 41 000063A0 00000001 C 1812 1810 MJRFSMUSTRESET 50 00003989 00000001 C 769 767 MJRFSNOTSTART 41 00002D48 00000001 C 449 447 MJRFSPARENTFS 46 00003930 00000001 C 759 757 MJRFSQUIESCEDMT 49 0000FEE6 00000001 C 5298 5296 MJRFSUNAUTHCLNT 1STRREA Ordinary Symbol and Literal Cross Reference Page 208 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 43 0000B596 00000001 C 3733 3731 MJRFSUNMOUNTINPROGRESS 41 0000395F 00000001 C 764 762 MJRFSYNC 56 0000496D 00000001 C 1107 1105 MJRFUNCTIONCODE 43 0000D31A 00000001 C 4436 4434 MJRFUNCUNDEFINED 48 00003D20 00000001 C 859 857 MJRGATEWAYUNREACHABLE 41 000113D1 00000001 C 5886 5884 MJRGETATTR 44 00003114 00000001 C 548 546 MJRGETCONNERR 51 00010687 00000001 C 5507 5505 MJRGETFIRST 45 00006B8A 00000001 C 2018 2016 MJRGETHOST 54 00007538 00000001 C 2267 2265 MJRGETNAME 54 00007575 00000001 C 2273 2271 MJRGROUPNAMEREQUIRED 44 00011CDD 00000001 C 6102 6100 MJRHARDWARE 53 0000A4D4 00000001 C 3346 3344 MJRHARDWARETYPENOTSUPPORTED 37 00010FEB 00000001 C 5775 5773 MJRHEAVYWEIGHT 50 00006B3B 00000001 C 2012 2010 MJRHOMEEXISTS 51 0000C69B 00000001 C 4152 4150 MJRIARVSERV 41 0000A5B4 00000001 C 3369 3367 MJRIDCHANGE 53 00007D36 00000001 C 2491 2489 MJRIDENTITYTYPE 47 0000D346 00000001 C 4441 4439 MJRIEADDIFCIOCTLTYPE 44 000121BE 00000001 C 6262 6260 MJRIEFDDSRVFAILED 25 0000BC1E 00000001 C 3897 3895 MJRIEGETFLAGS 18 000120CE 00000001 C 6217 6215 MJRIEGETTABLEFLAGS 23 000120B6 00000001 C 6212 6210 MJRIEGETTABLEUNEXPECTED 28 0001210C 00000001 C 6232 6230 MJRIEGETUNEXPECTED 23 00012129 00000001 C 6237 6235 MJRIEINCNTINVALID 14 000120A7 00000001 C 6207 6205 MJRIEOUTCNTINVALID 39 0001207F 00000001 C 6202 6200 MJRIEPROFILEERROR 42 00012193 00000001 C 6257 6255 MJRIERECOVERYERROR 1STRREA Ordinary Symbol and Literal Cross Reference Page 209 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 28 00012176 00000001 C 6252 6250 MJRIESETFLAGS 18 000120F9 00000001 C 6227 6225 MJRIESETTABLEFLAGS 23 000120E1 00000001 C 6222 6220 MJRIESETTABLEUNEXPECTED 28 00012141 00000001 C 6242 6240 MJRIESETUNEXPECTED 23 0001215E 00000001 C 6247 6245 MJRIESIZEMISMATCHADD 44 00011FC8 00000001 C 6179 6177 MJRIESIZEMISMATCHGET 40 00011FF8 00000001 C 6185 6183 MJRIESIZEMISMATCHGETTABLE 39 00012021 00000001 C 6190 6188 MJRIESIZEMISMATCHSETTABLE 39 00012050 00000001 C 6196 6194 MJRIEUNKNOWNIFCIOCTLTYPE 31 000121F1 00000001 C 6268 6266 MJRINACCESSIBLE 38 0000BBF7 00000001 C 3892 3890 MJRINACTIVE 53 00004FD3 00000001 C 1268 1266 MJRINCORRECTSOCKETTYPE 42 00008456 00000001 C 2644 2642 MJRINCORRECTTYPEFORFLAG 41 000087E9 00000001 C 2734 2732 MJRINETRECYCLED 49 0000D1F9 00000001 C 4417 4415 MJRINHEACCTDATAPTR 46 0000CB2D 00000001 C 4235 4233 MJRINHECPUTIME 50 0000CAF3 00000001 C 4229 4227 MJRINHECWD 52 0000CB95 00000001 C 4242 4240 MJRINHEEYE 54 00009C48 00000001 C 3164 3162 MJRINHELENGTH 51 00009C84 00000001 C 3170 3168 MJRINHEREGION 51 0000CAB6 00000001 C 4223 4221 MJRINHEUSERID 51 0000CA7D 00000001 C 4217 4215 MJRINHEVERSION 50 00009CCE 00000001 C 3176 3174 MJRINITRTN 54 00006E73 00000001 C 2092 2090 MJRINRECOVERY 51 0000F0D7 00000001 C 5014 5012 MJRINTERFACEALREADYSTARTED 33 00010556 00000001 C 5462 5460 MJRINTERFACEALREADYSTOPPED 33 00010534 00000001 C 5457 5455 MJRINTERFACEDEFINEDBYHOME 39 000107F5 00000001 C 5554 5552 1STRREA Ordinary Symbol and Literal Cross Reference Page 210 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRINTERFACEINVALID 45 00010457 00000001 C 5431 5429 MJRINTERFACENOTDEFINED 39 0001134A 00000001 C 5866 5864 MJRINTERVALTYPEINVALID 29 0000ADEB 00000001 C 3559 3557 MJRINVALIDAMODE 49 000054DC 00000001 C 1405 1403 MJRINVALIDAPPLDATA 46 0000BA74 00000001 C 3850 3848 MJRINVALIDAPPLDATA2 45 0000BAA8 00000001 C 3856 3854 MJRINVALIDATT 51 00007C7D 00000001 C 2469 2467 MJRINVALIDATTR 46 00007E87 00000001 C 2524 2522 MJRINVALIDBINSEMFLAG 44 0000DBB5 00000001 C 4602 4600 MJRINVALIDBINSEMNOTBINOP 40 0000DB3E 00000001 C 4595 4593 MJRINVALIDBINSEMNUMSEMOPS 39 0000DAD6 00000001 C 4588 4586 MJRINVALIDBINSEMSETALL 42 0000DC15 00000001 C 4608 4606 MJRINVALIDBINSEMUNDO 44 0000DA83 00000001 C 4582 4580 MJRINVALIDBUFTOKN 43 00011D2F 00000001 C 6108 6106 MJRINVALIDCLASSIFY 46 0000B975 00000001 C 3826 3824 MJRINVALIDCURSOR 48 0000560C 00000001 C 1434 1432 MJRINVALIDDADDR 31 00010797 00000001 C 5543 5541 MJRINVALIDFSP 35 0000FC9A 00000001 C 5241 5239 MJRINVALIDFUIO 33 00007E12 00000001 C 2509 2507 MJRINVALIDMAJORNUMBER 43 00005014 00000001 C 1274 1272 MJRINVALIDMSGH 40 00008700 00000001 C 2712 2710 MJRINVALIDNAME 50 00002BF1 00000001 C 414 412 MJRINVALIDNFDS 50 0000B52C 00000001 C 3722 3720 MJRINVALIDNREG 43 00007B4E 00000001 C 2433 2431 MJRINVALIDOFFSET 48 0000DCD6 00000001 C 4621 4619 MJRINVALIDOPTION 37 0000DA5D 00000001 C 4577 4575 MJRINVALIDOSS 20 00007CC0 00000001 C 2475 2473 MJRINVALIDPARMS 1STRREA Ordinary Symbol and Literal Cross Reference Page 211 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 49 000038FB 00000001 C 753 751 MJRINVALIDPID 51 00005265 00000001 C 1339 1337 MJRINVALIDRANGE 49 0000DA0E 00000001 C 4571 4569 MJRINVALIDREGTYPE 47 00007AB8 00000001 C 2415 2413 MJRINVALIDREQUESTER 45 00003ADB 00000001 C 808 806 MJRINVALIDRESOURCE 38 0000A2C4 00000001 C 3295 3293 MJRINVALIDROUTINE 45 000081D9 00000001 C 2594 2592 MJRINVALIDSERVERNAMELEN 41 00008756 00000001 C 2722 2720 MJRINVALIDSERVERPID 45 00009003 00000001 C 2907 2905 MJRINVALIDSFDL 50 0000BAEA 00000001 C 3862 3860 MJRINVALIDSFPLLEN 47 0000DE86 00000001 C 4648 4646 MJRINVALIDSIGACT 48 00003656 00000001 C 683 681 MJRINVALIDSIGHOW 38 00003687 00000001 C 688 686 MJRINVALIDSIGNAL 44 00003629 00000001 C 678 676 MJRINVALIDSIGPROC 30 00005FD4 00000001 C 1690 1688 MJRINVALIDSIZE 39 0000EEFC 00000001 C 4959 4957 MJRINVALIDSYMLINKCOMP 43 00004E4E 00000001 C 1228 1226 MJRINVALIDSYMLINKLEN 44 00004E09 00000001 C 1222 1220 MJRINVALIDVERSION 47 0000BCBA 00000001 C 3922 3920 MJRINVALIDVLOK 42 00008FD8 00000001 C 2902 2900 MJRINVALIDVNODETOK 39 00007A69 00000001 C 2405 2403 MJRINVALIDWHO 33 0000A37F 00000001 C 3312 3310 MJRINVHDR 29 0000B696 00000001 C 3755 3753 MJRINVIOCTLCMD 36 0000614B 00000001 C 1746 1744 MJRINVOPENFLAGS 43 000028B1 00000001 C 334 332 MJRINVOPOPT 38 00008566 00000001 C 2668 2666 MJRINVOPTION 45 00006E45 00000001 C 2087 2085 MJRINVOPTLEN 30 00011160 00000001 C 5816 5814 1STRREA Ordinary Symbol and Literal Cross Reference Page 212 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRINVOPTVAL 29 0001117F 00000001 C 5821 5819 MJRINVOSENVTOK 30 0000EABE 00000001 C 4866 4864 MJRINVPARMLENGTH 45 000050ED 00000001 C 1296 1294 MJRINVRBSTATE 34 000052A4 00000001 C 1347 1345 MJRINVTERMSTAT 50 000052FB 00000001 C 1358 1356 MJRINVUSEROP 52 00008927 00000001 C 2768 2766 MJRIOBUFLENGTHINVALID 43 000054AD 00000001 C 1399 1397 MJRIOCTL 54 0000522E 00000001 C 1334 1332 MJRIOCTLACCESSAUTHORIZATION 37 00010242 00000001 C 5378 5376 MJRIOCTLAFNOTSUPPORTED 42 000102BF 00000001 C 5390 5388 MJRIOCTLLINKNAME 48 00010363 00000001 C 5407 5405 MJRIOCTLNOTSUPPORTED 44 00011087 00000001 C 5793 5791 MJRIOCTLRTTABLESIZE 45 000102FC 00000001 C 5396 5394 MJRIOCTLSIZEINCORRECT 43 00010283 00000001 C 5384 5382 MJRIOCTLTPRIMNOTSET 42 00010338 00000001 C 5402 5400 MJRIPADDRINVALID 48 000103E6 00000001 C 5419 5417 MJRIPCBADFLAGS 50 00009555 00000001 C 3025 3023 MJRIPCBADID 53 00009373 00000001 C 2984 2982 MJRIPCDENIED 52 000093AB 00000001 C 2990 2988 MJRIPCEXISTS 52 000093F5 00000001 C 2996 2994 MJRIPCMAXIDS 52 00009453 00000001 C 3002 3000 MJRIPCNOEXIST 51 00009493 00000001 C 3008 3006 MJRIPCREMOVED 51 00009937 00000001 C 3112 3110 MJRIPCRETRY 53 000094E3 00000001 C 3014 3012 MJRIPCSIGNALED 39 0000952D 00000001 C 3020 3018 MJRIPOPT 50 00010B4B 00000001 C 5639 5637 MJRIPOPTLERR 51 00010BE6 00000001 C 5654 5652 MJRIPTCANNOTLEAVE 47 000072E2 00000001 C 2209 2207 MJRISEXPORTED 1STRREA Ordinary Symbol and Literal Cross Reference Page 213 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 51 0000FEB0 00000001 C 5292 5290 MJRISFSROOT 50 0000342D 00000001 C 628 626 MJRISMOUNTED 34 00002D72 00000001 C 454 452 MJRIWMELEAVERROR 35 0000ED89 00000001 C 4930 4928 MJRJOINEXITSTATPTR 46 00006BF2 00000001 C 2029 2027 MJRJOINLOOP 53 00006C51 00000001 C 2040 2038 MJRJOINTMSGSENT 49 0000FBFA 00000001 C 5229 5227 MJRJOINTOSELF 38 00006C2A 00000001 C 2035 2033 MJRKEEPALIVETO 34 0000D1D6 00000001 C 4412 4410 MJRKERNELDOWN 40 000034DF 00000001 C 644 642 MJRKERNELREADY 34 000025D5 00000001 C 246 244 MJRLASTTHREAD 51 000078ED 00000001 C 2362 2360 MJRLEVELNOTSUPP 49 0000851B 00000001 C 2662 2660 MJRLEVELTOOHIGH 49 0000E7ED 00000001 C 4812 4810 MJRLIGHTWEIGHTTHID 44 00006AC2 00000001 C 1997 1995 MJRLINETFAIL 32 0000CF08 00000001 C 4330 4328 MJRLINK 53 00004C61 00000001 C 1182 1180 MJRLINKALREADYDEFINED 28 00011571 00000001 C 5933 5931 MJRLINKHASNOPVCORLIS 44 00011A5A 00000001 C 6047 6045 MJRLINKHASPVCS 50 0001175C 00000001 C 5988 5986 MJRLINKNAMEINVALID 46 0001041F 00000001 C 5425 5423 MJRLINKNOTDEFINED 39 0001123E 00000001 C 5843 5841 MJRLINKSMAXEXCEEDED 43 00010508 00000001 C 5452 5450 MJRLINKTYPEINVALID 46 00011015 00000001 C 5781 5779 MJRLISHASARPSVS 49 00011813 00000001 C 6000 5998 MJRLISHASLINKS 50 000117B6 00000001 C 5994 5992 MJRLISINCONSISTENT 46 0001168F 00000001 C 5970 5968 MJRLISINUSEFORDEVICE 44 00011624 00000001 C 5958 5956 MJRLISMISMATCH 1STRREA Ordinary Symbol and Literal Cross Reference Page 214 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 50 000119A8 00000001 C 6034 6032 MJRLISNOTDEFINED 38 000115D1 00000001 C 5948 5946 MJRLISOPTIONSUPDATED 44 000116D3 00000001 C 5976 5974 MJRLISTEN 55 000075EF 00000001 C 2285 2283 MJRLISTENALREADYDONE 43 00008AB9 00000001 C 2798 2796 MJRLISTENNOTACCEPTED 44 00008033 00000001 C 2563 2561 MJRLISTENNOTDONE 45 00008A1C 00000001 C 2786 2784 MJRLISTENNOTSTREAM 46 00008A4A 00000001 C 2791 2789 MJRLISTLENBAD 51 000088BF 00000001 C 2762 2760 MJRLISTTOOLONG 50 00008298 00000001 C 2611 2609 MJRLISTTOOSHORT 49 000082CC 00000001 C 2617 2615 MJRLNKACROSSFILESETS 44 00004BED 00000001 C 1170 1168 MJRLNKDIR 44 00002C7D 00000001 C 426 424 MJRLNKNEWPATHEXISTS 45 00004BB3 00000001 C 1164 1162 MJRLNKNOENT 45 00004B85 00000001 C 1159 1157 MJRLNKROFILESET 49 00004C1B 00000001 C 1176 1174 MJRLOCALSPAWNNOTALLOWED 41 0000DE45 00000001 C 4642 4640 MJRLOCKADDR 53 0000E131 00000001 C 4696 4694 MJRLOCKCTL 52 0000F2CE 00000001 C 5070 5068 MJRLOCKEDALREADY 48 0000E1F6 00000001 C 4709 4707 MJRLOCKFCNCODE 50 0000E02C 00000001 C 4678 4676 MJRLOCKINUSE 52 0000E244 00000001 C 4715 4713 MJRLOCKMAXCNTRECURSE 44 0000E3F2 00000001 C 4745 4743 MJRLOCKMAXCNTSYS 48 0000E34D 00000001 C 4733 4731 MJRLOCKMAXCNTTHD 48 0000E39D 00000001 C 4739 4737 MJRLOCKNOTOWNER 49 0000E2FB 00000001 C 4727 4725 MJRLOCKREQTYPE 50 0000E084 00000001 C 4684 4682 MJRLOCKSHMACC 51 0000E296 00000001 C 4721 4719 1STRREA Ordinary Symbol and Literal Cross Reference Page 215 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRLOCKSHMREMOVED 47 0000E442 00000001 C 4751 4749 MJRLOCKTOKEN 52 0000E1A0 00000001 C 4703 4701 MJRLOCKTOKENADDR 48 0000E65C 00000001 C 4783 4781 MJRLOCKTYPE 53 0000E0DC 00000001 C 4690 4688 MJRLOOKUP 43 00002A2E 00000001 C 371 369 MJRLOSTSTATE 52 0000F033 00000001 C 4996 4994 MJRLSKOFFSETISINVALID 43 00002CE4 00000001 C 437 435 MJRLSKONPIPE 52 00002CAA 00000001 C 431 429 MJRLSKWHENCEISINVALID 43 00002D14 00000001 C 443 441 MJRLVLIPNOSUP 51 0001112B 00000001 C 5810 5808 MJRLVLSOCNOSUP 50 000110C7 00000001 C 5799 5797 MJRLVLTCPNOSUP 46 000110FC 00000001 C 5805 5803 MJRMAPALREADYACTIVE 45 0000F857 00000001 C 5162 5160 MJRMAPARRAYCOUNTERR 44 0000FB95 00000001 C 5218 5216 MJRMAPBADFUNCTION 47 0000F74E 00000001 C 5143 5141 MJRMAPBADSTORAGE 48 0000FAFC 00000001 C 5206 5204 MJRMAPBLOCKFREEPENDING 42 0000FAA8 00000001 C 5200 5198 MJRMAPBLOCKINUSE 48 0000FA55 00000001 C 5194 5192 MJRMAPBLOCKNOTINUSE 45 0000FA05 00000001 C 5188 5186 MJRMAPNOTACTIVE 49 0000F962 00000001 C 5176 5174 MJRMAPOUTOFBLOCKS 47 0000F8A8 00000001 C 5168 5166 MJRMAPTOKENNOTFOUND 43 0000F9D9 00000001 C 5183 5181 MJRMAXAIOCBECB 50 0000DF2A 00000001 C 4660 4658 MJRMAXASYNCIO 51 0000E99D 00000001 C 4839 4837 MJRMAXCHILD 53 00002409 00000001 C 197 195 MJRMAXINETSOCKETS 47 00008D16 00000001 C 2855 2853 MJRMAXPROC 44 000025F8 00000001 C 251 249 MJRMAXQUEUEDSIGS 1STRREA Ordinary Symbol and Literal Cross Reference Page 216 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 48 0000E744 00000001 C 4800 4798 MJRMAXSOCKETS 51 00007F05 00000001 C 2535 2533 MJRMAXSTARTSEXCEEDED 44 00011266 00000001 C 5848 5846 MJRMAXTASKS 53 00007EB6 00000001 C 2529 2527 MJRMAXTCPPATHIDS 48 00008C02 00000001 C 2832 2830 MJRMAXUIDS 50 0000244C 00000001 C 203 201 MJRMCADDMEMOPT 50 00011EA6 00000001 C 6149 6147 MJRMCADDMEMOPTLERR 46 00011EE5 00000001 C 6155 6153 MJRMCDROPMEMOPT 49 00011F19 00000001 C 6161 6159 MJRMCDROPMEMOPTLERR 45 00011F59 00000001 C 6167 6165 MJRMCIFOPT 54 00011E38 00000001 C 6137 6135 MJRMCIFOPTLERR 50 00011E72 00000001 C 6143 6141 MJRMCLOOPOPT 52 00011DCB 00000001 C 6125 6123 MJRMCLOOPOPTLERR 48 00011E04 00000001 C 6131 6129 MJRMCMAXMEM 53 00011F8D 00000001 C 6173 6171 MJRMCTTLOPT 53 00011D5B 00000001 C 6113 6111 MJRMCTTLOPTLERR 49 00011D97 00000001 C 6119 6117 MJRMICROSECONDSTOOBIG 43 0000AEA6 00000001 C 3583 3581 MJRMIXEDSECURITYENV 45 00009244 00000001 C 2964 2962 MJRMKDIR 54 0000297E 00000001 C 355 353 MJRMKDIREXIST 43 000027C5 00000001 C 304 302 MJRMKDIRRONLY 51 00002C42 00000001 C 420 418 MJRMKNODINVALIDTYPE 45 00004AC7 00000001 C 1141 1139 MJRMMAPBADTYPE 38 0000A4AD 00000001 C 3341 3339 MJRMMAPFILEADDRESS 42 0000A589 00000001 C 3364 3362 MJRMMAPOVEREOF 50 0000A247 00000001 C 3283 3281 MJRMMAPSTGEXCEEDED 46 0000A3D5 00000001 C 3323 3321 MJRMMAPSUSPENDED 48 0000FFCF 00000001 C 5311 5309 MJRMMAPTYPEMISMATCH 1STRREA Ordinary Symbol and Literal Cross Reference Page 217 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 45 0000D53D 00000001 C 4482 4480 MJRMOUNT 48 0000381D 00000001 C 728 726 MJRMOUNTPT 50 00002D95 00000001 C 459 457 MJRMOVEINPROGRESS 47 0000FCDF 00000001 C 5251 5249 MJRMPMUPROCESS 50 0000D050 00000001 C 4372 4370 MJRMPTFSQUIESCED 48 0000FF7D 00000001 C 5305 5303 MJRMSGATTRERR 32 0000BBA3 00000001 C 3882 3880 MJRMSGHINVALID 50 00008838 00000001 C 2745 2743 MJRMSGINVALIDFLAG 47 00011B76 00000001 C 6077 6075 MJRMSGLENGTHERR 48 0000B944 00000001 C 3821 3819 MJRMSGMAXLINES 42 0000CD47 00000001 C 4291 4289 MJRMSOUTOFRANGE 49 00008352 00000001 C 2624 2622 MJRMSQBADSIZE 51 000095D0 00000001 C 3036 3034 MJRMSQBADTYPE 38 000095A9 00000001 C 3031 3029 MJRMSQNOMSG 42 00009612 00000001 C 3042 3040 MJRMSQQBYTES 52 00009974 00000001 C 3118 3116 MJRMSQQUEUEFULLBYTES 44 00009B2F 00000001 C 3145 3143 MJRMSQQUEUEFULLMESSAGES 41 00009A95 00000001 C 3137 3135 MJRMSQ2BIG 54 0000963D 00000001 C 3047 3045 MJRMULTIPLEREAD 49 000128DA 00000001 C 6546 6544 MJRMULTIPROC 52 00009113 00000001 C 2937 2935 MJRMULTITHREADED 48 0000E557 00000001 C 4769 4767 MJRMUSTBEIMMED 50 0000EE72 00000001 C 4948 4946 MJRMUSTBESOCKET 49 0000785B 00000001 C 2345 2343 MJRMUSTBESYSPLEX 48 0000EFCD 00000001 C 4984 4982 MJRMUSTUMOUNTIMMED 46 00003A57 00000001 C 792 790 MJRMVSARGTOOBIG 40 00004EE2 00000001 C 1245 1243 MJRMVSLOADFAILURE 47 0000B317 00000001 C 3674 3672 MJRMVSPGMNOTFOUND 1STRREA Ordinary Symbol and Literal Cross Reference Page 218 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 47 0000B364 00000001 C 3680 3678 MJRNAMEEXISTS 51 000089E8 00000001 C 2781 2779 MJRNAMETOOLONG 50 00007AEB 00000001 C 2421 2419 MJRNANOSECONDSTOOBIG 44 000073DF 00000001 C 2233 2231 MJRNEEDABSPATH 50 0000F6E4 00000001 C 5136 5134 MJRNEGATIVELENGTH 47 0000DC6D 00000001 C 4614 4612 MJRNEGATIVEVALUEINVALID 41 0000269E 00000001 C 272 270 MJRNEGFILEDES 40 00002770 00000001 C 294 292 MJRNEGFILESIZELIMIT 45 0000AFF0 00000001 C 3612 3610 MJRNEITHERMODE 50 0000304D 00000001 C 527 525 MJRNETACCESSDENIED 46 00013264 00000001 C 6788 6786 MJRNETWORK 54 0000795F 00000001 C 2373 2371 MJRNEWISDIR 53 000033B5 00000001 C 616 614 MJRNEWLENBAD 37 0000BB7D 00000001 C 3877 3875 MJRNEWLOCATIONERR 47 0000BB1D 00000001 C 3867 3865 MJRNEWNOTDIR 52 00003375 00000001 C 610 608 MJRNEWPASSWORDLENERROR 40 0000921B 00000001 C 2959 2957 MJRNOACCEPTTCB 42 00010D51 00000001 C 5695 5693 MJRNOACCESS 39 00009DCB 00000001 C 3194 3192 MJRNOACK 50 0000BBC4 00000001 C 3887 3885 MJRNOADDRSPACE 50 0000886D 00000001 C 2751 2749 MJRNOAREA 40 0000B7F5 00000001 C 3785 3783 MJRNOBACKLOGQ 51 0000D2C4 00000001 C 4430 4428 MJRNOBUFSTORAGE 49 00004723 00000001 C 1047 1045 MJRNOCALLERPID 50 0000D83A 00000001 C 4534 4532 MJRNOCERTFORUSER 48 0000D16F 00000001 C 4401 4399 MJRNOCHANGEIDENTITY 45 0000B847 00000001 C 3795 3793 MJRNOCLNYTHREADSPPT 40 0000AF4E 00000001 C 3595 3593 MJRNOCONSOLEBUFFERS 1STRREA Ordinary Symbol and Literal Cross Reference Page 219 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 41 0000B3D1 00000001 C 3687 3685 MJRNOCTTY 49 0000631E 00000001 C 1801 1799 MJRNODATA 29 000051BF 00000001 C 1318 1316 MJRNODEFAULT 52 0000CE81 00000001 C 4319 4317 MJRNODEVICEFOUND 48 0000F247 00000001 C 5054 5052 MJRNODUAVAILABLE 48 000130D8 00000001 C 6762 6760 MJRNOENCLAVE 52 0000B9B5 00000001 C 3832 3830 MJRNOEPHEMERALPORTS 45 0000CF29 00000001 C 4335 4333 MJRNOEVENTS 32 000072C1 00000001 C 2204 2202 MJRNOFDS 56 000083DB 00000001 C 2636 2634 MJRNOFDSTOOMANYQIDS 45 0000B634 00000001 C 3749 3747 MJRNOFILENOCREATFLAG 44 00002EAB 00000001 C 486 484 MJRNOFREEENTRY 46 0000CA4E 00000001 C 4212 4210 MJRNOFROMSYS 52 0000F06A 00000001 C 5002 5000 MJRNOFSFOUND 52 0000F0A0 00000001 C 5008 5006 MJRNOHOMESTATEMENT 46 0001104D 00000001 C 5787 5785 MJRNOINITACEE 51 0000D126 00000001 C 4395 4393 MJRNOLEADINGSLASH 34 00007B7A 00000001 C 2438 2436 MJRNOLISTS 54 0000824E 00000001 C 2605 2603 MJRNOLOCKERTOKEN 48 00009032 00000001 C 2913 2911 MJRNOLONGERSERVER 47 0000F29E 00000001 C 5065 5063 MJRNOMOUNTPOINTFOUND 44 0000F10C 00000001 C 5020 5018 MJRNOMULTI 45 0000B916 00000001 C 3816 3814 MJRNONAME 23 000088A7 00000001 C 2757 2755 MJRNOOOBDATAAVAIL 47 0000879E 00000001 C 2728 2726 MJRNOPATH 37 00002B17 00000001 C 392 390 MJRNOPERSIST 42 0000EADD 00000001 C 4871 4869 MJRNOPLACE 34 0000F15A 00000001 C 5031 5029 MJRNOPTRACETASKSEC 1STRREA Ordinary Symbol and Literal Cross Reference Page 220 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 46 000042BA 00000001 C 961 959 MJRNOPTSECENV 51 0000E4EE 00000001 C 4763 4761 MJRNOREADERS 52 000050B8 00000001 C 1291 1289 MJRNORESERVEDPORTS 46 0000410B 00000001 C 924 922 MJRNORESOURCEACCESS 45 000045D2 00000001 C 1022 1020 MJRNOROOT 32 0000FCBE 00000001 C 5246 5244 MJRNOSAFSUPPORT 49 0000B023 00000001 C 3618 3616 MJRNOSECURITYPRODUCT 35 00002625 00000001 C 256 254 MJRNOSOCKET 53 00007813 00000001 C 2339 2337 MJRNOSPACE 54 00008BBD 00000001 C 2826 2824 MJRNOSTORAGE 44 00003B51 00000001 C 824 822 MJRNOSUCHPID 27 00006F7A 00000001 C 2116 2114 MJRNOSURROGATEPERM 46 00004692 00000001 C 1035 1033 MJRNOSYSTEMFOUND 34 0000F17D 00000001 C 5036 5034 MJRNOTACTIVE 32 00002B3D 00000001 C 397 395 MJRNOTAUTHMAP 51 0000F785 00000001 C 5149 5147 MJRNOTAUTHORIZED 48 0000694B 00000001 C 1958 1956 MJRNOTAUTHPORT 50 000132DD 00000001 C 6800 6798 MJRNOTAUTHSTACK 49 000132A9 00000001 C 6794 6792 MJRNOTAUTHWLM 51 0000BCEA 00000001 C 3927 3925 MJRNOTBOUND 52 000100EC 00000001 C 5346 5344 MJRNOTCLIENT 52 0000FBC2 00000001 C 5223 5221 MJRNOTCMAUTHORIZED 46 00012B53 00000001 C 6604 6602 MJRNOTDESCENDANT 48 000070C1 00000001 C 2149 2147 MJRNOTDIR 37 00007F66 00000001 C 2541 2539 MJRNOTFORDIR 52 000036AE 00000001 C 693 691 MJRNOTINLIS 53 000118D5 00000001 C 6012 6010 MJRNOTINWLMENCLAVE 46 0000E6BC 00000001 C 4789 4787 1STRREA Ordinary Symbol and Literal Cross Reference Page 221 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRNOTKEY8 28 000023EC 00000001 C 192 190 MJRNOTMAPPED 42 00009E9D 00000001 C 3211 3209 MJRNOTMOVEABLE 33 0000F27C 00000001 C 5060 5058 MJRNOTMVSLOCALFILE 46 0000C981 00000001 C 4199 4197 MJRNOTOSA 39 0000CCC0 00000001 C 4275 4273 MJRNOTPAGE 54 0000A471 00000001 C 3335 3333 MJRNOTPERMITTED 49 00004D11 00000001 C 1199 1197 MJRNOTPRB 55 000031FB 00000001 C 570 568 MJRNOTPTCREATED 36 0000E9FD 00000001 C 4845 4843 MJRNOTPTSECURITY 48 0000EA22 00000001 C 4850 4848 MJRNOTQUIESCED 43 00003A8A 00000001 C 798 796 MJRNOTREGISTERED 38 00004DA8 00000001 C 1211 1209 MJRNOTREGISTEREDSERVER 38 00007A91 00000001 C 2410 2408 MJRNOTSEGMENT 51 0000D4FE 00000001 C 4476 4474 MJRNOTSERVERAUTHORIZED 42 00004535 00000001 C 1014 1012 MJRNOTSETUP 53 00007317 00000001 C 2215 2213 MJRNOTSIGSETUP 50 0000721B 00000001 C 2187 2185 MJRNOTSRBSYSCALL 48 0000BEC4 00000001 C 3968 3966 MJRNOTSTDFILE 31 0000AC45 00000001 C 3510 3508 MJRNOTSTREAM 52 0000CFF5 00000001 C 4361 4359 MJRNOTSUPINSYSPLEX 46 0000EDAD 00000001 C 4935 4933 MJRNOTSUPPORTEDFORFILETYPE 38 00004DCF 00000001 C 1216 1214 MJRNOUSEREXIT 51 00003E82 00000001 C 879 877 MJRNOUSERSTORAGE 48 0000A671 00000001 C 3386 3384 MJRNOVALUES 50 0000EF9A 00000001 C 4979 4977 MJRNOVSMLIST 52 00004758 00000001 C 1053 1051 MJRNOWILDAUTOMOVE 47 0000FC49 00000001 C 5235 5233 MJRNOWILDFROMSYS 1STRREA Ordinary Symbol and Literal Cross Reference Page 222 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 38 0000EF73 00000001 C 4974 4972 MJRNOWLMCONN 47 0000B8E6 00000001 C 3811 3809 MJRNOWORKUNIT 48 0000B8B5 00000001 C 3806 3804 MJRNULLINPATH 41 0000280A 00000001 C 314 312 MJRNULLMASK 39 00007166 00000001 C 2166 2164 MJROLDLOCATIONERR 47 0000BB4D 00000001 C 3872 3870 MJROLDNOEXIST 51 000033F1 00000001 C 622 620 MJROLDPARTOFNEW 49 000036EE 00000001 C 699 697 MJROPEN 53 00002AA9 00000001 C 382 380 MJROPENDIRNOTFOUND 46 000031BE 00000001 C 564 562 MJROPENFILELIMITMAX 37 0000A90D 00000001 C 3446 3444 MJROPENFLAGCONFLICT 45 00002F57 00000001 C 504 502 MJROPENFORWRITENOREADERS 40 00005087 00000001 C 1285 1283 MJROPENMAX 54 0000546F 00000001 C 1393 1391 MJROPTLERR 51 00010A49 00000001 C 5613 5611 MJROPTNOTSUPP 42 000085BC 00000001 C 2678 2676 MJROSENVBEGINENVOUTSTANDING 37 0000EB99 00000001 C 4888 4886 MJROSENVENCLAVESUBTASKEXISTS 36 0000EC5F 00000001 C 4902 4900 MJROSENVNOTACTIVE 31 0000ED1B 00000001 C 4915 4913 MJROSENVNOTEJOINEDTCB 43 0000EBFC 00000001 C 4895 4893 MJROSENVPERSISTCNTBAD 41 0000ED3B 00000001 C 4920 4918 MJROSENVSECURITYMISMATCH 40 0000ECC8 00000001 C 4909 4907 MJROSENVWLMMISMATCH 45 0000EB08 00000001 C 4876 4874 MJROSENVWRONGENCLAVE 44 0000EB5F 00000001 C 4882 4880 MJROTHERPROCESSES 47 00007D6F 00000001 C 2497 2495 MJROUTOFAUTOMOUNTENTRIES 40 0000F67D 00000001 C 5129 5127 MJROUTOFLOCKS 36 000037F8 00000001 C 723 721 MJROUTOFMOUNTENTRIES 44 0000B6B4 00000001 C 3760 3758 MJROUTOFRANGE 1STRREA Ordinary Symbol and Literal Cross Reference Page 223 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 51 0000739C 00000001 C 2227 2225 MJROUTOFVDECELLS 33 0000799A 00000001 C 2379 2377 MJRPARMTOOLONG 50 00002F99 00000001 C 510 508 MJRPASSWORDLENERROR 40 000091F2 00000001 C 2954 2952 MJRPATADDERR 31 0001070B 00000001 C 5523 5521 MJRPATDELERR 32 0001072B 00000001 C 5528 5526 MJRPATEXISTERR 38 0001074C 00000001 C 5533 5531 MJRPATFNDERR 36 000106C2 00000001 C 5513 5511 MJRPATFNXERR 35 000106E7 00000001 C 5518 5516 MJRPATHCONF 53 0000A42F 00000001 C 3329 3327 MJRPATHNOTDIR 41 000032DB 00000001 C 593 591 MJRPATHTOOLONG 24 000027F1 00000001 C 309 307 MJRPATNOTFOUND 35 00010773 00000001 C 5538 5536 MJRPFSABEND 32 00003B30 00000001 C 819 817 MJRPFSARGLENBAD 49 0000A7AC 00000001 C 3411 3409 MJRPFSCTL 37 00003BD6 00000001 C 835 833 MJRPFSDEAD 51 0000294A 00000001 C 350 348 MJRPFSFAILED 52 0000FDB8 00000001 C 5268 5266 MJRPFSINITFAILED 34 00003BFC 00000001 C 840 838 MJRPFSNOTDUBBED 49 00009FE6 00000001 C 3239 3237 MJRPFSOPNOTPERMITTED 44 0000A77B 00000001 C 3405 3403 MJRPFSOPNOTSUPPORTED 44 0000A74A 00000001 C 3399 3397 MJRPFSSUSPEND 30 00003B11 00000001 C 814 812 MJRPGIDDIFFERENTSESSION 41 000070FE 00000001 C 2155 2153 MJRPGMNOTAUTHORIZED 45 0000C761 00000001 C 4165 4163 MJRPIDDIFFERENTSESSION 42 00006FF0 00000001 C 2131 2129 MJRPIDEQSESSLEADER 34 00006F96 00000001 C 2121 2119 MJRPINGSELF 29 0000C38A 00000001 C 4085 4083 1STRREA Ordinary Symbol and Literal Cross Reference Page 224 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRPORTACCESSAUTH 47 00010DA7 00000001 C 5705 5703 MJRPORTBUSY 25 00010DD9 00000001 C 5711 5709 MJRPORTRERR 53 000107B7 00000001 C 5548 5546 MJRPORTUNAVAILABLE 46 00013169 00000001 C 6769 6767 MJRPREVSOCKERROR 48 0000ACF5 00000001 C 3532 3530 MJRPRIVILIGEDFILE 47 0000C62D 00000001 C 4140 4138 MJRPROCESSENDING 29 000053DB 00000001 C 1376 1374 MJRPROCESSNOTFROZEN 45 00003F18 00000001 C 886 884 MJRPROCMAXMMAP 50 0000A554 00000001 C 3358 3356 MJRPROGCNTL 53 0000C802 00000001 C 4173 4171 MJRPSWKEYNOTVALID 44 000071B9 00000001 C 2176 2174 MJRPTASYNCTHREAD 48 000085E7 00000001 C 2683 2681 MJRPTATADDRERROR 47 000069C3 00000001 C 1970 1968 MJRPTATDETACHSTATE 46 00006F36 00000001 C 2110 2108 MJRPTATEYE 54 00006987 00000001 C 1964 1962 MJRPTATLEN 54 00006DC9 00000001 C 2075 2073 MJRPTATSYNCTYPE 49 00006EF5 00000001 C 2104 2102 MJRPTATSYSLEN 51 00006D86 00000001 C 2069 2067 MJRPTATSYSOFF 51 00006D43 00000001 C 2063 2061 MJRPTATTEMPTEDCRSTORE 43 00005A71 00000001 C 1533 1531 MJRPTATTEMPTEDPSW0STORE 41 00005AA3 00000001 C 1539 1537 MJRPTATWEIGHT 51 00006EB7 00000001 C 2098 2096 MJRPTBADBLKOFFSET 47 0000D937 00000001 C 4558 4556 MJRPTBADBLKREQSTRUC 45 0000D6A5 00000001 C 4503 4501 MJRPTBUFNOTFOUND 48 0000B08D 00000001 C 3629 3627 MJRPTCNOTSUPP 46 000069F3 00000001 C 1975 1973 MJRPTDBDEQUALSDBR 47 00005AD7 00000001 C 1545 1543 MJRPTDBDPARENTTERM 1STRREA Ordinary Symbol and Literal Cross Reference Page 225 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 43 00005B1C 00000001 C 1551 1549 MJRPTDBDPIDNOTFOUND 45 00005B48 00000001 C 1556 1554 MJRPTDBRPARENTEQUALSDBD 41 0000623F 00000001 C 1774 1772 MJRPTDBRPIDNOTFOUND 25 00005B81 00000001 C 1562 1560 MJRPTDBRZOMBIE 25 00005B9B 00000001 C 1567 1565 MJRPTEDISAUTHORIZED 45 000061CA 00000001 C 1762 1760 MJRPTINVCALLINGMODE 35 00005BB5 00000001 C 1572 1570 MJRPTINVDBDADDRESS 46 00005BD9 00000001 C 1577 1575 MJRPTINVDBRADDRESS 46 00005C14 00000001 C 1583 1581 MJRPTINVFPCWRITE 48 0000DED3 00000001 C 4654 4652 MJRPTINVFPRNUMBER 47 00005C4F 00000001 C 1589 1587 MJRPTINVGPRHNUMBER 46 0000FDF8 00000001 C 5274 5272 MJRPTINVGPRNUMBER 47 00005C8F 00000001 C 1595 1593 MJRPTINVLENGTH 30 00005CC8 00000001 C 1601 1599 MJRPTINVNUMBERTHREADS 43 00005CE7 00000001 C 1606 1604 MJRPTINVPTRACESTATE 45 00005D16 00000001 C 1612 1610 MJRPTINVREQUEST 32 00005D45 00000001 C 1618 1616 MJRPTINVSIGNALNUMBER 44 00005D66 00000001 C 1623 1621 MJRPTINVUAREAOFFSET 45 00005D9D 00000001 C 1629 1627 MJRPTLDBUFFERTOOSMALL 43 00006205 00000001 C 1768 1766 MJRPTLDTOOMANYEXTENTS 43 0000CDF6 00000001 C 4308 4306 MJRPTMAXCAPTURE 49 0000B3FB 00000001 C 3692 3690 MJRPTNOSTORAGE 42 0000B062 00000001 C 3624 3622 MJRPTNOTXTDEVENT 48 00008C3A 00000001 C 2838 2836 MJRPTOLDDBRPIDNOTFOUND 34 00005DE0 00000001 C 1635 1633 MJRPTPROCESSNOTPTRACED 42 00005E03 00000001 C 1640 1638 MJRPTPROCESSNOTSTOPPED 42 00005E33 00000001 C 1646 1644 MJRPTPROCESSTERM 31 00005E68 00000001 C 1652 1650 1STRREA Ordinary Symbol and Literal Cross Reference Page 226 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRPTREQUESTDENIED 46 00007DC3 00000001 C 2503 2501 MJRPTRESTRICTEDPROCESS 42 00005E88 00000001 C 1657 1655 MJRPTSIGINTERRUPT 47 00005EBF 00000001 C 1663 1661 MJRPTSOMEBLKEDFAILED 44 0000D70C 00000001 C 4510 4508 MJRPTTOOMANYEVENTS 46 00008C9C 00000001 C 2844 2842 MJRPTTSO 56 0000B112 00000001 C 3636 3634 MJRPTTYPENOTBLOCKABLE 43 0000D74C 00000001 C 4516 4514 MJRPTTYPENOTTRIED 47 0000D620 00000001 C 4496 4494 MJRPTYALREADYACTIVE 41 000056FE 00000001 C 1452 1450 MJRPTYBADQUESEL 31 000062CC 00000001 C 1790 1788 MJRPTYBGCALL 28 0000612E 00000001 C 1741 1739 MJRPTYCHGFROMSLAVE 46 0000A0A9 00000001 C 3252 3250 MJRPTYCONNECTIONINOP 40 00006864 00000001 C 1935 1933 MJRPTYDIFFERENTFILE 45 000057DE 00000001 C 1474 1472 MJRPTYDIFFERENTUID 46 0000574D 00000001 C 1462 1460 MJRPTYDIFFSESSION 47 00006197 00000001 C 1756 1754 MJRPTYGRANTPTDONE 47 0000BE59 00000001 C 3957 3955 MJRPTYHUPCLCLOSE 48 00006350 00000001 C 1806 1804 MJRPTYINPUTSTOPPED 46 00005871 00000001 C 1486 1484 MJRPTYINVALIDACTION 28 00006052 00000001 C 1706 1704 MJRPTYINVALIDCCFLAG 30 0000606F 00000001 C 1711 1709 MJRPTYINVALIDCIFLAG 30 000060AD 00000001 C 1721 1719 MJRPTYINVALIDCLFLAG 30 0000608E 00000001 C 1716 1714 MJRPTYINVALIDCOFLAG 30 000060CC 00000001 C 1726 1724 MJRPTYINVALIDINBAUD 32 0000610D 00000001 C 1736 1734 MJRPTYINVALIDOUTBAUD 33 000060EB 00000001 C 1731 1729 MJRPTYINVALIDPGID 43 000063CA 00000001 C 1817 1815 MJRPTYMASTERCLOSED 46 000057A8 00000001 C 1468 1466 1STRREA Ordinary Symbol and Literal Cross Reference Page 227 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRPTYMINORINVALID 46 000056A9 00000001 C 1446 1444 MJRPTYMUTUALLYEXCLUSIVE 41 0000A3A1 00000001 C 3317 3315 MJRPTYNEEDPKTXTND 47 0000B494 00000001 C 3709 3707 MJRPTYNEEDPKT3270 47 0000A1FF 00000001 C 3277 3275 MJRPTYNOBUFSTORAGE 46 00005A41 00000001 C 1527 1525 MJRPTYNOCNTLTERM 38 00006170 00000001 C 1751 1749 MJRPTYNODATA 42 00005980 00000001 C 1510 1508 MJRPTYNOPTYRSTORAGE 45 000067F7 00000001 C 1923 1921 MJRPTYNOPTYSSTORAGE 45 00008659 00000001 C 2694 2692 MJRPTYNOSESSLEADER 46 000062EC 00000001 C 1795 1793 MJRPTYNOTCNTLTERM 47 0000ACBC 00000001 C 3526 3524 MJRPTYNOTINSESSION 46 000063F6 00000001 C 1822 1820 MJRPTYNOTMASTER 38 0000B56F 00000001 C 3728 3726 MJRPTYNOTPGLEADER 41 0000627A 00000001 C 1780 1778 MJRPTYNOTRTSTORAGE 46 0000A881 00000001 C 3434 3432 MJRPTYNOTSLAVE 39 000062A4 00000001 C 1785 1783 MJRPTYORPHANED 50 0000AE09 00000001 C 3564 3562 MJRPTYORPHANEDREAD 46 000059AB 00000001 C 1515 1513 MJRPTYORPHANEDWRITE 45 00005902 00000001 C 1498 1496 MJRPTYOUTPUTSTOPPED 45 0000594A 00000001 C 1504 1502 MJRPTYPENDINGCONTROLINFO 40 0000A5DE 00000001 C 3374 3372 MJRPTYQUEUECHANGE 47 0000AD96 00000001 C 3553 3551 MJRPTYSIGTTINBLOCKED 44 000059F2 00000001 C 1521 1519 MJRPTYSLAVELOCKED 47 0000BD94 00000001 C 3944 3942 MJRPTYSLAVENOTINIT 46 00005836 00000001 C 1480 1478 MJRPTYSLAVENOTLOCKED 44 0000BDED 00000001 C 3950 3948 MJRPTYSLAVEOPENED 47 00005649 00000001 C 1440 1438 MJRPTYUNSUPPORTEDATTR 1STRREA Ordinary Symbol and Literal Cross Reference Page 228 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 43 0000B717 00000001 C 3767 3765 MJRPVCALREADYDEFINED 27 0001158E 00000001 C 5938 5936 MJRPVCINUSEASARPSV 46 0001170F 00000001 C 5982 5980 MJRPVCLINKNOTATM 48 0001165D 00000001 C 5964 5962 MJRPVCNOTDEFINED 38 000115AA 00000001 C 5943 5941 MJRQUIESCED 36 00003AB6 00000001 C 803 801 MJRQUIESCETYPEINVALID 43 000078BA 00000001 C 2356 2354 MJRQUIESCING 52 00006018 00000001 C 1700 1698 MJRRAISEHARDLIMIT 47 0000A27D 00000001 C 3289 3287 MJRRCVDLIMIT 52 00010AAF 00000001 C 5623 5621 MJRRDANDWRTFORPIPE 42 0000505C 00000001 C 1280 1278 MJRRDDFILENOTDIR 48 00003141 00000001 C 553 551 MJRRDDPLUSNOCURSORSUPP 42 0000CD72 00000001 C 4296 4294 MJRRDLBUFFLENINVALID 42 0000718E 00000001 C 2171 2169 MJRRDNORWRTFORPIPE 46 00005185 00000001 C 1312 1310 MJRRDWR 57 000029F4 00000001 C 366 364 MJRREADDIR 52 000030DF 00000001 C 543 541 MJRREADLINK 45 00004A99 00000001 C 1136 1134 MJRREADONLYFILESETCREATREQ 38 00002E77 00000001 C 480 478 MJRREADONLYFILESETMKNODREQ 38 0000326C 00000001 C 582 580 MJRREADONLYFILESETWRITEREQ 38 00002E24 00000001 C 474 472 MJRREADONLYFS 51 00003305 00000001 C 598 596 MJRREADUSERSTORAGEFAILED 40 0000670A 00000001 C 1899 1897 MJRREADWRITEV 51 0000762B 00000001 C 2291 2289 MJRREALPAGENOTSUPPORTED 41 0000B271 00000001 C 3661 3659 MJRRECOVERY 49 000081A7 00000001 C 2589 2587 MJRRECVOPTLERR 50 00010E27 00000001 C 5722 5720 MJRREMOVE 54 00002FD8 00000001 C 516 514 MJRRENAME 1STRREA Ordinary Symbol and Literal Cross Reference Page 229 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 51 00003460 00000001 C 633 631 MJRREQDENIED 38 0000CC63 00000001 C 4264 4262 MJRRESERVEDVALUEINVALID 41 0000FB62 00000001 C 5212 5210 MJRRESETALREADYINPROG 37 0000EED6 00000001 C 4954 4952 MJRRESNOTFOUNDINDNS 45 00011C85 00000001 C 6096 6094 MJRRESRPORTNOTAVAIL 45 0000404A 00000001 C 906 904 MJRRESRPORTSPECIFIED 44 00004002 00000001 C 900 898 MJRRESRPORTUSED 49 0000407F 00000001 C 912 910 MJRRFILENOREAD 50 00009BC6 00000001 C 3152 3150 MJRRFILEWRONLY 48 0000270B 00000001 C 283 281 MJRRLIMITCANTCREATE 45 0000AC15 00000001 C 3504 3502 MJRRMDIR 50 000032A8 00000001 C 588 586 MJRRMGWRONGDATALEN 46 00006E0B 00000001 C 2081 2079 MJRROOTNODE 48 000035F8 00000001 C 673 671 MJRROSALREADYREG 48 0000C420 00000001 C 4106 4104 MJRROUTEEXISTS 50 0000C65F 00000001 C 4146 4144 MJRROUTINEERROR 49 00008207 00000001 C 2599 2597 MJRRTALREADYEXISTS 25 00011372 00000001 C 5871 5869 MJRRTINVALIDDEST 41 00010F69 00000001 C 5759 5757 MJRRTINVALIDGATEWAYADDR 41 00010EF1 00000001 C 5743 5741 MJRRTINVALIDHOSTADDR 44 00010FBD 00000001 C 5769 5767 MJRRTINVALIDMASK 41 00010F93 00000001 C 5764 5762 MJRRTINVALIDMASKCIDR 44 00011B48 00000001 C 6071 6069 MJRRTINVALIDMASKDEFAULT 41 00011ADA 00000001 C 6059 6057 MJRRTINVALIDMASKHOST 44 00011AAB 00000001 C 6053 6051 MJRRTINVALIDPROTOCOL 38 00010F1F 00000001 C 5749 5747 MJRRTINVALIDTOS 45 00010EC3 00000001 C 5738 5736 MJRRTINVALIDTYPE 34 00010F46 00000001 C 5754 5752 MJRRTNOBSDROUTINGPARMSSET 1STRREA Ordinary Symbol and Literal Cross Reference Page 230 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 39 00011B13 00000001 C 6065 6063 MJRRTNOTDEFINED 25 0001138C 00000001 C 5876 5874 MJRRTREMOVEDIRECTERROR 42 000113A6 00000001 C 5881 5879 MJRRTREMOVEINDIRECTERROR 40 000113FB 00000001 C 5891 5889 MJRRTSSCONNERR 50 0000BEF7 00000001 C 3974 3972 MJRRTSSENVERR 51 0000BF34 00000001 C 3980 3978 MJRRWDFILENOTDIR 48 000035BC 00000001 C 667 665 MJRRWNOTREGFILE 45 00007C04 00000001 C 2458 2456 MJRSAFGROUPNOOMVS 47 000047FF 00000001 C 1069 1067 MJRSAFINTERNAL 50 000048AD 00000001 C 1090 1088 MJRSAFNOCELLUUID 48 0000440B 00000001 C 991 989 MJRSAFNODCECLASS 38 000043E4 00000001 C 986 984 MJRSAFNOGID 41 00004883 00000001 C 1085 1083 MJRSAFNOTAUTHORIZED 45 000046E3 00000001 C 1041 1039 MJRSAFNOUID 22 0000486C 00000001 C 1080 1078 MJRSAFNOUSER 50 000047CC 00000001 C 1064 1062 MJRSAFNOUSERTOUUID 46 000043A5 00000001 C 980 978 MJRSAFNOUUIDTOUSER 46 00004366 00000001 C 974 972 MJRSAFRESOURCEUNDEFINED 41 00004329 00000001 C 968 966 MJRSAFUSERNOOMVS 41 00004842 00000001 C 1075 1073 MJRSECACTIVE 46 0000EA8F 00000001 C 4861 4859 MJRSECOUTOFRANGE 48 0000839C 00000001 C 2630 2628 MJRSECURITYENV 50 0000D47F 00000001 C 4465 4463 MJRSELECT 55 00007722 00000001 C 2315 2313 MJRSELFCONNECT 30 0000CFB6 00000001 C 4351 4349 MJRSEMA4BADADJ 50 00009693 00000001 C 3053 3051 MJRSEMA4BADNOPS 49 000096D0 00000001 C 3059 3057 MJRSEMA4BADNSEMS 48 00009707 00000001 C 3065 3063 1STRREA Ordinary Symbol and Literal Cross Reference Page 231 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRSEMA4BADSEMN 31 0000979B 00000001 C 3077 3075 MJRSEMA4BADVALUE 48 000097BB 00000001 C 3082 3080 MJRSEMA4BIGNSEMS 48 000097ED 00000001 C 3088 3086 MJRSEMA4ZERONSEMS 47 00009821 00000001 C 3094 3092 MJRSEMSTORAGELIMIT 46 00009BFD 00000001 C 3158 3156 MJRSENDLIMIT 49 00010A7D 00000001 C 5618 5616 MJRSENDOPTLERR 50 00010DF3 00000001 C 5716 5714 MJRSETATTR 54 000049A8 00000001 C 1113 1111 MJRSETPEER 54 0000775E 00000001 C 2321 2319 MJRSETSOCKOPTFAILALL 44 0000AADF 00000001 C 3483 3481 MJRSETSOCKOPTFAILONE 44 0000AB46 00000001 C 3490 3488 MJRSETSOCKOPTFAILSOME 43 0000ABAD 00000001 C 3497 3495 MJRSHMBADSIZE 51 0000986E 00000001 C 3100 3098 MJRSHMMAXATTACH 49 000098D6 00000001 C 3106 3104 MJRSHMMAXSPAGES 49 00009D65 00000001 C 3188 3186 MJRSHRLIBNOTAUTHORIZED 42 0000F5DE 00000001 C 5121 5119 MJRSHRSTGSHORTAGE 47 0000B460 00000001 C 3703 3701 MJRSHSPMASK 53 0000AF77 00000001 C 3600 3598 MJRSHUTDOWN 53 0000779B 00000001 C 2327 2325 MJRSIGDURINGWAIT 31 00005165 00000001 C 1307 1305 MJRSIGINFOLEN 51 0000E788 00000001 C 4806 4804 MJRSIGNALPID 35 0000D816 00000001 C 4529 4527 MJRSIGNALRECEIVED 36 00005728 00000001 C 1457 1455 MJRSIGNALSNOTBLOCKED 44 000053F9 00000001 C 1381 1379 MJRSINGLETDREQD 49 0000B1D0 00000001 C 3649 3647 MJRSKASMBADTYPE 31 00012872 00000001 C 6531 6529 MJRSKCIBALREADYSLEEPING1 23 000122F9 00000001 C 6309 6307 MJRSKCIBINVALIDMESSAGE 1STRREA Ordinary Symbol and Literal Cross Reference Page 232 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 26 000122DE 00000001 C 6304 6302 MJRSKDKIBADFINDTYPE 21 00012357 00000001 C 6324 6322 MJRSKDKIBADQGETTYPE 31 0001238C 00000001 C 6334 6332 MJRSKDKIBADQSETTYPE 31 000123AC 00000001 C 6339 6337 MJRSKDKINOTFOUND 30 0001236D 00000001 C 6329 6327 MJRSKDKINOTREADQUEUE 33 00012311 00000001 C 6314 6312 MJRSKDKINOTWRITEQUEUE 35 00012333 00000001 C 6319 6317 MJRSKHEDBADOPEN 38 000123CC 00000001 C 6344 6342 MJRSKMNTBADMESSAGE 20 000123F3 00000001 C 6349 6347 MJRSKMNTSNOOPERALREADYACTIVE 32 00012408 00000001 C 6354 6352 MJRSKMNTSNOOPERNOTACTIVE 36 00012429 00000001 C 6359 6357 MJRSKSACLINKEDSTREAM 34 000128B7 00000001 C 6541 6539 MJRSKSACNOSTREAM 36 00012892 00000001 C 6536 6534 MJRSKSTOBADCONTROLINFORMATION 35 00012560 00000001 C 6404 6402 MJRSKSTOBADINDEX 35 0001244E 00000001 C 6364 6362 MJRSKSTOBADMESSAGELENGTH1 34 00012519 00000001 C 6394 6392 MJRSKSTOBADMESSAGELENGTH2 35 0001253C 00000001 C 6399 6397 MJRSKSTOBADMESSAGETYPE 29 00012496 00000001 C 6374 6372 MJRSKSTOBADSTREAM 35 00012472 00000001 C 6369 6367 MJRSKSTOMESSAGETOOSHORT 34 000124DA 00000001 C 6384 6382 MJRSKSTONOCONTROLPART1 27 000124FD 00000001 C 6389 6387 MJRSKSTONOEMPTYMESSAGES 37 000124B4 00000001 C 6379 6377 MJRSKSTONOMESSAGES 30 00012589 00000001 C 6410 6408 MJRSKSTORESOURCESHORTAGE2 39 000125A8 00000001 C 6415 6413 MJRSKSTORESOURCESHORTAGE3 39 000125D0 00000001 C 6420 6418 MJRSKVRBBADACTION 25 00012723 00000001 C 6476 6474 MJRSKVRBBADCLASS1 27 000127F1 00000001 C 6511 6509 MJRSKVRBBADCLASS2 33 0001280D 00000001 C 6516 6514 1STRREA Ordinary Symbol and Literal Cross Reference Page 233 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRSKVRBBADFLAG 22 0001275A 00000001 C 6486 6484 MJRSKVRBBADID 28 0001273D 00000001 C 6481 6479 MJRSKVRBBADMASK 30 00012704 00000001 C 6471 6469 MJRSKVRBBADNAME 21 00012628 00000001 C 6436 6434 MJRSKVRBBADOPTION1 23 000125F9 00000001 C 6426 6424 MJRSKVRBBADOPTION2 34 0001278B 00000001 C 6496 6494 MJRSKVRBBADOPTION3 33 000127AE 00000001 C 6501 6499 MJRSKVRBBADOPTION4 32 000127D0 00000001 C 6506 6504 MJRSKVRBBADTYPE 22 000126C4 00000001 C 6461 6459 MJRSKVRBNOERRNO 25 00012771 00000001 C 6491 6489 MJRSKVRBNORESOURCES1 34 0001263E 00000001 C 6441 6439 MJRSKVRBNORESOURCES2 40 000126DB 00000001 C 6466 6464 MJRSKVRBNORESOURCES3 40 0001282F 00000001 C 6521 6519 MJRSKVRBNOTHINGPUSHED1 31 00012661 00000001 C 6446 6444 MJRSKVRBNOTHINGPUSHED2 25 00012858 00000001 C 6526 6524 MJRSKVRBNOTLINKED 34 000126A1 00000001 C 6456 6454 MJRSKVRBNOTMULTIPLEXED 31 00012681 00000001 C 6451 6449 MJRSKVRBNOTUP 22 00012611 00000001 C 6431 6429 MJRSMALLATTR 39 00007BB4 00000001 C 2448 2446 MJRSMALLFSATTR 41 00007CD5 00000001 C 2480 2478 MJRSMALLMNTE 39 00007BDC 00000001 C 2453 2451 MJRSMFBADRECORDLENGTH 43 0000C2AD 00000001 C 4068 4066 MJRSMFNOTACCEPTING 46 0000C256 00000001 C 4057 4055 MJRSMFNOTACTIVE 18 0000C29A 00000001 C 4063 4061 MJRSMFNOTAUTHORIZED 45 0000C1E4 00000001 C 4050 4048 MJRSNDRCV 55 0000766B 00000001 C 2297 2295 MJRSNDTORCVFM 51 000076A7 00000001 C 2303 2301 MJRSOCANWKBITON 1STRREA Ordinary Symbol and Literal Cross Reference Page 234 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 42 00008008 00000001 C 2558 2556 MJRSOCKBUFMAX 51 000086CB 00000001 C 2706 2704 MJRSOCKET 55 000077D9 00000001 C 2333 2331 MJRSOCKETCALLPARMERROR 42 00008178 00000001 C 2583 2581 MJRSOCKETCLOSED 49 000080C6 00000001 C 2570 2568 MJRSOCKETCONDROPPED 34 0000D02D 00000001 C 4367 4365 MJRSOCKETNAMED 50 00007FC5 00000001 C 2552 2550 MJRSOCKETNONBLOCK 47 0000DDCD 00000001 C 4635 4633 MJRSOCKETNOTCON 37 00008633 00000001 C 2689 2687 MJRSOCKETPROTOCOLINVALID 40 0000895D 00000001 C 2774 2772 MJRSOCKETRSTRECEIVED 44 0000CF89 00000001 C 4346 4344 MJRSOCKETSYNRECEIVED 44 0000CF5C 00000001 C 4341 4339 MJRSOCKETTYPENOTSUPPORTED 39 00008F59 00000001 C 2890 2888 MJRSOCKNONAME 44 00008729 00000001 C 2717 2715 MJRSOCKOPT 54 000075B2 00000001 C 2279 2277 MJRSOCKRDWRSIGNAL 47 00008693 00000001 C 2700 2698 MJRSOCKSHUTDOWN 24 0000881F 00000001 C 2740 2738 MJRSOFTBELOWUSAGE 47 0000A32B 00000001 C 3306 3304 MJRSOFTEXCEEDSHARD 46 0000A2EB 00000001 C 3300 3298 MJRSPAWNARGSTOOBIG 46 00003C80 00000001 C 851 849 MJRSPAWNNOCOMMONSTG 45 00003C1F 00000001 C 845 843 MJRSPAWNTOOMANYFDS 46 00009D08 00000001 C 3182 3180 MJRSPFILEEXISTS 49 00003234 00000001 C 576 574 MJRSRBSNOTALLOWED 43 0000BE98 00000001 C 3963 3961 MJRSRMSG 56 000076E7 00000001 C 2309 2307 MJRSRX 58 0000D8C4 00000001 C 4546 4544 MJRSSETTOOSMALL 49 0000D9B8 00000001 C 4565 4563 MJRSTALEVFS 53 0000B791 00000001 C 3779 3777 MJRSTALEVFSTOK 22 00007B9D 00000001 C 2443 2441 1STRREA Ordinary Symbol and Literal Cross Reference Page 235 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRSTALEVNODETOK 24 00007A50 00000001 C 2400 2398 MJRSTARTNONDEVICEINVALID 40 000111BC 00000001 C 5831 5829 MJRSTATFS 41 000038A9 00000001 C 743 741 MJRSTATUSPOSTED 49 000048E0 00000001 C 1095 1093 MJRSTICKYBIT 52 0000E94F 00000001 C 4833 4831 MJRSTIMERMMAX 51 0000AEEA 00000001 C 3589 3587 MJRSTLACTIONINVALID 45 00008AE5 00000001 C 2803 2801 MJRSTLTASKSINVALID 46 00008B1F 00000001 C 2809 2807 MJRSTLTHREADSINVALID 44 00008B53 00000001 C 2815 2813 MJRSTORNOTAVAIL 47 0000D4CE 00000001 C 4471 4469 MJRSUBSYSNOTFND 49 0000B9F2 00000001 C 3838 3836 MJRSURROGATEUNDEFINED 43 00004626 00000001 C 1028 1026 MJRSVC99FAILED 24 0000BC38 00000001 C 3902 3900 MJRSWAPMISMATCH 49 0000D243 00000001 C 4423 4421 MJRSYMFILEALREADYEXISTS 41 000049E5 00000001 C 1119 1117 MJRSYMLINK 50 00004A27 00000001 C 1125 1123 MJRSYNC 39 00003881 00000001 C 738 736 MJRSYSCALLFAILALL 47 0000A997 00000001 C 3462 3460 MJRSYSCALLFAILONE 47 0000AA04 00000001 C 3469 3467 MJRSYSCALLFAILSOME 46 0000AA71 00000001 C 3476 3474 MJRSYSPLEXADDRNOTFOUND 42 00011C0A 00000001 C 6089 6087 MJRSYSPLEXBLACKHOLEIO 43 0000F448 00000001 C 5099 5097 MJRSYSPLEXDATASYNCLOST 42 0000F1A0 00000001 C 5041 5039 MJRSYSPLEXRECOVERYINPROG 40 0000EE2B 00000001 C 4942 4940 MJRTARGETENDING 28 0000789D 00000001 C 2351 2349 MJRTARGETIPNOTFOUND 33 0000BD45 00000001 C 3933 3931 MJRTARGETNOTDIR 47 0000318E 00000001 C 559 557 MJRTARGETPID 35 0000D7F2 00000001 C 4524 4522 1STRREA Ordinary Symbol and Literal Cross Reference Page 236 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRTASKACEE 53 0000916A 00000001 C 2943 2941 MJRTCPERROR 51 00008B89 00000001 C 2821 2819 MJRTCPINVALIDREQUESTCODE 25 0001224F 00000001 C 6283 6281 MJRTCPINVALIDTCPIPNAME 23 00012237 00000001 C 6278 6276 MJRTCPINVDELETE 49 00012287 00000001 C 6293 6291 MJRTCPINVUSERDATA 35 000122BA 00000001 C 6299 6297 MJRTCPNOTACTIVE 36 00008CF1 00000001 C 2850 2848 MJRTCPNOTINSTALLEDORUP 29 00012269 00000001 C 6288 6286 MJRTCPNOTUP 26 00010651 00000001 C 5497 5495 MJRTCPTCPIPERROR 37 00012211 00000001 C 6273 6271 MJRTDGONE 55 0000F20D 00000001 C 5048 5046 MJRTELNFNDERR 27 0001196B 00000001 C 6024 6022 MJRTELSTATERR 51 00011917 00000001 C 6018 6016 MJRTGTMEMBERINACTIVE 44 0000B74E 00000001 C 3773 3771 MJRTHREADNOTFOUND 34 00006B18 00000001 C 2007 2005 MJRTHREADTERM 51 00006A7C 00000001 C 1991 1989 MJRTIMEOUT 44 00007422 00000001 C 2239 2237 MJRTIMEOUTNOTAUTH 47 0000706E 00000001 C 2143 2141 MJRTLIERROR 48 00010141 00000001 C 5356 5354 MJRTLSADDRESSLENGTHINVALID 38 000041F8 00000001 C 943 941 MJRTLSCALLERISIPT 24 0000423B 00000001 C 949 947 MJRTLSCERTIDLENINVALID 42 0000D089 00000001 C 4378 4376 MJRTLSCERTLENGTHINVALID 41 0000D0FA 00000001 C 4389 4387 MJRTLSCERTTYPEINVALID 42 0000D0CF 00000001 C 4384 4382 MJRTLSIDLENGTHINVALID 43 000041BA 00000001 C 937 935 MJRTLSIDTYPEINVALID 45 0000417E 00000001 C 931 929 MJRTLSNOTDONEBYOE 47 00004254 00000001 C 954 952 MJRTLSREQUESTINVALID 1STRREA Ordinary Symbol and Literal Cross Reference Page 237 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0 44 000040CF 00000001 C 918 916 MJRTOKDIR 37 00007E34 00000001 C 2514 2512 MJRTOKENMAX 53 000079BC 00000001 C 2384 2382 MJRTOKNOTDIR 44 00007E5A 00000001 C 2519 2517 MJRTOOMANY 54 00006FB9 00000001 C 2126 2124 MJRTOOMANYBYTES 49 0000DD73 00000001 C 4629 4627 MJRTOOMANYDVIPAS 48 00013062 00000001 C 6750 6748 MJRTOOMANYFDS 27 0000AE8A 00000001 C 3578 3576 MJRTOOMANYINTF 44 0000CBCA 00000001 C 4247 4245 MJRTOOMANYSYMLINKS 46 00004EA9 00000001 C 1239 1237 MJRTOOMANYTHDS 50 0000810F 00000001 C 2576 2574 MJRTOSOPT 53 00010B7E 00000001 C 5644 5642 MJRTOSOPTLERR 51 00010C1A 00000001 C 5659 5657 MJRTRANSPORTDRIVERNOTACCESSIBLE 33 0000AE40 00000001 C 3570 3568 MJRTRLENOTFOUND 32 0000C3CC 00000001 C 4095 4093 MJRTRMOUNTEDRO 50 00003771 00000001 C 711 709 MJRTRNEGOFFSET 50 000037C1 00000001 C 717 715 MJRTRNOTREGFILE 40 000028DD 00000001 C 339 337 MJRTROPENEDRO 51 00003733 00000001 C 705 703 MJRTRUNC 56 00004932 00000001 C 1101 1099 MJRTSO 58 000092AF 00000001 C 2971 2969 MJRTTLOPT 49 00010BB4 00000001 C 5649 5647 MJRTTLOPTLERR 51 00010C4E 00000001 C 5664 5662 MJRTYPENOTPID 51 00009764 00000001 C 3071 3069 MJRUDPNOTUP 26 0001066C 00000001 C 5502 5500 MJRUMOUNT 50 0000384E 00000001 C 733 731 MJRUNBINDNOTIDLE 48 00010A03 00000001 C 5607 5605 MJRUNDEFEVENTS 50 0000728E 00000001 C 2199 2197 MJRUNEXPECTEDACK 48 0001006B 00000001 C 5334 5332 1STRREA Ordinary Symbol and Literal Cross Reference Page 238 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0MJRUNKNOWNBLOCK 39 0000EF24 00000001 C 4964 4962 MJRUNLDIR 52 00002DEF 00000001 C 469 467 MJRUNLMOUNTRO 46 000026DC 00000001 C 278 276 MJRUNLNOENT 38 00002DC8 00000001 C 464 462 MJRUSERNAMELENERROR 41 000091C8 00000001 C 2949 2947 MJRUSERNOTAUTHORIZED 44 000051DD 00000001 C 1323 1321 MJRUSERNOTPRIVILEGED 44 00003A28 00000001 C 786 784 MJRUWCONOTFOUND 49 00012C0B 00000001 C 6622 6620 MJRUWCOSTORAGEFAILED 43 00012C49 00000001 C 6628 6626 MJRUWCTFULL 36 00012CCD 00000001 C 6643 6641 MJRUWCTSTORAGEFAILED 43 00012C75 00000001 C 6633 6631 MJRUWHTSTORAGEFAILED 43 00012CA1 00000001 C 6638 6636 MJRVARIABLESUBNETTINGNOTALLOWED 33 00011BCC 00000001 C 6083 6081 MJRVGET 39 000038D3 00000001 C 748 746 MJRVTOKENFREED 41 00007A04 00000001 C 2390 2388 MJRWAITFOREVER 50 0000B4DC 00000001 C 3716 3714 MJRWFILEMAPRDONLY 47 0000D5E0 00000001 C 4490 4488 MJRWFILERDONLY 50 0000273C 00000001 C 288 286 MJRWLMJOINERROR 35 0000ED65 00000001 C 4925 4923 MJRWOULDBLOCK 51 00008483 00000001 C 2650 2648 MJRWRITEBEYONDLIMIT 45 0000A969 00000001 C 3457 3455 MJRWRITEUSERSTORAGEFAILED 39 0000674C 00000001 C 1905 1903 MJRWRONGBAND 31 00010121 00000001 C 5351 5349 MJRWRONGINSTANCE 48 000052C7 00000001 C 1352 1350 MJRWRONGKEY 53 0000D900 00000001 C 4552 4550 MJRWRONGPID 33 00007A2E 00000001 C 2395 2393 MJRXCFNOSTORAGE 48 0000FD87 00000001 C 5263 5261 MJRZEROORNEGATIVE 44 0000A644 00000001 C 3381 3379 1STRREA Ordinary Symbol and Literal Cross Reference Page 239 -Symbol Length Value Id R Type Defn References HLASM R4.0 2006/09/01 12.09 0PARMS 1 00000000 FFFFFFFE J 6816 69U PLINULL 1 FF000000 00000001 A U 171 165 PLISTART 1 00000000 00000002 $ 124 127 PL10004 2 000000B4 00000001 H 135 130B RETURN 2 0000008A 00000001 H 118 106B 110B R1 1 00000001 FFFFFFFE A U 6824 114M 115 R10 1 0000000A FFFFFFFE A U 6833 84 R14 1 0000000E FFFFFFFE A U 6837 104M 105 108 R15 1 0000000F FFFFFFFE A U 6838 90M 91 108M 109M 109 113 114 116 R4 1 00000004 FFFFFFFE A U 6827 84M 85M 85 88M 95 100M 103M 104 R5 1 00000005 FFFFFFFE A U 6828 89 89 115 R6 1 00000006 FFFFFFFE A U 6829 84M 91 116 R7 1 00000007 FFFFFFFE A U 6830 93M 98M 104 R8 1 00000008 FFFFFFFE A U 6831 94M 99M 105 STRREA 1 00000000 00000001 J 60 67U 81 82 WORKAREA 1 00000000 FFFFFFFF J 6812 80U 6814 WORKLEN 1 00000068 FFFFFFFF A U 6814 64 =A(ETAB) 4 000001C8 00000001 A 166 93 =A(ETAB2) 4 000001D4 00000001 A 169 98 =A(LASTMSG) 4 000001CC 00000001 A 167 94 =A(LASTMSG2) 4 000001D8 00000001 A 170 99 =A(PLINULL) 4 000001C4 00000001 A 165 90 =F'29000' 4 000001D0 00000001 F 168 95 100 =X'0000FFFF' 4 000001C0 00000001 X 164 88 1STRREA Macro and Copy Code Source Summary Page 240 - Con Source Volume Members HLASM R4.0 2006/09/01 12.09 0 L1 SYS1.MACLIB OS3RAA BPXYERNO FREEMAIN GETMAIN SYSSTATE L3 QC22505.HFS.ASM COS002 RENTR REXIT SYMBAR 1STRREA Dsect Cross Reference Page 241 -Dsect Length Id Defn HLASM R4.0 2006/09/01 12.09 0PARMS 0000000C FFFFFFFE 6816 WORKAREA 00000068 FFFFFFFF 6812 1STRREA Using Map Page 242 - HLASM R4.0 2006/09/01 12.09 Stmt -----Location----- Action ----------------Using----------------- Reg Max Last Label and Using Text Count Id Type Value Range Id Disp Stmt 0 67 00000016 00000001 USING ORDINARY 00000000 00001000 00000001 11 1D8 130 STRREA,11 69 00000018 00000001 USING ORDINARY 00000000 00001000 FFFFFFFE 10 000 PARMS,10 80 0000002C 00000001 USING ORDINARY 00000000 00001000 FFFFFFFF 13 000 WORKAREA,13 1 General Purpose Register Cross Reference Page 243 - Register References (M=modified, B=branch, U=USING, D=DROP, N=index) HLASM R4.0 2006/09/01 12.09 0 0(0) 61 71M 123M 136M 1(1) 61 68 74M 76 77 78 113M 114M 115 120M 133M 133 136M 2(2) 61 113M 136M 3(3) 61 136M 4(4) 61 84M 85M 85N 88M 95 100M 103M 104N 136M 5(5) 61 84M 89 89 115 136M 6(6) 61 84M 91 116 136M 7(7) 61 93M 98M 104 136M 8(8) 61 94M 99M 105 136M 9(9) 61 136M 10(A) 61 68M 69U 84 136M 11(B) 61 66M 67U 71 136M 12(C) 61 136M 13(D) 61 76 77 78M 80U 120 121M 121 122 136 14(E) 61 104M 105 108N 122M 123N 136M 138B 15(F) 61 62 66 90M 91 108M 109M 109 113 114 116 128M 129M 129 136M 137M 137 1STRREA Diagnostic Cross Reference and Assembler Summary Page 244 - HLASM R4.0 2006/09/01 12.09 0 No Statements Flagged in this Assembly HIGH LEVEL ASSEMBLER, 5696-234, RELEASE 4.0, PTF UQ46898 0SYSTEM: OS/390 02.10.00 JOBNAME: QC22505C STEPNAME: STRREA PROCSTEP: ASM 0Datasets Allocated for this Assembly Con DDname Dataset Name Volume Member P1 SYSIN QC22505.HFS.ASM COS002 STRREA L1 SYSLIB SYS1.MACLIB OS3RAA L2 SYS1.AMODGEN OS3DAA L3 QC22505.HFS.ASM COS002 SYSLIN SYS06244.T120904.RA000.QC22505C.OBJ.H01 SYSPRINT QC22505.QC22505C.JOB01350.D0000109.? 4768K allocated to Buffer Pool, 2313K would be required for this to be an In-Storage Assembly 7137 Primary Input Records Read 8915 Library Records Read 0 Work File Reads 0 ASMAOPT Records Read 13381 Primary Print Records Written 0 Work File Writes 3677 Punch Records Written 0 ADATA Records Written 0Assembly Start Time: 12.09.36 Stop Time: 12.09.41 Processor Time: 00.00.04.3845 Return Code 000 1 IEBCOPY MESSAGES AND CONTROL STATEMENTS PAGE 1 -IEB1135I IEBCOPY FMID HDZ11F0 SERVICE LEVEL NONE DATED 20000815 DFSMS 02.10.00 OS/390 02.10.00 HBB7703 CPU 7060 IEB1035I QC22505C COMPR 12:09:41 FRI 01 SEP 2006 PARM='' - COPY INDD=LIB,OUTDD=LIB 00111022 0IEB1018I COMPRESSING PDS OUTDD=LIB VOL=WRK102 DSN=QC22505.HFS.LOAD IEB1097I FOLLOWING MEMBER(S) MOVED IN DATA SET REFERENCED BY LIB IEB154I MAIN HAS BEEN SUCCESSFULLY MOVED IEB1098I 1 OF 1 MEMBERS MOVED IN DATA SET REFERENCED BY LIB IEB144I THERE ARE 22 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY LIB IEB149I THERE ARE 0 UNUSED DIRECTORY BLOCKS IN OUTPUT DIRECTORY IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE 1PROCESSING OPTIONS: ALIASES NO ALIGN2 NO AMODE UNSPECIFIED CALL YES CASE UPPER COMPAT UNSPECIFIED DCBS NO DYNAM NO EXTATTR UNSPECIFIED EXITS: NONE FILL NONE GID UNSPECIFIED HOBSET NO LET 04 LINECT 060 LIST SUMMARY LISTPRIV NO MAP NO MAXBLK 032760 MSGLEVEL 04 OVLY NO PRINT YES RES NO REUSABILITY REENTRANT RMODE UNSPECIFIED STORENX NO TERM NO UID UNSPECIFIED UPCASE: NO WKSPACE 000000K,000000K XCAL NO XREF NO ***END OF OPTIONS*** 1SAVE OPERATION SUMMARY: MEMBER NAME MAIN LOAD LIBRARY QC22505.HFS.LOAD PROGRAM TYPE LOAD MODULE VOLUME SERIAL WRK102 MAX BLOCK 32760 DISPOSITION REPLACED TIME OF SAVE 12.09.43 SEP 1, 2006 1SAVE MODULE ATTRIBUTES: AC 000 AMODE 31 DC NO EDITABLE YES EXCEEDS 16MB NO EXECUTABLE YES MIGRATABLE YES OL NO OVLY NO PACK,PRIME NO,NO PAGE ALIGN NO REFR NO RENT YES REUS YES RMODE ANY SCTR NO SSI SYM GENERATED YES TEST YES XPLINK NO MODULE SIZE (HEX) 00017BD8 1 ENTRY POINT AND ALIAS SUMMARY: NAME: ENTRY TYPE AMODE C_OFFSET CLASS NAME STATUS MAIN MAIN_EP 31 00000000 B_TEXT ***** E N D O F R E P O R T ***** 1---------------------- MESSAGE SUMMARY REPORT ---------------------- SEVERE MESSAGES (SEVERITY = 12) NONE ERROR MESSAGES (SEVERITY = 08) NONE WARNING MESSAGES (SEVERITY = 04) NONE INFORMATIONAL MESSAGES (SEVERITY = 00) NONE **** END OF MESSAGE SUMMARY REPORT ****