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