Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:1mt.016
Deck 1MT Part 016
92 Modifications
Listing Sections
- Deck 1MT Start
- Deck 1MT Part 1 (Line 1462)
- Deck 1MT Part 2 (Line 2674)
- Deck 1MT Part 3 (Line 4017)
- Deck 1MT Part 4 (Line 5073)
- Deck 1MT Part 5 (Line 6369)
- Deck 1MT Part 6 (Line 7796)
- Deck 1MT Part 7 (Line 9269)
- Deck 1MT Part 8 (Line 10478)
- Deck 1MT Part 9 (Line 11579)
- Deck 1MT Part 10 (Line 12640)
- Deck 1MT Part 11 (Line 13801)
- Deck 1MT Part 12 (Line 15216)
- Deck 1MT Part 13 (Line 16607)
- Deck 1MT Part 14 (Line 18062)
- Deck 1MT Part 15 (Line 19541)
- Deck 1MT Part 16 (Line 20933)
- Deck 1MT Part 17 (Line 22793)
- Deck 1MT Part 18 (Line 24082)
- Deck 1MT Part 19 (Line 25232)
- Deck 1MT Part 20 (Line 26664)
- Deck 1MT Part 21 (Line 28010)
- Deck 1MT Part 22 (Line 28907)
- Deck 1MT Part 23 (Line 30276)
- Deck 1MT Part 24 (Line 31850)
- Deck 1MT Part 25 (Line 33112)
- Deck 1MT Part 26 (Line 34430)
- Deck 1MT Part 27 (Line 35774)
- Deck 1MT Part 28 (Line 37108)
Source
Seq # *Modification Id* Act ----------------------------+ 20933 M01S01244.282l826 +++| LPN 7 20934 M01S01245.282l826 +++| LMN /MTX/ANS 20935 M01S01246.282l826 +++| ZJN CCL2 IF ASCII CONVERSION MODE
| Line S04542 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 20936 M01S04542.274l797 +++| LDC UJNI-PJNI 20937 M01S04543.274l797 +++| RAM EXCA CODE MODIFICATION FOR EBCDIC 20938 M01S04544.274l797 +++| LDC EBCI 20939 M01S04545.274l797 +++| STM EXCB 20940 M01S04546.274l797 +++| STM EXCC 20941 M01S04547.274l797 +++| CCL2 LDM /READ/RCTB 20942 M01S04548.274l797 +++| STD T1 POINTER TO CHARACTER TO CONVERT 20943 M01S04549.274l797 +++| LDN 0 20944 M01S04550.274l797 +++| STD T2 POINTER TO STORE CONVERTED CHARACTER 20945 M01S04551.274l797 +++| STD T3 1 OF 3 POSITIONS OF 8-BIT BYTE 20946 M01S04552.274l797 +++| CCL3 RJM EXC EXTRACT CHARACTER 20947 M01S04553.274l797 +++| 20948 M01S04554.274l797 +++|* STORE CONVERTED CHARACTER. 20949 M01S04555.274l797 +++| 20950 M01S04556.274l797 +++| LDD T2 20951 M01S04557.274l797 +++| SHN 21-0 20952 M01S04558.274l797 +++| ADM /READ/RCTB 20953 M01S04559.274l797 +++| STD T6 ADDRESS TO STORE CONVERTED CHARACTER 20954 M01S04560.274l797 +++| PJN CCL4 IF UPPER CHARACTER 20955 M01S04561.274l797 +++| LDD T7 20956 M01S04562.274l797 +++| RAI T6 20957 M01S04563.274l797 +++| UJN CCL5 CHECK IF MORE CHARACTERS TO CONVERT 20958 M01S04564.274l797 +++| 20959 M01S04565.274l797 +++| CCL4 LDD T7 20960 M01S04566.274l797 +++| SHN 6 20961 M01S04567.274l797 +++| STI T6 20962 M01S04568.274l797 +++| CCL5 AOD T2 20963 M01S04569.274l797 +++| LMC 80D 20964 M01S04570.274l797 +++| NJN CCL3 IF MORE CHARACTERS TO CONVERT 20965 M01S04571.274l797 +++| UJP CCLX RETURN 20966 M01S04572.274l797 +++| EXC SPACE 4,15 20967 M01S04573.274l797 +++|** EXC - EXTRACT CHARACTER. 20968 M01S04574.274l797 +++|* 20969 M01S04575.274l797 +++|* THIS ROUTINE TAKES ONE OF THE 80 CHARACTERS OF THE LABEL 20970 M01S04576.274l797 +++|* THAT WAS READ AND CONVERTS IT TO DISPLAY CODE. 20971 M01S04577.274l797 +++|* 20972 M01S04578.274l797 +++|* ENTRY (T1) = POINTER TO CHARACTER TO CONVERT. 20973 M01S04579.274l797 +++|* (T3) = 0 UPPER 8 OF 24. 20974 M01S04580.274l797 +++|* 1 MIDDLE 8 OF 24. 20975 M01S04581.274l797 +++|* 2 LOWER 8 OF 24. 20976 M01S04582.274l797 +++|* 20977 M01S04583.274l797 +++|* EXIT (T5) = (BUF,T1) IF (T3) = 0. 20978 M01S04584.274l797 +++|* (T7) = CONVERTED CHARACTER. 20979 M01S04585.274l797 +++|* 20980 M01S04586.274l797 +++|* USES T4, T5 20981 M01S04587.274l797 +++| 20982 M01S04588.274l797 +++| 20983 M01S04589.274l797 +++| EXC SUBR ENTRY/EXIT 20984 M01S04590.274l797 +++| LDD T3 20985 M01S04591.274l797 +++| NJN EXC1 IF NOT UPPER 8 OF 24 20986 M01S04592.274l797 +++| LDI T1 20987 M01S04593.274l797 +++| STD T5 20988 M01S04594.274l797 +++| SHN -4 20989 M01S04595.274l797 +++| UJN EXC3 MASK 8-BIT CHARACTER 20990 M01S04596.274l797 +++| 20991 M01S04597.274l797 +++| EXC1 SBN 1 20992 M01S04598.274l797 +++| NJN EXC2 IF NOT BYTE 2 OF 3 20993 M01S04599.274l797 +++| LDD T5 20994 M01S04600.274l797 +++| LPN 17 20995 M01S04601.274l797 +++| SHN 4 20996 M01S04602.274l797 +++| STD T5 20997 M01S04603.274l797 +++| LDM 1,T1 20998 M01S04604.274l797 +++| SHN -10 20999 M01S04605.274l797 +++| ADD T5 21000 M01S04606.274l797 +++| UJN EXC3 MASK 8-BIT CHARACTER 21001 M01S04607.274l797 +++| 21002 M01S04608.274l797 +++| EXC2 LDM 1,T1 21003 M01S04609.274l797 +++| EXC3 SHN 21-7 21004 M01S04610.274l797 +++| PJN EXC4 IF LEGAL CHARACTER (ANSI) 21005 M01S04611.274l797 +++| EXCA EQU *-1 21006 M01S04612.274l797 +++|* UJN EXC4 (EBCDIC) 21007 M01S04613.274l797 +++| LDN 0 21008 M01S04614.274l797 +++| EXC4 SHN 7-21 MASK 8 BITS 21009 M01S04615.274l797 +++| SHN 21-0 21010 M01S04616.274l797 +++| STD T4 21011 M01S04617.274l797 +++| PJN EXC5 IF LEFT HALF OF CONVERSION TABLE WORD 21012 M01S04618.274l797 +++| LDM ANSI,T4 21013 M01S04619.274l797 +++| EXCB EQU *-1 21014 M01S04620.274l797 +++|* LDM EBCI,T4 (EBCDIC) 21015 M01S04621.274l797 +++| LPN 77 21016 M01S04622.274l797 +++| UJN EXC6 SAVE DISPLAY CODE VALUE 21017 M01S04623.274l797 +++| 21018 M01S04624.274l797 +++| EXC5 LDM ANSI,T4 21019 M01S04625.274l797 +++| EXCC EQU *-1 21020 M01S04626.274l797 +++|* LDM EBCI,T4 (EBCDIC) 21021 M01S04627.274l797 +++| SHN -6 21022 M01S04628.274l797 +++| EXC6 STD T7 SAVE DISPLAY CODE VALUE 21023 M01S04629.274l797 +++| AOD T3 21024 M01S04630.274l797 +++| SBN 3 21025 M01S04631.274l797 +++| NJN EXC7 IF NOT BYTE 3 OF 3 21026 M01S04632.274l797 +++| STD T3 21027 M01S04633.274l797 +++| LDN 2 21028 M01S04634.274l797 +++| RAD T1 21029 M01S04635.274l797 +++| EXC7 LJM EXCX RETURN 21030 M01S04636.274l797 +++| ANSI SPACE 4,10 21031 M01S04637.274l797 +++|** ANSI - TABLE FOR *ASCII* TO DISPLAY CODE CONVERSION. 21032 M01S04638.274l797 +++|* THE ASCII CHARACTER DIVIDED BY 2 IS THE INDEX INTO THIS 21033 M01S04639.274l797 +++|* TABLE. ONLY THE FIRST 128 CHARACTERS ARE IN THE TABLE. 21034 M01S04640.274l797 +++|* THE PROGRAM USING THE TABLE WILL SUBSTITUTE 00 FOR THE 21035 M01S04641.274l797 +++|* HEX VALUES OF 80-FF. 21036 M01S04642.274l797 +++| 21037 M01S04643.274l797 +++| ANSI BSS 0 21038 M01S04644.274l797 +++| LOC 0 21039 M01S04645.274l797 +++| 21040 M01S04646.274l797 +++| VFD 6/1R 00 NUL NULL 21041 M01S04647.274l797 +++| VFD 6/1R] 01 SOH START OF HEADING 21042 M01S04648.274l797 +++| VFD 6/64 02 STX START OF TEXT 21043 M01S04649.274l797 +++| VFD 6/1R# 03 ETX END OF TEXT 21044 M01S04650.274l797 +++| VFD 6/1R$ 04 EOT END OF TRANSMISSION 21045 M01S04651.274l797 +++| VFD 6/63 05 ENQ ENQUIRY (64 CHARACTER SET) 21046 M01S04652.274l797 +++| ANSIA EQU *-1 (63 CHARACTER SET) 21047 M01S04653.274l797 +++|* VFD 6/1R 05 ENQ ENQUIRY (63 CHARACTER SET) 21048 M01S04654.274l797 +++| VFD 6/1R& 06 ACK ACKNOWLEDGE 21049 M01S04655.274l797 +++| VFD 6/1R' 07 BEL BELL 21050 M01S04656.274l797 +++| VFD 6/51 08 BS BACKSPACE 21051 M01S04657.274l797 +++| VFD 6/1R) 09 HT HORIZONTAL TAB 21052 M01S04658.274l797 +++| VFD 6/1R* 0A LF LINE FEED 21053 M01S04659.274l797 +++| VFD 6/1R+ 0B VT VERTICAL TAB 21054 M01S04660.274l797 +++| VFD 6/1R, 0C FF FORM FEED 21055 M01S04661.274l797 +++| VFD 6/1R- 0D CR CARRIAGE RETURN 21056 M01S04662.274l797 +++| VFD 6/1R. 0E SO SHIFT OUT 21057 M01S04663.274l797 +++| VFD 6/1R/ 0F SI SHIFT IN 21058 M01S04664.274l797 +++| 21059 M01S04665.274l797 +++| VFD 6/1R0 10 DLE DATA LINK ESCAPE 21060 M01S04666.274l797 +++| VFD 6/1R1 11 DC1 DEVICE CONTROL 1 (X-ON) 21061 M01S04667.274l797 +++| VFD 6/1R2 12 DC2 DEVICE CONTROL 2 21062 M01S04668.274l797 +++| VFD 6/1R3 13 DC3 DEVICE CONTROL 3 (X-OFF) 21063 M01S04669.274l797 +++| VFD 6/1R4 14 DC4 DEVICE CONTROL 4 (STOP) 21064 M01S04670.274l797 +++| VFD 6/1R5 15 NAK NEGATIVE ACKNOWLEDGE 21065 M01S04671.274l797 +++| VFD 6/1R6 16 SYN SYNCHRONOUS IDLE 21066 M01S04672.274l797 +++| VFD 6/1R7 17 ETB END OF TRANSMISSION BLOCK 21067 M01S04673.274l797 +++| VFD 6/1R8 18 CAN CANCEL 21068 M01S04674.274l797 +++| VFD 6/1R9 19 EM END OF MEDIUM 21069 M01S04675.274l797 +++| VFD 6/00 1A SUB SUBSTITUTE (64 CHARACTERS) 21070 M01S04676.274l797 +++| ANSIB EQU * (63 CHARACTER SET) 21071 M01S04677.274l797 +++|* VFD 6/63 1A SUB SUBSTITUTE (63 CHARACTERS) 21072 M01S04678.274l797 +++| VFD 6/1R; 1B ESC ESCAPE (DRIVER) 21073 M01S04679.274l797 +++| VFD 6/1R[ 1C FS FILE SEPARATOR 21074 M01S04680.274l797 +++| VFD 6/1R= 1D GS GROUP SEPARATOR 21075 M01S04681.274l797 +++| VFD 6/1R> 1E RS RECORD SEPARATOR 21076 M01S04682.274l797 +++| VFD 6/1R? 1F US UNIT SEPARATOR 21077 M01S04683.274l797 +++| 21078 M01S04684.274l797 +++| VFD 6/1R 20 SPACE 21079 M01S04685.274l797 +++| VFD 6/1R! 21 EXCLAMATION POINT 21080 M01S04686.274l797 +++| VFD 6/64 22 QUOTATION MARKS 21081 M01S04687.274l797 +++| VFD 6/1R# 23 NUMBER SIGN 21082 M01S04688.274l797 +++| VFD 6/1R$ 24 $ DOLLAR SIGN 21083 M01S04689.274l797 +++| VFD 6/63 25 PERCENT (64 CHARACTER SET) 21084 M01S04690.274l797 +++| ANSIC EQU *-1 (63 CHARACTER SET) 21085 M01S04691.274l797 +++|* VFD 6/1R 25 PERCENT (63 CHARACTER SET) 21086 M01S04692.274l797 +++| VFD 6/1R& 26 AMPERSAND 21087 M01S04693.274l797 +++| VFD 6/1R' 27 APOSTROPHE 21088 M01S04694.274l797 +++| VFD 6/51 28 ( OPENING PARENTHESIS 21089 M01S04695.274l797 +++| VFD 6/1R) 29 ) CLOSING PARENTHESIS 21090 M01S04696.274l797 +++| VFD 6/1R* 2A * ASTERISK 21091 M01S04697.274l797 +++| VFD 6/1R+ 2B + PLUS 21092 M01S04698.274l797 +++| VFD 6/1R, 2C , COMMA 21093 M01S04699.274l797 +++| VFD 6/1R- 2D - HYPHEN (MINUS) 21094 M01S04700.274l797 +++| VFD 6/1R. 2E . PERIOD 21095 M01S04701.274l797 +++| VFD 6/1R/ 2F / SLANT 21096 M01S04702.274l797 +++| 21097 M01S04703.274l797 +++| VFD 6/1R0 30 0 21098 M01S04704.274l797 +++| VFD 6/1R1 31 1 21099 M01S04705.274l797 +++| VFD 6/1R2 32 2 21100 M01S04706.274l797 +++| VFD 6/1R3 33 3 21101 M01S04707.274l797 +++| VFD 6/1R4 34 4 21102 M01S04708.274l797 +++| VFD 6/1R5 35 5 21103 M01S04709.274l797 +++| VFD 6/1R6 36 6 21104 M01S04710.274l797 +++| VFD 6/1R7 37 7 21105 M01S04711.274l797 +++| VFD 6/1R8 38 8 21106 M01S04712.274l797 +++| VFD 6/1R9 39 9 21107 M01S04713.274l797 +++| VFD 6/00 3A COLON (64 CHARACTER SET) 21108 M01S04714.274l797 +++| ANSID EQU * (63 CHARACTER SET) 21109 M01S04715.274l797 +++|* VFD 6/63 3A COLON (63 CHARACTER SET) 21110 M01S04716.274l797 +++| VFD 6/1R; 3B SEMICOLON 21111 M01S04717.274l797 +++| VFD 6/1R< 3C LESS THAN 21112 M01S04718.274l797 +++| VFD 6/1R= 3D EQUALS 21113 M01S04719.274l797 +++| VFD 6/1R> 3E GREATER THAN 21114 M01S04720.274l797 +++| VFD 6/1R? 3F QUESTION MARK 21115 M01S04721.274l797 +++| 21116 M01S04722.274l797 +++| VFD 6/1R; 40 COMMERCIAL AT 21117 M01S04723.274l797 +++| VFD 6/1RA 41 A 21118 M01S04724.274l797 +++| VFD 6/1RB 42 B 21119 M01S04725.274l797 +++| VFD 6/1RC 43 C 21120 M01S04726.274l797 +++| VFD 6/1RD 44 D 21121 M01S04727.274l797 +++| VFD 6/1RE 45 E 21122 M01S04728.274l797 +++| VFD 6/1RF 46 F 21123 M01S04729.274l797 +++| VFD 6/1RG 47 G 21124 M01S04730.274l797 +++| VFD 6/1RH 48 H 21125 M01S04731.274l797 +++| VFD 6/1RI 49 I 21126 M01S04732.274l797 +++| VFD 6/1RJ 4A J 21127 M01S04733.274l797 +++| VFD 6/1RK 4B K 21128 M01S04734.274l797 +++| VFD 6/1RL 4C L 21129 M01S04735.274l797 +++| VFD 6/1RM 4D M 21130 M01S04736.274l797 +++| VFD 6/1RN 4E N 21131 M01S04737.274l797 +++| VFD 6/1RO 4F 0 21132 M01S04738.274l797 +++| 21133 M01S04739.274l797 +++| VFD 6/1RP 50 P 21134 M01S04740.274l797 +++| VFD 6/1RQ 51 Q 21135 M01S04741.274l797 +++| VFD 6/1RR 52 R 21136 M01S04742.274l797 +++| VFD 6/1RS 53 S 21137 M01S04743.274l797 +++| VFD 6/1RT 54 T 21138 M01S04744.274l797 +++| VFD 6/1RU 55 U 21139 M01S04745.274l797 +++| VFD 6/1RV 56 V 21140 M01S04746.274l797 +++| VFD 6/1RW 57 W 21141 M01S04747.274l797 +++| VFD 6/1RX 58 X 21142 M01S04748.274l797 +++| VFD 6/1RY 59 Y 21143 M01S04749.274l797 +++| VFD 6/1RZ 5A Z 21144 M01S04750.274l797 +++| VFD 6/1R[ 5B OPENING BRACKET 21145 M01S04751.274l797 +++| VFD 6/1R\ 5C REVERSE SLANT 21146 M01S04752.274l797 +++| VFD 6/1R] 5D CLOSING BRACKET 21147 M01S04753.274l797 +++| VFD 6/1R; 5E CIRCUMFLEX 21148 M01S04754.274l797 +++| VFD 6/65 5F UNDERLINE 21149 M01S04755.274l797 +++| 21150 M01S04756.274l797 +++| VFD 6/1R; 60 GRAVE ACCENT 21151 M01S04757.274l797 +++| VFD 6/1RA 61 A LC 21152 M01S04758.274l797 +++| VFD 6/1RB 62 B LC 21153 M01S04759.274l797 +++| VFD 6/1RC 63 C LC 21154 M01S04760.274l797 +++| VFD 6/1RD 64 D LC 21155 M01S04761.274l797 +++| VFD 6/1RE 65 E LC 21156 M01S04762.274l797 +++| VFD 6/1RF 66 F LC 21157 M01S04763.274l797 +++| VFD 6/1RG 67 G LC 21158 M01S04764.274l797 +++| VFD 6/1RH 68 H LC 21159 M01S04765.274l797 +++| VFD 6/1RI 69 I LC 21160 M01S04766.274l797 +++| VFD 6/1RJ 6A J LC 21161 M01S04767.274l797 +++| VFD 6/1RK 6B K LC 21162 M01S04768.274l797 +++| VFD 6/1RL 6C L LC 21163 M01S04769.274l797 +++| VFD 6/1RM 6D M LC 21164 M01S04770.274l797 +++| VFD 6/1RN 6E N LC 21165 M01S04771.274l797 +++| VFD 6/1RO 6F O LC 21166 M01S04772.274l797 +++| 21167 M01S04773.274l797 +++| VFD 6/1RP 70 P LC 21168 M01S04774.274l797 +++| VFD 6/1RQ 71 Q LC 21169 M01S04775.274l797 +++| VFD 6/1RR 72 R LC 21170 M01S04776.274l797 +++| VFD 6/1RS 73 S LC 21171 M01S04777.274l797 +++| VFD 6/1RT 74 T LC 21172 M01S04778.274l797 +++| VFD 6/1RU 75 U LC 21173 M01S04779.274l797 +++| VFD 6/1RV 76 V LC 21174 M01S04780.274l797 +++| VFD 6/1RW 77 W LC 21175 M01S04781.274l797 +++| VFD 6/1RX 78 X LC 21176 M01S04782.274l797 +++| VFD 6/1RY 79 Y LC 21177 M01S04783.274l797 +++| VFD 6/1RZ 7A Z LC 21178 M01S04784.274l797 +++| VFD 6/1R< 7B OPENING BRACE 21179 M01S04785.274l797 +++| VFD 6/1R\ 7C VERTICAL LINE 21180 M01S04786.274l797 +++| VFD 6/1R! 7D CLOSING BRACE 21181 M01S04787.274l797 +++| VFD 6/1R; 7E OVERLINE (TILDE) 21182 M01S04788.274l797 +++| VFD 6/65 7F DEL DELETE 21183 M01S04789.274l797 +++| 21184 M01S04790.274l797 +++| LOC *O 21185 M01S04791.274l797 +++| EBCI SPACE 4 21186 M01S04792.274l797 +++|** EBCI - TABLE FOR EBCDIC TO DISPLAY CODE CONVERSION. 21187 M01S04793.274l797 +++| 21188 M01S04794.274l797 +++|* THE ASCII CHARACTER DIVIDED BY 2 IS THE INDEX INTO THIS 21189 M01S04795.274l797 +++|* TABLE. 21190 M01S04796.274l797 +++| 21191 M01S04797.274l797 +++| 21192 M01S04798.274l797 +++| EBCI BSS 0 21193 M01S04799.274l797 +++| LOC 0 21194 M01S04800.274l797 +++| 21195 M01S04801.274l797 +++| VFD 6/1R 00 NUL NULL 21196 M01S04802.274l797 +++| VFD 6/1R] 01 SOH START OF HEADING 21197 M01S04803.274l797 +++| VFD 6/64 02 STX START OF TEXT 21198 M01S04804.274l797 +++| VFD 6/1R# 03 ETX END OF TEXT 21199 M01S04805.274l797 +++| VFD 6/1R 04 21200 M01S04806.274l797 +++| VFD 6/1R) 05 HT HORIZONTAL TAB 21201 M01S04807.274l797 +++| VFD 6/1R 06 21202 M01S04808.274l797 +++| VFD 6/65 07 DEL DELETE 21203 M01S04809.274l797 +++| VFD 6/1R 08 21204 M01S04810.274l797 +++| VFD 6/1R 09 21205 M01S04811.274l797 +++| VFD 6/1R 0A 21206 M01S04812.274l797 +++| VFD 6/1R+ 0B VT VERTICAL TAB 21207 M01S04813.274l797 +++| VFD 6/1R, 0C FF FORM FEED 21208 M01S04814.274l797 +++| VFD 6/1R- 0D CR CARRIAGE RETURN 21209 M01S04815.274l797 +++| VFD 6/1R. 0E SO SHIFT OUT 21210 M01S04816.274l797 +++| VFD 6/1R/ 0F SI SHIFT IN 21211 M01S04817.274l797 +++| 21212 M01S04818.274l797 +++| VFD 6/1R0 10 DLE DATA LINK ESCAPE 21213 M01S04819.274l797 +++| VFD 6/1R1 11 DC1 DEVICE CONTROL 1 (X-ON) 21214 M01S04820.274l797 +++| VFD 6/1R2 12 DC2 DEVICE CONTROL 2 21215 M01S04821.274l797 +++| VFD 6/1R3 13 DC3 DEVICE CONTROL 3 (X-OFF) 21216 M01S04822.274l797 +++| VFD 6/1R 14 21217 M01S04823.274l797 +++| VFD 6/1R 15 21218 M01S04824.274l797 +++| VFD 6/51 16 BS BACKSPACE 21219 M01S04825.274l797 +++| VFD 6/1R 17 21220 M01S04826.274l797 +++| VFD 6/1R8 18 CAN CANCEL 21221 M01S04827.274l797 +++| VFD 6/1R9 19 EM END OF MEDIMUM 21222 M01S04828.274l797 +++| VFD 6/1R 1A 21223 M01S04829.274l797 +++| VFD 6/1R 1B 21224 M01S04830.274l797 +++| VFD 6/1R[ 1C FS FILE SEPERATOR 21225 M01S04831.274l797 +++| VFD 6/1R= 1D GS GROUP SEPERATOR 21226 M01S04832.274l797 +++| VFD 6/1R> 1E RS RECORD SEPERATOR 21227 M01S04833.274l797 +++| VFD 6/1R? 1F US UNIT SEPERATOR 21228 M01S04834.274l797 +++| 21229 M01S04835.274l797 +++| VFD 6/1R 20 21230 M01S04836.274l797 +++| VFD 6/1R 21 21231 M01S04837.274l797 +++| VFD 6/1R 22 21232 M01S04838.274l797 +++| VFD 6/1R 23 21233 M01S04839.274l797 +++| VFD 6/1R 24 21234 M01S04840.274l797 +++| VFD 6/1R* 25 LF LINE FEED 21235 M01S04841.274l797 +++| VFD 6/1R7 26 ETB END OF TRANSMISSION BLOCK 21236 M01S04842.274l797 +++| VFD 6/1R; 27 ESC ESCAPE 21237 M01S04843.274l797 +++| VFD 6/1R 28 21238 M01S04844.274l797 +++| VFD 6/1R 29 21239 M01S04845.274l797 +++| VFD 6/1R 2A 21240 M01S04846.274l797 +++| VFD 6/1R 2B 21241 M01S04847.274l797 +++| VFD 6/1R 2C 21242 M01S04848.274l797 +++| VFD 6/63 2D ENQ ENQUIRY (64 CHARACTER SET) 21243 M01S04849.274l797 +++| EBCIA EQU *-1 (63 CHARACTER SET) 21244 M01S04850.274l797 +++|* VFD 6/1R 2D ENQ ENQUIRY (63 CHARACTER SET) 21245 M01S04851.274l797 +++| VFD 6/1R& 2E ACK ACKNOWLEDGE 21246 M01S04852.274l797 +++| VFD 6/1R' 2F BEL BELL 21247 M01S04853.274l797 +++| 21248 M01S04854.274l797 +++| VFD 6/1R 30 21249 M01S04855.274l797 +++| VFD 6/1R 31 21250 M01S04856.274l797 +++| VFD 6/1R6 32 SYN SYNCHROUS IDLE 21251 M01S04857.274l797 +++| VFD 6/1R 33 21252 M01S04858.274l797 +++| VFD 6/1R 34 21253 M01S04859.274l797 +++| VFD 6/1R 35 21254 M01S04860.274l797 +++| VFD 6/1R 36 21255 M01S04861.274l797 +++| VFD 6/1R$ 37 EOT END OF TRANSMISSION 21256 M01S04862.274l797 +++| VFD 6/1R 38 21257 M01S04863.274l797 +++| VFD 6/1R 39 21258 M01S04864.274l797 +++| VFD 6/1R 3A 21259 M01S04865.274l797 +++| VFD 6/1R 3B 21260 M01S04866.274l797 +++| VFD 6/1R4 3C DC4 DEVICE CONTROL 4 21261 M01S04867.274l797 +++| VFD 6/1R5 3D NAK NEGATIVE ACKNOWLEDGE 21262 M01S04868.274l797 +++| VFD 6/1R 3E 21263 M01S04869.274l797 +++| VFD 6/00 3F SUB SUBSTITUTE (64 CHARACTER SET 21264 M01S04870.274l797 +++| EBCIB EQU *-1 (63 CHARACTER SET) 21265 M01S04871.274l797 +++|* VFD 6/63 3F SUB SUBSTITUTE (63 CHARACTER SET 21266 M01S04872.274l797 +++| 21267 M01S04873.274l797 +++| VFD 6/1R 40 SPACE 21268 M01S04874.274l797 +++| VFD 6/1R 41 21269 M01S04875.274l797 +++| VFD 6/1R 42 21270 M01S04876.274l797 +++| VFD 6/1R 43 21271 M01S04877.274l797 +++| VFD 6/1R 44 21272 M01S04878.274l797 +++| VFD 6/1R 45 21273 M01S04879.274l797 +++| VFD 6/1R 46 21274 M01S04880.274l797 +++| VFD 6/1R 47 21275 M01S04881.274l797 +++| VFD 6/1R 48 21276 M01S04882.274l797 +++| VFD 6/1R 49 21277 M01S04883.274l797 +++| VFD 6/1R[ 4A OPENING BRACKET 21278 M01S04884.274l797 +++| VFD 6/1R. 4B . PERIOD 21279 M01S04885.274l797 +++| VFD 6/1R< 4C LESS THAN 21280 M01S04886.274l797 +++| VFD 6/51 4D OPENING PARENTHESIS 21281 M01S04887.274l797 +++| VFD 6/1R+ 4E + PLUS 21282 M01S04888.274l797 +++| VFD 6/1R! 4F LOGICAL OR 21283 M01S04889.274l797 +++| 21284 M01S04890.274l797 +++| VFD 6/1R& 50 AMPERSAND 21285 M01S04891.274l797 +++| VFD 6/1R 51 21286 M01S04892.274l797 +++| VFD 6/1R 52 21287 M01S04893.274l797 +++| VFD 6/1R 53 21288 M01S04894.274l797 +++| VFD 6/1R 54 21289 M01S04895.274l797 +++| VFD 6/1R 55 21290 M01S04896.274l797 +++| VFD 6/1R 56 21291 M01S04897.274l797 +++| VFD 6/1R 57 21292 M01S04898.274l797 +++| VFD 6/1R 58 21293 M01S04899.274l797 +++| VFD 6/1R 59 21294 M01S04900.274l797 +++| VFD 6/1R] 5A CLOSING BRACKET 21295 M01S04901.274l797 +++| VFD 6/1R$ 5B $ DOLLAR SIGN 21296 M01S04902.274l797 +++| VFD 6/1R* 5C * ASTERISK 21297 M01S04903.274l797 +++| VFD 6/1R) 5D ) CLOSING PARENTHESIS 21298 M01S04904.274l797 +++| VFD 6/1R; 5E SEMICOLON 21299 M01S04905.274l797 +++| VFD 6/1R; 5F NOT LOGICAL NOT 21300 M01S04906.274l797 +++| 21301 M01S04907.274l797 +++| VFD 6/1R- 60 - HYPHEN (MINUS) 21302 M01S04908.274l797 +++| VFD 6/1R/ 61 / SLANT 21303 M01S04909.274l797 +++| VFD 6/1R 62 21304 M01S04910.274l797 +++| VFD 6/1R 63 21305 M01S04911.274l797 +++| VFD 6/1R 64 21306 M01S04912.274l797 +++| VFD 6/1R 65 21307 M01S04913.274l797 +++| VFD 6/1R 66 21308 M01S04914.274l797 +++| VFD 6/1R 67 21309 M01S04915.274l797 +++| VFD 6/1R 68 21310 M01S04916.274l797 +++| VFD 6/1R 69 21311 M01S04917.274l797 +++| VFD 6/1R\ 6A VERTICAL LINE 21312 M01S04918.274l797 +++| VFD 6/1R, 6B , COMMA 21313 M01S04919.274l797 +++| VFD 6/63 6C PERCENT (64 CHARACTER SET) 21314 M01S04920.274l797 +++| EBCIC EQU * (63 CHARACTER SET) 21315 M01S04921.274l797 +++|* VFD 6/1R 6C PERCENT (63 CHARACTER SET) 21316 M01S04922.274l797 +++| VFD 6/65 6D UNDERSCORE 21317 M01S04923.274l797 +++| VFD 6/1R> 6E GREATER THAN 21318 M01S04924.274l797 +++| VFD 6/1R? 6F QUESTION MARK 21319 M01S04925.274l797 +++| 21320 M01S04926.274l797 +++| VFD 6/1R 70 21321 M01S04927.274l797 +++| VFD 6/1R 71 21322 M01S04928.274l797 +++| VFD 6/1R 72 21323 M01S04929.274l797 +++| VFD 6/1R 73 21324 M01S04930.274l797 +++| VFD 6/1R 74 21325 M01S04931.274l797 +++| VFD 6/1R 75 21326 M01S04932.274l797 +++| VFD 6/1R 76 21327 M01S04933.274l797 +++| VFD 6/1R 77 21328 M01S04934.274l797 +++| VFD 6/1R 78 21329 M01S04935.274l797 +++| VFD 6/1R; 79 GRAVE ACCENT 21330 M01S04936.274l797 +++| VFD 6/00 7A COLON (64 CHARACTER SET) 21331 M01S04937.274l797 +++| EBCID EQU * (63 CHARACTER SET) 21332 M01S04938.274l797 +++|* VFD 6/63 7A COLON (63 CHARACTER SET) 21333 M01S04939.274l797 +++| VFD 6/1R# 7B NUMBER SIGN 21334 M01S04940.274l797 +++| VFD 6/1R; 7C COMMERCIAL AT 21335 M01S04941.274l797 +++| VFD 6/1R' 7D APOSTROPHE 21336 M01S04942.274l797 +++| VFD 6/1R= 7E = EQUALS 21337 M01S04943.274l797 +++| VFD 6/64 7F QUOTATION MARKS 21338 M01S04944.274l797 +++| 21339 M01S04945.274l797 +++| VFD 6/1R 80 21340 M01S04946.274l797 +++| VFD 6/1RA 81 A LC 21341 M01S04947.274l797 +++| VFD 6/1RB 82 B LC 21342 M01S04948.274l797 +++| VFD 6/1RC 83 C LC 21343 M01S04949.274l797 +++| VFD 6/1RD 84 D LC 21344 M01S04950.274l797 +++| VFD 6/1RE 85 E LC 21345 M01S04951.274l797 +++| VFD 6/1RF 86 F LC 21346 M01S04952.274l797 +++| VFD 6/1RG 87 G LC 21347 M01S04953.274l797 +++| VFD 6/1RH 88 H LC 21348 M01S04954.274l797 +++| VFD 6/1RI 89 I LC 21349 M01S04955.274l797 +++| VFD 6/1R 8A 21350 M01S04956.274l797 +++| VFD 6/1R 8B 21351 M01S04957.274l797 +++| VFD 6/1R 8C 21352 M01S04958.274l797 +++| VFD 6/1R 8D 21353 M01S04959.274l797 +++| VFD 6/1R 8E 21354 M01S04960.274l797 +++| VFD 6/1R 8F 21355 M01S04961.274l797 +++| 21356 M01S04962.274l797 +++| VFD 6/1R 90 21357 M01S04963.274l797 +++| VFD 6/1RJ 91 J LC 21358 M01S04964.274l797 +++| VFD 6/1RK 92 K LC 21359 M01S04965.274l797 +++| VFD 6/1RL 93 L LC 21360 M01S04966.274l797 +++| VFD 6/1RM 94 M LC 21361 M01S04967.274l797 +++| VFD 6/1RN 95 N LC 21362 M01S04968.274l797 +++| VFD 6/1RO 96 O LC 21363 M01S04969.274l797 +++| VFD 6/1RP 97 P LC 21364 M01S04970.274l797 +++| VFD 6/1RQ 98 Q LC 21365 M01S04971.274l797 +++| VFD 6/1RR 99 R LC 21366 M01S04972.274l797 +++| VFD 6/1R 9A 21367 M01S04973.274l797 +++| VFD 6/1R 9B 21368 M01S04974.274l797 +++| VFD 6/1R 9C 21369 M01S04975.274l797 +++| VFD 6/1R 9D 21370 M01S04976.274l797 +++| VFD 6/1R 9E 21371 M01S04977.274l797 +++| VFD 6/1R 9F 21372 M01S04978.274l797 +++| 21373 M01S04979.274l797 +++| VFD 6/1R A0 21374 M01S04980.274l797 +++| VFD 6/1R; A1 OVERLINE (TILDE) 21375 M01S04981.274l797 +++| VFD 6/1RS A2 S LC 21376 M01S04982.274l797 +++| VFD 6/1RT A3 T LC 21377 M01S04983.274l797 +++| VFD 6/1RU A4 U LC 21378 M01S04984.274l797 +++| VFD 6/1RV A5 V LC 21379 M01S04985.274l797 +++| VFD 6/1RW A6 W LC 21380 M01S04986.274l797 +++| VFD 6/1RX A7 X LC 21381 M01S04987.274l797 +++| VFD 6/1RY A8 Y LC 21382 M01S04988.274l797 +++| VFD 6/1RZ A9 Z LC 21383 M01S04989.274l797 +++| VFD 6/1R AA 21384 M01S04990.274l797 +++| VFD 6/1R AB 21385 M01S04991.274l797 +++| VFD 6/1R AC 21386 M01S04992.274l797 +++| VFD 6/1R AD 21387 M01S04993.274l797 +++| VFD 6/1R AE 21388 M01S04994.274l797 +++| VFD 6/1R AF 21389 M01S04995.274l797 +++| 21390 M01S04996.274l797 +++| VFD 6/1R B0 21391 M01S04997.274l797 +++| VFD 6/1R B1 21392 M01S04998.274l797 +++| VFD 6/1R B2 21393 M01S04999.274l797 +++| VFD 6/1R B3 21394 M01S05000.274l797 +++| VFD 6/1R B4 21395 M01S05001.274l797 +++| VFD 6/1R B5 21396 M01S05002.274l797 +++| VFD 6/1R B6 21397 M01S05003.274l797 +++| VFD 6/1R B7 21398 M01S05004.274l797 +++| VFD 6/1R B8 21399 M01S05005.274l797 +++| VFD 6/1R B9 21400 M01S05006.274l797 +++| VFD 6/1R BA 21401 M01S05007.274l797 +++| VFD 6/1R BB 21402 M01S05008.274l797 +++| VFD 6/1R BC 21403 M01S05009.274l797 +++| VFD 6/1R BD 21404 M01S05010.274l797 +++| VFD 6/1R BE 21405 M01S05011.274l797 +++| VFD 6/1R BF 21406 M01S05012.274l797 +++| 21407 M01S05013.274l797 +++| VFD 6/1R< C0 OPENING BRACE 21408 M01S05014.274l797 +++| VFD 6/1RA C1 A 21409 M01S05015.274l797 +++| VFD 6/1RB C2 B 21410 M01S05016.274l797 +++| VFD 6/1RC C3 C 21411 M01S05017.274l797 +++| VFD 6/1RD C4 D 21412 M01S05018.274l797 +++| VFD 6/1RE C5 E 21413 M01S05019.274l797 +++| VFD 6/1RF C6 F 21414 M01S05020.274l797 +++| VFD 6/1RG C7 G 21415 M01S05021.274l797 +++| VFD 6/1RH C8 H 21416 M01S05022.274l797 +++| VFD 6/1RI C9 I 21417 M01S05023.274l797 +++| VFD 6/1R CA 21418 M01S05024.274l797 +++| VFD 6/1R CB 21419 M01S05025.274l797 +++| VFD 6/1R CC 21420 M01S05026.274l797 +++| VFD 6/1R CD 21421 M01S05027.274l797 +++| VFD 6/1R CE 21422 M01S05028.274l797 +++| VFD 6/1R CF 21423 M01S05029.274l797 +++| 21424 M01S05030.274l797 +++| VFD 6/1R! D0 CLOSING BRACE 21425 M01S05031.274l797 +++| VFD 6/1RJ D1 J 21426 M01S05032.274l797 +++| VFD 6/1RK D2 K 21427 M01S05033.274l797 +++| VFD 6/1RL D3 L 21428 M01S05034.274l797 +++| VFD 6/1RM D4 M 21429 M01S05035.274l797 +++| VFD 6/1RN D5 N 21430 M01S05036.274l797 +++| VFD 6/1RO D6 O 21431 M01S05037.274l797 +++| VFD 6/1RP D7 P 21432 M01S05038.274l797 +++| VFD 6/1RQ D8 Q 21433 M01S05039.274l797 +++| VFD 6/1RR D9 R 21434 M01S05040.274l797 +++| VFD 6/1R DA 21435 M01S05041.274l797 +++| VFD 6/1R DB 21436 M01S05042.274l797 +++| VFD 6/1R DC 21437 M01S05043.274l797 +++| VFD 6/1R DD 21438 M01S05044.274l797 +++| VFD 6/1R DE 21439 M01S05045.274l797 +++| VFD 6/1R DF 21440 M01S05046.274l797 +++| 21441 M01S05047.274l797 +++| VFD 6/1R\ E0 REVERSE SLANT 21442 M01S05048.274l797 +++| VFD 6/1R E1 21443 M01S05049.274l797 +++| VFD 6/1RS E2 S 21444 M01S05050.274l797 +++| VFD 6/1RT E3 T 21445 M01S05051.274l797 +++| VFD 6/1RU E4 U 21446 M01S05052.274l797 +++| VFD 6/1RV E5 V 21447 M01S05053.274l797 +++| VFD 6/1RW E6 W 21448 M01S05054.274l797 +++| VFD 6/1RX E7 X 21449 M01S05055.274l797 +++| VFD 6/1RY E8 Y 21450 M01S05056.274l797 +++| VFD 6/1RZ E9 Z 21451 M01S05057.274l797 +++| VFD 6/1R EA 21452 M01S05058.274l797 +++| VFD 6/1R EB 21453 M01S05059.274l797 +++| VFD 6/1R EC 21454 M01S05060.274l797 +++| VFD 6/1R ED 21455 M01S05061.274l797 +++| VFD 6/1R EE 21456 M01S05062.274l797 +++| VFD 6/1R EF 21457 M01S05063.274l797 +++| 21458 M01S05064.274l797 +++| VFD 6/1R0 F0 0 21459 M01S05065.274l797 +++| VFD 6/1R1 F1 1 21460 M01S05066.274l797 +++| VFD 6/1R2 F2 2 21461 M01S05067.274l797 +++| VFD 6/1R3 F3 3 21462 M01S05068.274l797 +++| VFD 6/1R4 F4 4 21463 M01S05069.274l797 +++| VFD 6/1R5 F5 5 21464 M01S05070.274l797 +++| VFD 6/1R6 F6 6 21465 M01S05071.274l797 +++| VFD 6/1R7 F7 7 21466 M01S05072.274l797 +++| VFD 6/1R8 F8 8 21467 M01S05073.274l797 +++| VFD 6/1R9 F9 9 21468 M01S05074.274l797 +++| VFD 6/1R FA 21469 M01S05075.274l797 +++| VFD 6/1R FB 21470 M01S05076.274l797 +++| VFD 6/1R FC 21471 M01S05077.274l797 +++| VFD 6/1R FD 21472 M01S05078.274l797 +++| VFD 6/1R FE 21473 M01S05079.274l797 +++| VFD 6/1R FF 21474 M01S05080.274l797 +++| LOC *O 21475 M01S05081.274l797 +++| ERRNG 473+ERLB+5-* IF CODE LONGER THAN ONE PRU 21476 M00S12403.1mt +++| OVERLAY (MULTI-FILE AUXILIARY PROCESSOR.),(/RLA/OVLM),,MFP 21477 M00S12404.1mt +++| SPACE 4,10 21478 M00S12405.1mt +++|** THIS OVERLAY CONTAINS ROUTINES WHICH ARE USED FOR 21479 M00S12406.1mt +++|* MULTI-FILE OPERATIONS. IT OVERLAYS PART OF THE 21480 M00S12407.1mt +++|* READ LABELS OVERLAY AND IS USED IN CONJUCTION WITH 21481 M00S12408.1mt +++|* READ LABELS WHEN MULTI-FILE TAPES ARE BEING PROCESSED. 21482 M00S12409.1mt +++| SPACE 4,10 21483 M00S12410.1mt +++|* ASSEMBLY CONSTANTS 21484 M00S12411.1mt +++| 21485 M00S12412.1mt +++| 21486 M00S12413.1mt +++| BUF EQU /RLA/BUF 21487 M00S12414.1mt +++| DBUF EQU /RLA/DBUF 21488 M00S12415.1mt +++| IBUF EQU /RLA/IBUF 21489 M00S12416.1mt +++| UDTB EQU /RLA/UDTB 21490 M00S12417.1mt +++| CAN EQU /RLA/CAN 21491 M00S12418.1mt +++| CHC EQU /RLA/CHC 21492 M00S12419.1mt +++| CLA EQU /RLA/CLA 21493 M00S12420.1mt +++| C2D EQU /RLA/C2D 21494 M00S12421.1mt +++| DCV EQU /RLA/DCV 21495 M00S12422.1mt +++| ELA EQU /RLA/ELA 21496 M00S12423.1mt +++| FAD EQU /RLA/FAD 21497 M00S12424.1mt +++| FCH EQU /RLA/FCH
| Line S01247 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21498 M01S01247.282l826 +++| RBE EQU /RLA/RBE 21499 M00S12425.1mt +++| RLAX EQU /RLA/RLAX 21500 M00S12426.1mt +++| THL EQU /RLA/THL 21501 M00S12427.1mt +++| WUD EQU /RLA/WUD 21502 M00S12428.1mt +++| 21503 M00S12429.1mt +++| ENTRY MFP 21504 M00S12430.1mt +++| 21505 M00S12431.1mt +++| PHD SPACE 4,10 21506 M00S12432.1mt +++|** PHD - PROCESS HEADER. 21507 M00S12433.1mt +++|*
| Line S12434 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21508 M01S12434.282l826 ---|* ENTRY (A) = 0 - SECTION 7. 21509 M01S12435.282l826 ---|* (A) = 1 - SECTION 10.
| Line S01248 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21510 M01S01248.282l826 +++|* ENTRY (A) = 0 IF CHECK MULTI-FILE LABELS (*RLCM*) OPERATION. 21511 M01S01249.282l826 +++|* (A) = 1 IF VALIDATE HEADER LABEL (*RLVH*) OPERATION. 21512 M00S12436.1mt +++|* 21513 M00S12437.1mt +++|* CALLS CAN, FCH, THL, WUD. 21514 M00S12438.1mt +++| 21515 M00S12439.1mt +++| 21516 M00S12440.1mt +++| PHD SUBR ENTRY/EXIT 21517 M00S12441.1mt +++| STD T6 SAVE ENTRY 21518 M00S12442.1mt +++| LDC BUF SET UP BUFFER ADDRESSES 21519 M00S12443.1mt +++| STM IBUF 21520 M00S12444.1mt +++| LDD T6
| Line S12445 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21521 M01S12445.282l826 ---| ZJN PHD1 IF HEADER CHECK
| Line S01250 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21522 M01S01250.282l826 +++| ZJN PHD1 IF CHECK MULTI-FILE LABELS 21523 M01S01251.282l826 +++| ERRNZ /MTX/RLCM-700 21524 M00S12446.1mt +++| LDM CIOE CHECK IF POSMF 21525 M00S12447.1mt +++| LPC 1774 21526 M00S12448.1mt +++| LMC 110 21527 M00S12449.1mt +++| NJN PHD3 IF NOT POSMF 21528 M00S12450.1mt +++| PHD1 LDC UDTB 21529 M00S12451.1mt +++| STM DBUF 21530 M00S12452.1mt +++| RJM THL TRANSFER HEADER LABEL 21531 M00S12453.1mt +++| RJM WUD WRITE UDT 21532 M00S12454.1mt +++| PHD2 UJN PHDX RETURN 21533 M00S12455.1mt +++| 21534 M00S12456.1mt +++| PHD3 LDC PHDA COMPARE LABEL TO UDT 21535 M00S12457.1mt +++| STM DBUF 21536 M00S12458.1mt +++| LDN 21D ZERO OUT BUFFER 21537 M00S12459.1mt +++| STD T7 21538 M00S12460.1mt +++| LDN 50D 21539 M00S12461.1mt +++| RJM FCH COPY CHARACTERS 21540 M00S12462.1mt +++| RJM THL TRANSFER HEADER LABEL 21541 M00S12463.1mt +++| LDN 21D 21542 M00S12464.1mt +++| STD T6 21543 M00S12465.1mt +++| STD T7 21544 M00S12466.1mt +++| LDC UDTB SET INPUT BUFFER 21545 M00S12467.1mt +++| STM IBUF
| Line S12468 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 21546 M01S12468.ns22000 ---| LDN 50D
| Line S00312 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 21547 M01S00312.ns22000 +++| LDN 30D 21548 M00S12469.1mt +++| RJM CAN COMPARE FIELDS 21549 M00S12470.1mt +++| NJN PHD4 IF NO COMPARE
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 21550 M01S00313.ns22000 +++| LDN 56D 21551 M01S00314.ns22000 +++| STD T6 21552 M01S00315.ns22000 +++| STD T7 21553 M01S00316.ns22000 +++| LDN 15D 21554 M01S00317.ns22000 +++| RJM CAN COMPARE LABEL FIELDS 21555 M01S00318.ns22000 +++| NJN PHD4 IF NO COMPARE 21556 M00S12471.1mt +++| LDC BUF RESET INPUT BUFFER ADDRESS 21557 M00S12472.1mt +++| STM IBUF
| Line S12473 Modification History | |
|---|---|
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 21558 M01S12473.ns22000 ---| UJN PHD2 RETURN
| Line S00319 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 21559 M01S00319.ns22000 +++| LJM PHDX RETURN 21560 M00S12474.1mt +++|
| Line S12475 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21561 M01S12475.282l826 ---| PHD4 LDN /MTX/BEI 21562 M01S12476.282l826 ---| LJM RET3 RETURN ERROR CODE
| Line S01252 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21563 M01S01252.282l826 +++| PHD4 LJM RBE RETURN *BEI* ERROR 21564 M00S12477.1mt +++| REL SPACE 4,10 21565 M00S12478.1mt +++|** REL - READ EXTENDED LABELS. 21566 M00S12479.1mt +++|* 21567 M00S12480.1mt +++|* CALLS ELA. 21568 M00S12481.1mt +++| 21569 M00S12482.1mt +++| 21570 M00S12483.1mt +++| REL5 LDD CM SET SEQUENCE NUMBER 21571 M00S12484.1mt +++| SHN 14 21572 M00S12485.1mt +++| ADD CM+1 21573 M00S12486.1mt +++| ADN 4 21574 M00S12487.1mt +++| CRM TMCB,ON 21575 M00S12488.1mt +++| LDM TMCB+2 21576 M00S12489.1mt +++| SCN 77 21577 M00S12490.1mt +++| SHN 6 21578 M00S12491.1mt +++| LMM TMCB+1 21579 M00S12492.1mt +++| SHN 6 21580 M00S12493.1mt +++| STM TMCB+4 21581 M00S12494.1mt +++| SHN 6 21582 M00S12495.1mt +++| STM TMCB+3 21583 M00S12496.1mt +++| 21584 M00S12497.1mt +++| REL SUBR ENTRY/EXIT 21585 M00S12498.1mt +++| LDN 0 21586 M00S12499.1mt +++| STD T6 21587 M00S12500.1mt +++| STD T7 21588 M00S12501.1mt +++| REL1 RJM ELA GET EXTENDED LABEL ADDRESS 21589 M00S12502.1mt +++| ZJN RELX IF NO EXTENDED LABEL BUFFER 21590 M00S12503.1mt +++| CRD CM 21591 M00S12504.1mt +++| STD CM+1 21592 M00S12505.1mt +++| SHN -14 21593 M00S12506.1mt +++| STD CM 21594 M00S12507.1mt +++| LDD CM+4 21595 M00S12508.1mt +++| ZJN REL3 IF END OF BUFFER 21596 M00S12509.1mt +++| LMC 80D 21597 M00S12510.1mt +++| NJN REL4 IF NOT CORRECT LENGTH 21598 M00S12511.1mt +++| LDD CM 21599 M00S12512.1mt +++| SHN 14 21600 M00S12513.1mt +++| ADD CM+1 21601 M00S12514.1mt +++| ADN 1 21602 M00S12515.1mt +++| CRM TMCB,ON 21603 M00S12516.1mt +++| LDM TMCB 21604 M00S12517.1mt +++| LMC 2RHD 21605 M00S12518.1mt +++| NJN REL2 IF NOT *HD* 21606 M00S12519.1mt +++| LDM TMCB+1 21607 M00S12520.1mt +++| LMC 2RR1 21608 M00S12521.1mt +++| NJN REL2 IF NOT *HDR1* 21609 M00S12522.1mt +++| LJM REL5 SET SEQUENCE NUMBER 21610 M00S12523.1mt +++| 21611 M00S12524.1mt +++| REL2 LDN 11 21612 M00S12525.1mt +++| RAD T7 21613 M00S12526.1mt +++| SHN -14 21614 M00S12527.1mt +++| RAD T6 21615 M00S12528.1mt +++| LJM REL1 LOOP FOR NEXT LABEL 21616 M00S12529.1mt +++| 21617 M00S12530.1mt +++| REL3 LDN /MTX/LAM LABEL MISSING 21618 M00S12531.1mt +++| LJM RET3 RETURN ERROR CODE 21619 M00S12532.1mt +++|
| Line S12533 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 21620 M01S12533.v23l617 ---| REL4 LDN /MTX/IXL ILLEGAL CHARACTER COUNT IN HEADER
| Line S00361 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 21621 M01S00361.v23l617 +++| REL4 LDN /MTX/IXL INCORRECT CHARACTER COUNT IN HEADER 21622 M00S12534.1mt +++| LJM RET3 RETURN ERROR CODE 21623 M00S12535.1mt +++| SSN SPACE 4,10 21624 M00S12536.1mt +++|** SSN - SET SEQUENCE NUMBER. 21625 M00S12537.1mt +++|* 21626 M00S12538.1mt +++|* CALLS C2D, DCV. 21627 M00S12539.1mt +++| 21628 M00S12540.1mt +++| 21629 M00S12541.1mt +++| SSN SUBR ENTRY/EXIT 21630 M00S12542.1mt +++| LDC SSNA SET DESTINATION BUFFER 21631 M00S12543.1mt +++| STM DBUF 21632 M00S12544.1mt +++| LDN 32D GET SEQUENCE NUMBER 21633 M00S12545.1mt +++| STD T6 21634 M00S12546.1mt +++| LDN 2 21635 M00S12547.1mt +++| STD T7 21636 M00S12548.1mt +++| LDC 30004 21637 M00S12549.1mt +++| RJM DCV CONVERT DECIMAL FIELD 21638 M00S12550.1mt +++| LDM SSNA+1 SET LAST SEQUENCE NUMBER+1 21639 M00S12551.1mt +++| ADN 1 21640 M00S12552.1mt +++| STD T6 21641 M00S12553.1mt +++| RJM C2D 21642 M00S12554.1mt +++| STM SSNA+3 21643 M00S12555.1mt +++| LDD T6 21644 M00S12556.1mt +++| SHN -6 21645 M00S12557.1mt +++| RJM C2D 21646 M00S12558.1mt +++| LPN 77 21647 M00S12559.1mt +++| STM SSNA+2 21648 M00S12560.1mt +++| LDN 0 CLEAR TAPE MARK COUNT 21649 M00S12561.1mt +++| STD PA 21650 M00S12562.1mt +++| UJN SSNX RETURN 21651 M00S12563.1mt +++| TMC SPACE 4,10 21652 M00S12564.1mt +++|** TMC - TAPE MARK CHECK. 21653 M00S12565.1mt +++|* 21654 M00S12566.1mt +++|* CALLS CHC, CLA, DCV, FAD, REL, WUD. 21655 M00S12567.1mt +++| 21656 M00S12568.1mt +++| 21657 M00S12569.1mt +++| TMC9 AOD PB ADVANCE SECTION 21658 M00S12570.1mt +++| 21659 M00S12571.1mt +++| TMC SUBR ENTRY/EXIT 21660 M00S12572.1mt +++| RJM CLA CHECK LABELS 21661 M00S12573.1mt +++| SBN 1 21662 M00S12574.1mt +++| ZJN TMC2 IF TAPE MARK 21663 M00S12575.1mt +++| LDD PA 21664 M00S12576.1mt +++| ZJN TMC1 IF HDR1 NOT PRECEEDED BY TAPE MARK 21665 M00S12577.1mt +++| LJM RLAX READ NEXT BLOCK 21666 M00S12578.1mt +++| 21667 M00S12579.1mt +++| TMC1 LDN /MTX/LAM LABEL MISSING 21668 M00S12580.1mt +++| LJM RET3 RETURN ERROR CODE 21669 M00S12581.1mt +++| 21670 M00S12582.1mt +++| TMC2 AOD PA INCREMENT TAPE MARK COUNT 21671 M00S12583.1mt +++| SBN 1 21672 M00S12584.1mt +++| ZJN TMC9 IF NOT SECOND TAPE MARK 21673 M00S12585.1mt +++| LDD UP 21674 M00S12586.1mt +++| SHN 21-1 21675 M00S12587.1mt +++| PJN TMC3 IF NOT *POSMF 9999* 21676 M00S12588.1mt +++| LDN 0 CLEAR PARAMETER 21677 M00S12589.1mt +++| STD PA 21678 M00S12590.1mt +++| LDM UDTB+22 SET SECTION NUMBER TO ONE 21679 M00S12591.1mt +++| SCN 77 21680 M00S12592.1mt +++| STM UDTB+22 21681 M00S12593.1mt +++| LDN 1 21682 M00S12594.1mt +++| STM UDTB+23 21683 M00S12595.1mt +++| AOM UDTB+30 INCREMENT SEQUENCE NUMBER 21684 M00S12596.1mt +++| SHN -14 21685 M00S12597.1mt +++| RAM UDTB+27 21686 M00S12598.1mt +++| LDM UDTB+10 SET LABEL NOT EXPIRED 21687 M00S12599.1mt +++| SCN 2 21688 M00S12600.1mt +++| LMN 2 21689 M00S12601.1mt +++| STM UDTB+10 21690 M00S12602.1mt +++| RJM WUD REWRITE UDT 21691 M00S12603.1mt +++| LDN /MTX/BEI SET EOI INDICATOR 21692 M00S12604.1mt +++| LJM RET3 RETURN ERROR CODE 21693 M00S12605.1mt +++| 21694 M00S12606.1mt +++| TMC3 RJM CHC CHANGE CONTROL POINTS 21695 M00S12607.1mt +++| LDM FETO CHECK EXTENDED LABELS 21696 M00S12608.1mt +++| SHN 21-5 21697 M00S12609.1mt +++| PJN TMC4 IF NOT EXTENDED LABELS 21698 M00S12610.1mt +++| RJM REL READ EXTENDED LABELS 21699 M00S12611.1mt +++| UJN TMC5 PROCESS FILE NOT FOUND 21700 M00S12612.1mt +++| 21701 M00S12613.1mt +++| TMC4 RJM FAD SET FET ADDRESS 21702 M00S12614.1mt +++| ADN 12 21703 M00S12615.1mt +++| CRM TMCB,ON 21704 M00S12616.1mt +++| TMC5 LDM TMCB+4 21705 M00S12617.1mt +++| NJN TMC6 IF FILE SEQUENCE NUMBER NOT FOUND 21706 M00S12618.1mt +++| STD LG 21707 M00S12619.1mt +++| UJN TMC7 INDICATE FILE IDENTIFIER NOT FOUND 21708 M00S12620.1mt +++| 21709 M00S12621.1mt +++| TMC6 LDC TMCB SET BUFFER PARAMETERS 21710 M00S12622.1mt +++| STM IBUF 21711 M00S12623.1mt +++| STM DBUF 21712 M00S12624.1mt +++| LDN 8D 21713 M00S12625.1mt +++| STD T6 21714 M00S12626.1mt +++| LDN 12D 21715 M00S12627.1mt +++| STD T7 21716 M00S12628.1mt +++| LDC 30003 21717 M00S12629.1mt +++| RJM DCV CONVERT DECIMAL FIELD 21718 M00S12630.1mt +++| LDM TMCB+6 SET SEQUENCE NUMBER DESIRED 21719 M00S12631.1mt +++| STD LG 21720 M00S12632.1mt +++| LDM SSNA+1 SET HIGHEST EXISTING SEQUENCE NUMBER 21721 M00S12633.1mt +++| TMC7 STD LG+1 21722 M00S12634.1mt +++| LDM FETO CHECK IF EXTENDED LABELS 21723 M00S12635.1mt +++| SHN 21-5 21724 M00S12636.1mt +++| MJN TMC8 IF EXTENDED LABELS 21725 M00S12637.1mt +++| LDM TMCB+3 RETURN LAST SEQUENCE NUMBER FOUND 21726 M00S12638.1mt +++| SCN 77 21727 M00S12639.1mt +++| LMM SSNA+2 21728 M00S12640.1mt +++| STM TMCB+3 21729 M00S12641.1mt +++| LDM SSNA+3 21730 M00S12642.1mt +++| STM TMCB+4 21731 M00S12643.1mt +++| RJM FAD SET FET ADDRESS 21732 M00S12644.1mt +++| ADN 12 RETURN LABEL INFORMATION 21733 M00S12645.1mt +++| CWM TMCB,ON
| Line S12646 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 21734 M01S12646.274l797 ---| TMC8 LDC 200 SET END OF SET FLAG 21735 M01S12647.274l797 ---| RAD HP
| Line S05082 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21736 M02S05082.282l826 ---| TMC8 LDN 0 21737 M02S05083.282l826 ---| RJM //CEC CHANGE TO MAGNET CONTROL POINT 21738 M02S05084.282l826 ---| RJM UAD ADDRESS OF UNIT DESCRIPTOR TABLE 21739 M02S05085.282l826 ---| ADN /MTX/UFLA 21740 M02S05086.282l826 ---| CRD CM 21741 M02S05087.282l826 ---| LDN 20 21742 M02S05088.282l826 ---| RAD CM 21743 M02S05089.282l826 ---| RJM UAD 21744 M02S05090.282l826 ---| ADN /MTX/UFLA 21745 M02S05091.282l826 ---| CWD CM SET END OF SET FLAG
| Line S01253 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21746 M01S01253.282l826 +++| TMC8 LDD UP SET END OF SET FLAG 21747 M01S01254.282l826 +++| LPC 7677 21748 M01S01255.282l826 +++| LMD HN 21749 M01S01256.282l826 +++| STD UP 21750 M00S12648.1mt +++| LDN /MTX/BEI RETURN END OF SET STATUS 21751 M00S12649.1mt +++| LJM RET3 RETURN FATAL ERROR 21752 M00S12650.1mt +++| SPACE 4,10 21753 M00S12651.1mt +++|** BUFFERS. 21754 M00S12652.1mt +++| 21755 M00S12653.1mt +++| 21756 M00S12654.1mt +++| PHDA EQU * LABEL COMPARE BUFFER 21757 M00S12655.1mt +++| TMCB EQU * SEQUENCE NUMBER HOLD 21758 M00S12656.1mt +++| SSNA EQU TMCB+7*5 SEQUENCE NUMBER 21759 M00S12657.1mt +++| BUFL EQU SSNA+4 END OF BUFERS 21760 M00S12658.1mt +++| 21761 M00S12659.1mt +++|
| Line S12660 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21762 M01S12660.282l826 ---| ERRPL BUFL-/RLA/OVLML OVERFLOW INTO BUFFER
| Line S01257 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21763 M01S01257.282l826 +++| ERROVL 21764 M00S12661.1mt +++| PRS SPACE 4,10 21765 M00S12662.1mt +++|** PRS - PRESET. 21766 M00S12663.1mt +++|* 21767 M00S12664.1mt +++|* CALLS MCH. 21768 M00S12665.1mt +++| 21769 M00S12666.1mt +++| 21770 M00S12667.1mt +++| PRS LDC PRSA MODIFY CHANNELS 21771 M00S12668.1mt +++| RJM MCH 21772 M00S12669.1mt +++| LJM PRSX RETURN 21773 M00S12670.1mt +++| 21774 M00S12671.1mt +++| 21775 M00S12672.1mt +++| PRSA CHTB CHANNEL TABLE 21776 M00S12673.1mt +++| OVERLAY (OPEN OPERATIONS.) 21777 M00S12674.1mt +++| OPF SPACE 4,10 21778 M00S12675.1mt +++|** OPF - OPEN OPERATION. 21779 M00S12676.1mt +++|* 21780 M00S12677.1mt +++|* ENTRY (PB) .NE. 0 IF CHECK TYPE OF *POSMF*. 21781 M00S12678.1mt +++|* 21782 M00S12679.1mt +++|* CALLS CCH, CCS, CDN, DCV, ELA, FCH, FHR, GCH, OPH, 21783 M00S12680.1mt +++|* SCH, WUD. 21784 M00S12681.1mt +++|* 21785 M00S12682.1mt +++|* MACROS SADT. 21786 M00S12683.1mt +++| 21787 M00S12684.1mt +++| 21788 M00S12685.1mt +++| ENTRY OPF 21789 M00S12686.1mt +++| 21790 M00S12687.1mt +++| SADT .FE,,4,A 21791 M00S12688.1mt +++| OPF LDC * READ FET+4 21792 M00S12689.1mt +++| CRD CN 21793 M00S12690.1mt +++| LDD CN+3 RETURN BLOCK (PRU) SIZE 21794 M00S12691.1mt +++| LPN 77 21795 M00S12692.1mt +++| STD CN+3 21796 M00S12693.1mt +++| SADT .BS 21797 M00S12694.1mt +++| LDC * 21798 M00S12695.1mt +++| SHN 14 21799 M00S12696.1mt +++| STD CN+2 21800 M00S12697.1mt +++| SHN -14 21801 M00S12698.1mt +++| SHN 6 21802 M00S12699.1mt +++| RAD CN+3 21803 M00S12700.1mt +++| SADT .FE,,4,A 21804 M00S12701.1mt +++| LDC * RETURN BLOCK SIZE 21805 M00S12702.1mt +++| CWD CN 21806 M00S12703.1mt +++| LDM UDTB+10 SAVE OPEN STATUS 21807 M00S12704.1mt +++| STD CM 21808 M00S12705.1mt +++| STM FHRB 21809 M00S12706.1mt +++| LPC 6777 SET FILE OPENED STATUS 21810 M00S12707.1mt +++| LMD TH 21811 M00S12708.1mt +++| STM UDTB+10 21812 M00S12709.1mt +++| OPFA LDN 0 FET LENGTH - 5 21813 M00S12710.1mt +++| STD T3 21814 M00S12711.1mt +++| SBN 10 21815 M00S12712.1mt +++| PJN OPF4 IF FET LONG ENOUGH FOR LABEL PARAMETERS 21816 M00S12713.1mt +++| LDM FETO 21817 M00S12714.1mt +++| SHN 21-5 21818 M00S12715.1mt +++| PJN OPF1 IF NOT EXTENDED LABELS 21819 M00S12716.1mt +++| LDD T3 FET LENGTH - 5 21820 M00S12717.1mt +++| SBN 10D-5 21821 M00S12718.1mt +++| PJN OPF4 IF FET AT LEAST 10D WORDS LONG
| Line S12719 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21822 M01S12719.282l826 ---| OPF1 LDD UP 21823 M01S12720.282l826 ---| SHN -10 21824 M01S12721.282l826 ---| ZJN OPF5 IF UNLABELED 21825 M01S12722.282l826 ---| LPN 4 21826 M01S12723.282l826 ---| NJN OPF5 IF NON-STANDARD LABEL
| Line S01258 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21827 M01S01258.282l826 +++| OPF1 LDD LT 21828 M01S01259.282l826 +++| SHN 21-12 21829 M01S01260.282l826 +++| PJN OPF5 IF UNLABELED 21830 M01S01261.282l826 +++| SHN 21-11-21+12 21831 M01S01262.282l826 +++| MJN OPF5 IF NON-STANDARD LABEL 21832 M00S12724.1mt +++| LDD DS 21833 M00S12725.1mt +++| SHN 21-1 21834 M00S12726.1mt +++| PJN OPF2 IF NOT BUSY
| Line S12727 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21835 M01S12727.282l826 ---| LDN /MTX/REQ REQUEUE WITH DELAY
| Line S01263 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21836 M01S01263.282l826 +++| LDN /MTX/RBS REQUEUE ON UNIT BUSY 21837 M00S12728.1mt +++| LJM RET5 RETURN STATUS TO MAGNET 21838 M00S12729.1mt +++| 21839 M00S12730.1mt +++| OPF2 LPN 1 21840 M00S12731.1mt +++| ZJN OPF5 IF NOT LOAD POINT 21841 M00S12732.1mt +++| OPF3 RJM WUD REWRITE UDT 21842 M00S12733.1mt +++| LJM RET1 RETURN 21843 M00S12734.1mt +++|
| Line S12735 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21844 M01S12735.282l826 ---| OPF4 LDD UP 21845 M01S12736.282l826 ---| SHN -10 21846 M01S12737.282l826 ---| NJN OPF6 IF LABELED
| Line S01264 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21847 M01S01264.282l826 +++| OPF4 LDD LT 21848 M01S01265.282l826 +++| SHN 21-12 21849 M01S01266.282l826 +++| MJN OPF6 IF LABELED 21850 M00S12738.1mt +++| OPF5 RJM WUD 21851 M00S12739.1mt +++| LDN /MTX/BEI 21852 M00S12740.1mt +++| LJM RET3 RETURN ERROR CODE 21853 M00S12741.1mt +++|
| Line S12742 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21854 M01S12742.282l826 ---| OPF6 LPN 4 21855 M01S12743.282l826 ---| NJN OPF5 IF NON-STANDARD LABEL
| Line S01267 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 21856 M01S01267.282l826 +++| OPF6 SHN 21-11-21+12 21857 M01S01268.282l826 +++| MJN OPF5 IF NON-STANDARD LABEL 21858 M00S12744.1mt +++| LDM CIOE 21859 M00S12745.1mt +++| LPN 4 21860 M00S12746.1mt +++| ZJN OPF8 IF NOT OPEN WRITE 21861 M00S12747.1mt +++| LDD CM 21862 M00S12748.1mt +++| SHN 21-11 21863 M00S12749.1mt +++| PJN OPF7 IF FIRST OPEN SINCE ASSIGNMENT 21864 M00S12750.1mt +++| LJM OPF18 TRANSFER HEADER INFORMATION TO FET 21865 M00S12751.1mt +++| 21866 M00S12752.1mt +++| OPF7 LJM OPF11 PROCESS OPEN WRITE 21867 M00S12753.1mt +++| 21868 M00S12754.1mt +++| OPF8 LDM CIOE CHECK IF *POSMF* 21869 M00S12755.1mt +++| SHN -2 21870 M00S12756.1mt +++| LPC 377 21871 M00S12757.1mt +++| LMN 22 21872 M00S12758.1mt +++| STM OPFB 21873 M00S12759.1mt +++| ZJN OPF9 IF *POSMF* 21874 M00S12760.1mt +++| LDD DS 21875 M00S12761.1mt +++| LPN 4 21876 M00S12762.1mt +++| NJN OPF9 IF LOAD POINT 21877 M00S12763.1mt +++| LJM OPF1 CHECK FOR BUSY 21878 M00S12764.1mt +++| 21879 M00S12765.1mt +++| OPF9 RJM FHR FIND *HDR1* LABEL 21880 M00S12766.1mt +++| LDM FETO 21881 M00S12767.1mt +++| SHN 21-5 21882 M00S12768.1mt +++| PJN OPF10 IF NOT EXTENDED LABELS 21883 M00S12769.1mt +++| LDN 0 21884 M00S12770.1mt +++| STD T6 21885 M00S12771.1mt +++| STD T7 21886 M00S12772.1mt +++| LDN ZERL 21887 M00S12773.1mt +++| CRD CN 21888 M00S12774.1mt +++| LDC 1 21889 M00S12775.1mt +++| OPFB EQU *-1 *POSMF* FLAG 21890 M00S12776.1mt +++| ZJN OPF10 IF *POSMF* 21891 M00S12777.1mt +++| RJM ELA 21892 M00S12778.1mt +++| ZJN OPF10 IF END OF BUFFER 21893 M00S12779.1mt +++| CWD CN PRESET BUFFER 21894 M00S12780.1mt +++| OPF10 RJM OPH OPEN HEADER 21895 M00S12781.1mt +++| RJM WUD REWRITE UDT 21896 M00S12782.1mt +++| LJM RET1 RETURN 21897 M00S12783.1mt +++| 21898 M00S12784.1mt +++| OPF11 RJM FHR FIND HEADER LABEL 21899 M00S12785.1mt +++| OPF12 LDN 0 SET TO VALIDATE NUMERIC CHARACTERS 21900 M00S12786.1mt +++| STM DCVA 21901 M00S12787.1mt +++| LDC BFMS SET BUFFERS 21902 M00S12788.1mt +++| STM IBUF 21903 M00S12789.1mt +++| LDC UDTB 21904 M00S12790.1mt +++| STM DBUF 21905 M00S12791.1mt +++| LDN 5 PROCESS FILE IDENTIFIER 21906 M00S12792.1mt +++| STD T6 21907 M00S12793.1mt +++| LDN 21D 21908 M00S12794.1mt +++| STD T7 21909 M00S12795.1mt +++| LDN 17D COPY CHARACTERS IF SPECIFIED 21910 M00S12796.1mt +++| RJM CCS 21911 M00S12797.1mt +++| OPFC LDN 41D PROCESS SET IDENTIFIER 21912 M00S12798.1mt +++|* UJN OPF13 (*POSMF 9999* AND NOT FIRST FILE) 21913 M00S12799.1mt +++| STD T7 21914 M00S12800.1mt +++| LDN 6 21915 M00S12801.1mt +++| RJM CCS 21916 M00S12802.1mt +++| OPFD LDN 38D PROCESS FILE SECTION NUMBER 21917 M00S12803.1mt +++|* UJN OPF13 (*POSMF 9999*) 21918 M00S12804.1mt +++| STD T7 21919 M00S12805.1mt +++| RJM CDN CONVERT DECIMAL NUMBER 21920 M00S12806.1mt +++| LDN 32D PROCESS FILE SEQUENCE NUMBER 21921 M00S12807.1mt +++| STD T6 21922 M00S12808.1mt +++| LDN 48D 21923 M00S12809.1mt +++| STD T7 21924 M00S12810.1mt +++| RJM CDN CONVERT DECIMAL NUMBER 21925 M00S12811.1mt +++| OPF13 LDN 36D PROCESS GENERATION NUMBER 21926 M00S12812.1mt +++| STD T6 21927 M00S12813.1mt +++| LDN 58D 21928 M00S12814.1mt +++| STD T7 21929 M00S12815.1mt +++| RJM CDN CONVERT DECIMAL NUMBER 21930 M00S12816.1mt +++| LDN 40D PROCESS GENERATION VERSION NUMBER 21931 M00S12817.1mt +++| STD T6 21932 M00S12818.1mt +++| LDN 56D 21933 M00S12819.1mt +++| STD T7 21934 M00S12820.1mt +++| RJM GCH 21935 M00S12821.1mt +++| ZJN OPF14 IF NOT SPECIFIED 21936 M00S12822.1mt +++| SOD T6 21937 M00S12823.1mt +++| LDC 20002 21938 M00S12824.1mt +++| RJM DCV 21939 M00S12825.1mt +++| UJN OPF15 SET CREATION DATE 21940 M00S12826.1mt +++| 21941 M00S12827.1mt +++| OPF14 LDN 2 SET GENERATION VERSION NUMBER TO ZERO 21942 M00S12828.1mt +++| RJM FCH 21943 M00S12829.1mt +++| OPF15 LDN JDAL SET CREATION DATE 21944 M00S12830.1mt +++| CRM BFMS,ON 21945 M00S12831.1mt +++| LDN 6 21946 M00S12832.1mt +++| STD T6 21947 M00S12833.1mt +++| LDN 61D 21948 M00S12834.1mt +++| STD T7 21949 M00S12835.1mt +++| LDN 5 21950 M00S12836.1mt +++| RJM CCH 21951 M00S12837.1mt +++| LDN 48D PROCESS EXPIRATION DATE 21952 M00S12838.1mt +++| STD T6 21953 M00S12839.1mt +++| RJM GCH 21954 M00S12840.1mt +++| NJN OPF16 IF SPECIFIED 21955 M00S12841.1mt +++| LDN 6 DEFAULT TO TODAYS DATE 21956 M00S12842.1mt +++| STD T6 21957 M00S12843.1mt +++| OPF16 LDN 5 21958 M00S12844.1mt +++| RJM CCH 21959 M00S12845.1mt +++| LDN 54D PROCESS ACCESSIBILTIY 21960 M00S12846.1mt +++| STD T6 21961 M00S12847.1mt +++| LDN 47D 21962 M00S12848.1mt +++| STD T7 21963 M00S12849.1mt +++| RJM GCH 21964 M00S12850.1mt +++| NJN OPF17 IF SPECIFIED 21965 M00S12851.1mt +++| LDN 1R 21966 M00S12852.1mt +++| OPF17 RJM SCH 21967 M00S12853.1mt +++| OPF18 LDM OPFB 21968 M00S12854.1mt +++| ZJN OPF19 IF *POSMF 9999* 21969 M00S12855.1mt +++| LDC LJMI SET TO RETURN LABEL BLOCK TO FET 21970 M00S12856.1mt +++| STM OPHA 21971 M00S12857.1mt +++| LDC OPH6 21972 M00S12858.1mt +++| STM OPHA+1 21973 M00S12859.1mt +++| RJM OPH 21974 M00S12860.1mt +++| LJM OPF5 REWRITE UDT AND EXIT WITH *BEI* ERROR 21975 M00S12861.1mt +++| 21976 M00S12862.1mt +++| OPF19 LJM OPF3 REWRITE UDT AND EXIT 21977 M00S12863.1mt +++| OPH SPACE 4,10
| Line S12864 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 21978 M01S12864.ns2786 ---|** OPH - OPFN READ/ALTER.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 21979 M01S00013.ns2786 +++|** OPH - OPEN READ/ALTER. 21980 M00S12865.1mt +++|* 21981 M00S12866.1mt +++|* CALLS CAN, CCH, DCV, ELA, GHD, SCH. 21982 M00S12867.1mt +++|* 21983 M00S12868.1mt +++|* MACROS MONITOR, SADT. 21984 M00S12869.1mt +++| 21985 M00S12870.1mt +++| 21986 M00S12871.1mt +++| OPH SUBR ENTRY/EXIT 21987 M00S12872.1mt +++| RJM GHD PROCESS HEADER LABEL 21988 M00S12873.1mt +++| LDN LABW 21989 M00S12874.1mt +++| STD T1 21990 M00S12875.1mt +++| SADT .LF 21991 M00S12876.1mt +++| LDC * 21992 M00S12877.1mt +++| SBD T1 21993 M00S12878.1mt +++| MJN OPH2 IF NOT ROOM FOR LABEL IN BUFFER 21994 M00S12879.1mt +++| LDM FETO 21995 M00S12880.1mt +++| SHN 21-5 21996 M00S12881.1mt +++| MJN OPH2 IF EXTENDED LABELS 21997 M00S12882.1mt +++| SADT .FT 21998 M00S12883.1mt +++| LDC * VALIDATE FIRST 21999 M00S12884.1mt +++| SBN 2 22000 M00S12885.1mt +++| PJN OPH1 IF FIRST .GT. 1 22001 M00S12886.1mt +++| LDN /MTX/BAE BUFFER ARGUMENT ERROR 22002 M00S12887.1mt +++| LJM RET3 RETURN ERROR CODE 22003 M00S12888.1mt +++| 22004 M00S12889.1mt +++| SADT .FT,,,A 22005 M00S12890.1mt +++| OPH1 LDC * TRANSFER HDR1 22006 M00S12891.1mt +++| CWM BUF,T1 22007 M00S12892.1mt +++| OPH2 LDC BFMS SET BUFFERS FOR COMPARISON 22008 M00S12893.1mt +++|* LJM OPH6 (OPEN/WRITE) 22009 M00S12894.1mt +++| OPHA EQU *-2 22010 M00S12895.1mt +++| STM IBUF 22011 M00S12896.1mt +++| LDC BUF 22012 M00S12897.1mt +++| STM DBUF 22013 M00S12898.1mt +++| LDN 5 22014 M00S12899.1mt +++| STD T6 22015 M00S12900.1mt +++| STD T7 22016 M00S12901.1mt +++| LDN 17D COMPARE FILE IDENTIFIER 22017 M00S12902.1mt +++| RJM CAN 22018 M00S12903.1mt +++| NJN OPH3 IF NO COMPARE 22019 M00S12904.1mt +++| LDN 6 COMPARE SET IDENTIFICATION 22020 M00S12905.1mt +++| RJM CAN 22021 M00S12906.1mt +++| NJN OPH3 IF NO COMPARE 22022 M00S12907.1mt +++| LDN 4 COMPARE FILE SECTION NUMBER 22023 M00S12908.1mt +++| RJM CAN 22024 M00S12909.1mt +++| NJN OPH3 IF NO COMPARE 22025 M00S12910.1mt +++| LDN 4 COMPARE FILE SEQUENCE NUMBER 22026 M00S12911.1mt +++| RJM CAN 22027 M00S12912.1mt +++| NJN OPH3 IF NO COMPARE 22028 M00S12913.1mt +++| LDN 4 COMPARE GENERATION NUMBER 22029 M00S12914.1mt +++| RJM CAN 22030 M00S12915.1mt +++| OPH3 NJN OPH4 IF NO COMPARE 22031 M00S12916.1mt +++| LDN 2 COMPARE GENERATION VERSION NUMBER 22032 M00S12917.1mt +++| RJM CAN 22033 M00S12918.1mt +++| NJN OPH4 IF NO COMPARE
| Line S12919 Modification History | |
|---|---|
M01 (Removed by) | ncchdr1 |
Seq # *Modification Id* Act ----------------------------+ 22034 M01S12919.ncchdr1 ---| LDN 6 COMPARE CREATION DATE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ncchdr1 |
Seq # *Modification Id* Act ----------------------------+ 22035 M01S00001.ncchdr1 +++| AOD T6 SKIP OVER CENTURY CHAR 22036 M01S00002.ncchdr1 +++| AOD T7 22037 M01S00003.ncchdr1 +++| LDN 5 COMPARE CREATION DATE 22038 M00S12920.1mt +++| RJM CAN 22039 M00S12921.1mt +++| NJN OPH4 IF NO COMPARE
| Line S12922 Modification History | |
|---|---|
M01 (Removed by) | ncchdr1 |
Seq # *Modification Id* Act ----------------------------+ 22040 M01S12922.ncchdr1 ---| LDN 6 COMPARE EXPIRATION DATE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ncchdr1 |
Seq # *Modification Id* Act ----------------------------+ 22041 M01S00004.ncchdr1 +++| AOD T6 SKIP OVER CENTURY CHAR 22042 M01S00005.ncchdr1 +++| AOD T7 22043 M01S00006.ncchdr1 +++| LDN 5 COMPARE EXPIRATION DATE 22044 M00S12923.1mt +++| RJM CAN 22045 M00S12924.1mt +++| NJN OPH4 IF NO COMPARE 22046 M00S12925.1mt +++| LDN 1 COMPARE ACCESSIBILITY 22047 M00S12926.1mt +++| RJM CAN 22048 M00S12927.1mt +++| ZJN OPH6 IF GOOD COMPARE 22049 M00S12928.1mt +++| OPH4 STD EP SET CHARACTER POSITION REJECT OCCURRED 22050 M00S12929.1mt +++| LDM CIOE CHECK IF *POSMF* 22051 M00S12930.1mt +++| SHN -2 22052 M00S12931.1mt +++| LPC 377 22053 M00S12932.1mt +++| LMN 22 22054 M00S12933.1mt +++| NJN OPH5 IF NOT *POSMF* 22055 M00S12934.1mt +++| STD EP CLEAR EP 22056 M00S12935.1mt +++| LJM OPF5 REWRITE UDT 22057 M00S12936.1mt +++| 22058 M00S12937.1mt +++| OPH5 LDN /MTX/LPE SET LABEL PARAMETER ERROR 22059 M00S12938.1mt +++| LJM RET3 RETURN ERROR CODE 22060 M00S12939.1mt +++| 22061 M00S12940.1mt +++| OPH6 LDM FETO 22062 M00S12941.1mt +++| SHN 21-5 22063 M00S12942.1mt +++| PJN OPH8 IF NOT EXTENDED LABELS 22064 M00S12943.1mt +++| LDM OPFB 22065 M00S12944.1mt +++| NJN OPH7 IF NOT *POSMF* 22066 M00S12945.1mt +++| STD T6 22067 M00S12946.1mt +++| STD T7 22068 M00S12947.1mt +++| LDN ZERL PRESET BUFFER 22069 M00S12948.1mt +++| CRD CN 22070 M00S12949.1mt +++| RJM ELA 22071 M00S12950.1mt +++| ZJN OPH7 IF END OF BUFFER 22072 M00S12951.1mt +++| CWD CN 22073 M00S12952.1mt +++| OPH7 LJM OPHX RETURN 22074 M00S12953.1mt +++| 22075 M00S12954.1mt +++|* BUILD FET BLOCK TO RETURN TO USER 22076 M00S12955.1mt +++| 22077 M00S12956.1mt +++| OPH8 LDC BUF SET INPUT BUFFER 22078 M00S12957.1mt +++| STM IBUF 22079 M00S12958.1mt +++| LDC BFMS SET DESTINATION BUFFER 22080 M00S12959.1mt +++| STM DBUF 22081 M00S12960.1mt +++| LDN 5 COPY FILE IDENTIFIER 22082 M00S12961.1mt +++| STD T6 22083 M00S12962.1mt +++| LDN 1 22084 M00S12963.1mt +++| STD T7 22085 M00S12964.1mt +++| LDN 17D 22086 M00S12965.1mt +++| RJM CCH 22087 M00S12966.1mt +++| LDN 32D+1 COPY FILE SEQUENCE NUMBER 22088 M00S12967.1mt +++| STD T6 22089 M00S12968.1mt +++| LDN 3 22090 M00S12969.1mt +++| RJM CCH 22091 M00S12970.1mt +++| LDN 40D COPY GENERATION VERSION NUMBER 22092 M00S12971.1mt +++| STD T6 22093 M00S12972.1mt +++| LDN 2 22094 M00S12973.1mt +++| RJM CCH 22095 M00S12974.1mt +++| 22096 M00S12975.1mt +++|* RECALCULATE EXPIRATION DATE. 22097 M00S12976.1mt +++| 22098 M00S12977.1mt +++| LDN CN SET DESTINATION BUFFER 22099 M00S12978.1mt +++| STM DBUF 22100 M00S12979.1mt +++| LDN 49D CONVERT YEAR OF EXPIRATION 22101 M00S12980.1mt +++| STD T6 22102 M00S12981.1mt +++| LDN 1 22103 M00S12982.1mt +++| STD T7 22104 M00S12983.1mt +++| LDC 20002 22105 M00S12984.1mt +++| RJM DCV 22106 M00S12985.1mt +++| LDN 43D CONVERT YEAR OF CREATION 22107 M00S12986.1mt +++| STD T6 22108 M00S12987.1mt +++| LDC 20002 22109 M00S12988.1mt +++| RJM DCV 22110 M00S12989.1mt +++| LDN 51D CONVERT DAY OF EXPIRATION 22111 M00S12990.1mt +++| STD T6 22112 M00S12991.1mt +++| LDC 20003 22113 M00S12992.1mt +++| RJM DCV 22114 M00S12993.1mt +++| LDN 45D CONVERT DAY OF CREATION 22115 M00S12994.1mt +++| STD T6 22116 M00S12995.1mt +++| LDC 20003 22117 M00S12996.1mt +++| RJM DCV
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22118 M01S00014.ns2786 +++| LDN CN 22119 M01S00015.ns2786 +++| RJM SCB SET CENTURY BIAS FOR YEAR OF EXPIRATION 22120 M01S00016.ns2786 +++| LDN CN+1 22121 M01S00017.ns2786 +++| RJM SCB SET CENTURY BIAS FOR YEAR OF CREATION
| Line S12997 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22122 M01S12997.ns2786 ---| LDN ZERL PRESET RESULT
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22123 M01S00018.ns2786 +++| LDC 99D 22124 M01S00019.ns2786 +++| LMD CN EXPIRATION YEAR 22125 M01S00020.ns2786 +++| NJN OPH8.1 IF YEAR NOT 99 22126 M01S00021.ns2786 +++| LDC 999D 22127 M01S00022.ns2786 +++| LMD CN+2 EXPIRATION DAY 22128 M01S00023.ns2786 +++| ZJN OPH11 IF INFINITE EXPIRATION DATE 22129 M01S00024.ns2786 +++| OPH8.1 LDN ZERL PRESET RESULT 22130 M00S12998.1mt +++| CRD CM 22131 M00S12999.1mt +++| LDD CN 22132 M00S13000.1mt +++| SBD CN+1 22133 M00S13001.1mt +++| ZJN OPH10 IF SAME YEAR 22134 M00S13002.1mt +++| MJN OPH13 IF LABEL EXPIRED
| Line S13003 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22135 M01S13003.ns2786 ---| STD T1 22136 M01S13004.ns2786 ---| OPH9 LDC 365D INCREMENT EXPIRATION DATE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22137 M01S00025.ns2786 +++| OPH9 LDD CN+1 22138 M01S00026.ns2786 +++| LPN 3 22139 M01S00027.ns2786 +++| ZJN OPH9.1 IF LEAP YEAR 22140 M01S00028.ns2786 +++| LCN 1 22141 M01S00029.ns2786 +++| OPH9.1 ADC 366D INCREMENT DAYS 22142 M00S13005.1mt +++| RAD CN+2 22143 M00S13006.1mt +++| SHN -14 22144 M00S13007.1mt +++| NJN OPH11 IF OVERFLOW
| Line S13008 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22145 M01S13008.ns2786 ---| SOD T1
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22146 M01S00030.ns2786 +++| AOD CN+1 22147 M01S00031.ns2786 +++| SBD CN 22148 M00S13009.1mt +++| NJN OPH9 IF MORE YEARS 22149 M00S13010.1mt +++| OPH10 LDD CN+2 RETENTION DAYS 22150 M00S13011.1mt +++| SBD CN+3 22151 M00S13012.1mt +++| MJN OPH13 IF LABEL EXPIRED 22152 M00S13013.1mt +++| STD CM+4 22153 M00S13014.1mt +++| ADC -1000D 22154 M00S13015.1mt +++| MJN OPH12 IF LESS THAN 1000 DAYS 22155 M00S13016.1mt +++| OPH11 LDC 999D 22156 M00S13017.1mt +++| STD CM+4 22157 M00S13018.1mt +++| OPH12 LDD CM+4 22158 M00S13019.1mt +++| NJN OPH14 IF NOT EXPIRED 22159 M00S13020.1mt +++| OPH13 LDC 2R00 SET RETENTION CYCLE TO ZERO 22160 M00S13021.1mt +++| STD CM+3 22161 M00S13022.1mt +++| STD CM+4 22162 M00S13023.1mt +++| UJN OPH15 STORE CHARACTERS IN BUFFER 22163 M00S13024.1mt +++| 22164 M00S13025.1mt +++| OPH14 LDD MA 22165 M00S13026.1mt +++| CWD CM 22166 M00S13027.1mt +++| MONITOR RDCM CONVERT DATA 22167 M00S13028.1mt +++| LDD MA 22168 M00S13029.1mt +++| CRD CM 22169 M00S13030.1mt +++| OPH15 LDC BFMS SET DESTINATION BUFFER 22170 M00S13031.1mt +++| STM DBUF 22171 M00S13032.1mt +++| LDN 23D 22172 M00S13033.1mt +++| STD T7 22173 M00S13034.1mt +++| LDD CM+3 STORE CHARACTERS IN BUFFER 22174 M00S13035.1mt +++| RJM SCH 22175 M00S13036.1mt +++| LDD CM+4 22176 M00S13037.1mt +++| SHN -6 22177 M00S13038.1mt +++| RJM SCH 22178 M00S13039.1mt +++| LDD CM+4 22179 M00S13040.1mt +++| RJM SCH 22180 M00S13041.1mt +++| LDN 43D COPY CREATION DATE 22181 M00S13042.1mt +++| STD T6 22182 M00S13043.1mt +++| LDN 5 22183 M00S13044.1mt +++| RJM CCH 22184 M00S13045.1mt +++| LDN 22D COPY SET IDENTIFIER 22185 M00S13046.1mt +++| STD T6 22186 M00S13047.1mt +++| LDN 6 22187 M00S13048.1mt +++| RJM CCH 22188 M00S13049.1mt +++| LDN 28D FILE SECTION NUMBER 22189 M00S13050.1mt +++| STD T6 22190 M00S13051.1mt +++| LDN 4 22191 M00S13052.1mt +++| RJM CCH 22192 M00S13053.1mt +++| LDN 4 22193 M00S13054.1mt +++| STD T1 22194 M00S13055.1mt +++| SADT .FE,,,A 22195 M00S13056.1mt +++| LDC * 22196 M00S13057.1mt +++| ADN 11 22197 M00S13058.1mt +++| CWM BFMS,T1 22198 M00S13059.1mt +++| LJM OPHX RETURN 22199 M00S13060.1mt +++| TITLE SUBROUTINES. 22200 M00S13061.1mt +++| ELA SPACE 4,10 22201 M00S13062.1mt +++|** ELA - EXTENDED LABELS ADDRESS PROCESSING. 22202 M00S13063.1mt +++|* 22203 M00S13064.1mt +++|* ENTRY (T6 - T7) = POSITION TO START AT IN BUFFER. 22204 M00S13065.1mt +++|* 22205 M00S13066.1mt +++|* EXIT (A) = ABSOLUTE ADDRESS. 22206 M00S13067.1mt +++|* (A) = 0, END OF LABEL BUFFER. 22207 M00S13068.1mt +++|* 22208 M00S13069.1mt +++|* MACROS SADT. 22209 M00S13070.1mt +++| 22210 M00S13071.1mt +++| 22211 M00S13072.1mt +++| ELA2 LDN 0 INDICATE END OF BUFFER 22212 M00S13073.1mt +++| 22213 M00S13074.1mt +++| ELA SUBR ENTRY/EXIT 22214 M00S13075.1mt +++| SADT .FE,,,A 22215 M00S13076.1mt +++| LDC * GET FET ADDRESS 22216 M00S13077.1mt +++| ADN 11 22217 M00S13078.1mt +++| CRD CM 22218 M00S13079.1mt +++| LDD CM+3 22219 M00S13080.1mt +++| SHN 14 22220 M00S13081.1mt +++| STD CM+1 22221 M00S13082.1mt +++| SHN -14 22222 M00S13083.1mt +++| STD CM+3 22223 M00S13084.1mt +++| SHN 14 22224 M00S13085.1mt +++| LMD CM+4 22225 M00S13086.1mt +++| SBN 2 22226 M00S13087.1mt +++| MJN ELA2 IF NO LABEL BUFFER 22227 M00S13088.1mt +++| LDD CM+2 22228 M00S13089.1mt +++| SHN 6 22229 M00S13090.1mt +++| LMD CM+1 22230 M00S13091.1mt +++| STD CM+2 22231 M00S13092.1mt +++| SHN -14 22232 M00S13093.1mt +++| STD CM+1 22233 M00S13094.1mt +++| LDD T6 22234 M00S13095.1mt +++| SBD CM+1 22235 M00S13096.1mt +++| SHN 14 22236 M00S13097.1mt +++| ADD T7 22237 M00S13098.1mt +++| SBD CM+2 22238 M00S13099.1mt +++| ADN 11 ALLOW FOR LABEL 22239 M00S13100.1mt +++| PJN ELA2 IF END OF LABEL BUFFER 22240 M00S13101.1mt +++| LDD CM+1 CHECK IF BUFFER WITHIN FL 22241 M00S13102.1mt +++| ADD CM+3 22242 M00S13103.1mt +++| SHN 14 22243 M00S13104.1mt +++| ADD CM+2 22244 M00S13105.1mt +++| ADD CM+4 22245 M00S13106.1mt +++| SHN -6 22246 M00S13107.1mt +++| SBD FL 22247 M00S13108.1mt +++| MJN ELA1 IF BUFFER WITHIN FL 22248 M00S13109.1mt +++| LDN /MTX/BAE BUFFER ARGUMENT ERROR 22249 M00S13110.1mt +++| LJM RET3 RETURN ERROR CODE 22250 M00S13111.1mt +++| 22251 M00S13112.1mt +++| ELA1 LDD CM+3 CALCULATE LABEL ADDRESS 22252 M00S13113.1mt +++| ADD T6 22253 M00S13114.1mt +++| SHN 6 22254 M00S13115.1mt +++| ADD RA 22255 M00S13116.1mt +++| SHN 6 22256 M00S13117.1mt +++| ADD CM+4 22257 M00S13118.1mt +++| ADD T7 22258 M00S13119.1mt +++| LJM ELAX RETURN 22259 M00S13120.1mt +++| FHR SPACE 4,10 22260 M00S13121.1mt +++|** FHR - FIND *HDR1* LABEL. 22261 M00S13122.1mt +++|* 22262 M00S13123.1mt +++|* EXIT (BFMS - BFMS+47) = *HDR1* LABEL IF FOUND, OTHERWISE 0. 22263 M00S13124.1mt +++|* 22264 M00S13125.1mt +++|* CALLS CCH, CPO, DCV, ELA, FCH, GCD, GCH. 22265 M00S13126.1mt +++|* 22266 M00S13127.1mt +++|* MACROS MONITOR, SADT. 22267 M00S13128.1mt +++| 22268 M00S13129.1mt +++| 22269 M00S13130.1mt +++| FHR SUBR ENTRY/EXIT
| Line S13131 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 22270 M01S13131.274l797 ---| LDN LABL CLEAR BUFFER
| Line S05092 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 22271 M01S05092.274l797 +++| LDN CLBL CLEAR BUFFER 22272 M00S13132.1mt +++| STD T1 22273 M00S13133.1mt +++| FHR1 LDN 0 22274 M00S13134.1mt +++| STM BFMS,T1 22275 M00S13135.1mt +++| SOD T1 22276 M00S13136.1mt +++| PJN FHR1 IF MORE BUFFER TO CLEAR 22277 M00S13137.1mt +++| LDM FETO 22278 M00S13138.1mt +++| SHN 21-5 22279 M00S13139.1mt +++| PJN FHR2 IF NOT EXTENDED LABELS 22280 M00S13140.1mt +++| LJM FHR14 SEARCH FOR *HDR1* IN USER BUFFER 22281 M00S13141.1mt +++| 22282 M00S13142.1mt +++| FHR2 LDN 4 READ FET LABEL PARAMETERS 22283 M00S13143.1mt +++| STD T1 22284 M00S13144.1mt +++| SADT .FE,,,A 22285 M00S13145.1mt +++| LDC * FET ADDRESS 22286 M00S13146.1mt +++| ADN 11 22287 M00S13147.1mt +++| CRM BFMS-4*5,T1 22288 M00S13148.1mt +++| LDC BFMS-4*5 SET INPUT BUFFER ADDRESS 22289 M00S13149.1mt +++| STM IBUF 22290 M00S13150.1mt +++| LDC BFMS SET DESTINATION BUFFER ADDRESS 22291 M00S13151.1mt +++| STM DBUF 22292 M00S13152.1mt +++| LDN 1 MOVE FILE IDENTIFIER 22293 M00S13153.1mt +++| STD T6 22294 M00S13154.1mt +++| LDN 5 22295 M00S13155.1mt +++| STD T7 22296 M00S13156.1mt +++| LDN 17D 22297 M00S13157.1mt +++| RJM CCH 22298 M00S13158.1mt +++| LDN 32D 22299 M00S13159.1mt +++| STD T7 22300 M00S13160.1mt +++| LDM BFMS-4*5+10 22301 M00S13161.1mt +++| LPN 77 22302 M00S13162.1mt +++| SHN 14 22303 M00S13163.1mt +++| ADM BFMS-4*5+11 22304 M00S13164.1mt +++| ZJN FHR4 IF NO FILE SEQUENCE NUMBER 22305 M00S13165.1mt +++| LMC 3R999 22306 M00S13166.1mt +++| ZJN FHR3 IF *999* MUST EXPAND TO *9999* 22307 M00S13167.1mt +++| LDC 1L0&1L9 22308 M00S13168.1mt +++| FHR3 LMC 1L9+1 22309 M00S13169.1mt +++| RJM FCH 22310 M00S13170.1mt +++| LDN 3 COPY FILE SEQUENCE NUMBER 22311 M00S13171.1mt +++| RJM CCH 22312 M00S13172.1mt +++| FHR4 LDN 21D COPY GENERATION VERSION NUMBER 22313 M00S13173.1mt +++| STD T6 22314 M00S13174.1mt +++| LDN 40D 22315 M00S13175.1mt +++| STD T7 22316 M00S13176.1mt +++| LDN 2 22317 M00S13177.1mt +++| RJM CCH 22318 M00S13178.1mt +++| LDN 26D MOVE CREATION DATE 22319 M00S13179.1mt +++| STD T6 22320 M00S13180.1mt +++| RJM GCH 22321 M00S13181.1mt +++| STM FHRA 22322 M00S13182.1mt +++| ZJN FHR5 IF CREATION DATE NOT SPECIFIED 22323 M00S13183.1mt +++| SOD T6
| Line S13184 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22324 M01S13184.ns2786 ---| LDC 1L +1 22325 M01S13185.ns2786 ---| RJM FCH
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22326 M01S00032.ns2786 +++| RJM SCF SET CENTURY FILL CHARACTER 22327 M00S13186.1mt +++| LDN 5 22328 M00S13187.1mt +++| RJM CCH 22329 M00S13188.1mt +++| FHR5 LDN 23D 22330 M00S13189.1mt +++| STD T6 22331 M00S13190.1mt +++| RJM GCH 22332 M00S13191.1mt +++| NJN FHR6 IF RETENTION CYCLE 22333 M00S13192.1mt +++| LJM FHR12 COPY SET ID 22334 M00S13193.1mt +++|
| Line S13194 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22335 M01S13194.ns2786 ---| FHR6 LDN 48D PRESET EXPIRATION DATE 22336 M01S13195.ns2786 ---| STD T7 22337 M01S13196.ns2786 ---| LDC 1L +1 22338 M01S13197.ns2786 ---| RJM FCH 22339 M01S13198.ns2786 ---| LDN 26D
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22340 M01S00033.ns2786 +++| FHR6 LDN 26D 22341 M00S13199.1mt +++| STD T6 22342 M00S13200.1mt +++| LDM CIOE 22343 M00S13201.1mt +++| LPN 4 22344 M00S13202.1mt +++| NJN FHR7 IF OPEN WRITE 22345 M00S13203.1mt +++| RJM CPO CHECK IF *POSMF 9999* 22346 M00S13204.1mt +++| ZJN FHR7 IF *POSMF 9999* 22347 M00S13205.1mt +++| LDC 0 FIRST CHARACTER OF CREATION DATE 22348 M00S13206.1mt +++| FHRA EQU *-1 22349 M00S13207.1mt +++| NJN FHR8 IF CREATION DATE SPECIFIED 22350 M00S13208.1mt +++| LDC UDTB DEFAULT TO CREATION DATE ON TAPE 22351 M00S13209.1mt +++| STM IBUF 22352 M00S13210.1mt +++| LDN 61D 22353 M00S13211.1mt +++| STD T6 22354 M00S13212.1mt +++| UJN FHR8 COPY EXPIRATION DATE 22355 M00S13213.1mt +++| 22356 M00S13214.1mt +++| FHR7 LDN 0 SET TO VALIDATE NUMERIC CHARACTERS 22357 M00S13215.1mt +++| STM DCVA 22358 M00S13216.1mt +++| LDN JDAL DEFAULT TO TODAYS DATE 22359 M00S13217.1mt +++| CRD CM 22360 M00S13218.1mt +++| LDN CM SET INPUT BUFFER 22361 M00S13219.1mt +++| STM IBUF 22362 M00S13220.1mt +++| LDN 6 22363 M00S13221.1mt +++| STD T6
| Line S13222 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22364 M01S13222.ns2786 ---| FHR8 LDN 49D SET DESTINATION BUFFER ADDRESS
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22365 M01S00034.ns2786 +++| FHR8 LDN 48D SET DESTINATION BUFFER ADDRESS 22366 M00S13223.1mt +++| STD T7
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22367 M01S00035.ns2786 +++| RJM SCF SET CENTURY FOR EXPIRATION DATE 22368 M00S13224.1mt +++| LDN 5 COPY EXPIRATION DATE 22369 M00S13225.1mt +++| RJM CCH 22370 M00S13226.1mt +++| LDC BFMS-4*5 RESET INPUT BUFFER 22371 M00S13227.1mt +++| STM IBUF 22372 M00S13228.1mt +++| LDN CN CHANGE DESTINATION BUFFER 22373 M00S13229.1mt +++| STM DBUF 22374 M00S13230.1mt +++| LDN 1 CONVERT RETENTION CYCLE 22375 M00S13231.1mt +++| STD T7 22376 M00S13232.1mt +++| LDN 23D 22377 M00S13233.1mt +++| STD T6 22378 M00S13234.1mt +++| LDC 20003 22379 M00S13235.1mt +++| RJM DCV 22380 M00S13236.1mt +++| LDC BFMS CONVERT DAYS FROM JULIAN DATE 22381 M00S13237.1mt +++| STM IBUF 22382 M00S13238.1mt +++| LDN 51D 22383 M00S13239.1mt +++| STD T6
| Line S13240 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22384 M01S13240.ns2786 ---| LDN 3 22385 M01S13241.ns2786 ---| STD T7 22386 M00S13242.1mt +++| LDC 20003 22387 M00S13243.1mt +++| RJM DCV 22388 M00S13244.1mt +++| LDD CN 22389 M00S13245.1mt +++| LMC 999D 22390 M00S13246.1mt +++| NJN FHR9 IF NOT INDEFINITE 22391 M00S13247.1mt +++| LDC 2R99 SET TO YEAR 99 22392 M00S13248.1mt +++| STM BFMS+30
| Line S13249 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22393 M01S13249.ns2786 ---| LJM FHR12 COPY SET ID
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22394 M01S00036.ns2786 +++| LJM FHR11 COPY 999 TO DAYS OF EXPIRATION DATE 22395 M00S13250.1mt +++| 22396 M00S13251.1mt +++| FHR9 LDD CN+1 GET TOTAL NUMBER OF DAYS 22397 M00S13252.1mt +++| RAD CN
| Line S13253 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22398 M01S13253.ns2786 ---| STD T3 22399 M01S13254.ns2786 ---| FHR10 LDD T3 LEAP YEAR IS IGNORED 22400 M01S13255.ns2786 ---| ADC -365D 22401 M01S13256.ns2786 ---| MJN FHR11 IF .LT 1 YEAR 22402 M01S13257.ns2786 ---| STD T3
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22403 M01S00037.ns2786 +++| LDN 49D CONVERT CREATION YEAR 22404 M01S00038.ns2786 +++| STD T6 22405 M01S00039.ns2786 +++| LDC 20002 22406 M01S00040.ns2786 +++| RJM DCV 22407 M01S00041.ns2786 +++| LDD CN+2 22408 M01S00042.ns2786 +++| LPN 3 22409 M01S00043.ns2786 +++| ZJN FHR10 IF LEAP YEAR 22410 M01S00044.ns2786 +++| LDN 1 22411 M01S00045.ns2786 +++| FHR10 ADC -366D 22412 M01S00046.ns2786 +++| ADD CN 22413 M01S00047.ns2786 +++| MJN FHR11 IF WITHIN THE CURRENT YEAR 22414 M01S00048.ns2786 +++| ZJN FHR11 IF LAST DAY OF CURRENT YEAR 22415 M01S00049.ns2786 +++| STD CN 22416 M01S00050.ns2786 +++| AOD CN+2 22417 M00S13258.1mt +++| AOM BFMS+30 22418 M00S13259.1mt +++| LPN 77 22419 M00S13260.1mt +++| LMN 1R9+1 22420 M00S13261.1mt +++| NJN FHR10 IF NO ROLLOVER 22421 M00S13262.1mt +++| LCN 1R9+1-1R0 22422 M00S13263.1mt +++| RAM BFMS+30 22423 M00S13264.1mt +++| UJN FHR10 CONTINUE RETENTION CYCLE CONVERSION 22424 M00S13265.1mt +++| 22425 M00S13266.1mt +++| FHR11 LDN ZERL CONVERT REMAINING DAYS 22426 M00S13267.1mt +++| CRD CM
| Line S13268 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22427 M01S13268.ns2786 ---| LDD T3
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22428 M01S00051.ns2786 +++| LDD CN 22429 M00S13269.1mt +++| STD CM+4 22430 M00S13270.1mt +++| LDD MA 22431 M00S13271.1mt +++| CWD CM 22432 M00S13272.1mt +++| MONITOR RDCM 22433 M00S13273.1mt +++| LDD MA 22434 M00S13274.1mt +++| CRD CM 22435 M00S13275.1mt +++| LDD CM+4 22436 M00S13276.1mt +++| SCN 77 22437 M00S13277.1mt +++| SHN 6 22438 M00S13278.1mt +++| LMD CM+3 22439 M00S13279.1mt +++| SHN 6 22440 M00S13280.1mt +++| STM BFMS+31 22441 M00S13281.1mt +++| LDD CM+4 22442 M00S13282.1mt +++| LPN 77 22443 M00S13283.1mt +++| SHN 6 22444 M00S13284.1mt +++| STD CM+4 22445 M00S13285.1mt +++| LDM BFMS+32 22446 M00S13286.1mt +++| LPN 77 22447 M00S13287.1mt +++| LMD CM+4 22448 M00S13288.1mt +++| STM BFMS+32 22449 M00S13289.1mt +++| LDC BFMS-4*5 RESET INPUT BUFFER ADDRESS 22450 M00S13290.1mt +++| STM IBUF 22451 M00S13291.1mt +++| FHR12 LDC BFMS RESTORE DESTINATION BUFFER ADDRESS 22452 M00S13292.1mt +++| STM DBUF 22453 M00S13293.1mt +++| LDN 31D MOVE SET IDENTIFICATION 22454 M00S13294.1mt +++| STD T6 22455 M00S13295.1mt +++| LDN 22D 22456 M00S13296.1mt +++| STD T7 22457 M00S13297.1mt +++| LDN 6 22458 M00S13298.1mt +++| RJM CCH 22459 M00S13299.1mt +++| LDN 4 MOVE FILE SECTION NUMBER 22460 M00S13300.1mt +++| RJM CCH 22461 M00S13301.1mt +++| LJM FHR20 CHECK FOR *POSMF* 22462 M00S13302.1mt +++|
| Line S13303 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 22463 M01S13303.v23l617 ---| FHR13 LDN /MTX/IXL ILLEGAL CHARACTER COUNT IN HEADER
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 22464 M01S00362.v23l617 +++| FHR13 LDN /MTX/IXL INCORRECT CHARACTER COUNT IN HEADER 22465 M00S13304.1mt +++| LJM RET3 RETURN ERROR CODE 22466 M00S13305.1mt +++| 22467 M00S13306.1mt +++|* GET LABEL FROM USER BUFFER. 22468 M00S13307.1mt +++| 22469 M00S13308.1mt +++| FHR14 LDN 0 SEARCH FOR *HDR1* 22470 M00S13309.1mt +++| STD T6 22471 M00S13310.1mt +++| STD T7 22472 M00S13311.1mt +++| FHR15 RJM ELA 22473 M00S13312.1mt +++| ZJN FHR17 IF END OF LABEL BUFFER 22474 M00S13313.1mt +++| CRD CN 22475 M00S13314.1mt +++| ADN 1 22476 M00S13315.1mt +++| CRD CM 22477 M00S13316.1mt +++| LDD CN+4 22478 M00S13317.1mt +++| ZJN FHR17 IF END OF LABELS IN BUFFER 22479 M00S13318.1mt +++| LMC 80D 22480 M00S13319.1mt +++| NJN FHR13 IF NOT CORRECT LENGTH 22481 M00S13320.1mt +++| LDD CM 22482 M00S13321.1mt +++| LMC 2RHD 22483 M00S13322.1mt +++| NJN FHR16 IF NOT *HD* 22484 M00S13323.1mt +++| LDD CM+1 22485 M00S13324.1mt +++| LMC 2RR1 22486 M00S13325.1mt +++| ZJN FHR19 IF *R1* 22487 M00S13326.1mt +++| FHR16 LDN 11 ADVANCE LABEL BUFFER POINTER 22488 M00S13327.1mt +++| RAD T7 22489 M00S13328.1mt +++| SHN -14 22490 M00S13329.1mt +++| RAD T6 22491 M00S13330.1mt +++| UJN FHR15 CONTINUE SEARCH 22492 M00S13331.1mt +++| 22493 M00S13332.1mt +++| FHR17 LDM OPFB 22494 M00S13333.1mt +++| NJN FHR18 IF NOT *POSMF* 22495 M00S13334.1mt +++| LDN /MTX/BAE *BUFFER ARGUMENT ERROR.* 22496 M00S13335.1mt +++| LJM RET3 RETURN ERROR CODE 22497 M00S13336.1mt +++| 22498 M00S13337.1mt +++| FHR18 LJM FHRX RETURN 22499 M00S13338.1mt +++| 22500 M00S13339.1mt +++| FHR19 LDN 10 READ UP LABEL 22501 M00S13340.1mt +++| STD T5 22502 M00S13341.1mt +++| RJM ELA SKIP HEADER WORD 22503 M00S13342.1mt +++| ADN 1 22504 M00S13343.1mt +++| CRM BFMS,T5 22505 M00S13344.1mt +++| FHR20 LDM OPFB 22506 M00S13345.1mt +++| NJN FHR18 IF NOT *POSMF* 22507 M00S13346.1mt +++| LDD PB 22508 M00S13347.1mt +++| NJN FHR22 IF CHECK TYPE OF *POSMF* 22509 M00S13348.1mt +++| LDD UP 22510 M00S13349.1mt +++| SHN 21-1 22511 M00S13350.1mt +++| PJN FHR18 IF NOT *POSMF 9999* 22512 M00S13351.1mt +++| LDD UP CLEAR *POSMF 9999* IN PROGRESS 22513 M00S13352.1mt +++| SCN 2 22514 M00S13353.1mt +++| STD UP 22515 M00S13354.1mt +++| LDM FHRC 22516 M00S13355.1mt +++| STM OPFD 22517 M00S13356.1mt +++| LDM UDTB+10 SET LABEL EXPIRED 22518 M00S13357.1mt +++| SCN 2 22519 M00S13358.1mt +++| LMN 2 22520 M00S13359.1mt +++| STM UDTB+10 22521 M00S13360.1mt +++| LDM UDTB+27 CHECK FILE NUMBER 22522 M00S13361.1mt +++| LPN 77 22523 M00S13362.1mt +++| SHN 14 22524 M00S13363.1mt +++| ADM UDTB+30 22525 M00S13364.1mt +++| LMN 1 22526 M00S13365.1mt +++| ZJN FHR21 IF POSITIONED AT FIRST FILE 22527 M00S13366.1mt +++| LDM FHRD SKIP TRANSFER OF SETID 22528 M00S13367.1mt +++| STM OPFC 22529 M00S13368.1mt +++| FHR21 LJM OPF12 RETURN TO TRANSFER FET TO UDT 22530 M00S13369.1mt +++| 22531 M00S13370.1mt +++|* CHECK IF *POSMF 9999* AND IF REWIND IS REQUIRED. IF 22532 M00S13371.1mt +++|* IT IS A *POSMF 9999*, THE *BEI* ERROR CODE IS RETURNED 22533 M00S13372.1mt +++|* TO *MAGNET*. IF NOT *POSMF 9999*, NO ERROR CODE 22534 M00S13373.1mt +++|* IS RETURNED AND REWIND STATUS IS INDICATED BY 22535 M00S13374.1mt +++|* RETURNING (PA) = 0 IF REWIND IS NEEDED AND (PA) .NE. 0 22536 M00S13375.1mt +++|* IF REWIND IS NOT NEEDED. 22537 M00S13376.1mt +++| 22538 M00S13377.1mt +++| FHR22 LDN 0 SET EXIT CONDITION 22539 M00S13378.1mt +++| STD PA 22540 M00S13379.1mt +++| LDD UP PRESET TYPE OF *POSMF* 22541 M00S13380.1mt +++| SCN 2 22542 M00S13381.1mt +++| STD UP 22543 M00S13382.1mt +++| RJM CPO CHECK IF *9999* 22544 M00S13383.1mt +++| NJN FHR23 IF NOT *9999* 22545 M00S13384.1mt +++| LDN 2 SET *POSMF 9999* IN PROGRESS 22546 M00S13385.1mt +++| RAD UP 22547 M00S13386.1mt +++| LDN /MTX/BEI RETURN *POSMF 9999* INDICATION 22548 M00S13387.1mt +++| LJM RET3 RETURN ERROR CODE 22549 M00S13388.1mt +++|
| Line S13389 Modification History | |
|---|---|
M01 (Removed by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 22550 M01S13389.282l826 ---| FHR23 LDD HP CHECK WRITE STATUS 22551 M01S13390.282l826 ---| SHN 21-13
| Line S01269 Modification History | |
|---|---|
M01 (Added by) | 282l826 |
Seq # *Modification Id* Act ----------------------------+ 22552 M01S01269.282l826 +++| FHR23 LDD UP CHECK WRITE STATUS 22553 M01S01270.282l826 +++| SHN 21-4 22554 M00S13391.1mt +++| MJN FHR25 IF LAST OPERATION WRITE - REWIND 22555 M00S13392.1mt +++| LDC BFMS SET BUFFER ADDRESSES 22556 M00S13393.1mt +++| STM DBUF 22557 M00S13394.1mt +++| STM IBUF 22558 M00S13395.1mt +++| LDN 32D GET FIRST CHARACTER OF SEQUENCE NUMBER 22559 M00S13396.1mt +++| STD T7 22560 M00S13397.1mt +++| RJM GCD GET CHARACTER 22561 M00S13398.1mt +++| NJN FHR26 IF SEQUENCE NUMBER SPECIFIED 22562 M00S13399.1mt +++| LDN 5 22563 M00S13400.1mt +++| STD T7 22564 M00S13401.1mt +++| RJM GCD GET CHARACTER 22565 M00S13402.1mt +++| NJN FHR25 IF FI SPECIFIED - REWIND REQUIRED 22566 M00S13403.1mt +++| LDC * SET TO LABEL FLAGS IN UDT WORD *UVSN* 22567 M00S13404.1mt +++| FHRB EQU *-1 22568 M00S13405.1mt +++| SHN 21-11 22569 M00S13406.1mt +++| PJN FHR25 IF FIRST OPEN SINCE ASSIGNMENT 22570 M00S13407.1mt +++| FHR24 LDN 1 SET NO REWIND REQUIRED 22571 M00S13408.1mt +++| STD PA 22572 M00S13409.1mt +++| FHR25 LJM RET1 RETURN 22573 M00S13410.1mt +++| 22574 M00S13411.1mt +++| FHR26 LDN 32D CONVERT FET SEQUENCE NUMBER TO BINARY 22575 M00S13412.1mt +++| STD T6 22576 M00S13413.1mt +++| LDN 2 22577 M00S13414.1mt +++| STD T7 22578 M00S13415.1mt +++| LDC 30004 CONVERT DECIMAL FIELD 22579 M00S13416.1mt +++| RJM DCV 22580 M00S13417.1mt +++| LDM UDTB+27 CLEAR ACCESSIBILITY CHARACTER 22581 M00S13418.1mt +++| LPN 77 22582 M00S13419.1mt +++| STM UDTB+27 22583 M00S13420.1mt +++| LDM BFMS COMPARE UDT TO FET SEQUENCE NUMBER 22584 M00S13421.1mt +++| LPN 77 22585 M00S13422.1mt +++| SBM UDTB+27 22586 M00S13423.1mt +++| MJN FHR25 IF REWIND REQUIRED 22587 M00S13424.1mt +++| NJN FHR24 IF NO REWIND REQUIRED 22588 M00S13425.1mt +++| LDM BFMS+1 22589 M00S13426.1mt +++| SBM UDTB+30 22590 M00S13427.1mt +++| MJN FHR25 IF REWIND REQUIRED 22591 M00S13428.1mt +++| ZJN FHR25 IF REWIND REQUIRED 22592 M00S13429.1mt +++| UJN FHR24 SET NO REWIND REQUIRED 22593 M00S13430.1mt +++| 22594 M00S13431.1mt +++| 22595 M00S13432.1mt +++| FHRC BSS 0 22596 M00S13433.1mt +++| LOC OPFD 22597 M00S13434.1mt +++| UJN OPF13 SKIP FILE SEQUENCE NUMBER CONVERSION 22598 M00S13435.1mt +++| LOC *O 22599 M00S13436.1mt +++| 22600 M00S13437.1mt +++| FHRD BSS 0 22601 M00S13438.1mt +++| LOC OPFC 22602 M00S13439.1mt +++| UJN OPF13 SKIP TRANSFER OF SETID 22603 M00S13440.1mt +++| LOC *O 22604 M00S13441.1mt +++| GHD SPACE 4,10 22605 M00S13442.1mt +++|** GHD - GENERATE *HDR1* LABEL FROM UDT. 22606 M00S13443.1mt +++|* 22607 M00S13444.1mt +++|* EXIT (BUF - BUF+50) = *HDR1* LABEL FROM CHARACTER POSITION 22608 M00S13445.1mt +++|* 5 TO 55. 22609 M00S13446.1mt +++|* 22610 M00S13447.1mt +++|* CALLS CBD, CCH, SCH. 22611 M00S13448.1mt +++| 22612 M00S13449.1mt +++| 22613 M00S13450.1mt +++| GHD SUBR ENTRY/EXIT
| Line S13451 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 22614 M01S13451.274l797 ---| LDN LABL CLEAR BUFFER
| Line S05093 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 22615 M01S05093.274l797 +++| LDN CLBL CLEAR BUFFER 22616 M00S13452.1mt +++| STD T1 22617 M00S13453.1mt +++| GHD1 LDN 0 22618 M00S13454.1mt +++| STM BUF,T1 22619 M00S13455.1mt +++| SOD T1 22620 M00S13456.1mt +++| PJN GHD1 IF MORE BUFFER TO CLEAR 22621 M00S13457.1mt +++| LDC UDTB SET INPUT BUFFER 22622 M00S13458.1mt +++| STM IBUF 22623 M00S13459.1mt +++| LDC BUF SET DESTINATION BUFFER 22624 M00S13460.1mt +++| STM DBUF 22625 M00S13461.1mt +++| LDC 2RHD SET *HDR1* IN BUFFER 22626 M00S13462.1mt +++| STM BUF 22627 M00S13463.1mt +++| LDC 2RR1 22628 M00S13464.1mt +++| STM BUF+1 22629 M00S13465.1mt +++| LDN 21D MOVE FILE IDENTIFIER 22630 M00S13466.1mt +++| STD T6 22631 M00S13467.1mt +++| LDN 5 22632 M00S13468.1mt +++| STD T7 22633 M00S13469.1mt +++| LDN 17D 22634 M00S13470.1mt +++| RJM CCH 22635 M00S13471.1mt +++| LDN 41D MOVE SET IDENTIFIER 22636 M00S13472.1mt +++| STD T6 22637 M00S13473.1mt +++| LDN 6 22638 M00S13474.1mt +++| RJM CCH 22639 M00S13475.1mt +++| LDN 38D CONVERT FILE SECTION NUMBER 22640 M00S13476.1mt +++| STD T6 22641 M00S13477.1mt +++| LDC 30004 22642 M00S13478.1mt +++| RJM CBD 22643 M00S13479.1mt +++| LDN 48D CONVERT FILE SEQUENCE NUMBER 22644 M00S13480.1mt +++| STD T6 22645 M00S13481.1mt +++| LDC 30004 22646 M00S13482.1mt +++| RJM CBD 22647 M00S13483.1mt +++| LDN 58D CONVERT GENERATION NUMBER 22648 M00S13484.1mt +++| STD T6 22649 M00S13485.1mt +++| LDC 30004 22650 M00S13486.1mt +++| RJM CBD 22651 M00S13487.1mt +++| LDN 56D CONVERT GENERATION VERSION NUMBER 22652 M00S13488.1mt +++| STD T6 22653 M00S13489.1mt +++| LDC 20002 22654 M00S13490.1mt +++| RJM CBD
| Line S13491 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22655 M01S13491.ns2786 ---| LDN 61D PROCESS DATE
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22656 M01S00052.ns2786 +++| LDN 61D PROCESS CREATION DATE 22657 M00S13492.1mt +++| STD T6
| Line S13493 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22658 M01S13493.ns2786 ---| LDN 1R SPACE FILL 22659 M01S13494.ns2786 ---| RJM SCH
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22660 M01S00053.ns2786 +++| RJM SCF SET CREATION DATE CENTURY CHARACTER 22661 M01S00054.ns2786 +++| LDN 5 COPY CREATION DATE 22662 M01S00055.ns2786 +++| RJM CCH 22663 M01S00056.ns2786 +++| RJM SCF SET EXPIRATION DATE CENTURY CHARACTER 22664 M00S13495.1mt +++| LDN 5 COPY CREATION DATE
| Line S13496 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 22665 M01S13496.ns2786 ---| RJM CCH 22666 M01S13497.ns2786 ---| LDN 1R SPACE FILL 22667 M01S13498.ns2786 ---| RJM SCH 22668 M01S13499.ns2786 ---| LDN 5 COPY EXPIRATION DATE 22669 M00S13500.1mt +++| RJM CCH 22670 M00S13501.1mt +++| LDN 47D COPY ACCESSIBILITY 22671 M00S13502.1mt +++| STD T6 22672 M00S13503.1mt +++| LDN 1 22673 M00S13504.1mt +++| RJM CCH 22674 M00S13505.1mt +++| LJM GHDX RETURN 22675 M00S13506.1mt +++| TITLE CHARACTER PROCESSING SUBROUTINES. 22676 M00S13507.1mt +++| SPACE 4,10 22677 M00S13508.1mt +++|** DIRECT CELL USAGE IN FOLLOWING ROUTINES. 22678 M00S13509.1mt +++|* 22679 M00S13510.1mt +++|* ENTRY (T5) = NUMBER OF CHARACTERS. 22680 M00S13511.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 22681 M00S13512.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 22682 M00S13513.1mt +++|* 22683 M00S13514.1mt +++|* ALL CHARACTER POSITIONS ARE REFERENCED STARTING WITH *1*. 22684 M00S13515.1mt +++|* THUS, THE CHARACTER POSITION VALUES BEING USED TO ACCESS 22685 M00S13516.1mt +++|* *BUF* MAY BE REFERENCED DIRECTLY TO THE LABEL STANDARD. 22686 M00S13517.1mt +++| 22687 M00S13518.1mt +++| 22688 M00S13519.1mt +++| IBUF CON UDTB FWA OF FETCH BUFFER 22689 M00S13520.1mt +++| DBUF CON BUF FWA OF DESTINATION BUFFER 22690 M00S13521.1mt +++| CAN SPACE 4,15 22691 M00S13522.1mt +++|** CAN - COMPARE ALPHANUMERIC FIELDS. 22692 M00S13523.1mt +++|* COMPARE WILL BE GOOD IF ALL OF INPUT CHARACTER STRING IS 22693 M00S13524.1mt +++|* BINARY ZERO. 22694 M00S13525.1mt +++|* 22695 M00S13526.1mt +++|* ENTRY (A) = NUMBER OF CHARACTERS TO COMPARE. 22696 M00S13527.1mt +++|* (T6) = CHARACTER POSITION IN INPUT BUFFER. 22697 M00S13528.1mt +++|* (T7) = CHARACTER POSITION IN DESTINATION BUFFER. 22698 M00S13529.1mt +++|* 22699 M00S13530.1mt +++|* EXIT (A) = 0, GOOD COMPARE. 22700 M00S13531.1mt +++|* (A) .NE. 0, (A) = CHARACTER POSITION AT START. 22701 M00S13532.1mt +++|* (T6), (T7) = UPDATED. 22702 M00S13533.1mt +++|* 22703 M00S13534.1mt +++|* USES T3, T4. 22704 M00S13535.1mt +++|* 22705 M00S13536.1mt +++|* CALLS GCD, GCH. 22706 M00S13537.1mt +++| 22707 M00S13538.1mt +++| 22708 M00S13539.1mt +++| CAN5 SOD T5 UPDATE TO SKIP REMAINDER OF FIELD 22709 M00S13540.1mt +++| RAD T6 22710 M00S13541.1mt +++| LDD T5 22711 M00S13542.1mt +++| RAD T7 22712 M00S13543.1mt +++| LDD T3 22713 M00S13544.1mt +++| 22714 M00S13545.1mt +++| CAN SUBR ENTRY/EXIT 22715 M00S13546.1mt +++| STD T5 22716 M00S13547.1mt +++| STD T4 22717 M00S13548.1mt +++| LDD T6 SAVE STARTING POSITION 22718 M00S13549.1mt +++| STD T3 22719 M00S13550.1mt +++| CAN1 RJM GCH GET CHARACTER 22720 M00S13551.1mt +++| NJN CAN2 IF SPECIFIED 22721 M00S13552.1mt +++| SOD T4 22722 M00S13553.1mt +++| NJN CAN1 IF MORE CHARACTERS TO CHECK 22723 M00S13554.1mt +++| LDD T5 22724 M00S13555.1mt +++| RAD T7 22725 M00S13556.1mt +++| LDN 0 GOOD COMPARE 22726 M00S13557.1mt +++| UJN CANX RETURN 22727 M00S13558.1mt +++| 22728 M00S13559.1mt +++| CAN2 LDD T3 RESET CHARACTER POSITION 22729 M00S13560.1mt +++| STD T6 22730 M00S13561.1mt +++| CAN3 RJM GCH GET CHARACTER 22731 M00S13562.1mt +++| STD T4 22732 M00S13563.1mt +++| NJN CAN4 IF NOT 00 CHARACTER 22733 M00S13564.1mt +++| LDN 1R 22734 M00S13565.1mt +++| STD T4 22735 M00S13566.1mt +++| CAN4 RJM GCD GET CHARACTER FROM DESTINATION BUFFER 22736 M00S13567.1mt +++| LMD T4 22737 M00S13568.1mt +++| NJN CAN5 IF NO COMPARE 22738 M00S13569.1mt +++| SOD T5 22739 M00S13570.1mt +++| NJN CAN3 IF MORE CHARACTERS TO COMPARE 22740 M00S13571.1mt +++| UJN CANX RETURN 22741 M00S13572.1mt +++| CBD SPACE 4,15 22742 M00S13573.1mt +++|** CBD - CONVERT BINARY FIELD TO DECIMAL. 22743 M00S13574.1mt +++|* 22744 M00S13575.1mt +++|* ENTRY (A, 21 - 14) = NUMBER OF CHARACTERS IN BINARY FIELD 22745 M00S13576.1mt +++|* MAXIMUM OF 4. 22746 M00S13577.1mt +++|* (A, 13 - 0) = NUMBER OF DISPLAY CODE CHARACTERS TO 22747 M00S13578.1mt +++|* STORE WITH A MAXIMUM OF 6. 22748 M00S13579.1mt +++|* 22749 M00S13580.1mt +++|* EXIT RESULT STORED IN DESTINATION BUFFER. 22750 M00S13581.1mt +++|* 22751 M00S13582.1mt +++|* CALLS GCH, SCH. 22752 M00S13583.1mt +++|* 22753 M00S13584.1mt +++|* MACROS MONITOR. 22754 M00S13585.1mt +++| 22755 M00S13586.1mt +++| 22756 M00S13587.1mt +++| CBD SUBR ENTRY/EXIT 22757 M00S13588.1mt +++| STD T5 22758 M00S13589.1mt +++| SHN -14 22759 M00S13590.1mt +++| STD T4 22760 M00S13591.1mt +++| LDN ZERL PRESET FIELD TO CONVERT 22761 M00S13592.1mt +++| CRD CM 22762 M00S13593.1mt +++| CBD1 LDD CM+3 MOVE UP FIELD 22763 M00S13594.1mt +++| SHN 6 22764 M00S13595.1mt +++| STD CM+3 22765 M00S13596.1mt +++| LDD CM+4 22766 M00S13597.1mt +++| SHN 6 22767 M00S13598.1mt +++| STD CM+4 22768 M00S13599.1mt +++| SHN -14 22769 M00S13600.1mt +++| RAD CM+3 22770 M00S13601.1mt +++| RJM GCH GET CHARACTER 22771 M00S13602.1mt +++| RAD CM+4 22772 M00S13603.1mt +++| SOD T4 22773 M00S13604.1mt +++| NJN CBD1 IF MORE FIELD POSITIONS 22774 M00S13605.1mt +++| LDD MA CONVERT DATA 22775 M00S13606.1mt +++| CWD CM 22776 M00S13607.1mt +++| MONITOR RDCM 22777 M00S13608.1mt +++| LDD MA 22778 M00S13609.1mt +++| CRD CM 22779 M00S13610.1mt +++| LDD CM+3 REMOVE *.* FROM DATA 22780 M00S13611.1mt +++| LPN 77 22781 M00S13612.1mt +++| SHN 14 22782 M00S13613.1mt +++| LMD CM+2 22783 M00S13614.1mt +++| SHN 6 22784 M00S13615.1mt +++| STD CM+3 22785 M00S13616.1mt +++| LMD CM+3 22786 M00S13617.1mt +++| LMD CM+1 22787 M00S13618.1mt +++| SHN 6 22788 M00S13619.1mt +++| STD CM+2 22789 M00S13620.1mt +++| LDN CM+1 REMOVE SPACES 22790 M00S13621.1mt +++| STD T1 22791 M00S13622.1mt +++| CBD2 AOD T1 ADVANCE TO NEXT BYTE 22792 M00S13623.1mt +++| LMN CM+5
Proceed to Part 17
cdc/nos2.source/opl.opl871/deck/1mt.016.txt · Last modified: by 127.0.0.1