Deck CATLIST Part 003

16 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
Line S00534 Modification History
M01 (Added by) ns22000
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02447  M02S00534.253l688 ---| PASB     DATA   C* XXXXXXXXX DIRECT ACCESS FILES,       TOTAL PRUS = XX
Line S01109 Modification History
M01 (Added by) catlist
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02448  M02S01109.253l688 ---|,XXXXXXX.*
Line S01110 Modification History
M01 (Added by) catlist
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02449  M02S01110.253l688 ---| PASBL    EQU    *-PASB
Line S00535 Modification History
M01 (Added by) ns22000
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02450  M02S00535.253l688 ---| PASC     DATA   10HE,      TO
Line S00536 Modification History
M01 (Added by) ns22000
M02 (Updated by) 253l688
Seq #  *Modification Id* Act 
----------------------------+
02451  M02S00536.253l688 ---| PASD     DATA   20HCESS FILE,        TO
02452  M01S00276.253l688 +++| PASA     DATA   C* ######### INDIRECT ACCESS FILES ON DISK.  TOTAL PRUS
02453  M01S00277.253l688 +++|, = $$$$$$$$$.*
02454  M01S00278.253l688 +++| PASB     DATA   C* ######### INDIRECT ACCESS FILE ON DISK.   TOTAL PRUS
02455  M01S00279.253l688 +++|, = $$$$$$$$$.*
02456  M01S00280.253l688 +++|
02457  M01S00281.253l688 +++| PASC     DATA   C* ######### DIRECT ACCESS FILES ON DISK.    TOTAL PRUS
02458  M01S00282.253l688 +++|, = $$$$$$$$$.*
02459  M01S00283.253l688 +++| PASD     DATA   C* ######### DIRECT ACCESS FILE ON DISK.     TOTAL PRUS
02460  M01S00284.253l688 +++|, = $$$$$$$$$.*
02461  M01S00285.253l688 +++|
Line S00286 Modification History
M01 (Added by) 253l688
M02 (Updated by) catli7
Seq #  *Modification Id* Act 
----------------------------+
02462  M02S00286.catli7  ---| PASE     DATA   C* ######### FILES ON CARTRIDGE.             TOTAL PRUS
02463  M01S00045.catli7  +++| PASE     DATA   C* ######### INDIRECTS ON ALTERNATE STORAGE. TOTAL PRUS
02464  M01S00287.253l688 +++|, = $$$$$$$$$.*
Line S00288 Modification History
M01 (Added by) 253l688
M02 (Updated by) catli7
Seq #  *Modification Id* Act 
----------------------------+
02465  M02S00288.catli7  ---| PASF     DATA   C* ######### FILE ON CARTRIDGE.              TOTAL PRUS
02466  M01S00046.catli7  +++| PASF     DATA   C* ######### INDIRECT ON ALTERNATE STORAGE.  TOTAL PRUS
02467  M01S00289.253l688 +++|, = $$$$$$$$$.*
02468  M01S00290.253l688 +++|
Line S00291 Modification History
M01 (Added by) 253l688
M02 (Updated by) catli7
Seq #  *Modification Id* Act 
----------------------------+
02469  M02S00291.catli7  ---| PASG     DATA   C* ######### FILES ON TAPE.                  TOTAL PRUS
02470  M01S00047.catli7  +++| PASG     DATA   C* ######### DIRECTS ON ALTERNATE STORAGE.   TOTAL PRUS
02471  M01S00292.253l688 +++|, = $$$$$$$$$.*
Line S00293 Modification History
M01 (Added by) 253l688
M02 (Updated by) catli7
Seq #  *Modification Id* Act 
----------------------------+
02472  M02S00293.catli7  ---| PASH     DATA   C* ######### FILE ON TAPE.                   TOTAL PRUS
02473  M01S00048.catli7  +++| PASH     DATA   C* ######### DIRECT ON ALTERNATE STORAGE.    TOTAL PRUS
02474  M01S00294.253l688 +++|, = $$$$$$$$$.*
Line S01111 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02475  M02S01111.ns22000 ---| PTP      SPACE  4
02476  M01S00537.ns22000 +++| PTP      SPACE  4,10
02477  M01S01112.catlist +++|**        PTP - PRINT TITLE PAGE.
02478  M01S01113.catlist +++|*
Line S01114 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02479  M02S01114.ns22000 ---|*         ENTRY  (PG) = PAGE NUMBER
02480  M01S00538.ns22000 +++|*         ENTRY  (PG) = PAGE NUMBER.
02481  M01S01115.catlist +++|*
Line S01116 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02482  M02S01116.ns22000 ---|*         EXIT   TITLE PAGE PRINTED
02483  M01S00539.ns22000 +++|*         EXIT   TITLE PAGE PRINTED.
02484  M01S01117.catlist +++|*                (LN) RESET TO 2.
02485  M01S00540.ns22000 +++|*
02486  M01S01118.catlist +++|*         CALLS  CDD.
02487  M01S01119.catlist +++|
02488  M01S01120.catlist +++|
02489  M01S01121.catlist +++| PTP      SUBR               ENTRY/EXIT
02490  M01S01122.catlist +++|          SA1    PG          ADVANCE TO NEXT PAGE
02491  M01S01123.catlist +++|          SX1    X1+B1
02492  M01S01124.catlist +++|          BX6    X1
02493  M01S01125.catlist +++|          SA6    A1
02494  M01S01126.catlist +++|          RJ     CDD         CONVERT TO DECIMAL
02495  M01S01127.catlist +++|          MX0    48
02496  M01S01128.catlist +++|          BX6    -X0*X6
02497  M01S01129.catlist +++|          SA1    PAGE
02498  M01S01130.catlist +++|          BX1    X0*X1
02499  M01S01131.catlist +++|          BX6    X1+X6
02500  M01S01132.catlist +++|          SA6    PAGE
02501  M01S01133.catlist +++|
02502  M01S01134.catlist +++|          DATE   DATE
02503  M01S01135.catlist +++|          CLOCK  TIME
02504  M01S01136.catlist +++|          SB2    6           FOR TELEX ORIGIN JOBS
02505  M01S01137.catlist +++|          SA1    DT
02506  M01S00541.ns22000 +++|          SX0    B0+         INITIALIZE LINE COUNTER
02507  M01S01138.catlist +++|          ZR     X1,PTP1     IF TERMINAL FILE
Line S01139 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02508  M02S01139.ns22000 ---|          WRITEH O,PTPA,B1
02509  M01S00542.ns22000 +++|
02510  M01S00543.ns22000 +++|          SA1    PD
02511  M01S00544.ns22000 +++|          ZR     X1,PTP0     IF *PD* ALREADY PROCESSED
02512  M01S00545.ns22000 +++|          WRITEC O,A1
02513  M01S00546.ns22000 +++|          SX6    B0+
02514  M01S00547.ns22000 +++|          SA6    PD          INDICATE *PD* PROCESSED
02515  M01S00548.ns22000 +++| PTP0     WRITEH O,PTPA,B1
02516  M01S01140.catlist +++|          SB2    7           FOR NON-TELEX ORIGIN JOBS
02517  M01S00549.ns22000 +++|          SX0    X0+B1       COUNT PAGE EJECT
02518  M01S01141.catlist +++| PTP1     WRITEH O,PTPB,B2+  WRITE TITLE LINE
02519  M01S00550.ns22000 +++|          SX0    X0+B1       COUNT TITLE LINE
02520  M01S01142.catlist +++|          SA1    PTPC        WRITE SUB TITLE
02521  M01S01143.catlist +++|          WRITEC O,X1
Line S01144 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02522  M02S01144.ns22000 ---|          SX6    3           RESET LINE NUMBER
02523  M01S00551.ns22000 +++|          SX0    X0+B1       COUNT SUBTITLE LINE
02524  M01S00552.ns22000 +++|          SA1    LN
02525  M01S00553.ns22000 +++|          IX6    X1+X0       RESET LINE NUMBER
02526  M01S01145.catlist +++|          SA6    LN
02527  M01S01146.catlist +++|          EQ     PTPX        EXIT
02528  M01S01147.catlist +++|
02529  M01S01148.catlist +++|
02530  M01S01149.catlist +++| PTPA     CON    1H1
02531  M01S01150.catlist +++| PTPB     DATA   30H CATALOG OF
02532  M01S01151.catlist +++| PKNM     CON    10H
02533  M01S01152.catlist +++| DATE     CON    0
02534  M01S01153.catlist +++| TIME     CON    0
02535  M01S01154.catlist +++| PAGE     DATA   8L  PAGE
02536  M01S01155.catlist +++|
02537  M01S01156.catlist +++| PTPC     CON    BLK         SUBTITLE FLAG
02538  M01S01157.catlist +++| PTPD     CON    1H
02539  M01S01158.catlist +++|          CON    10HFILE NAME
02540  M01S01159.catlist +++| FILE     CON    0
02541  M01S01160.catlist +++|
02542  M01S01161.catlist +++| PTPE     CON    1H
02543  M01S01162.catlist +++|          CON    10HALTERNATE
02544  M01S01163.catlist +++|          CON    10HCATALOG
02545  M01S01164.catlist +++| AUSER    CON    0
02546  M01S01165.catlist +++|
02547  M01S01166.catlist +++| RQS      SPACE  4,15
02548  M01S01167.catlist +++|**        RQS - REQUEST STORAGE.
02549  M01S01168.catlist +++|*
02550  M01S01169.catlist +++|*         ENTRY  (X1) = CURRENT BUFFER SIZE.
02551  M01S01170.catlist +++|*
02552  M01S01171.catlist +++|*         EXIT   (X1) = NEGATIVE IF NO MORE STORAGE AVAILABLE.
02553  M01S01172.catlist +++|*                (CFL) = NEW CURRENT FL.
02554  M01S01173.catlist +++|*                (CBS) = NEW CURRENT BUFFER SIZE.
02555  M01S01174.catlist +++|*
02556  M01S01175.catlist +++|*         USES   X - 1, 3, 6.
02557  M01S01176.catlist +++|*                A - 1, 3, 6.
02558  M01S01177.catlist +++|*
02559  M01S01178.catlist +++|*         MACROS MEMORY.
02560  M01S01179.catlist +++|
02561  M01S01180.catlist +++|
02562  M01S01181.catlist +++| RQS      SUBR               ENTRY/EXIT
02563  M01S01182.catlist +++|          SA3    MBS         GET MAXIMUM BUFFER SIZE
02564  M01S01183.catlist +++|          SX6    X1+FLIN     ADD POSSIBLE INCREMENT
02565  M01S01184.catlist +++|          IX1    X3-X6
02566  M01S01185.catlist +++|          NG     X1,RQSX     IF NO MORE SPACE
02567  M01S01186.catlist +++|          SA3    CFL         SET POSSIBLE NEW FL
02568  M01S01187.catlist +++|          SX6    X3+FLIN
02569  M01S01188.catlist +++|          SA6    A3
02570  M01S01189.catlist +++|          LX6    30
02571  M01S01190.catlist +++|          SA6    RQSA
02572  M01S01191.catlist +++|          MEMORY CM,RQSA,R,,NA
02573  M01S01192.catlist +++|          SA3    RQSA
02574  M01S01193.catlist +++|          SA1    CFL
02575  M01S01194.catlist +++|          AX3    30
02576  M01S01195.catlist +++|          IX1    X3-X1
02577  M01S01196.catlist +++|          NG     X1,RQSX     IF NO MORE ALLOCATED
02578  M01S01197.catlist +++|          SA1    CBS         UPDATE CURRENT SORT BUFFER SIZE
02579  M01S01198.catlist +++|          SX6    X1+FLIN
02580  M01S01199.catlist +++|          SA6    A1
02581  M01S01200.catlist +++|          EQ     RQSX        RETURN
02582  M01S01201.catlist +++|
02583  M01S01202.catlist +++|
02584  M01S01203.catlist +++| RQSA     CON    0           FL CONTROL WORD
02585  M01S00554.ns22000 +++| SNP      SPACE  4,15
02586  M01S00555.ns22000 +++|**        SNP - SET NEXT PAGE.
02587  M01S00556.ns22000 +++|*
02588  M01S00557.ns22000 +++|*         ENTRY  (X1) = TOTAL NUMBER OF FILES.
02589  M01S00558.ns22000 +++|*
02590  M01S00559.ns22000 +++|*         EXIT   (X1) = 0 IF NO MORE FILES TO PRINT.
02591  M01S00560.ns22000 +++|*                (BO) = BUFFER OFFSET FOR THIS PAGE.
02592  M01S00561.ns22000 +++|*                (BL) = BUFFER LENGTH FOR THIS PAGE.
02593  M01S00562.ns22000 +++|*
02594  M01S00563.ns22000 +++|*         USES   X - 1, 2, 3, 4, 6, 7.
02595  M01S00564.ns22000 +++|*                A - 1, 2, 3, 4, 6, 7.
02596  M01S00565.ns22000 +++|*                B - 2.
02597  M01S00566.ns22000 +++|*
02598  M01S00567.ns22000 +++|*         CALLS  ALN, NIP.
02599  M01S00568.ns22000 +++|*
02600  M01S00569.ns22000 +++|
02601  M01S00570.ns22000 +++|
02602  M01S00571.ns22000 +++| SNP4     MX6    0
02603  M01S00572.ns22000 +++|          SA6    A2          CLEAR BUFFER OFFSET
02604  M01S00573.ns22000 +++|          MX1    0           EXIT WITH NO MORE FILES
02605  M01S00574.ns22000 +++|          SA6    A6-B1
02606  M01S00575.ns22000 +++| SNP5     SX7    8           RESET *GSL* LIST ROUTINE
02607  M01S00576.ns22000 +++|          SA7    GSLA
02608  M01S00577.ns22000 +++|
02609  M01S00578.ns22000 +++| SNP      SUBR               ENTRY/EXIT
02610  M01S00579.ns22000 +++|          SA2    BO+1
02611  M01S00580.ns22000 +++|          IX3    X2-X1
02612  M01S00581.ns22000 +++|          BX6    X2
02613  M01S00582.ns22000 +++|          ZR     X3,SNP4     IF NO MORE FILES TO LIST
02614  M01S00583.ns22000 +++|          BX7    X1
02615  M01S00584.ns22000 +++|          SA6    A2-B1       SET UP NEW OFFSET
02616  M01S00585.ns22000 +++|          SA7    SNPA        SAVE (X1)
02617  M01S00586.ns22000 +++| SNP1     SA3    LN
02618  M01S00587.ns22000 +++|          SX6    7           LINE LENGTH
02619  M01S00588.ns22000 +++|          SA4    LL
02620  M01S00589.ns22000 +++|          IX7    X4-X3
02621  M01S00590.ns22000 +++|          NG     X7,SNP3     IF END OF PAGE
02622  M01S00591.ns22000 +++|          ZR     X7,SNP3     IF END OF PAGE
02623  M01S00592.ns22000 +++|          IX6    X6*X7
02624  M01S00593.ns22000 +++|          SA2    BO+1
02625  M01S00594.ns22000 +++|          IX7    X6+X2       FORM NEW OFFSET
02626  M01S00595.ns22000 +++|          SA1    SNPA
02627  M01S00596.ns22000 +++|          IX4    X1-X7
02628  M01S00597.ns22000 +++|          PL     X4,SNP2     IF MORE THAN ONE PAGE
02629  M01S00598.ns22000 +++|          IX7    X7+X4
02630  M01S00599.ns22000 +++|          IX6    X6+X4
02631  M01S00600.ns22000 +++| SNP2     SA6    BL          COUNT OF FILE NAMES ON PAGE
02632  M01S00601.ns22000 +++|          SA7    BO+1        OFFSET FOR NEXT PASS
02633  M01S00602.ns22000 +++|          BX1    X6
02634  M01S00603.ns22000 +++|          RJ     NIP         PRESET *GNI*
02635  M01S00604.ns22000 +++|          SA1    BL          EXIT WITH FILE COUNT
02636  M01S00605.ns22000 +++|          EQ     SNP5        RETURN
02637  M01S00606.ns22000 +++|
02638  M01S00607.ns22000 +++| SNP3     SB2    B1
02639  M01S00608.ns22000 +++|          RJ     ALN         ADVANCE LINE
02640  M01S00609.ns22000 +++|          EQ     SNP1        RETURN TO MAIN LINE
02641  M01S00610.ns22000 +++|
02642  M01S00611.ns22000 +++| SNPA     CON    0           TEMPORARY STORAGE (TOTAL NUMBER OF FILES)
Line S01204 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02643  M02S01204.ns22000 ---|          SPACE  4
02644  M01S00612.ns22000 +++|          SPACE  4,10
02645  M01S01205.catlist +++|**        COMMON DECKS.
02646  M01S01206.catlist +++|
02647  M01S01207.catlist +++|
Line S01208 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02648  M02S01208.ns22000 ---|*CALL,COMCCIO
02649  M01S00613.ns22000 +++|*CALL     COMCCDD
02650  M01S00614.ns22000 +++|*CALL     COMCCIO
02651  M01S00615.ns22000 +++|*CALL     COMCCOD
02652  M01S00616.ns22000 +++|*CALL     COMCCPM
02653  M01S00617.ns22000 +++|*CALL     COMCDXB
02654  M01S00618.ns22000 +++|*CALL     COMCEDT
02655  M01S00619.ns22000 +++|*CALL     COMCLFM
02656  M01S00620.ns22000 +++|*CALL     COMCPFM
02657  M01S00621.ns22000 +++|*CALL     COMCRDW
02658  M01S00622.ns22000 +++|*CALL     COMCSCB
02659  M01S00623.ns22000 +++|*CALL     COMCSFN
02660  M01S00295.253l688 +++|*CALL     COMCSNM
02661  M01S01209.catlist +++|*CALL     COMCSST
Line S01210 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02662  M02S01210.ns22000 ---|*CALL     COMCDXB
Line S01211 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02663  M02S01211.ns22000 ---|*CALL,COMCSYS
Line S01212 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02664  M02S01212.ns22000 ---|*CALL,COMCCDD
Line S01213 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02665  M02S01213.ns22000 ---|*CALL,COMCRDW
Line S01214 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02666  M02S01214.ns22000 ---|*CALL,COMCWTC
Line S01215 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02667  M02S01215.ns22000 ---|*CALL,COMCWTW
Line S01216 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02668  M02S01216.ns22000 ---|*CALL,COMCWTH
Line S01217 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02669  M02S01217.ns22000 ---|*CALL,COMCSFN
Line S01218 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02670  M02S01218.ns22000 ---|*CALL,COMCPFM
Line S01219 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02671  M02S01219.ns22000 ---|*CALL,COMCLFM
Line S01220 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02672  M02S01220.ns22000 ---|*CALL     COMCCPM
Line S01221 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02673  M02S01221.ns22000 ---|*CALL,COMCEDT
Line S01222 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02674  M02S01222.ns22000 ---|*CALL     COMCCOD
02675  M01S00624.ns22000 +++|*CALL     COMCSYS
02676  M01S00625.ns22000 +++|*CALL     COMCWTC
02677  M01S00626.ns22000 +++|*CALL     COMCWTH
02678  M01S00627.ns22000 +++|*CALL     COMCWTW
02679  M01S00001.ns2636  +++|*CALL     COMCZTB
02680  M01S00628.ns22000 +++|          LIST   X,F
02681  M01S01223.catlist +++|*CALL     COMCFCE
02682  M01S00629.ns22000 +++|          LIST   *
Line S01224 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02683  M02S01224.ns22000 ---|*CALL     COMCSCB
02684  M01S01225.catlist +++|          SPACE  4,10
02685  M01S01226.catlist +++|**        EQUIVALENCES.
02686  M01S01227.catlist +++|
02687  M01S01228.catlist +++|
02688  M01S01229.catlist +++| FCELL    EQU    /COMCFCE/FCELL  OUTPUT BUFFER LINE LENGTH
Line S01230 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02689  M02S01230.v23l617 ---| FCELA    EQU    /COMCFCE/FCELA  OUTPUT BUFFER LAST LINE LENGTH
02690  M01S00026.v23l617 +++| FCELA    EQU    /COMCFCE/FCELA  OUTPUT BUFFER THIRD LINE LENGTH
02691  M01S00027.v23l617 +++| FCELB    EQU    /COMCFCE/FCELB  OUTPUT BUFFER FOURTH LINE LENGTH
02692  M01S01231.catlist +++|          SPACE  4
02693  M01S01232.catlist +++|**        BUFFERS.
02694  M01S01233.catlist +++|
02695  M01S01234.catlist +++|
02696  M01S01235.catlist +++|          USE    LITERALS
02697  M01S01236.catlist +++| LBUF     EQU    *           OUTPUT LINE BUFFER
02698  M01S01237.catlist +++| CBUF     EQU    LBUF+/COMCFCE/CHDRN*FCELL  CATALOG READ BUFFER
02699  M01S01238.catlist +++| IBUF     EQU    CBUF+NWCE   INPUT BUFFER
02700  M01S01239.catlist +++| OBUF     EQU    IBUF+IBFL   OUTPUT BUFFER
02701  M01S01240.catlist +++| SBUF     EQU    OBUF+OBFL   CATALOG SORT BUFFER
02702  M01S01241.catlist +++| RFL=     EQU    SBUF+SBFL   DEFAULT FL
02703  M01S01242.catlist +++| PRS      TITLE  PRESET.
02704  M01S01243.catlist +++|**        PRS - PRESET ROUTINE.
02705  M01S01244.catlist +++|*
02706  M01S01245.catlist +++|*         EXIT   TO MAIN LOOP(CTL)
Line S01246 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02707  M02S01246.v23l617 ---|*                FETS AND BUFFERS SET UP AND CONTROL CARD
02708  M01S00028.v23l617 +++|*                FETS AND BUFFERS SET UP AND COMMAND
02709  M01S01247.catlist +++|*                ARGUMENTS PROCESSED.
Line S01248 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02710  M02S01248.ns22000 ---|*                (MODE) = LIST OPTION
Line S01249 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02711  M02S01249.ns22000 ---|*                            0 = SHORT FILE LIST
Line S01250 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02712  M02S01250.ns22000 ---|*                            1 = FULL FILE LIST
Line S01251 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02713  M02S01251.ns22000 ---|*                            2 = SHORT ALTERNATE CATALOG LIST
Line S01252 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02714  M02S01252.ns22000 ---|*                            3 = FULL ALTERNATE CATALOG LIST
Line S01253 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02715  M02S01253.ns22000 ---|*                            4 = SHORT PERMIT DATA LIST
Line S01254 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02716  M02S01254.ns22000 ---|*                            5 = FULL PERMIT DATA LIST
02717  M01S00630.ns22000 +++|*                (MODE) = LIST OPTION.
02718  M01S00631.ns22000 +++|*                         0 = SHORT FILE LIST.
02719  M01S00632.ns22000 +++|*                         1 = FULL FILE LIST.
02720  M01S00633.ns22000 +++|*                         2 = FILE LIST AND CATEGORY SET.
02721  M01S00634.ns22000 +++|*                         3 = SHORT ALTERNATE CATALOG LIST.
02722  M01S00635.ns22000 +++|*                         4 = FULL ALTERNATE CATALOG LIST.
02723  M01S00636.ns22000 +++|*                         5 = SHORT PERMIT DATA LIST.
02724  M01S00637.ns22000 +++|*                         6 = FULL PERMIT DATA LIST.
02725  M01S01255.catlist +++|*                B1 = 1.
02726  M01S01256.catlist +++|*                DT = 0 IF OUTPUT TO TERMINAL FILE.
02727  M01S01257.catlist +++|*                JT = 0 IF TERMINAL ORIGIN JOB.
02728  M01S01258.catlist +++|*                TITLE LINES PRESET
02729  M01S01259.catlist +++|*                PFM CALL FET PRESET.
02730  M01S01260.catlist +++|*                (CTLA) SET IF SELECTED ENTRY DESIRED.
Line S01261 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02731  M02S01261.ns2573  ---|*
Line S01262 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02732  M02S01262.ns2573  ---|*                (FNM) = FILE NAME MASK.
Line S01263 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02733  M02S01263.ns2573  ---|*                (FNS) = STRIPPED FILE NAME.
Line S01264 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02734  M02S01264.ns2573  ---|*                *FNM* AND *FNS* ARE ONLY SET IF A UNIVERSAL
Line S01265 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02735  M02S01265.ns2573  ---|*                CHARACTER IS SPECIFIED IN THE *FN* PARAMETER.
02736  M01S01266.catlist +++|
02737  M01S01267.catlist +++|
02738  M01S01268.catlist +++| CATLIST  BSS    0           ENTRY POINT
Line S01269 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02739  M02S01269.ns22000 ---| PRS      SA4    ACTR
02740  M01S00638.ns22000 +++| PRS      BSS    0
02741  M01S01270.catlist +++|          SB1    1
02742  M01S00639.ns22000 +++|          GETSSM SSM         GET SYSTEM SECURITY MODE
02743  M01S00640.ns22000 +++|          SA4    ACTR
Line S01271 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02744  M02S01271.ns22000 ---|          ZR     X4,CTL      IF NO ARGUMENTS
02745  M01S00641.ns22000 +++|          ZR     X4,PRS15    IF NO ARGUMENTS
02746  M01S01272.catlist +++|          SB4    X4          SET ARGUMENT COUNT
02747  M01S01273.catlist +++|          SA4    ARGR        GET FIRST ARGUMENT
02748  M01S01274.catlist +++|          SB5    TARG        SET ARGUMENT TABLE ADDRESS
02749  M01S01275.catlist +++|          RJ     ARG         PROCESS ARGUMENTS
02750  M01S01276.catlist +++|          ZR     X1,PRS2     IF NO ARGUMENT ERROR
02751  M01S01277.catlist +++|
Line S01278 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02752  M02S01278.v23l617 ---| PRS1     MESSAGE  (=C* ILLEGAL PARAMETER.*)
02753  M01S00029.v23l617 +++| PRS1     MESSAGE  (=C* INCORRECT PARAMETER.*)
02754  M01S01279.catlist +++|          ABORT
02755  M01S01280.catlist +++|
Line S01281 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02756  M02S01281.ns2573  ---|*         CHECK FOR UNIVERSAL CHARACTER (*) IN FILE NAME.
02757  M01S00205.ns2573  +++|*         PROCESS FILE NAME SELECTION PARAMETERS.
02758  M01S01282.catlist +++|
Line S01283 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02759  M02S01283.ns2573  ---| PRS2     SA1    FILENAM
02760  M01S00206.ns2573  +++| PRS2     SA1    EFNM
02761  M01S00207.ns2573  +++|          SX7    HDR72       SUBHEADER FOR MULTIPLE FILE NAME TEMPLATES
02762  M01S00208.ns2573  +++|          NZ     X1,PRS2.1   IF *EF* SPECIFIED
02763  M01S00209.ns2573  +++|          SA1    FLNM+1
02764  M01S00210.ns2573  +++|          NZ     X1,PRS2.1   IF MORE THAN ONE FILE SPECIFIED FOR *FN*
02765  M01S00211.ns2573  +++|          SA1    FLNM
02766  M01S01284.catlist +++|          SA3    =7L*******
Line S01285 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02767  M02S01285.ns2573  ---|          ZR     X1,PRS3     IF NO FILE NAME
02768  M01S00212.ns2573  +++|          BX6    X1-X3
02769  M01S00213.ns2573  +++|          ZR     X6,PRS3     IF *FN* NOT SPECIFIED
02770  M01S01286.catlist +++|          BX7    X3-X1       CLEAR * FROM NAME
02771  M01S01287.catlist +++|          SA3    PRSA        =37373737373737373737B
02772  M01S01288.catlist +++|          BX6    X3*X7
02773  M01S01289.catlist +++|          BX7    -X3*X7
02774  M01S01290.catlist +++|          IX6    X6+X3
02775  M01S01291.catlist +++|          BX6    X6+X7
02776  M01S01292.catlist +++|          BX7    -X3*X6
02777  M01S01293.catlist +++|          BX6    X7
02778  M01S01294.catlist +++|          LX7    -5
02779  M01S01295.catlist +++|          IX7    X6-X7
02780  M01S01296.catlist +++|          BX7    X6+X7
Line S01297 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02781  M02S01297.ns2573  ---|          BX6    X7*X1
02782  M01S01298.catlist +++|          SA3    =777777B
02783  M01S01299.catlist +++|          IX4    X7+X3
Line S01300 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02784  M02S01300.ns2573  ---|          ZR     X4,PRS3     IF NO MASK IN NAME
Line S01301 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02785  M02S01301.ns2573  ---|          SA7    FNM         FILE NAME MASK
Line S01302 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02786  M02S01302.ns2573  ---|          SA6    FNS         STRIPPED FILE NAME
Line S01303 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02787  M02S01303.ns2573  ---|          MX7    0
02788  M01S00035.catli5  +++|          MX0    42
Line S00036 Modification History
M01 (Added by) catli5
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02789  M02S00036.ns2573  ---|          BX6    X0*X1       SET FILE NAME IN HEADER
Line S00037 Modification History
M01 (Added by) catli5
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02790  M02S00037.ns2573  ---|          SA6    HDR71+2
Line S01304 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02791  M02S01304.ns2573  ---|          SA7    FILENAM     CLEAR FILE NAME
02792  M01S00214.ns2573  +++|          BX6    X0*X1
02793  M01S00215.ns2573  +++|          ZR     X4,PRS2.2   IF NO ASTERISKS IN FILE NAME
02794  M01S00216.ns2573  +++|          SA6    HDR71+2     SET FILE NAME IN HEADER
02795  M01S00217.ns2573  +++|          SX7    HDR71       SUBHEADER FOR SINGLE FILE NAME TEMPLATE
02796  M01S00218.ns2573  +++| PRS2.1   SA7    HDRI        SET SUBHEADER ADDRESS
02797  M01S00038.catli5  +++|          SX6    CTLE        SET ADDRESS FOR *NO FILES FOUND* MESSAGE
02798  M01S00039.catli5  +++|          SA6    CTLB
02799  M01S00219.ns2573  +++|          EQ     PRS3        SET UP OUTPUT FET
02800  M01S00220.ns2573  +++|
02801  M01S00221.ns2573  +++| PRS2.2   SA6    FILENAM     SET FILE NAME FOR PERMANENT FILE FET
02802  M01S00222.ns2573  +++|
02803  M01S00223.ns2573  +++|*         SET UP OUTPUT FET.
02804  M01S00224.ns2573  +++|
02805  M01S01305.catlist +++| PRS3     SA1    O           SET STATUS IN OUTPUT FET
02806  M01S01306.catlist +++|          MX0    42
02807  M01S01307.catlist +++|          SX6    B1
02808  M01S01308.catlist +++|          BX2    X0*X1
02809  M01S01309.catlist +++|          ZR     X2,PRS1     IF NO FILE NAME
02810  M01S01310.catlist +++|          IX6    X6+X2
02811  M01S01311.catlist +++|          SA6    A1
02812  M01S01312.catlist +++|          SX2    A1          CHECK FOR TERMINAL FILE
02813  M01S01313.catlist +++|          RJ     STF
02814  M01S01314.catlist +++|          SA6    DT          SET DEVICE TYPE FLAG (0 FOR TYPE *TT*)
02815  M01S01315.catlist +++|          SA1    JOPR        SET JOB ORIGIN
02816  M01S01316.catlist +++|          MX0    -12
02817  M01S01317.catlist +++|          LX1    36
02818  M01S01318.catlist +++|          BX1    -X0*X1
02819  M01S01319.catlist +++|          SX6    X1-TXOT
02820  M01S01320.catlist +++|          SA6    JT
02821  M01S00225.ns2573  +++|
02822  M01S00073.ns2740  +++|*         PROCESS FILE RESIDENCE PARAMETER
02823  M01S00074.ns2740  +++|
02824  M01S00075.ns2740  +++|          SA1    RS          GET FILE RESIDENCE SELECTION PARAM
02825  M01S00076.ns2740  +++|          NZ     X1,PRS3.1   IF FILE RESIDENCE SELECTION NOT 0
02826  M01S00077.ns2740  +++|          MX6    -3          SET PARAMETER SELECTION FOR 0
02827  M01S00078.ns2740  +++|          BX6    -X6
02828  M01S00079.ns2740  +++|          EQ     PRS3.5      RESIDENCE SELECTION MASK SET
02829  M01S00080.ns2740  +++| PRS3.1   MX0    -6
02830  M01S00081.ns2740  +++|          BX6    X6-X6       INITIALIZE RESIDENCE SELECTION MASK
02831  M01S00082.ns2740  +++| PRS3.2   LX1    6           GET NEXT RESIDENCE SELECTION PARAM
02832  M01S00083.ns2740  +++|          BX2    -X0*X1
02833  M01S00084.ns2740  +++|          ZR     X2,PRS3.5   IF END OF SELECTIONS
02834  M01S00085.ns2740  +++|          SA3    PRSE        GET VALID RESIDENCE SELECTION OPTIONS
02835  M01S00086.ns2740  +++|          MX7    1
02836  M01S00087.ns2740  +++| PRS3.3   LX3    6           GET NEXT RESIDENCE SELECTION OPTION
02837  M01S00088.ns2740  +++|          BX4    -X0*X3
02838  M01S00089.ns2740  +++|          BX5    X2-X4       COMPARE
02839  M01S00090.ns2740  +++|          ZR     X4,PRS3.4   IF END OF VALID OPTIONS
02840  M01S00091.ns2740  +++|          LX7    1
02841  M01S00092.ns2740  +++|          NZ     X5,PRS3.3   IF NO MATCH
02842  M01S00093.ns2740  +++|          BX6    X6+X7       ADD VALID SELECTION TO MASK
02843  M01S00094.ns2740  +++|          EQ     PRS3.2      GET NEXT SELECTION
02844  M01S00095.ns2740  +++|
02845  M01S00096.ns2740  +++| PRS3.4   MESSAGE  (=C* ERROR IN FILE RESIDENCE SELECTION.*)
02846  M01S00097.ns2740  +++|          ABORT
02847  M01S00098.ns2740  +++| PRS3.5   SA6    RSM         SAVE RESIDENCE SELECTION MASK
02848  M01S00099.ns2740  +++|
02849  M01S00033.catli8  +++|*         PROCESS FILE TYPE PARAMETER.
02850  M01S00034.catli8  +++|
02851  M01S00035.catli8  +++|          SA1    TY          GET FILE TYPE SELECTION PARAM
02852  M01S00036.catli8  +++|          BX6    X6-X6       INITIALIZE FILE TYPE SELECTION
02853  M01S00037.catli8  +++|          ZR     X1,PRS3.9   IF NO FILE TYPE SELECTION
02854  M01S00038.catli8  +++|          MX0    -6
02855  M01S00039.catli8  +++| PRS3.6   LX1    6           GET NEXT FILE TYPE SELECTION PARAM
02856  M01S00040.catli8  +++|          BX2    -X0*X1
02857  M01S00041.catli8  +++|          ZR     X2,PRS3.9   IF END OF SELECTIONS
02858  M01S00042.catli8  +++|          SA3    PRSF        GET VALID FILE TYPE OPTIONS
02859  M01S00043.catli8  +++|          BX7    X7-X7
02860  M01S00044.catli8  +++| PRS3.7   LX3    6           GET NEXT FILE TYPE OPTION
02861  M01S00045.catli8  +++|          BX4    -X0*X3
02862  M01S00046.catli8  +++|          BX5    X2-X4       COMPARE
02863  M01S00047.catli8  +++|          ZR     X4,PRS3.8   IF END OF VALID OPTIONS
02864  M01S00048.catli8  +++|          SX7    X7+B1
02865  M01S00049.catli8  +++|          NZ     X5,PRS3.7   IF NO MATCH
02866  M01S00050.catli8  +++|          BX6    X6+X7       ADD VALID SELECTION TO MASK
02867  M01S00051.catli8  +++|          EQ     PRS3.6      GET NEXT SELECTION
02868  M01S00052.catli8  +++|
02869  M01S00053.catli8  +++| PRS3.8   MESSAGE  (=C* ERROR IN FILE TYPE SELECTION.*)
02870  M01S00054.catli8  +++|          ABORT
02871  M01S00055.catli8  +++|
02872  M01S00056.catli8  +++| PRS3.9   SA6    TYM         SAVE FILE TYPE SELECTION MASK
02873  M01S00100.ns2740  +++|
02874  M01S00226.ns2573  +++|*         PROCESS LIST OPTION.
02875  M01S00227.ns2573  +++|
02876  M01S01321.catlist +++|          MX0    59          SET OPTION
02877  M01S01322.catlist +++|          SA2    LO
02878  M01S01323.catlist +++|          SA1    LOPT
02879  M01S01324.catlist +++|          SB2    B0
02880  M01S01325.catlist +++|          SB3    LOPTL
02881  M01S01326.catlist +++|          SX5    B0
02882  M01S01327.catlist +++| PRS4     BX4    -X0*X1      PICK SHORT LIST FLAG
02883  M01S01328.catlist +++|          BX1    X0*X1
02884  M01S01329.catlist +++|          IX6    X1-X2
02885  M01S01330.catlist +++|          ZR     X6,PRS5     IF OPTION FOUND
02886  M01S01331.catlist +++|          SA1    A1+B1
02887  M01S01332.catlist +++|          SB2    B2+B1
02888  M01S01333.catlist +++|          LE     B2,B3,PRS4  IF NOT END OF TABLE
Line S01334 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02889  M02S01334.v23l617 ---|          MESSAGE (=C* ILLEGAL LIST OPTION.*)
02890  M01S00030.v23l617 +++|          MESSAGE (=C* INCORRECT LIST OPTION.*)
02891  M01S01335.catlist +++|          ABORT
02892  M01S01336.catlist +++|
02893  M01S00228.ns2573  +++|*         CHECK FOR PARAMETER CONFLICT.
02894  M01S00229.ns2573  +++|
02895  M01S01337.catlist +++| PRS5     SA1    USERNUM
02896  M01S01338.catlist +++|          SA2    FILENAM
02897  M01S01339.catlist +++|          BX3    X2          SET SELECTED ENTRY FLAG
02898  M01S01340.catlist +++|          SB3    PMTL        SET PROPER MODE
02899  M01S01341.catlist +++|          SX6    B0
Line S01342 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02900  M02S01342.ns2573  ---|          SX7    PTPE        SET SUBTITLE FLAG
02901  M01S00230.ns2573  +++|          SX7    PTPE        SUBTITLE FOR ALTERNATE USER
Line S01343 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02902  M02S01343.ns22000 ---|          LT     B2,B3,PRS6  IF NOT ACCESS DATA REQUEST
02903  M01S00642.ns22000 +++|          LT     B2,B3,PRS6  IF NOT PERMIT DATA REQUEST
02904  M01S01344.catlist +++|          SX5    B1          SET PERMIT LIST FLAG
Line S01345 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02905  M02S01345.ns2573  ---|          SX7    PTPD        SUBTITLE FLAG
02906  M01S00231.ns2573  +++|          SX7    PTPD        SUBTITLE FOR SPECIFIED FILE NAME
02907  M01S01346.catlist +++|          BX3    X1          SET SELECTED ENTRY FLAG
02908  M01S01347.catlist +++|          NZ     X2,PRS7     IF FILE NAME SPECIFIED
Line S01348 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02909  M02S01348.ns22000 ---|          MESSAGE (=C* FILE NAME MISSING.*)
02910  M01S00643.ns22000 +++| PRS5.1   MESSAGE  (=C* FILE NAME MISSING.*)
02911  M01S01349.catlist +++|          ABORT
02912  M01S01350.catlist +++|
Line S01351 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02913  M02S01351.ns22000 ---| PRS6     ZR     X1,PRS8     IF USER NUMBER NOT SPECIFIED
Line S01352 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
02914  M02S01352.ns22000 ---|          SX6    B1+B1       ADVANCE MODE
02915  M01S00644.ns22000 +++| PRS6     SB3    B2-MOLC
02916  M01S00645.ns22000 +++|          NZ     B3,PRS6.1   IF *LO=X* OPTION NOT SPECIFIED
Line S00646 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02917  M02S00646.ns2573  ---|          SA3    FNM
02918  M01S00232.ns2573  +++|          SA3    HDRI
02919  M01S00647.ns22000 +++|          NZ     X1,PRS1     IF USER NAME SPECIFIED
Line S00648 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02920  M02S00648.ns2573  ---|          NZ     X3,PRS1     IF ASTERISK SPECIFIED IN FILE NAME
02921  M01S00233.ns2573  +++|          NZ     X3,PRS1     IF MULTIPLE FILE NAMES SPECIFIED
02922  M01S00649.ns22000 +++|          ZR     X2,PRS5.1   IF FILE NAME NOT SPECIFIED
02923  M01S00650.ns22000 +++| PRS6.1   ZR     X1,PRS8     IF USER NAME NOT SPECIFIED
02924  M01S00651.ns22000 +++|          SX6    ALTC        SET ALTERNATE CATALOG MODE
02925  M01S01353.catlist +++| PRS7     SA7    PTPC        SET SUBTITLE FLAG
02926  M01S01354.catlist +++| PRS8     SX6    X6+B2
02927  M01S01355.catlist +++|          SA6    MODE
Line S01356 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
02928  M02S01356.ns2573  ---|
02929  M01S01357.catlist +++|          MX0    42
02930  M01S01358.catlist +++|          ZR     X4,PRS9     IF NOT SHORT FILE LIST
02931  M01S01359.catlist +++|          BX6    X0*X3       SET SELECTIVE ENTRY FLAG
02932  M01S01360.catlist +++|          SA6    CTLA
02933  M01S01361.catlist +++|
02934  M01S01362.catlist +++|*         SET *PFM* FET PARAMETERS.
02935  M01S01363.catlist +++|
02936  M01S01364.catlist +++| PRS9     BX6    X0*X2
02937  M01S01365.catlist +++|          SA6    FILE        SET FILE NAME IN SUBTITLE LINE
02938  M01S01366.catlist +++|          BX6    X6+X5
02939  M01S01367.catlist +++|          SA6    I+CFPN
Line S01368 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02940  M02S01368.v23l617 ---|          BX7    X0*X1       SET OPTIONAL USER NUMBER
02941  M01S00031.v23l617 +++|          BX7    X0*X1       SET USER NAME
02942  M01S01369.catlist +++|          SA7    I+CFOU
02943  M01S01370.catlist +++|          SA7    AUSER
02944  M01S01371.catlist +++|          ZR     X5,PRS10    IF NOT PERMIT DATA
02945  M01S01372.catlist +++|          SX6    CTLD        SET PERMIT MESSAGE ADDRESS
02946  M01S01373.catlist +++|          SA6    CTLB
02947  M01S01374.catlist +++|
Line S01375 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02948  M02S01375.v23l617 ---|*         SET USER NUMBER OR USER INDEX IN TITLE LINE.
02949  M01S00032.v23l617 +++|*         SET USER NAME OR USER INDEX IN TITLE LINE.
02950  M01S01376.catlist +++|
02951  M01S01377.catlist +++| PRS10    GETPFP PRSB
Line S01378 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02952  M02S01378.v23l617 ---|          SA1    PRSB+2      SET USER NUMBER IN TITLE LINE
02953  M01S00033.v23l617 +++|          SA1    PRSB+2      SET USER NAME IN TITLE LINE
02954  M01S01379.catlist +++|          BX6    X0*X1
02955  M01S01380.catlist +++|          SA6    USER
Line S01381 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
02956  M02S01381.v23l617 ---|          NZ     X6,PRS10.1  IF USER NUMBER FOUND
02957  M01S00034.v23l617 +++|          NZ     X6,PRS10.1  IF USER NAME FOUND
02958  M01S01382.catlist +++|          RJ     COD         SET USER INDEX IN TITLE LINE
02959  M01S01383.catlist +++|          MX7    42
02960  M01S01384.catlist +++|          BX4    X7*X4
02961  M01S01385.catlist +++|          SX6    3RUI/
02962  M01S01386.catlist +++|          BX6    X4+X6
02963  M01S01387.catlist +++|          LX6    -18
02964  M01S01388.catlist +++| PRS10.1  BX1    X6          SPACE FILL NAME
02965  M01S01389.catlist +++|          RJ     SFN
02966  M01S01390.catlist +++|          SB3    PRSC        SET CHARACTERS IN BUFFER
02967  M01S01391.catlist +++|          SB7    PTPB
02968  M01S01392.catlist +++|          RJ     SCB
02969  M01S01393.catlist +++|
02970  M01S01394.catlist +++|*         SET PACKNAME OR FAMILY NAME IN TITLE LINE.
02971  M01S01395.catlist +++|
02972  M01S01396.catlist +++|          SA1    PACK
02973  M01S01397.catlist +++|          ZR     X1,PRS11    IF NO PACKNAME SPECIFIED
02974  M01S01398.catlist +++|          BX6    X1
02975  M01S01399.catlist +++|          SA6    I+CFPK      SET PACKNAME IN FET
02976  M01S01400.catlist +++|          SX7    1R0
02977  M01S01401.catlist +++|          LX7    54
02978  M01S01402.catlist +++|          BX7    X6-X7
02979  M01S01403.catlist +++|          ZR     X7,PRS11.1  IF *PN=0* SPECIFIED
02980  M01S01404.catlist +++| PRS10.2  SX4    3RPN/
02981  M01S01405.catlist +++|          EQ     PRS12       SET PACK NAME IN TITLE LINE
02982  M01S01406.catlist +++|
02983  M01S01407.catlist +++| PRS11    SA1    PRSB+1
02984  M01S01408.catlist +++|          ZR     X1,PRS11.1  IF NO PACKNAME SET IN CPA
02985  M01S01409.catlist +++|          BX6    X0*X1
02986  M01S01410.catlist +++|          EQ     PRS10.2     SET PACKNAME IN TITLE LINE
02987  M01S01411.catlist +++|
02988  M01S01412.catlist +++| PRS11.1  SA1    PRSB        SET FAMILY NAME IN TITLE LINE
02989  M01S01413.catlist +++|          SX4    3RFM/
02990  M01S01414.catlist +++|          BX6    X1
02991  M01S01415.catlist +++| PRS12    BX1    X6+X4       MERGE FAMILY/PACK NAME WITH DESIGNATOR
02992  M01S01416.catlist +++|          LX1    -18
02993  M01S01417.catlist +++|          RJ     SFN         SPACE FILL NAME
02994  M01S01418.catlist +++|          SA6    PKNM
02995  M01S01419.catlist +++|
02996  M01S01420.catlist +++|*         PROCESS *NO ABORT* AND *WAIT BUSY* PARAMETERS.
02997  M01S01421.catlist +++|
02998  M01S01422.catlist +++|          SA1    NABT        CHECK NO ABORT OPTION
02999  M01S01423.catlist +++|          SA2    WBSY
03000  M01S01424.catlist +++|          IX1    X1+X2
03001  M01S01425.catlist +++|          ZR     X1,PRS13    IF NEITHER *NA* NOR *WB* SELECTED
03002  M01S01426.catlist +++|          SX2    X1-2
03003  M01S01427.catlist +++|          ZR     X2,PRS1     IF BOTH *NA* AND *WB* SPECIFIED
03004  M01S01428.catlist +++|          SA1    I+1         SET ERROR PROCESSING BIT
03005  M01S01429.catlist +++|          SX6    B1
03006  M01S01430.catlist +++|          LX6    44
03007  M01S01431.catlist +++|          BX6    X1+X6
03008  M01S01432.catlist +++|          SA6    A1
03009  M01S01433.catlist +++|
03010  M01S01434.catlist +++|*         PROCESS RESIDENCE.
03011  M01S01435.catlist +++|
03012  M01S01436.catlist +++| PRS13    SA1    RES         CHECK RESIDENCE OPTION
03013  M01S01437.catlist +++|          ZR     X1,PRS14    IF RESIDENCE NOT SET
03014  M01S01438.catlist +++|          MX0    12
03015  M01S01439.catlist +++|          BX6    X0*X1       SET DEVICE TYPE IN FET+1
03016  M01S01440.catlist +++|          SA2    I+1
03017  M01S01441.catlist +++|          BX5    -X0*X2
03018  M01S01442.catlist +++|          BX6    X5+X6
03019  M01S01443.catlist +++|          SA6    A2
03020  M01S01444.catlist +++|          LX1    12
03021  M01S01445.catlist +++|          BX5    X0*X1
03022  M01S01446.catlist +++|          ZR     X5,PRS14    IF NO UNIT NUMBER
03023  M01S01447.catlist +++|          SB7    B1
03024  M01S01448.catlist +++|          RJ     DXB         CONVERT TO OCTAL
03025  M01S01449.catlist +++|          NZ     X4,PRS1     IF ERROR
03026  M01S01450.catlist +++|          SA2    I+CFPK      SET UNIT COUNT IN FET+CFPK
03027  M01S01451.catlist +++|          MX0    -12
03028  M01S01452.catlist +++|          BX5    X0*X2
03029  M01S01453.catlist +++|          BX6    X6+X5
03030  M01S01454.catlist +++|          SA6    A2
03031  M01S01455.catlist +++|
03032  M01S01456.catlist +++|*         PROCESS DEVICE NUMBER.
03033  M01S01457.catlist +++|
03034  M01S01458.catlist +++| PRS14    SA5    DN          CHECK DEVICE NUMBER
Line S01459 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03035  M02S01459.ns22000 ---|          ZR     X5,CTL      IF NOT SET
03036  M01S00652.ns22000 +++|          ZR     X5,PRS15    IF NOT SET
03037  M01S01460.catlist +++|          SB7    B0
03038  M01S01461.catlist +++|          RJ     DXB
03039  M01S01462.catlist +++|          SX2    X6-100B
03040  M01S01463.catlist +++|          NZ     X4,PRS1     IF ERROR
03041  M01S01464.catlist +++|          PL     X2,PRS1     IF DEVICE NUMBER OUT OF RANGE
03042  M01S01465.catlist +++|          SA5    I+CFOU
03043  M01S00001.catli2  +++|          BX1    X6
03044  M01S01466.catlist +++|          LX6    12
03045  M01S01467.catlist +++|          BX6    X6+X5
03046  M01S01468.catlist +++|          SA6    A5
Line S01469 Modification History
M01 (Added by) catlist
M02 (Updated by) catli2
Seq #  *Modification Id* Act 
----------------------------+
03047  M02S01469.catli2  ---|          SA3    DN          SET DEVICE NUMBER IN TITLE LINE
03048  M01S00002.catli2  +++|          RJ     COD         SET DEVICE NUMBER IN TITLE LINE
03049  M01S00003.catli2  +++|          MX0    12
03050  M01S00004.catli2  +++|          BX4    X0*X4
03051  M01S01470.catlist +++|          SX6    3RDN/
Line S01471 Modification History
M01 (Added by) catlist
M02 (Updated by) catli2
Seq #  *Modification Id* Act 
----------------------------+
03052  M02S01471.catli2  ---|          BX1    X6+X3
03053  M01S00005.catli2  +++|          BX1    X6+X4
03054  M01S01472.catlist +++|          LX1    -18
03055  M01S01473.catlist +++|          RJ     SFN
03056  M01S01474.catlist +++|          SB3    PRSD
03057  M01S01475.catlist +++|          SB7    PTPB
03058  M01S01476.catlist +++|          RJ     SCB
03059  M01S00653.ns22000 +++| PRS15    RJ     IPP         INITIALIZE PAGE PARAMETERS
03060  M01S01477.catlist +++|          JP     CTL
03061  M01S01478.catlist +++|
03062  M01S01479.catlist +++|
03063  M01S01480.catlist +++| PRSA     DATA   37373737373737373737B
03064  M01S01481.catlist +++| PRSB     BSSZ   3           *GETPFP* PARAMETER BLOCK
Line S01482 Modification History
M01 (Added by) catlist
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03065  M02S01482.v23l617 ---| PRSC     CFORM  13,9        FIELD IN TITLE FOR USER NUMBER/USER INDEX
03066  M01S00035.v23l617 +++| PRSC     CFORM  13,9        FIELD IN TITLE FOR USER NAME/USER INDEX
03067  M01S01483.catlist +++| PRSD     CFORM  24,5        FIELD IN TITLE FOR DEVICE NUMBER
03068  M01S00101.ns2740  +++| PRSE     CON    3LCTD       VALID RESIDENCE SELECTION OPTIONS
03069  M01S00057.catli8  +++| PRSF     CON    3LIDA       VALID FILE TYPE SELECTION OPTIONS
Line S01484 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03070  M02S01484.ns22000 ---|
Line S01485 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03071  M02S01485.ns22000 ---|
Line S01486 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03072  M02S01486.ns22000 ---|**        LIST OPTIONS
03073  M01S00654.ns22000 +++| LOPT     SPACE  4,10
03074  M01S00655.ns22000 +++|**        LIST OPTIONS.
03075  M01S01487.catlist +++|*         BIT 0 SET IF SHORT LIST OPTION.
03076  M01S00656.ns22000 +++|*
03077  M01S00657.ns22000 +++|*         ANY CHANGES MADE TO THIS TABLE WILL AFFECT THE
03078  M01S00658.ns22000 +++|*         DOCUMENTATION OF MODE VALUES IN THE *PRS* HEADER,
03079  M01S00659.ns22000 +++|*         TABLE *TLOT* IN THE MAIN ROUTINE, AND THE PROCESSING
03080  M01S00660.ns22000 +++|*         FOR HEADERS IN *HDR*.
03081  M01S01488.catlist +++|
03082  M01S01489.catlist +++| LOPT     BSS    0           LIST OPTIONS
Line S01490 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03083  M02S01490.ns22000 ---|          LOC    0
Line S01491 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03084  M02S01491.ns22000 ---|          VFD    59/0,1/1    NORMAL CATALOGS
Line S01492 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03085  M02S01492.ns22000 ---|          CON    1LF
Line S01493 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03086  M02S01493.ns22000 ---|          CON    0           ALTERNATE CATALOGS
Line S01494 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03087  M02S01494.ns22000 ---|          CON    0
Line S01495 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03088  M02S01495.ns22000 ---|
Line S01496 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03089  M02S01496.ns22000 ---| PMTL     EQU    *           LIMIT OF CATALOG OPTIONS
Line S01497 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03090  M02S01497.ns22000 ---|
Line S01498 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03091  M02S01498.ns22000 ---|          VFD    6/0LP,54/1  PERMIT DATA
Line S01499 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03092  M02S01499.ns22000 ---|          CON    2LFP
Line S01500 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03093  M02S01500.ns22000 ---| LOPTL    EQU    *
03094  M01S00661.ns22000 +++|
03095  M01S00662.ns22000 +++|          LOC    0           CATALOG DATA LISTS
03096  M01S00663.ns22000 +++| MOSF     VFD    59/0,1/1    SHORT FILE LIST
03097  M01S00664.ns22000 +++| MOFL     CON    1LF         FULL FILE LIST
03098  M01S00665.ns22000 +++| MOLC     CON    1LX         LIST FILE AND CATEGORY SET
03099  M01S00666.ns22000 +++|
03100  M01S00667.ns22000 +++| ALTC     EQU    *           ALTERNATE CATALOG DATA LISTS
03101  M01S00668.ns22000 +++| MOSA     CON    0           SHORT ALTERNATE FILE LIST
03102  M01S00669.ns22000 +++| MOFA     CON    0           LONG ALTERNATE FILE LIST
03103  M01S00670.ns22000 +++|
03104  M01S00671.ns22000 +++| PMTL     EQU    *           PERMIT DATA LISTS
03105  M01S00672.ns22000 +++| MOSP     VFD    6/0LP,54/1  SHORT PERMIT LIST
03106  M01S00673.ns22000 +++| MOFP     CON    0LFP        FULL PERMIT LIST
03107  M01S00674.ns22000 +++|
03108  M01S00675.ns22000 +++| LOPTL    EQU    *           TABLE LENGTH
03109  M01S01501.catlist +++|          LOC    *O
03110  M01S01502.catlist +++|
Line S01503 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03111  M02S01503.ns22000 ---|*         ARGUMENT TABLE
03112  M01S00676.ns22000 +++|*         ARGUMENT TABLE.
03113  M01S01504.catlist +++|
03114  M01S01505.catlist +++| TARG     BSS    0
03115  M01S01506.catlist +++| LO       ARG    =0,LO
03116  M01S01507.catlist +++| UN       ARG    =0,USERNUM,400B
Line S01508 Modification History
M01 (Added by) catlist
M02 (Updated by) ns2573
Seq #  *Modification Id* Act 
----------------------------+
03117  M02S01508.ns2573  ---| FN       ARG    =0,FILENAM,400B
03118  M01S00234.ns2573  +++| EF       ARG    EFNM,EFNM,200B
03119  M01S00235.ns2573  +++| FN       ARG    FLNM,FLNM,200B
03120  M01S01509.catlist +++| PN       ARG    =0,PACK,400B
03121  M01S01510.catlist +++| L        ARG    =0LOUTPUT,O,400B
03122  M01S01511.catlist +++| R        ARG    =0,RES
03123  M01S01512.catlist +++| NA       ARG    -NZ,NABT
03124  M01S00102.ns2740  +++| RS       ARG    =0,RS
03125  M01S01513.catlist +++| WB       ARG    -NZ,WBSY
03126  M01S01514.catlist +++| DN       ARG    =0,DN,400B
03127  M01S00058.catli8  +++| TY       ARG    =0,TY
03128  M01S01515.catlist +++|          ARG
Line S01516 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03129  M02S01516.ns22000 ---|          SPACE  4
03130  M01S00677.ns22000 +++| IPP      SPACE  4,15
03131  M01S00678.ns22000 +++|**        IPP - INITIALIZE PAGE PARAMETERS.
03132  M01S00679.ns22000 +++|*
03133  M01S00680.ns22000 +++|*         ENTRY  NONE.
03134  M01S00681.ns22000 +++|*
03135  M01S00682.ns22000 +++|*         EXIT   JOB DEFAULT PAGE PARAMETERS SET.
03136  M01S00683.ns22000 +++|*
03137  M01S00684.ns22000 +++|*         USES   X - 0, 1, 2, 6, 7.
03138  M01S00685.ns22000 +++|*                A - 1, 2, 6.
03139  M01S00686.ns22000 +++|*                B - NONE.
Line S00687 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03140  M02S00687.v23l617 ---|*
Line S00688 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03141  M02S00688.v23l617 ---|*         CALLS  GTN.
03142  M01S00689.ns22000 +++|*
03143  M01S00690.ns22000 +++|*         MACROS GETPP, SETSLM.
03144  M01S00691.ns22000 +++|
03145  M01S00692.ns22000 +++|
03146  M01S00693.ns22000 +++| IPP1     SETSLM IPPC        GET CURRENT SCREEN DEFINITION
03147  M01S00694.ns22000 +++|          SA1    IPPC
03148  M01S00695.ns22000 +++|          MX0    -6
03149  M01S00696.ns22000 +++|          BX2    -X0*X1      ISOLATE ORDINAL
03150  M01S00697.ns22000 +++|          LX1    59-6
03151  M01S00698.ns22000 +++|          SX6    LMDL        ASSUME LINE MODE
03152  M01S00699.ns22000 +++|          PL     X1,IPP3     IF LINE MODE
Line S00700 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03153  M02S00700.v23l617 ---|          RJ     GTN         GET TERMINAL NAME
Line S00701 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03154  M02S00701.v23l617 ---|          MX0    42
Line S00702 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03155  M02S00702.v23l617 ---|          SA2    IPPB        INITIALIZE SEARCH LOOP
Line S00703 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03156  M02S00703.v23l617 ---| IPP2     BX7    X1-X2
Line S00704 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03157  M02S00704.v23l617 ---|          BX7    X0*X7
Line S00705 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03158  M02S00705.v23l617 ---|          SX6    X2-1
Line S00706 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03159  M02S00706.v23l617 ---|          ZR     X7,IPP3     IF ENTRY FOUND
Line S00707 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03160  M02S00707.v23l617 ---|          SA2    A2+B1       NEXT ENTRY
Line S00708 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03161  M02S00708.v23l617 ---|          NZ     X2,IPP2     IF NOT END OF TABLE
Line S00709 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03162  M02S00709.v23l617 ---|          SX6    SMDL-1      ASSUME DEFAULT SCREEN SIZE
03163  M01S00036.v23l617 +++|          SA2    IPPB+X2     COMPUTE TABLE OFFSET BY ORDINAL
03164  M01S00037.v23l617 +++|          SX6    X2          GET LINE LIMIT
03165  M01S00710.ns22000 +++| IPP3     SA6    LL          INITIALIZE LINE LIMIT
03166  M01S00711.ns22000 +++|
03167  M01S00712.ns22000 +++| IPP      SUBR               ENTRY/EXIT
03168  M01S00713.ns22000 +++|          SA1    DT
03169  M01S00714.ns22000 +++|          ZR     X1,IPP1     IF TTY OUTPUT FILE
03170  M01S00715.ns22000 +++|          GETPP  IPPA,LL,PD  GET PAGE PARAMETERS
03171  M01S00716.ns22000 +++|          SA1    LL          ADJUST LINE LIMIT
03172  M01S00717.ns22000 +++|          SX6    X1-1
03173  M01S00718.ns22000 +++|          EQ     IPP3        RETURN
03174  M01S00719.ns22000 +++|
03175  M01S00720.ns22000 +++| IPPA     BSSZ   2           *GETPP* REPLY BUFFER
03176  M01S00721.ns22000 +++|
03177  M01S00722.ns22000 +++|*         SCREEN SIZE DEFINITIONS.
03178  M01S00723.ns22000 +++|*
03179  M01S00724.ns22000 +++|*         THIS TABLE DEFINES THE NUMBER OF LINES TO OUTPUT TO
03180  M01S00725.ns22000 +++|*         FILL A SCREEN, BASED ON THE SCREEN TYPE.  THIS IS
03181  M01S00726.ns22000 +++|*         USED IN TERMINAL MODE TO CONTROL OUTPUT OF THE SHORT
03182  M01S00727.ns22000 +++|*         SORTED LIST, SUCH THAT FILES WILL APPEAR IN
03183  M01S00728.ns22000 +++|*         ALPHABETICAL ORDER ON A FULL SCREEN.
03184  M01S00729.ns22000 +++|*
Line S00730 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03185  M02S00730.v23l617 ---|*         THIS TABLE PARALLELS A TABLE IN *COMCGTO*.
Line S00731 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03186  M02S00731.v23l617 ---|*         IF *COMCGTO* IS CHANGED, THIS TABLE MAY NEED ADJUSTMENT.
03187  M01S00038.v23l617 +++|*T        60/LC
Figure

029LC3059LC

03188  M01S00732.ns22000 +++|*
Line S00733 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03189  M02S00733.v23l617 ---|*T        42/ TN,18/ LC
Figure

0171829 LC TN3059 TN


Line S00734 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03190  M02S00734.v23l617 ---|*
Line S00735 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03191  M02S00735.v23l617 ---|*         WHERE  TN = TERMINAL NAME AS DEFINED IN *COMCGTO*.
Line S00736 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03192  M02S00736.v23l617 ---|*                LC = TERMINAL MODE SCREEN LINE COUNT.
03193  M01S00039.v23l617 +++|*         WHERE  LC = TERMINAL MODE SCREEN LINE COUNT.
03194  M01S00040.v23l617 +++|*
03195  M01S00041.v23l617 +++|*         NOTE :  IF MORE RESIDENT TERMINAL TYPES ARE ADDED
03196  M01S00042.v23l617 +++|*         TO *COMCGTO*, MORE ENTRIES SHOULD BE ADDED TO THIS
03197  M01S00043.v23l617 +++|*         TABLE.
03198  M01S00044.v23l617 +++|*
03199  M01S00737.ns22000 +++|
Line S00738 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03200  M02S00738.v23l617 ---| IPPB     BSS    0           SCREEN SIZE DEFINITIONS
Line S00739 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03201  M02S00739.v23l617 ---|          CON    4LNONE+LMDL  NO SCREEN DEFINED
03202  M01S00045.v23l617 +++| IPPB     BSS    0
Line S00740 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03203  M02S00740.v23l617 ---|          CON    4LUSER+SMDL
Line S00741 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03204  M02S00741.v23l617 ---|          CON    3L721+SMDL+6
03205  M01S00046.v23l617 +++|          VFD    60/LMDL     NO SCREEN DEFINED
03206  M01S00047.v23l617 +++|          VFD    60/SMDL     USER DEFINED
03207  M01S00048.v23l617 +++|          VFD    60/SMDL+6   RESIDENT *721* DEFINED
Line S00742 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03208  M02S00742.v23l617 ---|          CON    3L722+SMDL
Line S00743 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03209  M02S00743.v23l617 ---|          CON    5LVT100+SMDL
Line S00744 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03210  M02S00744.v23l617 ---|          CON    3LZ19+SMDL
03211  M01S00745.ns22000 +++|          CON    0           END OF TABLE
03212  M01S00746.ns22000 +++|
03213  M01S00747.ns22000 +++| IPPC     CON    0           SETSLM RESPONSE WORD
Line S01517 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03214  M02S01517.ns22000 ---|*CALL,COMCARG
Line S01518 Modification History
M01 (Added by) catlist
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
03215  M02S01518.ns22000 ---|*CALL,COMCSTF
03216  M01S00748.ns22000 +++|          SPACE  4,10
03217  M01S00749.ns22000 +++|**        PRESET COMMON DECKS.
03218  M01S00750.ns22000 +++|
03219  M01S00751.ns22000 +++|
03220  M01S00752.ns22000 +++|*CALL     COMCARG
Line S00753 Modification History
M01 (Added by) ns22000
M02 (Updated by) v23l617
Seq #  *Modification Id* Act 
----------------------------+
03221  M02S00753.v23l617 ---|*CALL     COMCGTO
03222  M01S00754.ns22000 +++|*CALL     COMCSTF
03223  M01S00755.ns22000 +++|*CALL     COMCVLC
03224  M01S01519.catlist +++|          SPACE  4
03225  M01S01520.catlist +++|          END