User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:profile.003

Deck PROFILE Part 003

21 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
04957  M00S04328.profile +++| CPV      SUBR               ENTRY/EXIT
04958  M00S04329.profile +++| CPV1     ZR     X5,CPVX     IF END OF TABLE
04959  M00S04330.profile +++|          MX7    12
04960  M00S04331.profile +++|          LX7    -12
04961  M00S04332.profile +++|          BX7    X5*X7
04962  M00S04333.profile +++|          LX7    -36
04963  M00S04334.profile +++|          RJ     DFS         (DF) - (DF+4) SET-UP
04964  M00S04335.profile +++|          RJ     GFV         GET FIELD,S VALUE
04965  M00S04336.profile +++|          RJ     CED         CONVERT ENTRY TO DISPLAY CODE
04966  M00S04337.profile +++|          RJ     PVF         PLACE DISPLAY CODE VALUE IN FIELD
04967  M00S04338.profile +++|          SA5    A5+B1
04968  M00S04339.profile +++|          EQ     CPV1        LOOP
04969  M00S04340.profile +++| DFS      SPACE  4,10
04970  M00S04341.profile +++|**        DFS - (DF) - (DF+4) SET-UP.
04971  M00S04342.profile +++|*
04972  M00S04343.profile +++|*         ENTRY  (X7) = TABLE INDEX.
04973  M00S04344.profile +++|*
04974  M00S04345.profile +++|*         EXIT   (DF) =   MAXIMUM VALUE.
04975  M00S04346.profile +++|*                (DF+1) = UPPER BIT POSITION.
04976  M00S04347.profile +++|*                (DF+2) = FIELD SIZE.
04977  M00S04348.profile +++|*                (DF+3) = ENTRY WORD INDEX.
04978  M00S04349.profile +++|*                (DF+4) = IDENTIFIER, LEFT JUSTIFIED
04979  M00S04350.profile +++|*                         WITH TRAILING ZEROS.
04980  M00S04351.profile +++|*
04981  M00S04352.profile +++|*         USES   X - 3, 4, 6.
04982  M00S04353.profile +++|*                A - 3, 4, 6.
04983  M00S04354.profile +++|
04984  M00S04355.profile +++|
04985  M00S04356.profile +++| DFS      SUBR               ENTRY/EXIT
04986  M00S04357.profile +++|          SA3    X7+TDIR     TABLE ENTRY
04987  M00S04358.profile +++|          MX4    18          IDENTIFIER
04988  M00S04359.profile +++|          BX6    X4*X3
04989  M00S04360.profile +++|          SA6    DF+4
04990  M00S04361.profile +++|          MX4    -6          ENTRY WORD INDEX
04991  M00S04362.profile +++|          LX3    -6
04992  M00S04363.profile +++|          BX6    -X4*X3
04993  M00S04364.profile +++|          SA6    A6-B1
04994  M00S04365.profile +++|          LX3    -6          FIELD SIZE
04995  M00S04366.profile +++|          BX6    -X4*X3
04996  M00S04367.profile +++|          SA6    A6-B1
04997  M00S04368.profile +++|          LX3    -6          UPPER BIT POSITION
04998  M00S04369.profile +++|          BX6    -X4*X3
04999  M00S04370.profile +++|          SA6    A6-B1
05000  M00S04371.profile +++|          LX3    -6          MAXIMUM VALUE
05001  M00S04372.profile +++|          SX4    X3
05002  M00S04373.profile +++|          SA4    X4
05003  M00S04374.profile +++|          BX6    X4
05004  M00S04375.profile +++|          SA6    A6-B1
05005  M00S04376.profile +++|          EQ     DFSX
05006  M00S04377.profile +++| EDD      SPACE  4,10
05007  M00S04378.profile +++|**        EDD - EDIT DATE.
05008  M00S04379.profile +++|*
05009  M00S04380.profile +++|*         CONVERTS DATE FROM PACKED FORMAT TO DISPLAY CODE YYMMDD
05010  M00S04381.profile +++|*         LEFT-JUSTIFIED WITH BINARY ZERO FILL.
05011  M00S04382.profile +++|*
05012  M00S04383.profile +++|*         ENTRY  (X1) = PACKED DATE.
05013  M00S04384.profile +++|*
05014  M00S04385.profile +++|*         EXIT   (X6) = EDITED DATE, LEFT-JUSTIFIED WITH ZERO FILL.
05015  M00S04386.profile +++|*
05016  M00S04387.profile +++|*         USES   X - 1, 2, 3, 6.
05017  M00S04388.profile +++|
05018  M00S04389.profile +++|
05019  M00S04390.profile +++| EDD      SUBR               ENTRY/EXIT
05020  M00S04391.profile +++|          EDATE  X1
05021  M00S04392.profile +++|          MX2    12
05022  M00S04393.profile +++|          LX6    6
05023  M00S04394.profile +++|          BX1    X2*X6       YEAR
05024  M00S04395.profile +++|          LX6    6
05025  M00S04396.profile +++|          LX2    -12
05026  M00S04397.profile +++|          BX3    X2*X6       MONTH
05027  M00S04398.profile +++|          BX1    X1+X3
05028  M00S04399.profile +++|          LX6    6
05029  M00S04400.profile +++|          LX2    -12
05030  M00S04401.profile +++|          BX3    X2*X6       DAY
05031  M00S04402.profile +++|          BX6    X1+X3
05032  M00S04403.profile +++|          EQ     EDDX        RETURN
05033  M00S04404.profile +++| ETM      SPACE  4,10
05034  M00S04405.profile +++|**        ETM - EDIT TIME.
05035  M00S04406.profile +++|*
05036  M00S04407.profile +++|*         CONVERTS TIME FROM PACKED FORMAT TO JUST DISPLAY CODE DIGITS.
05037  M00S04408.profile +++|*
05038  M00S04409.profile +++|*         ENTRY  (X1) = PACKED TIME.
05039  M00S04410.profile +++|*
05040  M00S04411.profile +++|*         EXIT   (X6) = EDITED TIME, LEFT JUSTIFIED
05041  M00S04412.profile +++|*                       WITH TRAILING BLANKS.
05042  M00S04413.profile +++|*
05043  M00S04414.profile +++|*         CALLS  SFN.
05044  M00S04415.profile +++|*
05045  M00S04416.profile +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5, X5.
05046  M00S04417.profile +++|
05047  M00S04418.profile +++|
05048  M00S04419.profile +++| ETM      SUBR               ENTRY/EXIT
05049  M00S04420.profile +++|          ETIME  X1
05050  M00S04421.profile +++|          MX1    12          HOURS
05051  M00S04422.profile +++|          LX6    6
05052  M00S04423.profile +++|          BX2    X1*X6
05053  M00S04424.profile +++|          LX6    6           MINUTES
05054  M00S04425.profile +++|          LX1    -12
05055  M00S04426.profile +++|          BX3    X1*X6
05056  M00S04427.profile +++|          BX1    X2+X3       MERGE HOURS AND MINUTES
05057  M00S04428.profile +++|          RJ     SFN         SPACE FILL NAME
05058  M00S04429.profile +++|          EQ     ETMX
05059  M00S04430.profile +++| GFV      SPACE  4,10
05060  M00S04431.profile +++|**        GFV - GET FIELD,S VALUE.
05061  M00S04432.profile +++|*
05062  M00S04433.profile +++|*         ENTRY  (X7) = TABLE INDEX.
05063  M00S04434.profile +++|*                (DF+1) = UPPER BIT POSITION.
05064  M00S04435.profile +++|*                (DF+2) = FIELD SIZE.
05065  M00S04436.profile +++|*                (DF+3) = ENTRY WORD INDEX.
05066  M00S04437.profile +++|*                (T1IE) = TABLE 1 INDEX OF ENTRY, IF LEVEL-1 DIRECTIVE.
05067  M00S04438.profile +++|*                (T3IE) = TABLE 3 INDEX OF ENTRY, IF LEVEL-3 DIRECTIVE.
05068  M00S04439.profile +++|*
05069  M00S04440.profile +++|*         EXIT   (X1) = FIELD,S CURRENT VALUE (RIGHT JUSTIFIED).
05070  M00S04441.profile +++|*                (X4) = FIELD,S CURRENT VALUE (LEFT JUSTIFIED).
05071  M00S04442.profile +++|*
05072  M00S04443.profile +++|*         USES   X - 2, 3.
05073  M00S04444.profile +++|*                A - 2, 3, 4.
05074  M00S04445.profile +++|*                B - 2, 3, 4.
05075  M00S04446.profile +++|
05076  M00S04447.profile +++|
05077  M00S04448.profile +++| GFV      SUBR               ENTRY/EXIT
05078  M00S04449.profile +++|          SA2    DF+1        UPPER BIT POSITION
05079  M00S04450.profile +++|          SB2    X2-59
05080  M00S04451.profile +++|          SB2    -B2
05081  M00S04452.profile +++|          SA2    A2+B1       FIELD SIZE
05082  M00S04453.profile +++|          ZR     X2,ERD24    IF ERROR
05083  M00S04454.profile +++|          SB3    X2
05084  M00S04455.profile +++|          SB4    B3-B1
05085  M00S04456.profile +++|          SA2    A2+B1       ENTRY WORD INDEX
05086  M00S04457.profile +++|          SA3    X7+TOPR
05087  M00S04458.profile +++|          LX3    5
05088  M00S04459.profile +++|          NG     X3,GFV1     IF LEVEL-3 DIRECTIVE
05089  M00S04460.profile +++|          SA3    F.TAB1      TABLE 1 POINTERS
05090  M00S04461.profile +++|          SA4    T1IE
05091  M00S04462.profile +++|          EQ     GFV2
05092  M00S04463.profile +++|
05093  M00S04464.profile +++| GFV1     SA3    F.TAB3      TABLE 3 POINTERS
05094  M00S04465.profile +++|          SA4    T3IE
05095  M00S04466.profile +++| GFV2     IX3    X3+X4       FWA OF ENTRY
05096  M00S04467.profile +++|          IX2    X2+X3
05097  M00S04468.profile +++|          SA2    X2          FIELD,S WORD
05098  M00S04469.profile +++|          LX2    B2
05099  M00S04470.profile +++|          MX3    1           FORM MASK HAVING FIELD SIZE
05100  M00S04471.profile +++|          AX3    B4
05101  M00S04472.profile +++|          BX4    X3*X2       EXTRACT FIELD
05102  M00S04473.profile +++|          LX1    B3,X4       RIGHT JUSTIFY
05103  M00S04474.profile +++|          EQ     GFVX
05104  M00S04475.profile +++| NUE      SPACE  4,10
Line S04476 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05105  M01S04476.v23l617 ---|**        NUE - NEXT USER NUMBER ENTRY.
Line S00214 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05106  M01S00214.v23l617 +++|**        NUE - NEXT USER NAME ENTRY.
05107  M00S04477.profile +++|*
Line S04478 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05108  M01S04478.v23l617 ---|*         FETCH NEXT USER NUMBER ENTRY (HOLES INCLUDED) FROM
Line S00215 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05109  M01S00215.v23l617 +++|*         FETCH NEXT USER NAME ENTRY (HOLES INCLUDED) FROM
05110  M00S04479.profile +++|*         TABLE 3. IF NECESSARY, READ IN NEXT OVERFLOW BLOCK.
05111  M00S04480.profile +++|*
05112  M00S04481.profile +++|*         ENTRY  (X1) .NE. 0, IF INITIALIZATION CALL.
05113  M00S04482.profile +++|*                             INITIALIZE POSITION AND LIMIT
05114  M00S04483.profile +++|*                             POINTERS TO FIRST LEVEL-3 BLOCK.
05115  M00S04484.profile +++|*                     = 0, IF CONTINUE FROM PRESENT ENTRY POINTED TO.
05116  M00S04485.profile +++|*                (T3IE) = TABLE 3 INDEX OF ENTRY.
05117  M00S04486.profile +++|*
05118  M00S04487.profile +++|*         EXIT   (B2) .NE. 0, IF END OF LEVEL-3 CHAIN ENCOUNTERED.
05119  M00S04488.profile +++|*                (X1) = NEXT ENTRY, IF (B2) = 0.
05120  M00S04489.profile +++|*                (A1) = ADDRESS OF ENTRY, IF (B2) = 0.
05121  M00S04490.profile +++|*
05122  M00S04491.profile +++|*         CALLS  RDB.
05123  M00S04492.profile +++|*
05124  M00S04493.profile +++|*         USES   ALL REGISTERS.
05125  M00S04494.profile +++|
05126  M00S04495.profile +++|
05127  M00S04496.profile +++| NUE5     SB2    1           END OF LEVEL-3 CHAIN
05128  M00S04497.profile +++|
05129  M00S04498.profile +++| NUE      SUBR               ENTRY/EXIT
05130  M00S04499.profile +++|          ZR     X1,NUE1     IF NOT INITIALIZATION CALL
05131  M00S04500.profile +++|          SA1    F.TAB3      INITIALIZE POSITION AND LIMIT POINTERS
05132  M00S04501.profile +++|          SA2    T3IE
05133  M00S04502.profile +++|          IX3    X1+X2
05134  M00S04503.profile +++|          SX6    X3+PUNW
05135  M00S04504.profile +++|          SA6    NUEA
05136  M00S04505.profile +++|          SX6    X6+NUNS
05137  M00S04506.profile +++|          SA6    A6+B1
05138  M00S04507.profile +++|
05139  M00S04508.profile +++| NUE1     SA1    NUEA        POSITION POINTER
05140  M00S04509.profile +++|          SA2    A1+B1       LIMIT POINTER
05141  M00S04510.profile +++|          IX3    X1-X2
05142  M00S04511.profile +++|          NG     X3,NUE4     IF LIMIT NOT REACHED
05143  M00S04512.profile +++|          NZ     X3,ERD31    IF ERROR
05144  M00S04513.profile +++|          SA3    F.TAB3
05145  M00S04514.profile +++|          SX4    X3+PRUS
05146  M00S04515.profile +++|          SA5    X2-PRUS     PRESET
05147  M00S04516.profile +++|          SX7    X5
05148  M00S04517.profile +++|          IX5    X4-X2
05149  M00S04518.profile +++|          NG     X5,NUE2     IF NOT FIRST LEVEL-3 BLOCK
05150  M00S04519.profile +++|          SA5    X2-C.TAB3
05151  M00S04520.profile +++|          SX7    X5
05152  M00S04521.profile +++|          SX2    X4
05153  M00S04522.profile +++| NUE2     SA4    L.TAB3
05154  M00S04523.profile +++|          IX4    X3+X4
05155  M00S04524.profile +++|          IX4    X2-X4
05156  M00S04525.profile +++|          NG     X4,NUE3     IF ANOTHER BLOCK IN TABLE 3
05157  M00S04526.profile +++|          NZ     X4,ERD32    IF ERROR
05158  M00S04527.profile +++|          ZR     X7,NUE5     IF NO MORE OVERFLOW BLOCKS
05159  M00S04528.profile +++|          SX0    N
05160  M00S04529.profile +++|          RJ     RDB         READ DATA LEVEL BLOCK
05161  M00S04530.profile +++|          SA1    F.TAB3      CHECK BLOCK,S CONTROL WORD
05162  M00S04531.profile +++|          SA2    L.TAB3
05163  M00S04532.profile +++|          IX3    X1+X2
05164  M00S04533.profile +++|          SA3    X3-PRUS
05165  M00S04534.profile +++|          MX4    12
05166  M00S04535.profile +++|          BX3    X4*X3
05167  M00S04536.profile +++|          SA4    =2LOV
05168  M00S04537.profile +++|          BX4    X3-X4
05169  M00S04538.profile +++|          NZ     X4,ERD33    IF ERROR
05170  M00S04539.profile +++|          SX2    A3
05171  M00S04540.profile +++|
05172  M00S04541.profile +++| NUE3     SX1    X2+B1       ADVANCE PAST OVERFLOW BLOCK CONTROL WORD
05173  M00S04542.profile +++|          SX6    X2+PRUS     UPDATE LIMIT POINTER
05174  M00S04543.profile +++|          SA6    NUEA+1
05175  M00S04544.profile +++|
05176  M00S04545.profile +++| NUE4     SX6    X1+B1       ADVANCE POSITION POINTER
05177  M00S04546.profile +++|          SA6    NUEA
05178  M00S04547.profile +++|          SA1    X1          FETCH ENTRY
05179  M00S04548.profile +++|          SB2    B0
05180  M00S04549.profile +++|          EQ     NUEX
05181  M00S04550.profile +++|
05182  M00S04551.profile +++| NUEA     BSS    2           POSITION AND LIMIT POINTERS
05183  M00S04552.profile +++| PDE      SPACE  4,10
05184  M00S04553.profile +++|**        PDE - PROCESS DATA LEVEL ENTRY.
05185  M00S04554.profile +++|*
05186  M00S04555.profile +++|*         THIS ROUTINE SEARCHES THE SPECIFIED RANGE OF TABLE 2
05187  M00S04556.profile +++|*         FOR AN ENTRY HAVING A NON-*FULL* LEVEL-3 BLOCK.
05188  M00S04557.profile +++|*         BEGINNING OF SEARCH IS FWA OF TABLE 2.
05189  M00S04558.profile +++|*
05190  M00S04559.profile +++|*         ENTRY  (X5) = TABLE 2 INDEX OF END OF SEARCH + 1.
05191  M00S04560.profile +++|*                (X0) = FET ADDRESS TO READ FROM.
05192  M00S04561.profile +++|*
05193  M00S04562.profile +++|*         EXIT   (X0) = FWA OF LEVEL-3 ENTRY.
05194  M00S04563.profile +++|*                (RA3) = 0, IF NEW LEVEL-3 BLOCK.
05195  M00S04564.profile +++|*                      = LEVEL-3 RANDOM ADDRESS, ELSE.
05196  M00S04565.profile +++|*                (T3IE) = TABLE 3 INDEX OF ENTRY.
05197  M00S04566.profile +++|*
05198  M00S04567.profile +++|*         CALLS  ATS, RDB.
05199  M00S04568.profile +++|*
05200  M00S04569.profile +++|*         USES   ALL REGISTERS.
05201  M00S04570.profile +++|
05202  M00S04571.profile +++|
05203  M00S04572.profile +++| PDE      SUBR               ENTRY/EXIT
05204  M00S04573.profile +++|          BX6    X6-X6       EMPTY TABLE 3
05205  M00S04574.profile +++|          SA6    L.TAB3
05206  M00S04575.profile +++|          SB2    X5          SEARCH FOR NON-*FULL* LEVEL-3 BLOCK
05207  M00S04576.profile +++|          SB3    -C.TAB2     INITIALIZE POINTER
05208  M00S04577.profile +++|          SA2    F.TAB2
05209  M00S04578.profile +++| PDE1     SB3    B3+C.TAB2   ADVANCE POINTER
05210  M00S04579.profile +++|          EQ     B3,B2,PDE2  IF THRU SEARCH
05211  M00S04580.profile +++|          GT     B3,B2,ERD1  IF ERROR
05212  M00S04581.profile +++|          SA3    X2+B3       FIRST WORD OF ENTRY
05213  M00S04582.profile +++|          ZR     X3,PDE1     IF DELETED ENTRY
05214  M00S04583.profile +++|          SA3    A3+C.TAB2-1 LINK WORD OF ENTRY
05215  M00S04584.profile +++|          NG     X3,PDE1     IF NOT AVAILABLE
05216  M00S04585.profile +++|          MX4    1           SET ENTRY *FULL*
05217  M00S04586.profile +++|          BX6    X4+X3
05218  M00S04587.profile +++|          SA6    A3
05219  M00S04588.profile +++|          SX7    X3
05220  M00S04589.profile +++|          SA7    RA3
05221  M00S04590.profile +++|          RJ     RDB         READ DATA LEVEL BLOCK
05222  M00S04591.profile +++|          SA1    F.TAB3      CHECK ENTRY,S CONTROL WORD
05223  M00S04592.profile +++|          SA2    X1
05224  M00S04593.profile +++|          MX3    12
05225  M00S04594.profile +++|          BX4    X3*X2
05226  M00S04595.profile +++|          LX4    12
05227  M00S04596.profile +++|          SX4    X4-3
05228  M00S04597.profile +++|          NZ     X4,ERD14    IF ERROR
05229  M00S04598.profile +++|          LX3    -12
05230  M00S04599.profile +++|          BX3    X3*X2
05231  M00S04600.profile +++|          NZ     X3,ERD15    IF ERROR
05232  M00S04601.profile +++|          SX6    C.TAB3
05233  M00S04602.profile +++|          SA6    T3IE
05234  M00S04603.profile +++|          LX6    -24         UPDATE ENTRY,S WORD POINTER
05235  M00S04604.profile +++|          BX6    X2+X6
05236  M00S04605.profile +++|          SA6    A2
05237  M00S04606.profile +++|          SX0    X1+C.TAB3
05238  M00S04607.profile +++|          EQ     PDEX
05239  M00S04608.profile +++|
05240  M00S04609.profile +++| PDE2     BX6    X6-X6
05241  M00S04610.profile +++|          SA6    RA3
05242  M00S04611.profile +++|          SA6    T3IE
05243  M00S04612.profile +++|          ALLOC  TAB3,PRUS   ALLOCATE FOR FIRST LEVEL-3 BLOCK
05244  M00S04613.profile +++|          BX0    X2
05245  M00S04614.profile +++|          EQ     PDEX
05246  M00S04615.profile +++| PEI      SPACE  4,10
05247  M00S04616.profile +++|**        PEI - PROJECT ENTRY INITIALIZATION.
05248  M00S04617.profile +++|*
05249  M00S04618.profile +++|*         ENTRY  (PN - PN+1) = PROJECT NUMBER.
05250  M00S04619.profile +++|*                (SL) = LEVEL-2 RANDOM ADDRESS.
05251  M00S04620.profile +++|*
05252  M00S04621.profile +++|*         EXIT   (X4) = 0, IF ENTRY FOUND.
05253  M00S04622.profile +++|*                (X3) = FWA OF LEVEL-2 ENTRY, IF (X4) = 0.
05254  M00S04623.profile +++|*                (X5) = LEVEL-3 RANDOM ADDRESS, IF (X4) = 0.
05255  M00S04624.profile +++|*
05256  M00S04625.profile +++|*         CALLS  SBT.
05257  M00S04626.profile +++|*
05258  M00S04627.profile +++|*         USES   ALL REGISTERS.
05259  M00S04628.profile +++|
05260  M00S04629.profile +++|
05261  M00S04630.profile +++| PEI1     SX4    B1
05262  M00S04631.profile +++|          SA6    RA2         CLEAR LINKS
05263  M00S04632.profile +++|          SA6    A6+B1
05264  M00S04633.profile +++|
05265  M00S04634.profile +++| PEI      SUBR               ENTRY/EXIT
05266  M00S04635.profile +++|          BX6    X6-X6       EMPTY TABLE 2
05267  M00S04636.profile +++|          SA6    L.TAB2
05268  M00S04637.profile +++|          SA1    SL
05269  M00S04638.profile +++|          SB6    X1
05270  M00S04639.profile +++|          ZR     B6,PEI1     IF NO LEVEL-2 CHAIN
05271  M00S04640.profile +++|          SA0    B1+B1
05272  M00S04641.profile +++|          SX0    N
05273  M00S04642.profile +++|          SX6    PN
05274  M00S04643.profile +++|          SA6    SE
05275  M00S04644.profile +++|          FUNC   SBTT        SET BLOCK IN TABLE 2
05276  M00S04645.profile +++|          ZR     X6,PEIX     IF NO ERROR
05277  M00S04646.profile +++|          JP     ERD39
05278  M00S04647.profile +++| PVF      SPACE  4,10
05279  M00S04648.profile +++|**        PVF - PLACE DISPLAY CODE VALUE IN OUTPUT AND K-DISPLAY FIELD.
05280  M00S04649.profile +++|*
05281  M00S04650.profile +++|*         ENTRY  (X5) = TABLE OF INDICES ENTRY (TOI).
05282  M00S04651.profile +++|*                (A5) = ADDRESS OF TABLE OF INDICES ENTRY.
05283  M00S04652.profile +++|*                (X6) = DISPLAY CODE VALUE, LEFT JUSTIFIED
05284  M00S04653.profile +++|*                       WITH TRAILING SPACES.
05285  M00S04654.profile +++|*                (FLDV) = FIELD,S VALUE BEFORE CONVERSION (PERTINENT
05286  M00S04655.profile +++|*                         ONLY FOR NUMERIC DIRECTIVES).
05287  M00S04656.profile +++|*
05288  M00S04657.profile +++|*         CALLS  CDD, CFD, CIV.
05289  M00S04658.profile +++|*
05290  M00S04659.profile +++|*         USES   ALL REGISTERS EXCEPT A0, X0, A5.
05291  M00S04660.profile +++|
05292  M00S04661.profile +++|
05293  M00S04662.profile +++| PVF2     RJ     CFD         F10.3 DISPLAY CODE CONVERSION
05294  M00S04663.profile +++| PVF3     MX1    -12         BRACKET WITH *(* AND *)*
05295  M00S04664.profile +++|          LX6    12
05296  M00S04665.profile +++|          BX6    X1*X6
05297  M00S04666.profile +++|          SX2    2R)(
05298  M00S04667.profile +++|          BX6    X2+X6
05299  M00S04668.profile +++|          LX6    -6
05300  M00S04669.profile +++| PVF4     SA6    X5+B1
05301  M00S04670.profile +++|          LX5    18
05302  M00S04671.profile +++|          SA6    X5+B1
05303  M00S04672.profile +++|
05304  M00S04673.profile +++| PVF      SUBR               ENTRY/EXIT
05305  M00S04674.profile +++|          SA4    A5
05306  M00S04675.profile +++|          SA3    FLDV        FIELD VALUE
05307  M00S04676.profile +++|          LX4    4
05308  M00S04677.profile +++|          PL     X4,PVF1     IF ZERO VALUE NOT UNLIMITED
05309  M00S04678.profile +++|          NZ     X3,PVF1     IF NOT UNLIMITED
05310  M00S04679.profile +++|          SA1    =10H(NO LIMIT)
05311  M00S04680.profile +++|          BX6    X1
05312  M00S04681.profile +++| PVF1     SA6    X5
05313  M00S04682.profile +++|          LX5    -18
05314  M00S04683.profile +++|          SA6    X5
05315  M00S04684.profile +++|          MX7    -2
05316  M00S04685.profile +++|          BX7    -X7*X4
05317  M00S04686.profile +++|          ZR     X7,PVFX     IF NOT INDEX DIRECTIVE
05318  M00S04687.profile +++|          LX4    -4
05319  M00S04688.profile +++|          RJ     CIV         CONVERT INDEX TO VALUE
05320  M00S04689.profile +++|          SX6    X6-1
05321  M00S04690.profile +++|          ZR     X6,PVF2     IF METHOD 1 USED TO CONVERT INDEX
05322  M00S04691.profile +++|          SA2    =10H(NO LIMIT)
05323  M00S04692.profile +++|          BX6    X2
05324  M00S04693.profile +++|          NG     X1,PVF4     IF UNLIMITED
05325  M00S04694.profile +++|          RJ     CDD         DECIMAL DISPLAY CODE CONVERSION
05326  M00S04695.profile +++|          EQ     PVF3
05327  M00S04696.profile +++| RDB      SPACE  4,10
05328  M00S04697.profile +++|**        RDB - READ DATA LEVEL BLOCK INTO TABLE 3.
05329  M00S04698.profile +++|*
05330  M00S04699.profile +++|*         BLOCK IS APPENDED TO END OF TABLE, AND TABLE LENGTH UPDATED.
05331  M00S04700.profile +++|*
05332  M00S04701.profile +++|*         ENTRY  (X7) = RANDOM ADDRESS OF BLOCK TO READ.
05333  M00S04702.profile +++|*                (X0) = FET ADDRESS TO READ FROM.
05334  M00S04703.profile +++|*
05335  M00S04704.profile +++|*         EXIT   (X5) = FWA NEW LEVEL-3 BLOCK.
05336  M00S04705.profile +++|*
05337  M00S04706.profile +++|*         CALLS  ATS, RDW, WNB.
05338  M00S04707.profile +++|*
05339  M00S04708.profile +++|*         USES   ALL REGISTERS.
05340  M00S04709.profile +++|
05341  M00S04710.profile +++|
05342  M00S04711.profile +++| RDB      SUBR               ENTRY/EXIT
05343  M00S04712.profile +++|          ZR     X7,ERD23    IF ERROR
05344  M00S04713.profile +++|          RECALL X0
05345  M00S04714.profile +++|          SA7    X0+6
05346  M00S04715.profile +++|          READ   X0
05347  M00S04716.profile +++|          SA5    L.TAB3
05348  M00S04717.profile +++|          ALLOC  TAB3,PRUS   ALLOCATE FOR LEVEL-3 BLOCK
05349  M00S04718.profile +++|          IX5    X2+X5
05350  M00S04719.profile +++|          READW  X0,X5,PRUS
05351  M00S04720.profile +++|          ZR     X1,RDBX     IF READ COMPLETE
05352  M00S04721.profile +++|          JP     ERD25       ERROR
05353  M00S04722.profile +++| SFC      SPACE  4,10
05354  M00S04723.profile +++|**        SFC - CHARGE ENTRY SPECIAL FIELDS FOR OUTPUT AND K-DISPLAY.
05355  M00S04724.profile +++|*
05356  M00S04725.profile +++|*         ENTRY  (X3) = FWA OF CHARGE ENTRY.
05357  M00S04726.profile +++|*
05358  M00S04727.profile +++|*         CALLS  CDD.
05359  M00S04728.profile +++|*
05360  M00S04729.profile +++|*         USES   ALL REGISTERS EXCEPT A0, X0.
05361  M00S04730.profile +++|
05362  M00S04731.profile +++|
05363  M00S04732.profile +++| SFC      SUBR               ENTRY/EXIT
05364  M00S04733.profile +++|          SA5    X3+CDTW     CREATION DATE
05365  M00S04734.profile +++|          LX5    18
05366  M00S04735.profile +++|          SX1    X5
05367  M00S04736.profile +++|          EDATE  X1
05368  M00S04737.profile +++|          SA6    CEOC
05369  M00S04738.profile +++|          SA6    DSCC+2
05370  M00S04739.profile +++|          SA1    =10H UNDEFINED  *CEX*
05371  M00S04740.profile +++|          BX6    X1
05372  M00S04741.profile +++|          LX5    18
05373  M00S04742.profile +++|          SX1    X5
05374  M00S04743.profile +++|          ZR     X1,SFC1     IF ZERO VALUE
05375  M00S04744.profile +++|          EDATE  X1
05376  M00S04745.profile +++| SFC1     SA6    CEOD
05377  M00S04746.profile +++|          SA6    DSCE+2
05378  M00S04747.profile +++|          SA1    =10H*ACTIVE*
05379  M00S04748.profile +++|          SA5    A5-CDTW+CSRW
05380  M00S04749.profile +++|          PL     X5,SFC2     IF *ACTIVE*
05381  M00S04750.profile +++|          SA1    =10H*INACTIVE*
05382  M00S04751.profile +++| SFC2     BX6    X1
05383  M00S04752.profile +++|          SA6    CEOE
05384  M00S04753.profile +++|          SA6    DSCA+1
05385  M00S04754.profile +++|          LX5    30          PROJECT COUNT
05386  M00S04755.profile +++|          MX1    -12
05387  M00S04756.profile +++|          BX1    -X1*X5
05388  M00S04757.profile +++|          RJ     CDD         DECIMAL DISPLAY CODE CONVERSION
05389  M00S04758.profile +++|          BX6    X4
05390  M00S04759.profile +++|          SA6    CEOF
05391  M00S04760.profile +++|          SA6    DSCO+2
05392  M00S04761.profile +++|          EQ     SFCX
05393  M00S04762.profile +++| SFP      SPACE  4,10
05394  M00S04763.profile +++|**        SFP - PROJECT ENTRY SPECIAL FIELDS FOR OUTPUT AND K-DISPLAY.
05395  M00S04764.profile +++|*
05396  M00S04765.profile +++|*         ENTRY  (A5) = FWA OF PROJECT ENTRY.
05397  M00S04766.profile +++|*
Line S04767 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05398  M01S04767.ns22000 ---|*         CALLS  ETM.
Line S00246 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05399  M01S00246.ns22000 +++|*         CALLS  ETM, SFN.
05400  M00S04768.profile +++|*
05401  M00S04769.profile +++|*         USES   ALL REGISTERS EXCEPT A0, X0.
05402  M00S04770.profile +++|
05403  M00S04771.profile +++|
05404  M00S04772.profile +++| SFP      SUBR               ENTRY/EXIT
05405  M00S04773.profile +++|          SA5    A5+PCDW     CREATION DATE
05406  M00S04774.profile +++|          LX5    18
05407  M00S04775.profile +++|          SX1    X5
05408  M00S04776.profile +++|          EDATE  X1
05409  M00S04777.profile +++|          SA6    PEOB
05410  M00S04778.profile +++|          SA6    DSPC+2
05411  M00S04779.profile +++|          SA1    =10H UNDEFINED  *PEX*
05412  M00S04780.profile +++|          BX6    X1
05413  M00S04781.profile +++|          LX5    18
05414  M00S04782.profile +++|          SX1    X5
05415  M00S04783.profile +++|          ZR     X1,SFP1     IF ZERO VALUE
05416  M00S04784.profile +++|          EDATE  X1
05417  M00S04785.profile +++| SFP1     SA6    PEOG
05418  M00S04786.profile +++|          SA6    DSPE+2
05419  M00S04787.profile +++|          SA1    =10H UNDEFINED  LAST UPDATE TIME
05420  M00S04788.profile +++|          BX6    X1
05421  M00S04789.profile +++|          SA5    A5-PCDW+PUDW
05422  M00S04790.profile +++|          SX1    X5
05423  M00S04791.profile +++|          ZR     X1,SFP2     IF ZERO VALUE
05424  M00S04792.profile +++|          ETIME  X1
05425  M00S04793.profile +++| SFP2     SA6    PEOE
05426  M00S04794.profile +++|          SA6    DSUT+2
05427  M00S04795.profile +++|          SA1    =10H UNDEFINED  LAST UPDATE DATE
05428  M00S04796.profile +++|          BX6    X1
05429  M00S04797.profile +++|          AX5    18
05430  M00S04798.profile +++|          ZR     X5,SFP3     IF ZERO VALUE
05431  M00S04799.profile +++|          EDATE  X5
05432  M00S04800.profile +++| SFP3     SA6    PEOD
05433  M00S04801.profile +++|          SA6    DSUD+2
05434  M00S04802.profile +++|          SA1    =10H UNDEFINED  LAST CHANGE DATE
05435  M00S04803.profile +++|          BX6    X1
05436  M00S04804.profile +++|          SA5    A5-PUDW+PCGW
05437  M00S04805.profile +++|          LX5    -36
05438  M00S04806.profile +++|          SX1    X5
05439  M00S04807.profile +++|          ZR     X1,SFP4     IF ZERO VALUE
05440  M00S04808.profile +++|          EDATE  X1
05441  M00S04809.profile +++| SFP4     SA6    PEOC
05442  M00S04810.profile +++|          SA6    DSLC+2
05443  M00S04811.profile +++|          SA1    =10H*ACTIVE*
05444  M00S04812.profile +++|          SA5    A5-PCGW+PTMW
05445  M00S04813.profile +++|          PL     X5,SFP5     IF *ACTIVE*
05446  M00S04814.profile +++|          SA1    =10H*INACTIVE*
05447  M00S04815.profile +++| SFP5     BX6    X1
05448  M00S04816.profile +++|          SA6    PEOF
05449  M00S04817.profile +++|          SA6    DSPA+1
05450  M00S04818.profile +++|          SX1    X5          TIME OFF
05451  M00S04819.profile +++|          RJ     ETM         EDIT TIME
05452  M00S04820.profile +++|          SA6    PEOI
05453  M00S04821.profile +++|          SA6    DSOF+1
05454  M00S04822.profile +++|          LX5    -18
05455  M00S04823.profile +++|          SX1    X5          TIME IN
05456  M00S04824.profile +++|          RJ     ETM         EDIT TIME
05457  M00S04825.profile +++|          SA6    PEOH
05458  M00S04826.profile +++|          SA6    DSIN+1
Line S00247 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05459  M01S00247.ns22000 +++|          SA5    A5-PTMW+PPNW  GET PROLOGUE CHARGE REQUIRED OPTION
05460  M01S00248.ns22000 +++|          MX2    -2
05461  M01S00249.ns22000 +++|          BX1    -X2*X5
05462  M01S00250.ns22000 +++|          SA1    TPCO+X1
05463  M01S00251.ns22000 +++|          RJ     SFN         SPACE FILL NAME
05464  M01S00252.ns22000 +++|          SA6    PEZN
05465  M01S00253.ns22000 +++|          SA6    DSPO+1
05466  M01S00254.ns22000 +++|          SA5    A5-PPNW+PPPW  GET PROJECT PROLOGUE PASSWORD
05467  M01S00255.ns22000 +++|          MX2    42
05468  M01S00256.ns22000 +++|          BX1    X2*X5
05469  M01S00257.ns22000 +++|          SA4    =10H
05470  M01S00258.ns22000 +++|          ZR     X1,SFP6     IF NO PROJECT PROLOGUE PASSWORD DEFINED
05471  M01S00259.ns22000 +++|          SA4    =10H*******
05472  M01S00260.ns22000 +++| SFP6     BX6    X4
05473  M01S00261.ns22000 +++|          SA6    PEZL
05474  M01S00262.ns22000 +++|          SA6    DSPP+1
05475  M01S00263.ns22000 +++|          SA5    A5-PPPW+PEPW  GET PROJECT EPILOGUE PASSWORD
05476  M01S00264.ns22000 +++|          BX1    X2*X5
05477  M01S00265.ns22000 +++|          SA4    =10H
05478  M01S00266.ns22000 +++|          ZR     X1,SFP7     IF NO PROJECT EPILOGUE PASSWORD DEFINED
05479  M01S00267.ns22000 +++|          SA4    =10H*******
05480  M01S00268.ns22000 +++| SFP7     BX6    X4
05481  M01S00269.ns22000 +++|          SA6    PEZM
05482  M01S00270.ns22000 +++|          SA6    DSEP+1
05483  M00S04827.profile +++|          EQ     SFPX
05484  M00S04828.profile +++| SUN      SPACE  4,15
Line S04829 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05485  M01S04829.v23l617 ---|**        SUN - SORT USER NUMBERS.
Line S00216 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05486  M01S00216.v23l617 +++|**        SUN - SORT USER NAMES.
05487  M00S04830.profile +++|*
05488  M00S04831.profile +++|*         ENTRY  FIRST LEVEL-3 BLOCK IN TABLE 3.
05489  M00S04832.profile +++|*                (T3IE) = INDEX OF PROJECT ENTRY IN TABLE 3.
05490  M00S04833.profile +++|*
Line S04834 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05491  M01S04834.v23l617 ---|*         EXIT   (X6) = 0, IF NO USER NUMBERS.
Line S00217 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05492  M01S00217.v23l617 +++|*         EXIT   (X6) = 0, IF NO USER NAMES.
05493  M00S04835.profile +++|*
05494  M00S04836.profile +++|*         USES   A - 0, 1, 2, 3, 4, 6, 7.
05495  M00S04837.profile +++|*                B - 2, 3, 4, 6, 7.
05496  M00S04838.profile +++|*                X - 0, 1, 2, 3, 4, 6, 7.
05497  M00S04839.profile +++|*
05498  M00S04840.profile +++|*         CALLS  RDB, STB.
05499  M00S04841.profile +++|
05500  M00S04842.profile +++|
05501  M00S04843.profile +++| SUN      SUBR               ENTRY/EXIT
05502  M00S04844.profile +++|
05503  M00S04845.profile +++|*         READ IN ALL LEVEL-3 OVERFLOW BLOCKS.
05504  M00S04846.profile +++|
05505  M00S04847.profile +++|          SA1    F.TAB3      GET RANDOM ADDRESS OF FIRST OVERFLOW BLOCK
05506  M00S04848.profile +++|          SA2    T3IE
05507  M00S04849.profile +++|          IX2    X1+X2
05508  M00S04850.profile +++|          SA1    X2
05509  M00S04851.profile +++| SUN1     SX7    X1+
05510  M00S04852.profile +++|          ZR     X7,SUN2     IF NO MORE OVERFLOW BLOCKS
05511  M00S04853.profile +++|          SX0    N
05512  M00S04854.profile +++|          RJ     RDB         READ LEVEL-3 OVERFLOW BLOCK
05513  M00S04855.profile +++|          SA1    X5          GET RANDOM ADDRESS OF NEXT OVERFLOW BLOCK
05514  M00S04856.profile +++|          EQ     SUN1        CONTINUE READING OVERFLOW BLOCKS
05515  M00S04857.profile +++|
Line S04858 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05516  M01S04858.v23l617 ---|*         PACK USER NUMBERS IN TABLE 3.
Line S00218 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05517  M01S00218.v23l617 +++|*         PACK USER NAMES IN TABLE 3.
05518  M00S04859.profile +++|
05519  M00S04860.profile +++| SUN2     SA4    F.TAB3      FWA TABLE 3
05520  M00S04861.profile +++|          SA2    T3IE        PROJECT ENTRY INDEX IN TABLE 3
05521  M00S04862.profile +++|          SA3    L.TAB3      LENGTH TABLE 3
05522  M00S04863.profile +++|          SB3    PUNW-1+X2
05523  M00S04864.profile +++|          SB2    X4
05524  M00S04865.profile +++|          SB4    X4+PRUS     FWA FIRST OVERFLOW BLOCK
Line S04866 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05525  M01S04866.v23l617 ---|          SB3    X4+B3       FWA-1 USER NUMBERS IN FIRST BLOCK
Line S00219 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05526  M01S00219.v23l617 +++|          SB3    X4+B3       FWA-1 USER NAMES IN FIRST BLOCK
05527  M00S04867.profile +++|          IX1    X4+X3
Line S04868 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05528  M01S04868.v23l617 ---|          SB6    B3+NUNS+1   LWA+1 USER NUMBERS IN FIRST BLOCK
Line S00220 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05529  M01S00220.v23l617 +++|          SB6    B3+NUNS+1   LWA+1 USER NAMES IN FIRST BLOCK
05530  M00S04869.profile +++|          SB7    X1          LWA+1 TABLE 3
05531  M00S04870.profile +++| SUN3     SB3    B3+B1
Line S04871 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05532  M01S04871.v23l617 ---|          GE     B3,B6,SUN4  IF END OF USER NUMBERS IN THIS BLOCK
Line S00221 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05533  M01S00221.v23l617 +++|          GE     B3,B6,SUN4  IF END OF USER NAMES IN THIS BLOCK
05534  M00S04872.profile +++|          SA1    B3
05535  M00S04873.profile +++|          ZR     X1,SUN3     IF EMPTY ENTRY
05536  M00S04874.profile +++|          SX2    X1
05537  M00S04875.profile +++|          BX6    X1
Line S04876 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05538  M01S04876.v23l617 ---|          NZ     X2,SUN5     IF END OF USER NUMBERS
Line S00222 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05539  M01S00222.v23l617 +++|          NZ     X2,SUN5     IF END OF USER NAMES
05540  M00S04877.profile +++|          SA6    B2
05541  M00S04878.profile +++|          SB2    B2+B1
Line S04879 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05542  M01S04879.v23l617 ---|          EQ     SUN3        CONTINUE PACKING USER NUMBERS
Line S00223 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05543  M01S00223.v23l617 +++|          EQ     SUN3        CONTINUE PACKING USER NAMES
05544  M00S04880.profile +++|
Line S04881 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05545  M01S04881.v23l617 ---| SUN4     SB3    B4          FWA-1 USER NUMBERS IN NEXT OVERFLOW BLOCK
Line S00224 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05546  M01S00224.v23l617 +++| SUN4     SB3    B4          FWA-1 USER NAMES IN NEXT OVERFLOW BLOCK
05547  M00S04882.profile +++|          SB4    B4+PRUS
Line S04883 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05548  M01S04883.v23l617 ---|          SB6    B4          LWA+1 USER NUMBERS IN NEXT OVERFLOW BLOCK
Line S00225 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05549  M01S00225.v23l617 +++|          SB6    B4          LWA+1 USER NAMES IN NEXT OVERFLOW BLOCK
05550  M00S04884.profile +++|          LT     B3,B7,SUN3  IF NOT END OF TABLE 3
05551  M00S04885.profile +++| SUN5     SX6    B2          SET LENGTH OF TABLE 3
05552  M00S04886.profile +++|          IX6    X6-X4
05553  M00S04887.profile +++|          SA6    A3
05554  M00S04888.profile +++|          SX7    B1
Line S04889 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05555  M01S04889.v23l617 ---|          ZR     X6,SUNX     IF NO USER NUMBERS
Line S00226 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05556  M01S00226.v23l617 +++|          ZR     X6,SUNX     IF NO USER NAMES
05557  M00S04890.profile +++|
Line S04891 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05558  M01S04891.v23l617 ---|*         SORT USER NUMBERS IN TABLE 3.
Line S00227 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
05559  M01S00227.v23l617 +++|*         SORT USER NAMES IN TABLE 3.
05560  M00S04892.profile +++|
05561  M00S04893.profile +++|          SA7    CTAB+3      SET 1 WORD PER ENTRY FOR TABLE 3
05562  M00S04894.profile +++|          SA0    3
05563  M00S04895.profile +++|          FUNC   STBT        SORT TABLE 3
05564  M00S04896.profile +++|          SX6    C.TAB3      RESET WORDS PER ENTRY FOR TABLE 3
05565  M00S04897.profile +++|          SA6    CTAB+3
05566  M00S04898.profile +++|          EQ     SUNX        RETURN
05567  M00S04899.profile +++| TOI      SPACE  4,10
05568  M00S04900.profile +++|**        TOI - TABLES OF DIRECTIVE INDICES.
05569  M00S04901.profile +++|*
05570  M00S04902.profile +++|*         END OF EACH TABLE IS DENOTED BY A ZERO WORD.
05571  M00S04903.profile +++|*         EACH TABLE ENTRY HAS THE FOLLOWING FORMAT-
05572  M00S04904.profile +++|*                2/A, 2/B, 1/L, 7/, 12/C, 18/D, 18/E
05573  M00S04905.profile +++|*                WHERE
05574  M00S04906.profile +++|*                A = 0, IF NO CONVERSION.
05575  M00S04907.profile +++|*                  = 1, IF OCTAL CONVERSION.
05576  M00S04908.profile +++|*                  = 2, IF DECIMAL CONVERSION.
05577  M00S04909.profile +++|*                B = 0, IF NOT INDEX DIRECTIVE.
05578  M00S04910.profile +++|*                  = 1, IF USE METHOD 1 TO CONVERT INDEX (SEE *CIV*
05579  M00S04911.profile +++|*                    DOCUMENTATION). ALSO, DISPLAY CODE IN F10.3 FORMAT.
05580  M00S04912.profile +++|*                  = 2, IF USE METHOD 2 TO CONVERT INDEX (SEE *CIV*
05581  M00S04913.profile +++|*                    DOCUMENTATION). ALSO, DISPLAY CODE IN I10 FORMAT.
05582  M00S04914.profile +++|*                  = 3, IF USE METHOD 3 TO CONVERT INDEX (SEE *CIV*
05583  M00S04915.profile +++|*                    DOCUMENTATION). ALSO, DISPLAY CODE IN I10 FORMAT.
05584  M00S04916.profile +++|*                L = 1, IF ZERO VALUE SPECIFIES NO LIMIT.
05585  M00S04917.profile +++|*                C = TABLE INDEX.
05586  M00S04918.profile +++|*                D = ADDRESS FOR VALUE FOR K-DISPLAY.
05587  M00S04919.profile +++|*                E = ADDRESS FOR VALUE FOR OUTPUT.
05588  M00S04920.profile +++|*         RESTRICTIONS-
05589  M00S04921.profile +++|*         1) ENTRIES FOR DIRECTIVES *M1* THRU *AD*, AND *ISL* THRU
05590  M00S04922.profile +++|*            *IR8*, MUST BE IN GIVEN ORDER AND STARTING AT *TIM1* AND
05591  M00S04923.profile +++|*            *TISL*, RESPECTIVELY.
05592  M00S04924.profile +++|
05593  M00S04925.profile +++|
05594  M00S04926.profile +++| TOI      BSS    0
05595  M00S04927.profile +++|
05596  M00S04928.profile +++|*         CHARGE ENTRY INDICES.
05597  M00S04929.profile +++|
05598  M00S04930.profile +++| TOIA     BSS    0
05599  M00S04931.profile +++|          VFD    2/0,2/0,8/,12/XMUN,18/DSMU+1,18/CEOG     *MU*
05600  M00S04932.profile +++| TOIB     BSS    0
05601  M00S04933.profile +++| TIM1     VFD    2/1,2/1,8/,12/XIM1,18/DSM1+1,18/CEZK     *M1*
05602  M00S04934.profile +++|          VFD    2/1,2/1,8/,12/XIM2,18/DSM2+1,18/CEZL     *M2*
05603  M00S04935.profile +++|          VFD    2/1,2/1,8/,12/XIM3,18/DSM3+1,18/CEZM     *M3*
05604  M00S04936.profile +++|          VFD    2/1,2/1,8/,12/XIM4,18/DSM4+1,18/CEZN     *M4*
05605  M00S04937.profile +++|          VFD    2/1,2/1,8/,12/XIAD,18/DSAD+1,18/CEZO     *AD*
05606  M00S04938.profile +++| TISL     VFD    2/1,2/3,8/,12/XISL,18/DSSL+1,18/CEOS     *ISL*
05607  M00S04939.profile +++|          VFD    2/1,2/2,8/,12/XIR1,18/DSR1+1,18/CEOU     *IR1*
05608  M00S04940.profile +++|          VFD    2/1,2/2,8/,12/XIR2,18/DSR2+1,18/CEOW     *IR2*
05609  M00S04941.profile +++|          VFD    2/1,2/2,8/,12/XIR3,18/DSR3+1,18/CEOY     *IR3*
05610  M00S04942.profile +++|          VFD    2/1,2/2,8/,12/XIR4,18/DSR4+1,18/CEZB     *IR4*
05611  M00S04943.profile +++|          VFD    2/1,2/2,8/,12/XIR5,18/DSR5+1,18/CEZD     *IR5*
05612  M00S04944.profile +++|          VFD    2/1,2/2,8/,12/XIR6,18/DSR6+1,18/CEZF     *IR6*
05613  M00S04945.profile +++|          VFD    2/1,2/2,8/,12/XIR7,18/DSR7+1,18/CEZH     *IR7*
05614  M00S04946.profile +++|          VFD    2/1,2/2,8/,12/XIR8,18/DSR8+1,18/CEZJ     *IR8*
05615  M00S04947.profile +++|          VFD    2/2,2/0,1/1,7/,12/XPCL,18/DSPL+1,18/CEOH *PCL*
05616  M00S04948.profile +++|          CON    0           END OF TABLE
05617  M00S04949.profile +++|
05618  M00S04950.profile +++|*         PROJECT ENTRY INDICES.
05619  M00S04951.profile +++|
05620  M00S04952.profile +++| TOIC     BSS    0
05621  M00S04953.profile +++|          VFD    2/0,2/0,8/,12/XTIN,18/DSIN+1,18/PEOH     *TI*
05622  M00S04954.profile +++|          VFD    2/0,2/0,8/,12/XTOF,18/DSOF+1,18/PEOI     *TO*
05623  M00S04955.profile +++| TOID     BSS    0
Line S00271 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05624  M01S00271.ns22000 +++|          VFD    2/0,2/0,8/,12/XPFN,18/DSPF+1,18/PEZH     *PFN*
05625  M01S00272.ns22000 +++|          VFD    2/0,2/0,8/,12/XPUN,18/DSPU+1,18/PEZJ     *PUN*
05626  M01S00273.ns22000 +++|          VFD    2/0,2/0,8/,12/XEFN,18/DSEF+1,18/PEZI     *EFN*
05627  M01S00274.ns22000 +++|          VFD    2/0,2/0,8/,12/XEUN,18/DSEU+1,18/PEZK     *EUN*
05628  M01S00275.ns22000 +++| TOIE     BSS    0
05629  M00S04956.profile +++|          VFD    2/1,2/3,8/,12/XISV,18/DSSV+1,18/PEOJ     *ISV*
05630  M00S04957.profile +++|          VFD    2/2,2/0,1/1,7/,12/XSML,18/DSML+1,18/PEOL *SML*
05631  M00S04958.profile +++|          VFD    2/2,2/0,8/,12/XSMA,18/DSMA+1,18/PEOM     *SMA*
05632  M00S04959.profile +++|          VFD    2/2,2/0,1/1,7/,12/XSIL,18/DSIL+1,18/PEON *SIL*
05633  M00S04960.profile +++|          VFD    2/2,2/0,8/,12/XSIA,18/DSIA+1,18/PEOO     *SIA*
05634  M00S04961.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR1,18/DSL1+1,18/PEOP *LR1*
05635  M00S04962.profile +++|          VFD    2/2,2/0,8/,12/XAR1,18/DSA1+1,18/PEOQ     *AR1*
05636  M00S04963.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR2,18/DSL2+1,18/PEOR *LR2*
05637  M00S04964.profile +++|          VFD    2/2,2/0,8/,12/XAR2,18/DSA2+1,18/PEOS     *AR2*
05638  M00S04965.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR3,18/DSL3+1,18/PEOT *LR3*
05639  M00S04966.profile +++|          VFD    2/2,2/0,8/,12/XAR3,18/DSA3+1,18/PEOU     *AR3*
05640  M00S04967.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR4,18/DSL4+1,18/PEOV *LR4*
05641  M00S04968.profile +++|          VFD    2/2,2/0,8/,12/XAR4,18/DSA4+1,18/PEOW     *AR4*
05642  M00S04969.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR5,18/DSL5+1,18/PEOX *LR5*
05643  M00S04970.profile +++|          VFD    2/2,2/0,8/,12/XAR5,18/DSA5+1,18/PEOY     *AR5*
05644  M00S04971.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR6,18/DSL6+1,18/PEZA *LR6*
05645  M00S04972.profile +++|          VFD    2/2,2/0,8/,12/XAR6,18/DSA6+1,18/PEZB     *AR6*
05646  M00S04973.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR7,18/DSL7+1,18/PEZC *LR7*
05647  M00S04974.profile +++|          VFD    2/2,2/0,8/,12/XAR7,18/DSA7+1,18/PEZD     *AR7*
05648  M00S04975.profile +++|          VFD    2/2,2/0,1/1,7/,12/XLR8,18/DSL8+1,18/PEZE *LR8*
05649  M00S04976.profile +++|          VFD    2/2,2/0,8/,12/XAR8,18/DSA8+1,18/PEZF     *AR8*
05650  M00S04977.profile +++|          CON    0           END OF TABLE
Line S00276 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
05651  M01S00276.ns22000 +++|
05652  M01S00277.ns22000 +++|*         PROJECT PROLOGUE/EPILOGUE FILE PASSWORDS.
05653  M01S00278.ns22000 +++|
05654  M01S00279.ns22000 +++| TOIF     BSS    0
05655  M01S00280.ns22000 +++|          VFD    2/0,2/0,8/,12/XPPW,18/DSPP+1,18/PEZL     *PPW*
05656  M01S00281.ns22000 +++|          VFD    2/0,2/0,8/,12/XEPW,18/DSEP+1,18/PEZM     *EPW*
05657  M01S00282.ns22000 +++|          CON    0           END OF TABLE
05658  M00S04978.profile +++| TVC      SPACE  4,10
05659  M00S04979.profile +++|**        TCSM - TABLE FOR CALCULATING SRU MULTIPLIER FROM INDEX.
05660  M00S04980.profile +++|*
05661  M00S04981.profile +++|*         TABLE ENTRIES MUST MATCH WITH TABLE *TOI* ENTRIES
05662  M00S04982.profile +++|*         STARTING AT *TIM1*.
05663  M00S04983.profile +++|*         EACH TABLE ENTRY HAS THE FOLLOWING FORMAT-
05664  M00S04984.profile +++|*                6/0, 18/F, 18/U, 18/L
05665  M00S04985.profile +++|*                WHERE
05666  M00S04986.profile +++|*                U = UPPER LIMIT VALUE.
05667  M00S04987.profile +++|*                L = LOWER LIMIT VALUE.
05668  M00S04988.profile +++|*                F = POSITIONING FACTOR FOR F10.3 DISPLAY CONVERSION.
05669  M00S04989.profile +++|
05670  M00S04990.profile +++|
05671  M00S04991.profile +++| TCSM     BSS    0
05672  M00S04992.profile +++|          VFD    6/0,18/100,18/M1SU,18/M1SL   *M1*
05673  M00S04993.profile +++|          VFD    6/0,18/1,18/M2SU,18/M2SL     *M2*
05674  M00S04994.profile +++|          VFD    6/0,18/1,18/M3SU,18/M3SL     *M3*
05675  M00S04995.profile +++|          VFD    6/0,18/1,18/M4SU,18/M4SL     *M4*
05676  M00S04996.profile +++|          VFD    6/0,18/1000,18/MASU,18/MASL  *AD*
05677  M00S04997.profile +++|          SPACE  4
05678  M00S04998.profile +++|**        TDSM - TABLE OF DEFAULT SRU MULTIPLIERS IN POSITION FOR
05679  M00S04999.profile +++|*         F10.3 DISPLAY CONVERSION.
05680  M00S05000.profile +++|
05681  M00S05001.profile +++|
05682  M00S05002.profile +++| TDSM     BSS    0
05683  M00S05003.profile +++|          CON    M1SR*100    *M1*
05684  M00S05004.profile +++|          CON    M2SR        *M2*
05685  M00S05005.profile +++|          CON    M3SR        *M3*
05686  M00S05006.profile +++|          CON    M4SR        *M4*
05687  M00S05007.profile +++|          CON    ADSR*1000   *AD*
05688  M00S05008.profile +++| UPC      SPACE  4,10
05689  M00S05009.profile +++|**        UPC - UPDATE PROJECT COUNT.
05690  M00S05010.profile +++|*
05691  M00S05011.profile +++|*         PROJECT COUNT IN LEVEL-1 ENTRY IS INCREMENTED IF DIRECTIVE
05692  M00S05012.profile +++|*         IS *APN* AND DECREMENTED IF *DPN*.
05693  M00S05013.profile +++|*
05694  M00S05014.profile +++|*         ENTRY  (X1) = TABLE INDEX.
05695  M00S05015.profile +++|*
05696  M00S05016.profile +++|*         EXIT   (X4) = UPDATED PROJECT COUNT.
05697  M00S05017.profile +++|*                (X6) = UPDATED PROJECT COUNT WORD.
05698  M00S05018.profile +++|*                (A2) = PROJECT COUNT WORD ADDRESS.
05699  M00S05019.profile +++|*
05700  M00S05020.profile +++|*         USES   X - 2, 3.
05701  M00S05021.profile +++|*                A - 3.
05702  M00S05022.profile +++|*                B - 2.
05703  M00S05023.profile +++|
05704  M00S05024.profile +++|
05705  M00S05025.profile +++| UPC1     BX6    X3*X2       UPDATE PROJECT COUNT WORD
05706  M00S05026.profile +++|          BX6    X4+X6
05707  M00S05027.profile +++|          LX6    30
05708  M00S05028.profile +++|
05709  M00S05029.profile +++| UPC      SUBR               ENTRY/EXIT
05710  M00S05030.profile +++|          SA2    F.TAB1      EXTRACT CURRENT PROJECT COUNT
05711  M00S05031.profile +++|          SA3    T1IE
05712  M00S05032.profile +++|          IX2    X2+X3
05713  M00S05033.profile +++|          SA2    X2+CSRW
05714  M00S05034.profile +++|          LX2    -30
05715  M00S05035.profile +++|          MX3    -12
05716  M00S05036.profile +++|          BX4    -X3*X2
05717  M00S05037.profile +++|          SX4    X4+B1       PRESET INCREMENT OF PROJECT COUNT
05718  M00S05038.profile +++|          SB2    X1-XAPN
05719  M00S05039.profile +++|          ZR     B2,UPC1     IF *APN*
05720  M00S05040.profile +++|          SX4    X4-2        DECREMENT PROJECT COUNT
05721  M00S05041.profile +++|          PL     X4,UPC1     IF NO ERROR
05722  M00S05042.profile +++|          JP     ERD3
05723  M00S05043.profile +++| VMU      SPACE  4,10
05724  M00S05044.profile +++|**        VMU - VALIDATE FOR MASTER USER.
05725  M00S05045.profile +++|*
05726  M00S05046.profile +++|*         VALIDATE USER,S ACCESS TO CHARGE NUMBER.
05727  M00S05047.profile +++|*
05728  M00S05048.profile +++|*         ENTRY  (X3) = FWA OF CHARGE ENTRY.
05729  M00S05049.profile +++|*
05730  M00S05050.profile +++|*         EXIT   (X1) = 0, IF VALIDATION OK.
05731  M00S05051.profile +++|*
05732  M00S05052.profile +++|*         USES   X - 2.
05733  M00S05053.profile +++|*                A - 1, 2.
05734  M00S05054.profile +++|
05735  M00S05055.profile +++|
05736  M00S05056.profile +++| VMU1     SX1    0           VALIDATION OK
05737  M00S05057.profile +++|
05738  M00S05058.profile +++| VMU      SUBR               ENTRY/EXIT
05739  M00S05059.profile +++|          SA1    ACCC        ACCESS CLASSIFICATION
05740  M00S05060.profile +++|          SX1    X1-2
05741  M00S05061.profile +++|          NG     X1,VMU1     IF NO NEED TO CHECK FOR MASTER USER
05742  M00S05062.profile +++|          SA1    X3+CMUW
05743  M00S05063.profile +++|          MX2    42
05744  M00S05064.profile +++|          BX1    X2*X1
05745  M00S05065.profile +++|          SA2    UN
05746  M00S05066.profile +++|          BX1    X1-X2
05747  M00S05067.profile +++|          EQ     VMUX
05748  M00S05068.profile +++| WDL      SPACE  4,10
05749  M00S05069.profile +++|**        WDL - WRITE DATA LEVEL (LEVEL-3).
05750  M00S05070.profile +++|*
05751  M00S05071.profile +++|*         ENTRY  (FUP3) .NE. 0, IF UPDATE OF LEVEL-3 NECESSARY.
05752  M00S05072.profile +++|*                (RA3) = 0, IF WRITE AT EOI.
05753  M00S05073.profile +++|*                      = RANDOM ADDRESS FOR WRITE, ELSE.
05754  M00S05074.profile +++|*                (T3IE) = TABLE 3 INDEX OF ENTRY.
05755  M00S05075.profile +++|*                (T2IE) = TABLE 2 INDEX OF ENTRY.
05756  M00S05076.profile +++|*
05757  M00S05077.profile +++|*         EXIT   LEVEL-2 TO LEVEL-3 LINK AND LEVEL-3 *FULL*
05758  M00S05078.profile +++|*                FLAG SET, IF NECESSARY.
05759  M00S05079.profile +++|*
05760  M00S05080.profile +++|*         CALLS  WNB, WOB, WTW.
05761  M00S05081.profile +++|*
05762  M00S05082.profile +++|*         USES   ALL REGISTERS.
05763  M00S05083.profile +++|
05764  M00S05084.profile +++|
05765  M00S05085.profile +++| WDL      SUBR               ENTRY/EXIT
05766  M00S05086.profile +++|          SA1    FUP3
05767  M00S05087.profile +++|          ZR     X1,WDLX     IF NO LEVEL-3 UPDATE NEEDED
05768  M00S05088.profile +++|          BX6    X6-X6       CLEAR LEVEL-3 UPDATE FLAG
05769  M00S05089.profile +++|          SA6    A1
05770  M00S05090.profile +++|          RJ     WOB         WRITE OVERFLOW BLOCKS
05771  M00S05091.profile +++|          SA5    F.TAB3
05772  M00S05092.profile +++|          SA2    OP
05773  M00S05093.profile +++|          SX2    X2-COPT
05774  M00S05094.profile +++|          ZR     X2,WDL1     IF *CREATE* OPTION
05775  M00S05095.profile +++|          SA1    T3IE        UPDATE LAST CHANGE DATE
05776  M00S05096.profile +++|          IX1    X1+X5
05777  M00S05097.profile +++|          SA1    X1+PCGW
05778  M00S05098.profile +++|          LX1    -36
05779  M00S05099.profile +++|          MX2    42
05780  M00S05100.profile +++|          BX1    X2*X1
05781  M00S05101.profile +++|          SA2    PD
05782  M00S05102.profile +++|          BX6    X1+X2
05783  M00S05103.profile +++|          LX6    36
05784  M00S05104.profile +++|          SA6    A1
05785  M00S05105.profile +++| WDL1     SA1    RA3
05786  M00S05106.profile +++|          MX2    1           PRESET FET REWRITE BIT
05787  M00S05107.profile +++|          LX2    30
05788  M00S05108.profile +++|          BX7    X1+X2
05789  M00S05109.profile +++|          NZ     X1,WDL2     IF REWRITE
05790  M00S05110.profile +++|          SX7    RA3         WRITE AT EOI
05791  M00S05111.profile +++| WDL2     RECALL P
05792  M00S05112.profile +++|          SA7    P+6
05793  M00S05113.profile +++|          WRITEW P,X5,PRUS
05794  M00S05114.profile +++|          WRITER P,R
05795  M00S05115.profile +++|          SA1    F.TAB2      CHECK LEVEL-2 TO LEVEL-3 LINK
05796  M00S05116.profile +++|          SA2    T2IE
05797  M00S05117.profile +++|          IX3    X1+X2
05798  M00S05118.profile +++|          SA1    X3+C.TAB2-1
05799  M00S05119.profile +++|          NZ     X1,WDLX     IF LINK ALREADY PRESENT
05800  M00S05120.profile +++|          SA2    RA3         SET LINK
05801  M00S05121.profile +++|          SA3    T3IE
05802  M00S05122.profile +++|          ZR     X3,WDL3     IF DO NOT SET *FULL* FLAG
05803  M00S05123.profile +++|          MX3    1
05804  M00S05124.profile +++| WDL3     BX6    X2+X3
05805  M00S05125.profile +++|          SA6    A1
05806  M00S05126.profile +++|          EQ     WDLX
05807  M00S05127.profile +++| WOB      SPACE  4,10
05808  M00S05128.profile +++|**        WOB - WRITE LEVEL-3 OVERFLOW BLOCKS.
05809  M00S05129.profile +++|*
05810  M00S05130.profile +++|*         BLOCKS ARE WRITTEN IN REVERSE ORDER FROM WHEN READ IN.
05811  M00S05131.profile +++|*         APPROPRIATE LINK UPDATED WHEN BLOCK WRITTEN AT EOI.
05812  M00S05132.profile +++|*
05813  M00S05133.profile +++|*         ENTRY  (T3IE) = TABLE 3 INDEX OF ENTRY.
05814  M00S05134.profile +++|*
05815  M00S05135.profile +++|*         CALLS  WNB, WTW.
05816  M00S05136.profile +++|*
05817  M00S05137.profile +++|*         USES   ALL REGISTERS.
05818  M00S05138.profile +++|
05819  M00S05139.profile +++|
05820  M00S05140.profile +++| WOB      SUBR               ENTRY/EXIT
05821  M00S05141.profile +++| WOB1     SA2    L.TAB3
05822  M00S05142.profile +++|          SB2    X2-PRUS
05823  M00S05143.profile +++|          ZR     B2,WOBX     IF THRU ALL OVERFLOW BLOCKS
05824  M00S05144.profile +++|          NG     B2,ERD16    IF ERROR
05825  M00S05145.profile +++|          SA1    F.TAB3
05826  M00S05146.profile +++|          SA2    B2+X1       BLOCK,S CONTROL WORD
05827  M00S05147.profile +++|          MX3    12
05828  M00S05148.profile +++|          BX3    X3*X2
05829  M00S05149.profile +++|          SA4    =2LOV
05830  M00S05150.profile +++|          BX4    X3-X4
05831  M00S05151.profile +++|          NZ     X4,ERD17    IF NOT OVERFLOW BLOCK
05832  M00S05152.profile +++|          SB3    B2-PRUS     CHECK PRECEDING BLOCK,S LINK
05833  M00S05153.profile +++|          NG     B3,ERD18    IF ERROR
05834  M00S05154.profile +++|          SA5    B3+X1       PRESET
05835  M00S05155.profile +++|          NZ     B3,WOB2     IF NOT FIRST LEVEL-3 BLOCK
05836  M00S05156.profile +++|          SA3    T3IE
05837  M00S05157.profile +++|          IX3    X1+X3
05838  M00S05158.profile +++|          SA5    X3
05839  M00S05159.profile +++| WOB2     SX3    X5
05840  M00S05160.profile +++|          MX4    1           PRESET FET REWRITE BIT
05841  M00S05161.profile +++|          LX4    30
05842  M00S05162.profile +++|          BX7    X3+X4
05843  M00S05163.profile +++|          NZ     X3,WOB3     IF REWRITE
05844  M00S05164.profile +++|          SX7    WOBA        WRITE AT EOI
05845  M00S05165.profile +++| WOB3     RECALL P
05846  M00S05166.profile +++|          SA7    P+6
05847  M00S05167.profile +++|          WRITEW P,A2,PRUS
05848  M00S05168.profile +++|          WRITER P,R
05849  M00S05169.profile +++|          SA1    L.TAB3      UPDATE TABLE 3 LENGTH
05850  M00S05170.profile +++|          SX6    X1-PRUS
05851  M00S05171.profile +++|          SA6    A1
05852  M00S05172.profile +++|          SA2    WOBA
05853  M00S05173.profile +++|          ZR     X2,WOB1     IF NO UPDATE OF LINK NEEDED
05854  M00S05174.profile +++|          BX6    X2+X5
05855  M00S05175.profile +++|          SA6    A5
05856  M00S05176.profile +++|          BX6    X6-X6       CLEAR RETURN LOCATION
05857  M00S05177.profile +++|          SA6    A2
05858  M00S05178.profile +++|          EQ     WOB1        LOOP
05859  M00S05179.profile +++|
05860  M00S05180.profile +++| WOBA     CON    0           RANDOM ADDRESS RETURN LOCATION OF WRITE
05861  M00S05181.profile +++| WPL      SPACE  4,10
05862  M00S05182.profile +++|**        WPL - WRITE PROJECT LEVEL (LEVEL-2).
05863  M00S05183.profile +++|*
05864  M00S05184.profile +++|*         ENTRY  (FUP2) .NE. 0, IF UPDATE OF LEVEL-2 NECESSARY.
05865  M00S05185.profile +++|*                (T1IE) = TABLE 1 INDEX OF ENTRY.
05866  M00S05186.profile +++|*
05867  M00S05187.profile +++|*         EXIT   LEVEL-1 TO LEVEL-2 LINK SET, IF NECESSARY.
05868  M00S05188.profile +++|*
05869  M00S05189.profile +++|*         CALLS  WTB.
05870  M00S05190.profile +++|*
05871  M00S05191.profile +++|*         USES   ALL REGISTERS.
05872  M00S05192.profile +++|
05873  M00S05193.profile +++|
05874  M00S05194.profile +++| WPL      SUBR               ENTRY/EXIT
05875  M00S05195.profile +++|          SA1    FUP2
05876  M00S05196.profile +++|          ZR     X1,WPLX     IF NO LEVEL-2 UPDATE NEEDED
05877  M00S05197.profile +++|          BX6    X6-X6       CLEAR LEVEL-2 UPDATE FLAG
05878  M00S05198.profile +++|          SA6    A1
05879  M00S05199.profile +++|          SA0    B1+B1
05880  M00S05200.profile +++|          SX5    P
05881  M00S05201.profile +++|          FUNC   WTBT        WRITE TABLE 2
05882  M00S05202.profile +++|          SA1    F.TAB1      CHECK LEVEL-1 TO LEVEL-2 LINK
05883  M00S05203.profile +++|          SA2    T1IE
05884  M00S05204.profile +++|          IX3    X1+X2
05885  M00S05205.profile +++|          SA1    X3+C.TAB1-1
05886  M00S05206.profile +++|          SX2    X1
05887  M00S05207.profile +++|          NZ     X2,WPLX     IF LINK ALREADY PRESENT
05888  M00S05208.profile +++|          SA2    RA2+1       SET LINK
05889  M00S05209.profile +++|          BX6    X1+X2
05890  M00S05210.profile +++|          SA6    A1
05891  M00S05211.profile +++|          EQ     WPLX
05892  M00S05212.profile +++|          TITLE  ERROR SUBROUTINES.
05893  M00S05213.profile +++| ERD      SPACE  4,10
05894  M00S05214.profile +++|**        ERD - DATA BASE ERROR.
05895  M00S05215.profile +++|
05896  M00S05216.profile +++|
05897  M00S05217.profile +++| ERD      BSS    0
05898  M00S05218.profile +++| ERD1     SX1    2R01
05899  M00S05219.profile +++|          EQ     ERD50
05900  M00S05220.profile +++| ERD2     SX1    2R02
05901  M00S05221.profile +++|          EQ     ERD50
05902  M00S05222.profile +++| ERD3     SX1    2R03
05903  M00S05223.profile +++|          EQ     ERD50
05904  M00S05224.profile +++| ERD4     SX1    2R04
05905  M00S05225.profile +++|          EQ     ERD50
05906  M00S05226.profile +++| ERD5     SX1    2R05
05907  M00S05227.profile +++|          EQ     ERD50
05908  M00S05228.profile +++| ERD6     SX1    2R06
05909  M00S05229.profile +++|          EQ     ERD50
05910  M00S05230.profile +++| ERD7     SX1    2R07
05911  M00S05231.profile +++|          EQ     ERD50
05912  M00S05232.profile +++| ERD8     SX1    2R08
05913  M00S05233.profile +++|          EQ     ERD50
05914  M00S05234.profile +++| ERD9     SX1    2R09
05915  M00S05235.profile +++|          EQ     ERD50
05916  M00S05236.profile +++| ERD10    SX1    2R10
05917  M00S05237.profile +++|          EQ     ERD50
05918  M00S05238.profile +++| ERD11    SX1    2R11
05919  M00S05239.profile +++|          EQ     ERD50
05920  M00S05240.profile +++| ERD13    SX1    2R13
05921  M00S05241.profile +++|          EQ     ERD50
05922  M00S05242.profile +++| ERD14    SX1    2R14
05923  M00S05243.profile +++|          EQ     ERD50
05924  M00S05244.profile +++| ERD15    SX1    2R15
05925  M00S05245.profile +++|          EQ     ERD50
05926  M00S05246.profile +++| ERD16    SX1    2R16
05927  M00S05247.profile +++|          EQ     ERD50
05928  M00S05248.profile +++| ERD17    SX1    2R17
05929  M00S05249.profile +++|          EQ     ERD50
05930  M00S05250.profile +++| ERD18    SX1    2R18
05931  M00S05251.profile +++|          EQ     ERD50
05932  M00S05252.profile +++| ERD19    SX1    2R19
05933  M00S05253.profile +++|          EQ     ERD50
05934  M00S05254.profile +++| ERD20    SX1    2R20
05935  M00S05255.profile +++|          EQ     ERD50
05936  M00S05256.profile +++| ERD21    SX1    2R21
05937  M00S05257.profile +++|          EQ     ERD50
05938  M00S05258.profile +++| ERD22    SX1    2R22
05939  M00S05259.profile +++|          EQ     ERD50
05940  M00S05260.profile +++| ERD23    SX1    2R23
05941  M00S05261.profile +++|          EQ     ERD50
05942  M00S05262.profile +++| ERD24    SX1    2R24
05943  M00S05263.profile +++|          EQ     ERD50
05944  M00S05264.profile +++| ERD25    SX1    2R25
05945  M00S05265.profile +++|          EQ     ERD50
05946  M00S05266.profile +++| ERD26    SX1    2R26
05947  M00S05267.profile +++|          EQ     ERD50
05948  M00S05268.profile +++| ERD27    SX1    2R27
05949  M00S05269.profile +++|          EQ     ERD50
05950  M00S05270.profile +++| ERD30    SX1    2R30
05951  M00S05271.profile +++|          EQ     ERD50
05952  M00S05272.profile +++| ERD31    SX1    2R31
05953  M00S05273.profile +++|          EQ     ERD50
05954  M00S05274.profile +++| ERD32    SX1    2R32
05955  M00S05275.profile +++|          EQ     ERD50
05956  M00S05276.profile +++| ERD33    SX1    2R33
05957  M00S05277.profile +++|          EQ     ERD50
05958  M00S05278.profile +++| ERD34    SX1    2R34
05959  M00S05279.profile +++|          EQ     ERD50
05960  M00S05280.profile +++| ERD38    SX1    2R38
05961  M00S05281.profile +++|          EQ     ERD50
05962  M00S05282.profile +++| ERD39    SX1    2R39
05963  M00S05283.profile +++|          EQ     ERD50
05964  M00S05284.profile +++| ERD40    SX1    2R40
05965  M00S05285.profile +++|          EQ     ERD50
05966  M00S05286.profile +++| ERD41    SX1    2R41
05967  M00S05287.profile +++|          EQ     ERD50
05968  M00S05288.profile +++| ERD42    SX1    2R42
05969  M00S05289.profile +++|          EQ     ERD50
05970  M00S05290.profile +++| ERD43    SX1    2R43
05971  M00S05291.profile +++|          EQ     ERD50
05972  M00S05292.profile +++| ERD45    SX1    2R45
05973  M00S05293.profile +++|
05974  M00S05294.profile +++| ERD50    SA2    ERDA+1      MERGE ERROR NUMBER INTO MESSAGE
05975  M00S05295.profile +++|          MX3    -12
05976  M00S05296.profile +++|          BX3    X3*X2
05977  M00S05297.profile +++|          BX6    X1+X3
05978  M00S05298.profile +++|          SA6    A2
05979  M00S05299.profile +++|          SX2    ERDA
05980  M00S05300.profile +++|          JP     ABT         ABORT EXIT
05981  M00S05301.profile +++|
05982  M00S05302.profile +++| ERDA     DATA   L* DATA BASE ERROR     - NOTIFY ANALYST.*
05983  M00S05303.profile +++| ERU      SPACE  4,10
05984  M00S05304.profile +++|**        ERU - USER ERROR.
05985  M00S05305.profile +++|*
05986  M00S05306.profile +++|*         IF *K-DISPLAY* OPTION, ERROR MESSAGE DISPLAYED ON K-DISPLAY.
05987  M00S05307.profile +++|*         ELSE ERROR MESSAGE OUTPUTTED TO OUTPUT FILE. IN ADDITION,
05988  M00S05308.profile +++|*              IF NOT A TERMINAL JOB, ANY CURRENT CHARGE-PROJECT
05989  M00S05309.profile +++|*              NUMBERS AND THE STRING BUFFER ARE OUTPUTTED.
05990  M00S05310.profile +++|*
05991  M00S05311.profile +++|*         ENTRY  (B3) = ERROR MESSAGE ADDRESS.
05992  M00S05312.profile +++|*
05993  M00S05313.profile +++|*         USES   A - 1, 2, 3, 6.
05994  M00S05314.profile +++|*                B - 2.
05995  M00S05315.profile +++|*                X - 1, 2, 3, 6.
05996  M00S05316.profile +++|*
05997  M00S05317.profile +++|*         CALLS  GES.
05998  M00S05318.profile +++|*
05999  M00S05319.profile +++|*         MACROS MOVE, WRITES.
06000  M00S05320.profile +++|
06001  M00S05321.profile +++|
Line S05322 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06002  M01S05322.v23l617 ---| ERU2     MOVE   4,B3,MES1+1 MESSAGE TO K-DISPLAY BUFFER
Line S00228 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06003  M01S00228.v23l617 +++| ERU2     SA4    M1
06004  M01S00229.v23l617 +++|          MOVE   4,B3,X4     MESSAGE TO K-DISPLAY BUFFER
06005  M00S05323.profile +++|          SX6    B1          INDICATE DIRECTIVE ERROR
06006  M00S05324.profile +++|          SA6    FDER
06007  M00S05325.profile +++|
06008  M00S05326.profile +++| ERU      SUBR               ENTRY/EXIT
06009  M00S05327.profile +++|          SA1    OP
06010  M00S05328.profile +++|          SX1    X1-KOPT
06011  M00S05329.profile +++|          ZR     X1,ERU2     IF *K-DISPLAY* OPTION
06012  M00S05330.profile +++|          SA1    PO
06013  M00S05331.profile +++|          SB2    B1
06014  M00S05332.profile +++|          ZR     X1,ERU1     IF TERMINAL OUTPUT
06015  M00S05333.profile +++|          SA3    FCNP
06016  M00S05334.profile +++|          ZR     X3,ERU1     IF NO CHARGE NUMBER PRESENT
06017  M00S05335.profile +++|          SA1    FPNP
06018  M00S05336.profile +++|          SB2    B2+B1
06019  M00S05337.profile +++|          ZR     X1,ERU1     IF NO PROJECT NUMBER PRESENT
06020  M00S05338.profile +++|          SB2    B2+B1
06021  M00S05339.profile +++| ERU1     RJ     GES         GENERATE ERROR SUMMARY
06022  M00S05340.profile +++|          SA1    PIOA
Line S05341 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06023  M01S05341.v23l617 ---|          NZ     X1,ERUX     IF CONTROL CARD INQUIRE
Line S00230 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06024  M01S00230.v23l617 +++|          NZ     X1,ERUX     IF COMMAND INQUIRE
06025  M00S05342.profile +++|          SA1    SB          OUTPUT STRING BUFFER
06026  M00S05343.profile +++|          SA2    SM
06027  M00S05344.profile +++|          IX3    X2-X1
06028  M00S05345.profile +++|          WRITES O,X1-1,X3+B1
06029  M00S05346.profile +++|          EQ     ERUX        RETURN
06030  M00S05347.profile +++|
06031  M00S05348.profile +++|
Line S05349 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06032  M01S05349.v23l617 ---| ERUA     DIS    4, **** ILLEGAL DIRECTIVE.
Line S00231 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06033  M01S00231.v23l617 +++| ERUA     DIS    4, **** INCORRECT DIRECTIVE.
06034  M00S05350.profile +++| ERUB     DIS    4, **** TOO MANY CHARACTERS IN VALUE.
06035  M00S05351.profile +++| ERUC     DIS    4, **** DIRECTIVE NOT AUTHORIZED.
06036  M00S05352.profile +++| ERUD     DIS    4, **** CHARGE NUMBER ACTIVE.
06037  M00S05353.profile +++| ERUE     DIS    4, **** CHARGE NUMBER DOES NOT EXIST.
06038  M00S05354.profile +++| ERUF     DIS    4, **** CHARGE NUMBER INACTIVE.
06039  M00S05355.profile +++| ERUG     DIS    4, **** NOT MASTER USER.
06040  M00S05356.profile +++| ERUH     DIS    4, **** NO CHARGE NUMBER IN EFFECT.
06041  M00S05357.profile +++| ERUI     DIS    4, **** PROJECT NUMBER DOES NOT EXIST.
06042  M00S05358.profile +++| ERUJ     DIS    4, **** PROJECT NUMBER ACTIVE.
Line S05359 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06043  M01S05359.ns22000 ---| ERUK     DIS    4, **** ILLEGAL NUMERIC VALUE.
Line S00283 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06044  M01S00283.ns22000 +++| ERUK     DIS    4, **** INCORRECT VALUE.
Line S05360 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06045  M01S05360.v23l617 ---| ERUL     DIS    4, **** DELETE NON-EXISTENT USER NUMBER.
Line S00232 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06046  M01S00232.v23l617 +++| ERUL     DIS    4, **** DELETE NON-EXISTENT USER NAME.
06047  M00S05361.profile +++| ERUM     DIS    4, **** NO PROJECT NUMBER IN EFFECT.
06048  M00S05362.profile +++| ERUN     DIS    4, **** PROJECT COUNT LIMIT EXCEEDED.
06049  M00S05363.profile +++| ERUO     DIS    4, **** PROJECT NUMBER INACTIVE.
Line S05364 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06050  M01S05364.v23l617 ---| ERUP     DIS    4, **** DUPLICATE USER NUMBER.
Line S00233 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06051  M01S00233.v23l617 +++| ERUP     DIS    4, **** DUPLICATE USER NAME.
06052  M00S05365.profile +++| ERUQ     DIS    4, **** MISSING VALUE.
06053  M00S05366.profile +++| ERUR     DIS    4, **** DUPLICATE CHARGE NUMBER.
06054  M00S05367.profile +++| ERUS     DIS    4, **** DUPLICATE PROJECT NUMBER.
Line S05368 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06055  M01S05368.v23l617 ---| ERUT     DATA   40H **** USER NUMBER LIMIT.
Line S00234 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06056  M01S00234.v23l617 +++| ERUT     DATA   40H **** USER NAME LIMIT.
06057  M00S05369.profile +++| GES      SPACE 4,15
06058  M00S05370.profile +++|**        GES - GENERATE ERROR SUMMARY.
06059  M00S05371.profile +++|*
06060  M00S05372.profile +++|*         ENTRY  (B3) = ERROR MESSAGE ADDRESS.
06061  M00S05373.profile +++|*                (B2) = NUMBER OF MESSAGES IN ERROR SUMMARY.
06062  M00S05374.profile +++|*
06063  M00S05375.profile +++|*         USES   A - 1, 3, 6, 7.
06064  M00S05376.profile +++|*                X - 1, 3, 6, 7.
06065  M00S05377.profile +++|*
06066  M00S05378.profile +++|*         CALLS  SFN.
06067  M00S05379.profile +++|*
06068  M00S05380.profile +++|*         MACROS WRITH.
06069  M00S05381.profile +++|
06070  M00S05382.profile +++|
06071  M00S05383.profile +++| GES      SUBR               ENTRY/EXIT
06072  M00S05384.profile +++|          SA1    OP
06073  M00S05385.profile +++|          SX1    X1-KOPT
06074  M00S05386.profile +++|          ZR     X1,GESX     IF *K-DISPLAY* OPTION
06075  M00S05387.profile +++|          SX7    B1
06076  M00S05388.profile +++|          SX6    B2-B1
06077  M00S05389.profile +++|          SA7    FDER        INDICATE DIRECTIVE ERRORS
06078  M00S05390.profile +++|          SA6    GESA
06079  M00S05391.profile +++|          WRITH  O,B3,4      WRITE ERROR MESSAGE
06080  M00S05392.profile +++|          SA1    GESA
06081  M00S05393.profile +++|          ZR     X1,GESX     IF LAST MESSAGE IN SUMMARY
06082  M00S05394.profile +++|          SA3    CN
06083  M00S05395.profile +++|          BX6    X3
06084  M00S05396.profile +++|          SA6    GESB+2
06085  M00S05397.profile +++|          WRITH  X2,GESB,3   WRITE CHARGE NUMBER
06086  M00S05398.profile +++|          SA3    GESA
06087  M00S05399.profile +++|          SX6    X3-2
06088  M00S05400.profile +++|          NG     X6,GESX     IF LAST MESSAGE IN SUMMARY
06089  M00S05401.profile +++|          SA6    A3
06090  M00S05402.profile +++|          SA1    PN
06091  M00S05403.profile +++|          RJ     SFN         SPACE FILL PROJECT NUMBER
06092  M00S05404.profile +++|          SA1    A1+B1
06093  M00S05405.profile +++|          SA6    GESC+2
06094  M00S05406.profile +++|          BX7    X1
06095  M00S05407.profile +++|          SA7    A6+B1
06096  M00S05408.profile +++|          WRITH  X2,GESC,4   WRITE PROJECT NUMBER
06097  M00S05409.profile +++|          SA1    GESA
06098  M00S05410.profile +++|          ZR     X1,GESX     IF LAST MESSAGE IN SUMMARY
06099  M00S05411.profile +++|          SA1    UNUM
06100  M00S05412.profile +++|          BX6    X1
06101  M00S05413.profile +++|          SA6    GESD+2
Line S05414 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06102  M01S05414.v23l617 ---|          WRITH  X2,GESD,3   WRITE USER NUMBER
Line S00235 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06103  M01S00235.v23l617 +++|          WRITH  X2,GESD,3   WRITE USER NAME
06104  M00S05415.profile +++|          EQ     GESX        RETURN
06105  M00S05416.profile +++|
06106  M00S05417.profile +++|
06107  M00S05418.profile +++| GESA     BSS    1           NUMBER OF MESSAGES TO GENERATE
06108  M00S05419.profile +++| GESB     DATA   H* CHARGE NUMBER    = *
06109  M00S05420.profile +++|          BSS    1
06110  M00S05421.profile +++| GESC     DATA   H* PROJECT NUMBER   = *
06111  M00S05422.profile +++|          BSS    2
Line S05423 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06112  M01S05423.v23l617 ---| GESD     DATA   H* USER NUMBER      = *
Line S00236 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06113  M01S00236.v23l617 +++| GESD     DATA   H* USER NAME      = *
06114  M00S05424.profile +++|          BSS    1
Line S05425 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06115  M01S05425.v23l617 ---|          TITLE  DISPLAY AREA.
06116  M01S05426.v23l617 ---|**        DISPLAY LINE NUMBER TABLE.
06117  M01S05427.v23l617 ---|*
06118  M01S05428.v23l617 ---|*           THIS TABLE EQUATES LINE NUMBERS TO TAGS TO BE USED IN THE
06119  M01S05429.v23l617 ---|*         DISPLAY AREA.  THIS AREA IS OVERLAYED BY THE DISPLAY AREA
06120  M01S05430.v23l617 ---|*         SINCE THE ACTUAL MEMORY TAKEN UP BY THE TABLE IS NOT NEEDED.
06121  M01S05431.v23l617 ---|*         TO CHANGE THE LINE NUMBERS OR TO ADD ADDITIONAL LINES, MAKE
06122  M01S05432.v23l617 ---|*         THE APPROPRIATE INSERTIONS OR DELETIONS IN THE DISPLAY LINE
06123  M01S05433.v23l617 ---|*         NUMBER TABLE.
06124  M01S05434.v23l617 ---|
06125  M01S05435.v23l617 ---|
06126  M01S05436.v23l617 ---| DLNT     BSS    0           DISPLAY LINE NUMBER TABLE
06127  M01S05437.v23l617 ---|          LOC    0
06128  M01S05438.v23l617 ---|          BSS    5
Line S05439 Modification History
M01 (Removed by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06129  M02S05439.v23l617 ---| H1LN     BSS    1           HEADER LINE NUMBER
Line S05440 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06130  M01S05440.v23l617 ---| CDLN     BSS    0           CREATION DATE LINE NUMBER
06131  M01S05441.v23l617 ---| MDLN     BSS    1           MODIFICATION DATE LINE NUMBER
06132  M01S05442.v23l617 ---|          BSS    1
06133  M01S05443.v23l617 ---| D1LN     BSS    1           COMMAND 1 LINE NUMBER
06134  M01S05444.v23l617 ---| D2LN     BSS    1           COMMAND 2 LINE NUMBER
06135  M01S05445.v23l617 ---| D3LN     BSS    1           COMMAND 3 LINE NUMBER
06136  M01S05446.v23l617 ---| D4LN     BSS    1           COMMAND 4 LINE NUMBER
06137  M01S05447.v23l617 ---| D5LN     BSS    1           COMMAND 5 LINE NUMBER
06138  M01S05448.v23l617 ---| D6LN     BSS    1           COMMAND 6 LINE NUMBER
06139  M01S05449.v23l617 ---| D7LN     BSS    1           COMMAND 7 LINE NUMBER
06140  M01S05450.v23l617 ---|          BSS    1
06141  M01S05451.v23l617 ---| CNLN     BSS    1           CHARGE NUMBER LINE NUMBER
Line S05452 Modification History
M01 (Removed by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06142  M02S05452.v23l617 ---|          BSS    1
Line S05453 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06143  M01S05453.v23l617 ---| CCLN     BSS    0           CHARGE CREATION DATE LINE NUMBER
06144  M01S05454.v23l617 ---| CELN     BSS    1           CHARGE EXPIRATION DATE LINE NUMBER
06145  M01S05455.v23l617 ---| CALN     BSS    0           CHARGE *ACTIVE*/*INACTIVE* LINE NUMBER
06146  M01S05456.v23l617 ---| COLN     BSS    1           PROJECT COUNT LINE NUMBER
06147  M01S05457.v23l617 ---| MULN     BSS    0           *MU* LINE NUMBER
06148  M01S05458.v23l617 ---| PLLN     BSS    1           *PCL* LINE NUMBER
06149  M01S05459.v23l617 ---| S1LN     BSS    0           *M1* LINE NUMBER
06150  M01S05460.v23l617 ---| S2LN     BSS    1           *M2* LINE NUMBER
06151  M01S05461.v23l617 ---| S3LN     BSS    0           *M3* LINE NUMBER
06152  M01S05462.v23l617 ---| S4LN     BSS    1           *M4* LINE NUMBER
06153  M01S05463.v23l617 ---| ADLN     BSS    0           *AD* LINE NUMBER
06154  M01S05464.v23l617 ---| SLLN     BSS    1           *ISL* LINE NUMBER
06155  M01S05465.v23l617 ---| R1LN     BSS    0           *IR1* LINE NUMBER
06156  M01S05466.v23l617 ---| R2LN     BSS    1           *IR2* LINE NUMBER
06157  M01S05467.v23l617 ---| R3LN     BSS    0           *IR3* LINE NUMBER
06158  M01S05468.v23l617 ---| R4LN     BSS    1           *IR4* LINE NUMBER
06159  M01S05469.v23l617 ---| R5LN     BSS    0           *IR5* LINE NUMBER
06160  M01S05470.v23l617 ---| R6LN     BSS    1           *IR6* LINE NUMBER
06161  M01S05471.v23l617 ---| R7LN     BSS    0           *IR7* LINE NUMBER
06162  M01S05472.v23l617 ---| R8LN     BSS    1           *IR8* LINE NUMBER
06163  M01S05473.v23l617 ---|          BSS    1
06164  M01S05474.v23l617 ---| PNLN     BSS    1           PROJECT NUMBER LINE NUMBER
Line S05475 Modification History
M01 (Removed by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06165  M02S05475.v23l617 ---|          BSS    1
Line S05476 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06166  M01S05476.v23l617 ---| PCLN     BSS    0           PROJECT CREATION DATE LINE NUMBER
06167  M01S05477.v23l617 ---| LCLN     BSS    1           PROJECT LAST CHANGE DATE LINE NUMBER
06168  M01S05478.v23l617 ---| UDLN     BSS    0           PROJECT LAST UPDATE DATE LINE NUMBER
06169  M01S05479.v23l617 ---| UTLN     BSS    1           PROJECT LAST UPDATE TIME LINE NUMBER
06170  M01S05480.v23l617 ---| PALN     BSS    0           PROJECT *ACTIVE*/*INACTIVE* LINE NUMBER
06171  M01S05481.v23l617 ---| PELN     BSS    1           PROJECT EXPIRATION DATE LINE NUMBER
06172  M01S05482.v23l617 ---| INLN     BSS    0           *TI* LINE NUMBER
06173  M01S05483.v23l617 ---| OFLN     BSS    1           *TO* LINE NUMBER
Line S00284 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06174  M02S00284.v23l617 ---| PFLN     BSS    0           *PFN* LINE NUMBER
06175  M02S00285.v23l617 ---| EFLN     BSS    1           *EFN* LINE NUMBER
06176  M02S00286.v23l617 ---| PULN     BSS    0           *PUN* LINE NUMBER
06177  M02S00287.v23l617 ---| EULN     BSS    1           *EUN* LINE NUMBER
06178  M02S00288.v23l617 ---| PPLN     BSS    0           *PPW* LINE NUMBER
06179  M02S00289.v23l617 ---| EPLN     BSS    1           *EPW* LINE NUMBER
06180  M02S00290.v23l617 ---| POLN     BSS    0           *PCR* LINE NUMBER
Line S05484 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06181  M01S05484.v23l617 ---| SVLN     BSS    1           *ISV* LINE NUMBER
06182  M01S05485.v23l617 ---| MLLN     BSS    0           *SML* LINE NUMBER
06183  M01S05486.v23l617 ---| MALN     BSS    1           *SMA* LINE NUMBER
06184  M01S05487.v23l617 ---| ILLN     BSS    0           *SIL* LINE NUMBER
06185  M01S05488.v23l617 ---| IALN     BSS    1           *SIA* LINE NUMBER
06186  M01S05489.v23l617 ---| L1LN     BSS    0           *LR1* LINE NUMBER
06187  M01S05490.v23l617 ---| A1LN     BSS    1           *AR1* LINE NUMBER
06188  M01S05491.v23l617 ---| L2LN     BSS    0           *LR2* LINE NUMBER
06189  M01S05492.v23l617 ---| A2LN     BSS    1           *AR2* LINE NUMBER
06190  M01S05493.v23l617 ---| L3LN     BSS    0           *LR3* LINE NUMBER
06191  M01S05494.v23l617 ---| A3LN     BSS    1           *AR3* LINE NUMBER
06192  M01S05495.v23l617 ---| L4LN     BSS    0           *LR4* LINE NUMBER
06193  M01S05496.v23l617 ---| A4LN     BSS    1           *AR4* LINE NUMBER
06194  M01S05497.v23l617 ---| L5LN     BSS    0           *LR5* LINE NUMBER
06195  M01S05498.v23l617 ---| A5LN     BSS    1           *AR5* LINE NUMBER
06196  M01S05499.v23l617 ---| L6LN     BSS    0           *LR6* LINE NUMBER
06197  M01S05500.v23l617 ---| A6LN     BSS    1           *AR6* LINE NUMBER
06198  M01S05501.v23l617 ---| L7LN     BSS    0           *LR7* LINE NUMBER
06199  M01S05502.v23l617 ---| A7LN     BSS    1           *AR7* LINE NUMBER
06200  M01S05503.v23l617 ---| L8LN     BSS    0           *LR8* LINE NUMBER
06201  M01S05504.v23l617 ---| A8LN     BSS    1           *AR8* LINE NUMBER
06202  M01S05505.v23l617 ---|          BSS    1
06203  M01S05506.v23l617 ---| M1LN     BSS    1           MESSAGE 1 LINE NUMBER
06204  M01S05507.v23l617 ---| ELT1     EQU    *
06205  M01S05508.v23l617 ---|          ERRNG  48D-ELT1
06206  M01S05509.v23l617 ---|
06207  M01S05510.v23l617 ---|          ORG    DLNT
06208  M01S05511.v23l617 ---|          LOC    *O
06209  M00S05512.profile +++| DSA      SPACE  4
06210  M00S05513.profile +++|*         DISPLAY AREA.
06211  M00S05514.profile +++|
06212  M00S05515.profile +++|
06213  M00S05516.profile +++| KBUF     BSS    8           KEYBOARD BUFFER
Line S05517 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06214  M01S05517.ns22000 ---| KIA      VFD    24/KBUF,18/,18/DSA
Line S00291 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06215  M02S00291.v23l617 ---| KIA      VFD    6/4B,18/KBUF,18/,18/DSA
Line S05518 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06216  M01S05518.v23l617 ---| DSA      VFD    12/0,36/0,12/2
Line S05519 Modification History
M01 (Removed by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06217  M02S05519.v23l617 ---| DSFN     DSL    14,H1LN,(      "PPFN")
06218  M02S05520.v23l617 ---| DSCD     DSL    0,CDLN,(      CREATED    )
06219  M02S05521.v23l617 ---| DSMD     DSL    26,MDLN,(      LAST MOD   )
Line S00292 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06220  M02S00292.v23l617 ---| DSCD     DSL    6,CDLN,("PPFN" CREATED  )
06221  M02S00293.v23l617 ---| DSMD     DSL    35,MDLN,(LAST MOD DATE     )
Line S05522 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06222  M01S05522.v23l617 ---|  DSL 5,D1LN,(END - UPDATE PROFILE FILE AND TERMINATE CURRENT CHARGE.)
06223  M01S05523.v23l617 ---|  DSL 5,D2LN,(DROP - DROP DIRECTIVES ENTERED SINCE CHARGE OR PROJECT.)
06224  M01S05524.v23l617 ---|  DSL 5,D3LN,(STOP - END PROCESSING.)
06225  M01S05525.v23l617 ---|  DSL 5,D4LN,(/ OR CN= CHARGE NUMBER, ACTIVE CHARGE MUST EXIST.)
06226  M01S05526.v23l617 ---|  DSL 5,D5LN,(ACN= ADD OR ACTIVATE CHARGE.  DCN= DEACTIVATE CHARGE.)
06227  M01S05527.v23l617 ---|  DSL 5,D6LN,(PN= PROJECT NUMBER, ACTIVE PROJECT MUST EXIST.)
06228  M01S05528.v23l617 ---|  DSL 5,D7LN,(APN= ADD OR ACTIVATE PROJECT.  DPN= DEACTIVATE PROJECT.)
06229  M01S05529.v23l617 ---| MES1     DSL    0,M1LN,(                                              )
06230  M01S05530.v23l617 ---| DSCN     DSL    15,CNLN,(CHARGE NUMBER    )
06231  M01S05531.v23l617 ---| DSCC     DSL    6,CCLN,(CREATION DATE    )
06232  M01S05532.v23l617 ---| DSCE     DSL    35,CELN,(EXPIRATION DATE  )
06233  M01S05533.v23l617 ---| DSCA     DSL    6,CALN,(ENTRY  )
06234  M01S05534.v23l617 ---| DSCO     DSL    35,COLN,(PROJECT COUNT  = )
06235  M01S05535.v23l617 ---| DSMU     DSL    6,MULN,(MU  =  )
06236  M01S05536.v23l617 ---| DSPL     DSL    35,PLLN,(PCL =  )
06237  M01S05537.v23l617 ---| DSM1     DSL    6,S1LN,(M1  =            )
06238  M01S05538.v23l617 ---| DSM2     DSL    35,S2LN,(M2  =            )
06239  M01S05539.v23l617 ---| DSM3     DSL    6,S3LN,(M3  =            )
06240  M01S05540.v23l617 ---| DSM4     DSL    35,S4LN,(M4  =            )
06241  M01S05541.v23l617 ---| DSAD     DSL    6,ADLN,(AD  =            )
06242  M01S05542.v23l617 ---| DSSL     DSL    35,SLLN,(ISL =            )
06243  M01S05543.v23l617 ---| DSR1     DSL    6,R1LN,(IR1 =            )
06244  M01S05544.v23l617 ---| DSR2     DSL    35,R2LN,(IR2 =            )
06245  M01S05545.v23l617 ---| DSR3     DSL    6,R3LN,(IR3 =            )
06246  M01S05546.v23l617 ---| DSR4     DSL    35,R4LN,(IR4 =            )
06247  M01S05547.v23l617 ---| DSR5     DSL    6,R5LN,(IR5 =            )
06248  M01S05548.v23l617 ---| DSR6     DSL    35,R6LN,(IR6 =            )
06249  M01S05549.v23l617 ---| DSR7     DSL    6,R7LN,(IR7 =            )
06250  M01S05550.v23l617 ---| DSR8     DSL    35,R8LN,(IR8 =            )
06251  M01S05551.v23l617 ---| DSPN     DSL    15,PNLN,(PROJECT NUMBER             )
06252  M01S05552.v23l617 ---| DSPC     DSL    6,PCLN,(CREATION DATE    )
06253  M01S05553.v23l617 ---| DSLC     DSL    35,LCLN,(LAST CHANGE DATE )
06254  M01S05554.v23l617 ---| DSUD     DSL    6,UDLN,(LAST UPDATE DATE )
06255  M01S05555.v23l617 ---| DSUT     DSL    35,UTLN,(LAST UPDATE TIME )
06256  M01S05556.v23l617 ---| DSPA     DSL    6,PALN,(ENTRY  )
06257  M01S05557.v23l617 ---| DSPE     DSL    35,PELN,(EXPIRATION DATE  )
06258  M01S05558.v23l617 ---| DSIN     DSL    6,INLN,(TI  =  )
06259  M01S05559.v23l617 ---| DSOF     DSL    35,OFLN,(TO  =  )
Line S05560 Modification History
M01 (Removed by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06260  M02S05560.v23l617 ---| DSSV     DSL    6,SVLN,(ISV =            )
Line S00294 Modification History
M01 (Added by) ns22000
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06261  M02S00294.v23l617 ---| DSPF     DSL    6,PFLN,(PFN =            )
06262  M02S00295.v23l617 ---| DSEF     DSL    35,EFLN,(EFN =            )
06263  M02S00296.v23l617 ---| DSPU     DSL    6,PULN,(PUN =            )
06264  M02S00297.v23l617 ---| DSEU     DSL    35,EULN,(EUN =            )
06265  M02S00298.v23l617 ---| DSPP     DSL    6,PPLN,(PPW =            )
06266  M02S00299.v23l617 ---| DSEP     DSL    35,EPLN,(EPW =            )
06267  M02S00300.v23l617 ---| DSPO     DSL    6,POLN,(PCR =            )
06268  M02S00301.v23l617 ---| DSSV     DSL    35,SVLN,(ISV =            )
Line S05561 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06269  M01S05561.v23l617 ---| DSML     DSL    6,MLLN,(SML =  )
06270  M01S05562.v23l617 ---| DSMA     DSL    35,MALN,(SMA =  )
06271  M01S05563.v23l617 ---| DSIL     DSL    6,ILLN,(SIL =  )
06272  M01S05564.v23l617 ---| DSIA     DSL    35,IALN,(SIA =  )
06273  M01S05565.v23l617 ---| DSL1     DSL    6,L1LN,(LR1 =  )
06274  M01S05566.v23l617 ---| DSA1     DSL    35,A1LN,(AR1 =  )
06275  M01S05567.v23l617 ---| DSL2     DSL    6,L2LN,(LR2 =  )
06276  M01S05568.v23l617 ---| DSA2     DSL    35,A2LN,(AR2 =  )
06277  M01S05569.v23l617 ---| DSL3     DSL    6,L3LN,(LR3 =  )
06278  M01S05570.v23l617 ---| DSA3     DSL    35,A3LN,(AR3 =  )
06279  M01S05571.v23l617 ---| DSL4     DSL    6,L4LN,(LR4 =  )
06280  M01S05572.v23l617 ---| DSA4     DSL    35,A4LN,(AR4 =  )
06281  M01S05573.v23l617 ---| DSL5     DSL    6,L5LN,(LR5 =  )
06282  M01S05574.v23l617 ---| DSA5     DSL    35,A5LN,(AR5 =  )
06283  M01S05575.v23l617 ---| DSL6     DSL    6,L6LN,(LR6 =  )
06284  M01S05576.v23l617 ---| DSA6     DSL    35,A6LN,(AR6 =  )
06285  M01S05577.v23l617 ---| DSL7     DSL    6,L7LN,(LR7 =  )
06286  M01S05578.v23l617 ---| DSA7     DSL    35,A7LN,(AR7 =  )
06287  M01S05579.v23l617 ---| DSL8     DSL    6,L8LN,(LR8 =  )
06288  M01S05580.v23l617 ---| DSA8     DSL    35,A8LN,(AR8 =  )
06289  M01S05581.v23l617 ---|          CON    0
Line S00237 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06290  M01S00237.v23l617 +++|          TITLE  K-DISPLAY AREA.
06291  M01S00238.v23l617 +++| DISPLAY  SPACE  4,10
06292  M01S00239.v23l617 +++| KIA      VFD    6/4B,18/KBUF,18/DSD,18/DSA
06293  M01S00240.v23l617 +++| KPAG     VFD    60/SPTA     ADDRESS OF CURRENT PAGE TABLE
06294  M01S00241.v23l617 +++| KTIT     DATA   C*PROFILE.*  K-DISPLAY TITLE
06295  M01S00242.v23l617 +++|
06296  M01S00243.v23l617 +++|          NOREF  K
06297  M01S00244.v23l617 +++| PAGE1    SPACE  4,10
06298  M01S00245.v23l617 +++|*         K-DISPLAY LEFT SCREEN PAGE 1.
06299  M01S00246.v23l617 +++|
06300  M01S00247.v23l617 +++| DSA      VFD    10/0,1/0,1/0,1/0,5/0,18/KTIT,24/0  BUFFER CONTROL WORD
06301  M01S00248.v23l617 +++| MESA     KDL    1,M,(                                              )
06302  M01S00249.v23l617 +++| INPA     KDL    1,I,(
06303  M01S00250.v23l617 +++|,      )
06304  M01S00251.v23l617 +++|          KDL    1,T,(PROFILE)
06305  M01S00252.v23l617 +++|          KDL    1,,("PPFN")
06306  M01S00253.v23l617 +++| DSCD     KDL    8,,(       CREATED             )
06307  M01S00254.v23l617 +++| DSMD     KDL    39,H,( LAST MODIFIED     )
06308  M01S00255.v23l617 +++| DSCN     KDL    1,H,(CHARGE NUMBER    )
06309  M01S00256.v23l617 +++| DSCC     KDL    2,,(CREATION DATE    )
06310  M01S00257.v23l617 +++|          KDL    35,,(E)
06311  M01S00258.v23l617 +++| DSCE     KDL    36,K,(XPIRATION DATE         )
06312  M01S00259.v23l617 +++|          KDL    2,,(ENTRY)
06313  M01S00260.v23l617 +++| DSCA     KDL    13,,(                )
06314  M01S00261.v23l617 +++|          KDL    35,,(PROJECT COUN)
06315  M01S00262.v23l617 +++| DSCO     EQU    *-1
06316  M01S00263.v23l617 +++|          KDL    47,H,(T                )
06317  M01S00264.v23l617 +++| DSMU     KDL    2,,(MU =   )
06318  M01S00265.v23l617 +++| DSPL     KDL    35,K,(PCL =  )
06319  M01S00266.v23l617 +++| DSM1     KDL    2,,(M1 =             )
06320  M01S00267.v23l617 +++| DSM2     KDL    35,K,(M2 =             )
06321  M01S00268.v23l617 +++| DSM3     KDL    2,,(M3 =             )
06322  M01S00269.v23l617 +++| DSM4     KDL    35,K,(M4 =             )
06323  M01S00270.v23l617 +++| DSAD     KDL    2,,(AD =             )
06324  M01S00271.v23l617 +++| DSSL     KDL    35,H,(ISL =            )
06325  M01S00272.v23l617 +++| DSR1     KDL    2,,(IR1 =            )
06326  M01S00273.v23l617 +++| DSR2     KDL    35,K,(IR2 =            )
06327  M01S00274.v23l617 +++| DSR3     KDL    2,,(IR3 =            )
06328  M01S00275.v23l617 +++| DSR4     KDL    35,K,(IR4 =            )
06329  M01S00276.v23l617 +++| DSR5     KDL    2,,(IR5 =            )
06330  M01S00277.v23l617 +++| DSR6     KDL    35,K,(IR6 =            )
06331  M01S00278.v23l617 +++| DSR7     KDL    2,,(IR7 =            )
06332  M01S00279.v23l617 +++| DSR8     KDL    35,K,(IR8 =            )
06333  M01S00280.v23l617 +++| KPLN     KDL    48,T,(      PAGE 1 OF 3)
06334  M01S00281.v23l617 +++|          CON    0           END OF DISPLAY
06335  M01S00282.v23l617 +++| PAGE2    SPACE  4,10
06336  M01S00283.v23l617 +++|*         K-DISPLAY LEFT SCREEN PAGE 2.
06337  M01S00284.v23l617 +++|
06338  M01S00285.v23l617 +++| DSB      VFD    10/0,1/0,1/0,1/0,5/0,18/KTIT,24/0  BUFFER CONTROL WORD
06339  M01S00286.v23l617 +++| MESB     KDL    1,M,(                                              )
06340  M01S00287.v23l617 +++| INPB     KDL    1,I,(
06341  M01S00288.v23l617 +++|,      )
06342  M01S00289.v23l617 +++|          KDL    1,T,(PROFILE)
06343  M01S00290.v23l617 +++|          KDL    54,T,(PAGE 2 OF 3)
06344  M01S00291.v23l617 +++| DSPN     KDL    1,H,(PROJECT NUMBER             )
06345  M01S00292.v23l617 +++|          KDL    2,,(CR)
06346  M01S00293.v23l617 +++| DSPC     KDL    4,,(EATION DATE       )
06347  M01S00294.v23l617 +++|          KDL    35,,(LA)
06348  M01S00295.v23l617 +++| DSLC     KDL    37,K,(ST CHANGE DATE          )
06349  M01S00296.v23l617 +++|          KDL    2,,(LA)
06350  M01S00297.v23l617 +++| DSUD     KDL    4,,(ST UPDATE DATE           )
06351  M01S00298.v23l617 +++|          KDL    35,,(LA)
06352  M01S00299.v23l617 +++| DSUT     KDL    37,K,(ST UPDATE TIME           )
06353  M01S00300.v23l617 +++|          KDL    2,,(ENTRY)
06354  M01S00301.v23l617 +++| DSPA     KDL    15,,(                )
06355  M01S00302.v23l617 +++|          KDL    35,,(EX)
06356  M01S00303.v23l617 +++| DSPE     KDL    37,H,(PIRATION DATE         )
06357  M01S00304.v23l617 +++| DSIN     KDL    2,,(TI =   )
06358  M01S00305.v23l617 +++| DSOF     KDL    35,K,(TO =   )
06359  M01S00306.v23l617 +++| DSPF     KDL    2,,(PFN =            )
06360  M01S00307.v23l617 +++| DSEF     KDL    35,K,(EFN =            )
06361  M01S00308.v23l617 +++| DSPU     KDL    2,,(PUN =            )
06362  M01S00309.v23l617 +++| DSEU     KDL    35,K,(EUN =            )
06363  M01S00310.v23l617 +++| DSPP     KDL    2,,(PPW =            )
06364  M01S00311.v23l617 +++| DSEP     KDL    35,K,(EPW =            )
06365  M01S00312.v23l617 +++| DSPO     KDL    2,,(PCR =            )
06366  M01S00313.v23l617 +++| DSSV     KDL    35,K,(ISV =            )
06367  M01S00314.v23l617 +++| DSML     KDL    2,,(SML =  )
06368  M01S00315.v23l617 +++| DSMA     KDL    35,K,(SMA =  )
06369  M01S00316.v23l617 +++|          CON    0           END OF DISPLAY
06370  M01S00317.v23l617 +++| PAGE3    SPACE  4,10
06371  M01S00318.v23l617 +++|*         K-DISPLAY LEFT SCREEN PAGE 3.
06372  M01S00319.v23l617 +++|
06373  M01S00320.v23l617 +++| DSC      VFD    10/0,1/0,1/0,1/0,5/0,18/KTIT,24/0  BUFFER CONTROL WORD
06374  M01S00321.v23l617 +++| MESC     KDL    1,M,(                                              )
06375  M01S00322.v23l617 +++| INPC     KDL    1,I,(
06376  M01S00323.v23l617 +++|,      )
06377  M01S00324.v23l617 +++|          KDL    1,T,(PROFILE)
06378  M01S00325.v23l617 +++|          KDL    54,T,(PAGE 3 OF 3)
06379  M01S00326.v23l617 +++| DSP2     KDL    1,H,(PROJECT NUMBER             )
06380  M01S00327.v23l617 +++| DSIL     KDL    2,,(SIL =  )
06381  M01S00328.v23l617 +++| DSIA     KDL    35,K,(SIA =  )
06382  M01S00329.v23l617 +++| DSL1     KDL    2,,(LR1 =  )
06383  M01S00330.v23l617 +++| DSA1     KDL    35,K,(AR1 =  )
06384  M01S00331.v23l617 +++| DSL2     KDL    2,,(LR2 =  )
06385  M01S00332.v23l617 +++| DSA2     KDL    35,K,(AR2 =  )
06386  M01S00333.v23l617 +++| DSL3     KDL    2,,(LR3 =  )
06387  M01S00334.v23l617 +++| DSA3     KDL    35,K,(AR3 =  )
06388  M01S00335.v23l617 +++| DSL4     KDL    2,,(LR4 =  )
06389  M01S00336.v23l617 +++| DSA4     KDL    35,H,(AR4 =  )
06390  M01S00337.v23l617 +++| DSL5     KDL    2,,(LR5 =  )
06391  M01S00338.v23l617 +++| DSA5     KDL    35,K,(AR5 =  )
06392  M01S00339.v23l617 +++| DSL6     KDL    2,,(LR6 =  )
06393  M01S00340.v23l617 +++| DSA6     KDL    35,K,(AR6 =  )
06394  M01S00341.v23l617 +++| DSL7     KDL    2,,(LR7 =  )
06395  M01S00342.v23l617 +++| DSA7     KDL    35,K,(AR7 =  )
06396  M01S00343.v23l617 +++| DSL8     KDL    2,,(LR8 =  )
06397  M01S00344.v23l617 +++| DSA8     KDL    35,K,(AR8 =  )
06398  M01S00345.v23l617 +++|          CON    0           END OF DISPLAY
06399  M01S00346.v23l617 +++| PAGE1R   SPACE  4,10
06400  M01S00347.v23l617 +++|*         K-DISPLAY RIGHT SCREEN.
06401  M01S00348.v23l617 +++|
06402  M01S00349.v23l617 +++| DSD      VFD    10/0,1/0,1/0,1/0,5/0,18/KTIT,24/0  BUFFER CONTROL WORD
06403  M01S00350.v23l617 +++|  KDL 1,T,(                   PROFILE K DISPLAY COMMANDS)
06404  M01S00351.v23l617 +++|  KDL 1,K,(DROP          DROP DIRECTIVES ENTERED SINCE CHARGE OR PROJECT
06405  M01S00352.v23l617 +++|,.)
06406  M01S00353.v23l617 +++|  KDL 1,K,(END           UPDATE PROFILE FILE AND TERMINATE CURRENT CHARG
06407  M01S00354.v23l617 +++|,E.)
06408  M01S00355.v23l617 +++|  KDL 1,K,(STOP          TERMINATE PROCESSING.)
06409  M01S00356.v23l617 +++|  KDL 1,K,(+             PAGE LEFT SCREEN FORWARD.)
06410  M01S00357.v23l617 +++|  KDL 1,H,(-             PAGE LEFT SCREEN BACKWARD.)
06411  M01S00358.v23l617 +++| K        SET    K+1
06412  M01S00359.v23l617 +++|  KDL 1,H,(                       PROFILE DIRECTIVES)
06413  M01S00360.v23l617 +++|  KDL 1,K,(ACN=CHARN     ADD OR ACTIVATE CHARGE.)
06414  M01S00361.v23l617 +++|  KDL 1,K,(APN=PROJN     ADD OR ACTIVATE PROJECT.)
06415  M01S00362.v23l617 +++|  KDL 1,K,(CN=CHARN      SET CHARGE NUMBER, ACTIVE CHARGE MUST EXIST.)
06416  M01S00363.v23l617 +++|  KDL 1,H,(DCN=CHARN     DEACTIVATE CHARGE.)
06417  M01S00364.v23l617 +++|  KDL 1,K,(DPN=PROJN     DEACTIVATE PROJECT.)
06418  M01S00365.v23l617 +++|  KDL 1,K,(PN=PROJN      SET PROJECT NUMBER, ACTIVE PROJECT MUST EXIST.)
06419  M01S00366.v23l617 +++|  KDL 1,K,(/CHARN        SET CHARGE NUMBER, ACTIVE CHARGE MUST EXIST.)
06420  M01S00367.v23l617 +++|          CON    0           END OF DISPLAY
06421  M00S05582.profile +++|          TITLE  COMMON DECKS, LITERALS AND BUFFERS.
06422  M00S05583.profile +++|          SPACE  4
06423  M00S05584.profile +++|*CALL     COMCCOD
06424  M00S05585.profile +++|*CALL     COMCCFD
06425  M00S05586.profile +++|*CALL     COMCCDD
06426  M00S05587.profile +++|*CALL     COMCCIO
06427  M00S05588.profile +++|*CALL     COMCCPM
Line S00015 Modification History
M01 (Added by) ns2516
Seq #  *Modification Id* Act 
----------------------------+
06428  M01S00015.ns2516  +++| SLI$     SET    1           DEFINE SRU LIMIT CONVERSION
06429  M01S00016.ns2516  +++|*CALL     COMCCVI
06430  M00S05589.profile +++|*CALL     COMCDXB
06431  M00S05590.profile +++|*CALL     COMCEDT
06432  M00S05591.profile +++|*CALL     COMCLFM
06433  M00S05592.profile +++|*CALL     COMCMTP
06434  M00S05593.profile +++|*CALL     COMCMVE
06435  M00S05594.profile +++|*CALL     COMCPFM
06436  M00S05595.profile +++|*CALL     COMCRDW
06437  M00S05596.profile +++|*CALL     COMCSFN
06438  M00S05597.profile +++|*CALL     COMCSYS
Line S05598 Modification History
M01 (Removed by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
06439  M01S05598.ns2786  ---|*CALL,COMCUSB
Line S00011 Modification History
M01 (Added by) ns2786
Seq #  *Modification Id* Act 
----------------------------+
06440  M01S00011.ns2786  +++|*CALL     COMCUSB
06441  M01S00012.ns2786  +++|*CALL     COMCVDT
06442  M00S05599.profile +++|*CALL     COMCWTH
06443  M00S05600.profile +++|*CALL     COMCWTS
06444  M00S05601.profile +++|*CALL     COMCWTW
06445  M00S05602.profile +++|
06446  M00S05603.profile +++|
06447  M00S05604.profile +++|          USE LITERALS
06448  M00S05605.profile +++|          SPACE  4
06449  M00S05606.profile +++|**        BUFFER AREA.
06450  M00S05607.profile +++|
06451  M00S05608.profile +++| PBUF     BSS    0           PROFILA BUFFER
06452  M00S05609.profile +++| IBUF     EQU    PBUF+PBUFL  INPUT AND SOURCE BUFFER
06453  M00S05610.profile +++| OBUF     EQU    IBUF+IBUFL  OUTPUT BUFFER
06454  M00S05611.profile +++| NBUF     EQU    OBUF+IBUFL  NEWPRO BUFFER
06455  M00S05612.profile +++| OUTB     EQU    NBUF+PBUFL+5  OUTPUT LINE BUFFER
06456  M00S05613.profile +++| MEML     EQU    OUTB+6
06457  M00S05614.profile +++| RFL=     EQU    MEML+1000B
06458  M00S05615.profile +++| ARG=     EQU    *
06459  M00S05616.profile +++|          TITLE  PRESET.
06460  M00S05617.profile +++|          ORG    PBUF
06461  M00S05618.profile +++| PROFILE  SB1    1
06462  M00S05619.profile +++|          SX6    KIA
06463  M00S05620.profile +++|          SA6    KD
Line S00007 Modification History
M01 (Added by) profi9
Seq #  *Modification Id* Act 
----------------------------+
06464  M01S00007.profi9  +++|          SETFET N,(ERA=EBUF)
06465  M01S00008.profi9  +++|          SETFET P,(ERA=EBUF)
Line S00007 Modification History
M01 (Added by) ns2290
Seq #  *Modification Id* Act 
----------------------------+
06466  M01S00007.ns2290  +++|          MX6    30          SET VALIDATED FL RETURN
06467  M01S00008.ns2290  +++|          SX7    TOV         SET TABLE OVERFLOW PROCESSOR ADDRESS
06468  M01S00009.ns2290  +++|          SA6    FLM
06469  M01S00010.ns2290  +++|          SA7    TO
06470  M01S00011.ns2290  +++|          MEMORY CM,A6,R,,NA
06471  M01S00012.ns2290  +++|          SA1    FLM         POSITION MAXIMUM FIELD LENGTH
06472  M01S00013.ns2290  +++|          LX1    30
06473  M01S00014.ns2290  +++|          SX6    X1-FLIN
06474  M01S00015.ns2290  +++|          SA6    FLM
06475  M00S05621.profile +++|          EREXIT ABE         SET ERROR EXIT
06476  M00S05622.profile +++|          PDATE  PD          SET DATE
06477  M00S05623.profile +++|          SA1    PD
06478  M00S05624.profile +++|          AX1    18
06479  M00S05625.profile +++|          BX6    X1
06480  M00S05626.profile +++|          SA6    A1
06481  M00S05627.profile +++|          LX6    -18         PLACE DATE IN DEFAULT ENTRIES
06482  M00S05628.profile +++|          SA6    D1AA+CDTW
06483  M00S05629.profile +++|          SA6    D3AA+PCDW
06484  M00S05630.profile +++|          SA1    JOPR        SET ORIGIN TYPE
06485  M00S05631.profile +++|          MX6    -12
06486  M00S05632.profile +++|          AX1    24
06487  M00S05633.profile +++|          SA2    SSJ=+AACS   USER ACCESS CONTROL WORD
06488  M00S05634.profile +++|          BX6    -X6*X1
06489  M00S05635.profile +++|          MX0    42
06490  M00S05636.profile +++|          SA6    OT
Line S05637 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06491  M01S05637.v23l617 ---|          SA1    SSJ=+UIDS   USER NUMBER
Line S00368 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06492  M01S00368.v23l617 +++|          SA1    SSJ=+UIDS   USER NAME
06493  M00S05638.profile +++|          SX6    X6-SYOT
06494  M00S05639.profile +++|          ZR     X6,PRS1     IF SYSTEM ORIGIN
Line S05640 Modification History
M01 (Removed by) profi1
Seq #  *Modification Id* Act 
----------------------------+
06495  M01S05640.profi1  ---|          SX7    2RFM        SET FULL MASTER USER LIST DEFAULT
06496  M01S05641.profi1  ---|          LX7    -12
06497  M01S05642.profi1  ---|          SX6    B1+B1
06498  M01S05643.profi1  ---|          SA7    LO
06499  M01S05644.profi1  ---|          LX2    59-CSAP
06500  M01S05645.profi1  ---|          PL     X2,PRS1     IF NOT SPECIAL ACCOUNTING USER
06501  M01S05646.profi1  ---|          SX6    B1
Line S00004 Modification History
M01 (Added by) profi1
Seq #  *Modification Id* Act 
----------------------------+
06502  M01S00004.profi1  +++|          SX6    B1          SET SPECIAL ACCOUNTING USER CLASSIFICATION
06503  M01S00005.profi1  +++|          LX2    59-CSAP
06504  M01S00006.profi1  +++|          NG     X2,PRS1     IF SPECIAL ACCOUNTING USER
06505  M01S00007.profi1  +++|          SX7    2RFM        SET FULL MASTER USER LIST OPTION
06506  M01S00008.profi1  +++|          SX6    B1+B1       SET MASTER USER CLASSIFICATION
06507  M01S00009.profi1  +++|          LX7    -12
06508  M01S00010.profi1  +++|          SA7    LO
06509  M00S05647.profile +++| PRS1     SA6    ACCC        ACCESS CLASSIFICATION
06510  M00S05648.profile +++|          BX1    X0*X1
06511  M00S05649.profile +++|          BX6    X1
06512  M00S05650.profile +++|          SA6    UN
06513  M00S05651.profile +++|          RJ     SFN
06514  M00S05652.profile +++|          SA6    HDRE+2
06515  M00S05653.profile +++|          SX3    B1          CLEAR ERROR PROCESSING
06516  M00S05654.profile +++|          LX3    44
06517  M00S05655.profile +++|          SA1    I+1
06518  M00S05656.profile +++|          SA2    O+1
06519  M00S05657.profile +++|          BX6    -X3*X1
06520  M00S05658.profile +++|          BX7    -X3*X2
06521  M00S05659.profile +++|          SA6    A1
06522  M00S05660.profile +++|          SA7    A2
06523  M00S05661.profile +++|          SB2    CCDR
06524  M00S05662.profile +++|          RJ     USB         UNPACK DATA TO STRING BUFFER
06525  M00S05663.profile +++| PRS2     RJ     POP         PICK OUT PARAMETER
06526  M00S05664.profile +++|          NG     B5,PRS3     IF ERROR ENCOUNTERED
06527  M00S05665.profile +++|          ZR     B6,PRS4     IF NO ARGUMENTS
06528  M00S05666.profile +++|          ZR     X6,PRS2     IF SPECIAL CHARACTER
06529  M00S05667.profile +++|          LX6    6
06530  M00S05668.profile +++|          SX1    X6-1R0
06531  M00S05669.profile +++|          PL     X1,PRS2     IF NOT ALPHA
06532  M00S05670.profile +++|          SA1    PRSB+UOPT
06533  M00S05671.profile +++|          BX6    X1
06534  M00S05672.profile +++|          SA6    OP
06535  M00S05673.profile +++|          SB3    PRSA
06536  M00S05674.profile +++|          RJ     ARM         ARGUMENT PROCESSOR
06537  M00S05675.profile +++|          ZR     X1,PRS6     IF NO ERROR
06538  M00S05676.profile +++| PRS3     SX2    =C* ERROR IN PROFILE ARGUMENTS.*
06539  M00S05677.profile +++|          EQ     ABT
06540  M00S05678.profile +++|
06541  M00S05679.profile +++| PRS4     SA1    OT
06542  M00S05680.profile +++|          SA5    PRSB+UOPT   SET UPDATE OPTION
06543  M00S05681.profile +++|          NZ     X1,PRS5     IF NOT SYSTEM
06544  M00S05682.profile +++|          SETRNR NOROLL      PREVENT JOB ROLLOUT
06545  M00S05683.profile +++|          SA5    PRSB+KOPT   SET K-DISPLAY OPTION
06546  M00S05684.profile +++| PRS5     BX6    X5
06547  M00S05685.profile +++|          SA6    OP
06548  M00S05686.profile +++| PRS6     SA1    O           SET OUTPUT POINTER IN RA+2
06549  M00S05687.profile +++|          MX0    42
06550  M00S05688.profile +++|          BX6    X0*X1
06551  M00S05689.profile +++|          SX1    A1
06552  M00S05690.profile +++|          BX6    X6+X1
06553  M00S05691.profile +++|          SA6    ARGR
Line S00302 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06554  M01S00302.ns22000 +++|          GETPP  *,LL,PDEN   GET PAGE SIZE PARAMETERS
06555  M00S05692.profile +++|          SX2    I           CHECK INPUT FILE
06556  M00S05693.profile +++|          RJ     STF
06557  M00S05694.profile +++|          SA6    PI
06558  M00S05695.profile +++|          SX2    O           CHECK OUTPUT FILE
06559  M00S05696.profile +++|          RJ     STF
06560  M00S05697.profile +++|          SA6    PO
Line S00303 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06561  M01S00303.ns22000 +++|          WRITEW O,PDEN,X6   CONDITIONALLY WRITE FORMAT EFFECTOR
06562  M00S05698.profile +++|          WRITE  O,*         PRESET WRITE FUNCTION
06563  M00S05699.profile +++|          DATE   HDRH        SET DATE AND TIME IN HEADER LINE
06564  M00S05700.profile +++|          CLOCK  HDRH+1
06565  M00S05701.profile +++|          SA5    OP
06566  M00S05702.profile +++|          RJ     CAF         CHECK ALTERNATE FAMILY
06567  M00S05703.profile +++|          NZ     X6,PRS3     IF FAMILY CHANGE NOT ALLOWED
06568  M00S05704.profile +++|          SA4    ALF
06569  M00S05705.profile +++|          SB3    -1
06570  M00S05706.profile +++|          ZR     X4,PRS7     IF NO ALTERNATE FILE SPECIFIED
06571  M00S05707.profile +++|          BX6    X4
06572  M00S05708.profile +++|          MX0    42
06573  M00S05709.profile +++|          SA6    P+CFPN      SET NEW PF NAME
06574  M00S05710.profile +++|          SA6    N+CFPN
06575  M00S05711.profile +++|          BX1    X0*X4
Line S00304 Modification History
M01 (Added by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06576  M01S00304.ns22000 +++|          SA2    DSCD
06577  M01S00305.ns22000 +++|          MX0    24
06578  M01S00306.ns22000 +++|          LX1    36
06579  M01S00307.ns22000 +++|          BX6    X0*X2
06580  M01S00308.ns22000 +++|          BX2    -X0*X1
06581  M01S00309.ns22000 +++|          BX6    X2+X6
06582  M01S00310.ns22000 +++|          SA6    A2
06583  M01S00311.ns22000 +++|          SA2    A2+B1
06584  M01S00312.ns22000 +++|          MX0    6
06585  M01S00313.ns22000 +++|          BX6    -X0*X2
06586  M01S00314.ns22000 +++|          BX2    X0*X1
06587  M01S00315.ns22000 +++|          BX6    X2+X6
06588  M01S00316.ns22000 +++|          SA6    A2
06589  M01S00317.ns22000 +++|          LX1    24
06590  M00S05712.profile +++|          MX0    54
06591  M00S05713.profile +++|          RJ     SFN         SPACE FILL NAME
06592  M00S05714.profile +++|          LX6    54
06593  M00S05715.profile +++|          SX1    1R1
06594  M00S05716.profile +++|          BX7    X0*X6
Line S05717 Modification History
M01 (Removed by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
06595  M01S05717.ns22000 ---|          SA6    DSFN+1
06596  M00S05718.profile +++|          BX7    X7+X1
06597  M00S05719.profile +++|          LX7    54
06598  M00S05720.profile +++|          SA7    HDRA
06599  M00S05721.profile +++| PRS7     SB3    B3+B1
06600  M00S05722.profile +++|          SA3    PRSB+B3     SEARCH FOR OPTION
06601  M00S05723.profile +++|          ZR     X3,PRS3     ERROR - IF END OF TABLE
06602  M00S05724.profile +++|          BX2    X5-X3
06603  M00S05725.profile +++|          SX6    B3
06604  M00S05726.profile +++|          NZ     X2,PRS7     IF NOT CHARACTER
06605  M00S05727.profile +++|          BX5    X6
06606  M00S05728.profile +++|          SA6    A5
06607  M00S05729.profile +++|          SA1    OT
06608  M00S05730.profile +++|          SX2    X5-IOPT
06609  M00S05731.profile +++|          NZ     X2,PRS10    IF NOT INQUIRE OPTION
06610  M00S05732.profile +++|          SA1    CN
06611  M00S05733.profile +++|          NZ     X1,PRS8     IF CHARGE NUMBER PARAMETER SPECIFIED
06612  M00S05734.profile +++|          SA2    PN
06613  M00S05735.profile +++|          NZ     X2,PRS3     IF PROJECT NUMBER PARAMETER SPECIFIED
06614  M00S05736.profile +++| PRS8     SA3    ACCC        ACCESS CLASSIFICATION
06615  M00S05737.profile +++|          SB2    X3
06616  M00S05738.profile +++|          LE     B2,B1,PRS11 IF SYOT OR SPECIAL ACCOUNTING USER
06617  M00S05739.profile +++|          SA3    UN
Line S05740 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06618  M01S05740.v23l617 ---|          NZ     X3,PRS11    IF USER NUMBER PRESENT
06619  M01S05741.v23l617 ---| PRS9     SX2    =C* MASTER USER NUMBER REQUIRED.*
Line S00369 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06620  M01S00369.v23l617 +++|          NZ     X3,PRS11    IF USER NAME PRESENT
06621  M01S00370.v23l617 +++| PRS9     SX2    =C* MASTER USER NAME REQUIRED.*
06622  M00S05742.profile +++|          EQ     ABT
06623  M00S05743.profile +++|
06624  M00S05744.profile +++| PRS10    SA3    CN
06625  M00S05745.profile +++|          NZ     X3,PRS3     IF CHARGE NUMBER SPECIFIED
06626  M00S05746.profile +++|          SA3    PN
06627  M00S05747.profile +++|          NZ     X3,PRS3     IF PROJECT NUMBER SPECIFIED
06628  M00S05748.profile +++|          SX2    X5-LOPT
06629  M00S05749.profile +++|          ZR     X2,PRS22    IF LIST OPTION
06630  M00S05750.profile +++|          SX2    X5-UOPT
Line S05751 Modification History
M01 (Removed by) profi5
Seq #  *Modification Id* Act 
----------------------------+
06631  M01S05751.profi5  ---|          ZR     X2,PRS11    IF UPDATE
Line S00005 Modification History
M01 (Added by) profi5
Seq #  *Modification Id* Act 
----------------------------+
06632  M01S00005.profi5  +++|          ZR     X2,PRS10.1  IF UPDATE
06633  M00S05752.profile +++|          SX2    X5-TOPT
Line S05753 Modification History
M01 (Removed by) profi5
Seq #  *Modification Id* Act 
----------------------------+
06634  M01S05753.profi5  ---|          ZR     X2,PRS11    IF TIMESHARING UPDATE
Line S00006 Modification History
M01 (Added by) profi5
M02 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06635  M02S00006.v23l617 ---|          ZR     X2,PRS10.1  IF TIMESHARING UPDATE
Line S00371 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06636  M01S00371.v23l617 +++|          ZR     X2,PRS10.1  IF INTERACTIVE UPDATE
06637  M00S05754.profile +++|          NZ     X1,PRS3     IF NOT SYSTEM ORIGIN
06638  M00S05755.profile +++|          SX2    X5-COPT
06639  M00S05756.profile +++|          ZR     X2,PRS16    IF CREATE
06640  M00S05757.profile +++|          SX2    X5-ROPT
06641  M00S05758.profile +++|          ZR     X2,PRS16    IF REFORMAT
Line S00007 Modification History
M01 (Added by) profi5
Seq #  *Modification Id* Act 
----------------------------+
06642  M01S00007.profi5  +++| PRS10.1  SA1    ALF
06643  M01S00008.profi5  +++|          ZR     X1,PRS11    IF NO ALTERNATE FILE SPECIFIED
06644  M01S00009.profi5  +++|          ATTACH N,,,,RM,,,IP,FA
06645  M01S00010.profi5  +++|          SB2    N
06646  M01S00011.profi5  +++|          RJ     CFS         CHECK FILE STATUS
06647  M01S00012.profi5  +++|          NZ     X2,PRS11    IF FILE NOT FAST-ATTACH
06648  M01S00013.profi5  +++|          SX2    =C* FAST-ATTACH ALTERNATE FILE NOT ALLOWED.*
06649  M01S00014.profi5  +++|          EQ     ABT         ABORT
06650  M01S00015.profi5  +++|
Line S05759 Modification History
M01 (Removed by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
06651  M01S05759.ns2729  ---| PRS11    ATTACH N,,,,RM,,,IP
Line S00002 Modification History
M01 (Added by) ns2729
Seq #  *Modification Id* Act 
----------------------------+
06652  M01S00002.ns2729  +++| PRS11    ATTACH N,,,,RM,,,IP,MA
06653  M00S05760.profile +++|          SB2    N
06654  M00S05761.profile +++|          RJ     CFS         CHECK FILE STATUS
Line S05762 Modification History
M01 (Removed by) profi9
Seq #  *Modification Id* Act 
----------------------------+
06655  M01S05762.profi9  ---|          NZ     X2,ABT1     IF PFM ERROR
Line S00009 Modification History
M01 (Added by) profi9
Seq #  *Modification Id* Act 
----------------------------+
06656  M01S00009.profi9  +++|          NZ     X2,ABT3     IF *PFM* ERROR
06657  M00S05763.profile +++| PRS12    READ   N
06658  M00S05764.profile +++|          READW  N,CW,3
06659  M00S05765.profile +++|          ZR     X1,PRS14    IF TRANSFER COMPLETE
06660  M00S05766.profile +++| PRS13    SX2    =C* PROFILE FILE DATA BASE ERROR.*
06661  M00S05767.profile +++|          EQ     ABT
06662  M00S05768.profile +++|
06663  M00S05769.profile +++| PRS14    SA1    CW
06664  M00S05770.profile +++|          MX0    12
06665  M00S05771.profile +++|          BX1    X0*X1
06666  M00S05772.profile +++|          NZ     X1,PRS13    IF NOT LEVEL-0
06667  M00S05773.profile +++|          READW  N,PRBF,2
06668  M00S05774.profile +++|          NZ     X1,PRS13    IF CHARGE NUMBER MISSING
06669  M00S05775.profile +++|          SA1    PRBF+1
06670  M00S05776.profile +++|          SX1    X1
06671  M00S05777.profile +++|          ZR     X1,PRS13    IF NO LEVEL-1 LINK
06672  M00S05778.profile +++|          REWIND N,R
06673  M00S05779.profile +++|          SX6    X5-ROPT
06674  M00S05780.profile +++|          ZR     X6,PRS18    IF REFORMAT
06675  M00S05781.profile +++|          SX6    X5-KOPT
06676  M00S05782.profile +++|          NZ     X6,PRS19    IF NOT K-DISPLAY
Line S00372 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06677  M01S00372.v23l617 +++|          SX3    PRSD
06678  M01S00373.v23l617 +++|          RJ     PRK         PRESET K-DISPLAY BUFFER
Line S05783 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06679  M01S05783.v23l617 ---|          SA1    DSPN        INITIALIZE K-DISPLAY BUFFER
Line S00374 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06680  M01S00374.v23l617 +++|          SA1    KPLN        DISABLE PAGE LINE
06681  M00S05784.profile +++|          BX7    X1
06682  M00S05785.profile +++|          SA7    KSAV
Line S05786 Modification History
M01 (Removed by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06683  M01S05786.v23l617 ---|          SA1    DSCN
Line S00375 Modification History
M01 (Added by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
06684  M01S00375.v23l617 +++|          BX6    X6-X6
06685  M01S00376.v23l617 +++|          SA6    A1
06686  M01S00377.v23l617 +++|          SA1    DSCN        DISABLE CHARGE DISPLAY
06687  M00S05787.profile +++|          BX7    X1
06688  M00S05788.profile +++|          SA7    A7+B1
06689  M00S05789.profile +++|          SA6    A1
06690  M00S05790.profile +++|          MX0    -18
06691  M00S05791.profile +++|          SA5    CW+1
06692  M00S05792.profile +++|          BX1    -X0*X5
06693  M00S05793.profile +++|          EDATE  X1
06694  M00S05794.profile +++|          SA6    DSMD+2
06695  M00S05795.profile +++|          AX5    18
06696  M00S05796.profile +++|          BX1    -X0*X5
06697  M00S05797.profile +++|          EDATE  X1
06698  M00S05798.profile +++|          SA6    DSCD+2
06699  M00S05799.profile +++|          EQ     PRS19
06700  M00S05800.profile +++|
06701  M00S05801.profile +++| PRS16    SETUI  SYUI
06702  M00S05802.profile +++|          SX2    X5-COPT
06703  M00S05803.profile +++|          BX6    X6-X6
06704  M00S05804.profile +++|          SA6    P+CFOU
06705  M00S05805.profile +++|          ZR     X2,PRS18    IF CREATE
Proceed to Part 4
cdc/nos2.source/opl.opl871/deck/profile.003.txt ยท Last modified: (external edit)