25 Modifications

Seq #  *Modification Id* Act 
----------------------------+
02686  M00S02118.cpcom   +++|***       WRITEF - WRITE END OF FILE.
02687  M00S02119.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02688  M01S00391.ns2011  +++|*         WRITEF FILE,RECALL
02689  M00S02120.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02690  M01S02121.ns2011  ---|*         WRITEF FILE,RECALL
02691  M00S02122.cpcom   +++|*         CALLS  CIO=.
02692  M00S02123.cpcom   +++|
02693  M00S02124.cpcom   +++|
02694  M00S02125.cpcom   +++|          PURGMAC WRITEF
02695  M00S02126.cpcom   +++|
02696  M00S02127.cpcom   +++| WRITEF   MACRO  F,L
02697  M00S02128.cpcom   +++|  MACREF WRITEF
02698  M00S02129.cpcom   +++|  =2 F,L,34B
02699  M00S02130.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02700  M01S02131.ns2011  ---| WRITEN   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02701  M01S00392.ns2011  +++| WRITEN   SPACE  4,10
02702  M00S02132.cpcom   +++|***       WRITEN - WRITE *S* OR *L* FORMAT TAPE NON-STOP.
02703  M00S02133.cpcom   +++|*         MAGNETIC TAPE ONLY.
02704  M00S02134.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02705  M01S00393.ns2011  +++|*         WRITEN FILE,RECALL
02706  M00S02135.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02707  M01S02136.ns2011  ---|*         WRITEN FILE,RECALL
02708  M01S02137.ns2011  ---|*         ENTRY  RECALL= *, SET CIO FUNCTION CODE IN FET, DONT CALL CIO.
02709  M01S02138.ns2011  ---|*                ALSO, USER MUST INSURE THAT PREVIOUS FUNCTION
02710  M01S02139.ns2011  ---|*                HAS COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
02711  M01S00394.ns2011  +++|*         ENTRY  RECALL= *, SET *CIO* FUNCTION CODE IN FET, DO NOT

Seq #  *Modification Id* Act 
----------------------------+
02712  M02S00395.cpcom1  ---|*                        CALL *CIO*.  ALSO, USER MUST INSURE THAT
02713  M02S00396.cpcom1  ---|*                        PREVIOUS FUNCTION HAS COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
02714  M01S00004.cpcom1  +++|*                        CALL *CIO*.

Seq #  *Modification Id* Act 
----------------------------+
02715  M01S00397.ns2011  +++|*
02716  M00S02140.cpcom   +++|*         CALLS  CIO=.
02717  M00S02141.cpcom   +++|
02718  M00S02142.cpcom   +++|
02719  M00S02143.cpcom   +++|          PURGMAC WRITEN
02720  M00S02144.cpcom   +++|
02721  M00S02145.cpcom   +++| WRITEN   MACRO  F,L
02722  M00S02146.cpcom   +++|  MACREF WRITEN
02723  M00S02147.cpcom   +++|  IFC EQ,$L$*$
02724  M00S02148.cpcom   +++|  =2A F,265B
02725  M00S02149.cpcom   +++|  ELSE 1
02726  M00S02150.cpcom   +++|  =2 F,L,264B
02727  M00S02151.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02728  M01S02152.ns2011  ---| WRITER   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02729  M01S00398.ns2011  +++| WRITER   SPACE  4,10
02730  M00S02153.cpcom   +++|***       WRITER - WRITE END OF RECORD.
02731  M00S02154.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02732  M01S00399.ns2011  +++|*         WRITER FILE,RECALL
02733  M00S02155.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02734  M01S02156.ns2011  ---|*         WRITER FILE,,RECALL
02735  M00S02157.cpcom   +++|*         CALLS  CIO=.
02736  M00S02158.cpcom   +++|
02737  M00S02159.cpcom   +++|
02738  M00S02160.cpcom   +++|          PURGMAC WRITER
02739  M00S02161.cpcom   +++|
02740  M00S02162.cpcom   +++| WRITER   MACRO  F,L
02741  M00S02163.cpcom   +++|  MACREF WRITER
02742  M00S02164.cpcom   +++|  =2 F,L,24B
02743  M00S02165.cpcom   +++|  ENDM
02744  M00S02166.cpcom   +++|          TITLE  PERMANENT FILE REQUEST MACROS.
02745  M00S02167.cpcom   +++|***       PERMANENT FILE ACTION MACROS.
02746  M00S02168.cpcom   +++|*
02747  M00S02169.cpcom   +++|*         THE FOLLOWING INFORMATION APPLIES TO ALL PERMANENT
02748  M00S02170.cpcom   +++|*         FILE ACTION MACROS.

Seq #  *Modification Id* Act 
----------------------------+
02749  M01S00400.ns2011  +++|*
02750  M00S02171.cpcom   +++|*         CODE CAN BE OPTIMIZED BY PASSING ARGUMENTS VIA REGISTERS
02751  M00S02172.cpcom   +++|*         INDICATED ON THE FOLLOWING PARAMETERS.
02752  M00S02173.cpcom   +++|*         THE FET LENGTH MAY BE-

Seq #  *Modification Id* Act 
----------------------------+
02753  M01S02174.ns2011  ---|*                A.  5 WORDS IF NO SPECIAL OPTIONS ARE REQUIRED.
02754  M01S02175.ns2011  ---|*                B.  UP TO 15B WORDS IF ANY SPECIAL OTPIONS ARE REQUIRED

Seq #  *Modification Id* Act 
----------------------------+
02755  M01S00401.ns2011  +++|*                A) 5 WORDS IF NO SPECIAL OPTIONS ARE REQUIRED.

Seq #  *Modification Id* Act 
----------------------------+
02756  M02S00402.ns22000 ---|*                B) .LE. 15B WORDS IF ANY SPECIAL OPTIONS ARE REQUIRED.

Seq #  *Modification Id* Act 
----------------------------+
02757  M01S02176.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
02758  M02S02177.ns22000 ---|*         IF *PF* IS NOT SPECIFIED. (F+8) CONTAINS PERMANENT
02759  M02S02178.ns22000 ---|*         FILE NAME.(X1)
02760  M02S02179.ns22000 ---|*         IF *UN* IS NOT SPECIFIED, (F+9) CONTAINS NAME OF
02761  M02S02180.ns22000 ---|*         ALTERNATE CATALOG.(X3)
02762  M02S02181.ns22000 ---|*         IF *PW* IS NOT SPECIFIED, (F+10) CONTAINS THE
02763  M02S02182.ns22000 ---|*         FILE PASSWORD.(X2)
02764  M02S02183.ns22000 ---|*         IF *UC* IS NOT SPECIFIED, (F+11) CONTAINS USER
02765  M02S02184.ns22000 ---|*         CONTROL INFORMATION.  BIT 59 MUST BE SET IF THIS WORD
02766  M02S02185.ns22000 ---|*         CONTAINS DATA FOR *PFM* TO PROCESS.

Seq #  *Modification Id* Act 
----------------------------+
02767  M02S00403.ns22000 ---|*         IF *PF* IS NOT SPECIFIED. (F+8) CONTAINS PERMANENT FILE
02768  M02S00404.ns22000 ---|*                NAME. (X1)
02769  M02S00405.ns22000 ---|*         IF *UN* IS NOT SPECIFIED, (F+9) CONTAINS NAME OF ALTERNATE
02770  M02S00406.ns22000 ---|*                CATALOG. (X3)
02771  M02S00407.ns22000 ---|*         IF *PW* IS NOT SPECIFIED, (F+10) CONTAINS THE FILE
02772  M02S00408.ns22000 ---|*                PASSWORD. (X2)
02773  M02S00409.ns22000 ---|*         IF *UC* IS NOT SPECIFIED, (F+11) CONTAINS USER CONTROL
02774  M02S00410.ns22000 ---|*                INFORMATION.  BIT 59 MUST BE SET IF THIS WORD
02775  M02S00411.ns22000 ---|*                CONTAINS DATA FOR *PFM* TO PROCESS.

Seq #  *Modification Id* Act 
----------------------------+
02776  M01S02186.ns22000 ---|*         IF *PN* IS NOT SPECIFIED, (F+12) CONTAINS ALTERNATE PACKNAME

Seq #  *Modification Id* Act 
----------------------------+
02777  M02S02187.ns22000 ---|*         TO SATISFY PF REQUESTS FROM.
02778  M02S02188.ns22000 ---|*         IF *NF* IS NOT SPECIFIED, (F+13 ) CONTAINS NEW
02779  M02S02189.ns22000 ---|*         FILE NAME FOR CHANGE COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
02780  M02S00412.ns22000 ---|*                TO SATISFY PF REQUESTS FROM.
02781  M02S00413.ns22000 ---|*         IF *NF* IS NOT SPECIFIED, (F+13 ) CONTAINS NEW FILE NAME
02782  M02S00414.ns22000 ---|*                FOR CHANGE COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
02783  M01S00039.ns22000 +++|*                B) UP TO 20B WORDS IF ANY SPECIAL OPTIONS REQUIRED.
02784  M01S00040.ns22000 +++|*
02785  M01S00041.ns22000 +++|*         IF *PF* IS NOT SPECIFIED, (F+10B) (BITS 18-59) CONTAINS THE
02786  M01S00042.ns22000 +++|*                PERMANENT FILE NAME. (X1)

Seq #  *Modification Id* Act 
----------------------------+
02787  M02S00043.cpcom10 ---|*         IF *U* IS NOT SPECIFIED, (F+11B) (BITS 18-59) CONTAINS THE

Seq #  *Modification Id* Act 
----------------------------+
02788  M01S00001.cpcom10 +++|*         IF *UN* IS NOT SPECIFIED, (F+11B) (BITS 18-59) CONTAINS THE

Seq #  *Modification Id* Act 
----------------------------+
02789  M01S00044.ns22000 +++|*                NAME OF ALTERNATE CATALOG. (X3)
02790  M01S00045.ns22000 +++|*         IF *PW* IS NOT SPECIFIED, (F+12B) (BITS 18-59) CONTAINS THE
02791  M01S00046.ns22000 +++|*                FILE PASSWORD. (X2)
02792  M01S00047.ns22000 +++|*         IF *UC* IS NOT SPECIFIED, (F+13B) (BITS 0-59) CONTAINS THE
02793  M01S00048.ns22000 +++|*                USER CONTROL INFORMATION.  BIT 59 MUST BE SET IF THIS
02794  M01S00049.ns22000 +++|*                WORD CONTAINS DATA FOR *PFM* TO PROCESS.
02795  M01S00050.ns22000 +++|*         IF *PN* IS NOT SPECIFIED, (F+14B) (BITS 18-59) CONTAINS THE
02796  M01S00051.ns22000 +++|*                ALTERNATE PACKNAME TO SATISFY PF REQUESTS FROM.
02797  M01S00052.ns22000 +++|*         IF *NF* IS NOT SPECIFIED, (F+15B) (BITS 18-59) CONTAINS THE
02798  M01S00053.ns22000 +++|*                NEW FILE NAME FOR CHANGE COMMAND.
02799  M01S00054.ns22000 +++|*         IF *T* IS NOT SPECIFIED, (F+10B) (BITS 6-11) CONTAINS THE
02800  M01S00055.ns22000 +++|*                FILE CATEGORY.
02801  M01S00056.ns22000 +++|*         IF *MO* IS NOT SPECIFIED, (F+10B) (BITS 0-5) CONTAINS THE
02802  M01S00057.ns22000 +++|*                PERMISSION MODE.
02803  M00S02190.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02804  M01S02191.ns2011  ---|*         IF *FO* IS SET TO *IP* THE PACKNAME IS IGNORED
02805  M01S02192.ns2011  ---|*         AND THE CURRENT FAMILY IS USED FOR PF ACCESS.
02806  M01S02193.ns2011  ---|*         IF *FO* IS SET TO *DF* THE PACKNAME AND FAMILY
02807  M01S02194.ns2011  ---|*         ARE IGNORED AND THE DEFAULT SYSTEM FAMILY IS ACCESSED.

Seq #  *Modification Id* Act 
----------------------------+
02808  M01S00415.ns2011  +++|*         IF *FO* IS SET TO *IP* THE PACKNAME IS IGNORED AND THE
02809  M01S00416.ns2011  +++|*                CURRENT FAMILY IS USED FOR PF ACCESS.
02810  M01S00417.ns2011  +++|*         IF *FO* IS SET TO *DF* THE PACKNAME AND FAMILY ARE IGNORED
02811  M01S00418.ns2011  +++|*                AND THE DEFAULT SYSTEM FAMILY IS ACCESSED.

Seq #  *Modification Id* Act 
----------------------------+
02812  M01S02195.ns22000 ---|*         THE *DF* OPTION MAY ONLY BE USED BY *SSJ=* TYPE JOBS.

Seq #  *Modification Id* Act 
----------------------------+
02813  M01S00058.ns22000 +++|*                THE *DF* OPTION MAY ONLY BE USED BY *SSJ=* JOBS.
02814  M00S02196.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02815  M01S02197.ns22000 ---|*         IF *SR* IS SET TO *FA* ON AN *ATTACH*, FORCE A FAST ATTACH

Seq #  *Modification Id* Act 
----------------------------+
02816  M02S02198.ns22000 ---|*         OF THE FILE (*SSJ=* ONLY).
02817  M02S02199.ns22000 ---|*         IF *SR* IS SET TO *NF* ON AN *ATTACH*, PREVENT A
02818  M02S02200.ns22000 ---|*         FAST ATTACH OF THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
02819  M02S00419.ns22000 ---|*                OF THE FILE (*SSJ=* ONLY).
02820  M02S00420.ns22000 ---|*         IF *SR* IS SET TO *NF* ON AN *ATTACH*, PREVENT A FAST
02821  M02S00421.ns22000 ---|*                ATTACH OF THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
02822  M01S02201.ns22000 ---|*         IF *SR* IS SET TO *CE* ON A *CHANGE*, CLEAR THE ERROR STATUS

Seq #  *Modification Id* Act 
----------------------------+
02823  M02S02202.ns22000 ---|*         ON THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
02824  M02S00422.ns22000 ---|*                ON THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
02825  M01S02203.ns22000 ---|*         IF *SR* IS SET TO *MR* ON A *DEFINE*, FORCE THE FILE TO

Seq #  *Modification Id* Act 
----------------------------+
02826  M02S02204.ns22000 ---|*         RESIDE ON THE MASTER DEVICE (*SSJ=* ONLY).
02827  M02S02205.ns22000 ---|*         IF *SR* IS SET TO *IE*, PROCESS THE REQUEST EVEN IF
02828  M02S02206.ns22000 ---|*         ERROR IDLE IS SET (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02829  M02S00423.ns22000 ---|*                RESIDE ON THE MASTER DEVICE (*SSJ=* ONLY).
02830  M02S00424.ns22000 ---|*         IF *SR* IS SET TO *IE*, PROCESS THE REQUEST EVEN IF ERROR
02831  M02S00425.ns22000 ---|*                IDLE IS SET (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02832  M01S00059.ns22000 +++|*         IF *SR* IS NOT SPECIFIED, (F+10B) (BITS 12-17) CONTAINS THE
02833  M01S00060.ns22000 +++|*                SPECIAL REQUEST.
02834  M01S00061.ns22000 +++|*                IF *SR* IS SET TO *FA* ON AN *ATTACH*, FORCE A FAST
02835  M01S00062.ns22000 +++|*                ATTACH OF THE FILE (*SSJ=* ONLY).
02836  M01S00063.ns22000 +++|*                IF *SR* IS SET TO *NF* ON AN *ATTACH*, PREVENT A FAST
02837  M01S00064.ns22000 +++|*                ATTACH OF THE FILE.
02838  M01S00065.ns22000 +++|*                IF *SR* IS SET TO *CE* ON A *CHANGE*, CLEAR THE ERROR
02839  M01S00066.ns22000 +++|*                STATUS ON THE FILE.
02840  M01S00067.ns22000 +++|*                IF *SR* IS SET TO *MR* ON A *DEFINE*, FORCE THE FILE
02841  M01S00068.ns22000 +++|*                TO RESIDE ON THE MASTER DEVICE (*SSJ=* ONLY).
02842  M01S00069.ns22000 +++|*                IF *SR* IS SET TO *IE*, PROCESS THE REQUEST EVEN IF
02843  M01S00070.ns22000 +++|*                ERROR IDLE IS SET (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02844  M01S00001.v23l617 +++|*                IF *SR* IS SET TO *CP* ON A *CHANGE*, REPLACE THE
02845  M01S00002.v23l617 +++|*                CURRENT CHARGE AND PROJECT NUMBERS WITH THE CALLERS
02846  M01S00003.v23l617 +++|*                EXECUTING CHARGE AND PROJECT NUMBERS.

Seq #  *Modification Id* Act 
----------------------------+
02847  M01S00001.ns2729  +++|*                IF *SR* IS SET TO *MA* ON AN *ATTACH* (A MIXED FAST
02848  M01S00002.ns2729  +++|*                ATTACH), ATTEMPT A FAST ATTACH AND IF THE FAST ATTACH
02849  M01S00003.ns2729  +++|*                FAILS ATTEMPT A NON FAST ATTACH (*SSJ=* ONLY).
02850  M00S02207.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02851  M01S02208.ns22000 ---|*         SS = SUBSYSTEM
02852  M01S02209.ns22000 ---|*         BR = BACKUP REQUIREMENT.
02853  M01S02210.ns22000 ---|*         PR = PREFERRED RESIDENCE.
02854  M00S02211.cpcom   +++|*         FOR *SS*, *BR* AND *PR*, IF ANY ARE SPECIFIED, THOSE NOT

Seq #  *Modification Id* Act 
----------------------------+
02855  M01S02212.ns2011  ---|*         SPECIFIED ARE CLEARED.  THIS RESULTS IN A SYSTEM DEFAULT
02856  M01S02213.ns2011  ---|*         VALUE BEING USED FOR ALL RELEVANT COMMANDS EXCEPT THE
02857  M01S02214.ns2011  ---|*         *CHANGE* COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
02858  M01S00426.ns2011  +++|*                SPECIFIED ARE CLEARED.  THIS RESULTS IN A SYSTEM
02859  M01S00427.ns2011  +++|*                DEFAULT VALUE BEING USED FOR ALL RELEVANT COMMANDS
02860  M01S00428.ns2011  +++|*                EXCEPT THE *CHANGE* COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
02861  M01S00071.ns22000 +++|*         IF *PR* IS NOT SPECIFIED, (F+17B) (BITS 57-59) CONTAINS THE
02862  M01S00072.ns22000 +++|*                PREFERRED RESIDENCE.
02863  M01S00073.ns22000 +++|*         IF *BR* IS NOT SPECIFIED, (F+17B) (BITS 54-56) CONTAINS THE
02864  M01S00074.ns22000 +++|*                BACKUP REQUIREMENT.
02865  M01S00075.ns22000 +++|*         IF *SS* IS NOT SPECIFIED, (F+17B) (BITS 48-53) CONTAINS THE
02866  M01S00076.ns22000 +++|*                FILE SUBSYSTEM.
02867  M01S00077.ns22000 +++|*
02868  M01S00078.ns22000 +++|*         IF *XT* IS NOT SPECIFIED, (F+15B) (BITS 0-17) CONTAINS THE
02869  M01S00079.ns22000 +++|*                PASSWORD/PERMIT EXPIRATION DATE OR TERM.

Seq #  *Modification Id* Act 
----------------------------+
02870  M01S00004.v23l617 +++|*

Seq #  *Modification Id* Act 
----------------------------+
02871  M02S00005.cpcom10 ---|*         IF *RT*IS  NOT SPECIFIED, (FET+1) (BIT 43) CONTAINS THE
02872  M02S00006.cpcom10 ---|*         REAL-TIME PROCESSING BIT.

Seq #  *Modification Id* Act 
----------------------------+
02873  M01S00002.cpcom10 +++|*         IF *RT* IS  NOT SPECIFIED, (FET+1) (BIT 43) CONTAINS THE
02874  M01S00003.cpcom10 +++|*                REAL-TIME PROCESSING BIT.

Seq #  *Modification Id* Act 
----------------------------+
02875  M01S00007.v23l617 +++|*
02876  M01S00008.v23l617 +++|*         IF *AC* IS NOT SPECIFIED, (F+17B) (BITS 46-47) CONTAIN THE
02877  M01S00009.v23l617 +++|*                ALTERNATE CATLIST PERMISSION VALUE.
02878  M00S02215.cpcom   +++|*
02879  M00S02216.cpcom   +++|*         THE ADDRESS OF THE FET MUST BE SUPPLIED VIA *F* PARAMETER.
02880  M00S02217.cpcom   +++|*         THE USER MUST INSURE THAT ALL ACTIVITY HAS COMPLETED ON
02881  M00S02218.cpcom   +++|*         THIS FET PRIOR TO EXECUTING A PERMANENT FILE ACTION MACRO.
02882  M00S02219.cpcom   +++|*         THE CALL MADE TO *PFM* WILL RECALL THE CPU WHEN THE REQUEST
02883  M00S02220.cpcom   +++|*         IS COMPLETE.  IF THE USER DESIRES TO PROCESS *PFM* ERRORS
02884  M00S02221.cpcom   +++|*         THE ERROR PROCESSING BIT MUST BE SET IN THE FET.
02885  M00S02222.cpcom   +++|*         THE ERROR CODES WILL BE RETURNED IN THE CODE AND STATUS

Seq #  *Modification Id* Act 
----------------------------+
02886  M01S02223.ns2011  ---|*         POSITION OF THE FET (WORD 0, BITS 10-17).  SEE PFM

Seq #  *Modification Id* Act 
----------------------------+
02887  M01S00429.ns2011  +++|*         POSITION OF THE FET (WORD 0, BITS 10-17).  SEE *PFM*
02888  M00S02224.cpcom   +++|*         DOCUMENTATION FOR ERROR CODES AND DESCRIPTIONS.
02889  M00S02225.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02890  M01S02226.ns2011  ---|*         USES   X - 1,2,3,4,6,7.

Seq #  *Modification Id* Act 
----------------------------+
02891  M01S00430.ns2011  +++|*                X - 1, 2, 3, 4, 6, 7.
02892  M01S00431.ns2011  +++|*                A - 1, 2, 3, 4, 6, 7.
02893  M00S02227.cpcom   +++|*                B - 2.

Seq #  *Modification Id* Act 
----------------------------+
02894  M01S02228.ns2011  ---|*                A - 1,2,3,4,6,7.
02895  M01S02229.ns2011  ---|          SPACE  4
02896  M01S02230.ns2011  ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02897  M01S00432.ns2011  +++|          SPACE  4,10
02898  M00S02231.cpcom   +++|          PURGMAC =3
02899  M00S02232.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
02900  M01S02233.ns22000 ---| =3       MACRO F,PF,U,PW,UC,PN,T,MO,DT,FO,O,SR,SS,BR,PR

Seq #  *Modification Id* Act 
----------------------------+
02901  M02S00080.v23l617 ---| =3       MACRO F,PF,U,PW,UC,PN,T,MO,DT,FO,O,SR,SS,BR,PR,XT,CS,AL

Seq #  *Modification Id* Act 
----------------------------+
02902  M02S00010.cpcom10 ---| =3       MACRO  F,PF,U,PW,UC,PN,T,MO,DT,FO,O,SR,SS,BR,PR,XT,CS,AL,AC,RT

Seq #  *Modification Id* Act 
----------------------------+
02903  M01S00004.cpcom10 +++| =3       MACRO  F,PF,UN,PW,UC,PN,T,MO,DT,FO,O,SR,SS,BR,PR,XT,CS,AL,AC,R
02904  M01S00005.cpcom10 +++|,T
02905  M00S02234.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
02906  M01S02235.ns2011  ---|*                            FILE CATEGORY.

Seq #  *Modification Id* Act 
----------------------------+
02907  M01S00433.ns2011  +++|*         FILE CATEGORY.
02908  M00S02236.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
02909  M01S02237.ns2011  ---|   LOCAL FC,I,J,N1,Q,Q1,Z,Z1,K,KK,K1,K2,V,VV,WW,AA

Seq #  *Modification Id* Act 
----------------------------+
02910  M01S00434.ns2011  +++|   LOCAL FC,I,J,N1,Q,Q1,Z,Z1,K,KK,K1,K2,V,VV,WW,AA
02911  M00S02238.cpcom   +++|FC SET 0
02912  M00S02239.cpcom   +++|J IFC NE,$T$$
02913  M00S02240.cpcom   +++|FC SET 77B
02914  M00S02241.cpcom   +++|I SET 77B

Seq #  *Modification Id* Act 
----------------------------+
02915  M01S02242.ns2011  ---|  ECHO 3,B=(P,S,L,PU),C=(0,1,2,2)

Seq #  *Modification Id* Act 
----------------------------+
02916  M01S00435.ns2011  +++|  ECHO 3,B=(P,S,L,PU),C=(0,1,2,2)
02917  M00S02243.cpcom   +++|  IFC EQ,$B$T$,2
02918  M00S02244.cpcom   +++|  STOPDUP
02919  M00S02245.cpcom   +++|I  SET C+40B
02920  M00S02246.cpcom   +++|*
02921  M00S02247.cpcom   +++|N1 IFEQ I,77B
02922  M00S02248.cpcom   +++|  R= A4,T
02923  M00S02249.cpcom   +++|N1 ELSE 1
02924  M00S02250.cpcom   +++|  R= X4,I
02925  M00S02251.cpcom   +++|  LX4 6
02926  M00S02252.cpcom   +++|  IFC NE,$MO$$,1
02927  M00S02253.cpcom   +++|  SB2 X4
02928  M00S02254.cpcom   +++|J ENDIF

Seq #  *Modification Id* Act 
----------------------------+
02929  M01S02255.ns2011  ---|*                            FILE MODE.

Seq #  *Modification Id* Act 
----------------------------+
02930  M01S00436.ns2011  +++|*         FILE MODE.
02931  M00S02256.cpcom   +++|Q IFC NE,$MO$$
02932  M00S02257.cpcom   +++|I SET 77B

Seq #  *Modification Id* Act 
----------------------------+
02933  M01S02258.ns21000 ---|  ECHO 4,B=(W,R,A,E,N,M,RM,RA),C=(0,1,2,3,4,5,6,7)

Seq #  *Modification Id* Act 
----------------------------+
02934  M01S00023.ns21000 +++|  ECHO 4,B=(W,R,A,E,N,M,RM,RA,U,RU),C=(0,1,2,3,4,5,6,7,10B,11B)
02935  M00S02259.cpcom   +++|QX IFC EQ,$B$MO$
02936  M00S02260.cpcom   +++|  STOPDUP
02937  M00S02261.cpcom   +++|I  SET C+40B
02938  M00S02262.cpcom   +++|QX ENDIF
02939  M00S02263.cpcom   +++|*
02940  M00S02264.cpcom   +++|Q1 IFEQ I,77B
02941  M00S02265.cpcom   +++|  R= A4,MO
02942  M00S02266.cpcom   +++|Q1  ELSE 1
02943  M00S02267.cpcom   +++|  R= X4,I
02944  M00S02268.cpcom   +++|  IFEQ FC,77B,1
02945  M00S02269.cpcom   +++|  SX4 B2+X4
02946  M00S02270.cpcom   +++|FC SET  77B
02947  M00S02271.cpcom   +++|Q ENDIF

Seq #  *Modification Id* Act 
----------------------------+
02948  M01S02272.ns2011  ---|*                            MERGE IN SPECIAL REQUEST OPTION

Seq #  *Modification Id* Act 
----------------------------+
02949  M01S00437.ns2011  +++|*         MERGE IN SPECIAL REQUEST OPTION.
02950  M00S02273.cpcom   +++|R IFC NE,$SR$$
02951  M00S02274.cpcom   +++|I SET 0

Seq #  *Modification Id* Act 
----------------------------+
02952  M01S02275.v23l617 ---|  ECHO 3,B=(FA,CE,NF,MR,IE),C=(1,3,4,5,6)

Seq #  *Modification Id* Act 
----------------------------+
02953  M02S00011.ns2729  ---|  ECHO 3,B=(FA,CE,NF,MR,IE,CP),C=(1,3,4,5,6,10B)

Seq #  *Modification Id* Act 
----------------------------+
02954  M01S00004.ns2729  +++|  ECHO 3,B=(FA,CE,NF,MR,IE,CP,MA),C=(1,3,4,5,6,10B,12B)
02955  M00S02276.cpcom   +++|  IFC EQ,$B$SR$,2
02956  M00S02277.cpcom   +++|  STOPDUP
02957  M00S02278.cpcom   +++|I SET C
02958  M00S02279.cpcom   +++|  IFEQ FC,77B,1
02959  M00S02280.cpcom   +++|  SB2 X4
02960  M00S02281.cpcom   +++|R2 IFEQ I,0
02961  M00S02282.cpcom   +++|  R= A4,SR
02962  M00S02283.cpcom   +++|  LX4 12D
02963  M00S02284.cpcom   +++|  IFEQ FC,77B,1
02964  M00S02285.cpcom   +++|  SX4 X4+B2
02965  M00S02286.cpcom   +++|R2 ELSE
02966  M00S02287.cpcom   +++|R1 IFEQ FC,77B
02967  M00S02288.cpcom   +++|  SX4 X4+I*10000B
02968  M00S02289.cpcom   +++|R1 ELSE 1
02969  M00S02290.cpcom   +++|  SX4 I*10000B
02970  M00S02291.cpcom   +++|R2 ENDIF
02971  M00S02292.cpcom   +++|FC SET 77B
02972  M00S02293.cpcom   +++|R ENDIF

Seq #  *Modification Id* Act 
----------------------------+
02973  M01S02294.ns2011  ---|*                            PF NAME.

Seq #  *Modification Id* Act 
----------------------------+
02974  M01S00438.ns2011  +++|*         PF NAME.
02975  M00S02295.cpcom   +++|Z IFC NE,$PF$$
02976  M00S02296.cpcom   +++|  IFC EQ,$PF$0$,2
02977  M00S02297.cpcom   +++|  SX1 B0
02978  M00S02298.cpcom   +++|Z2 ELSE 2
02979  M00S02299.cpcom   +++|  IFC NE,$PF$X1$,1
02980  M00S02300.cpcom   +++|  R= A1,PF

Seq #  *Modification Id* Act 
----------------------------+
02981  M01S02301.ns2011  ---|*                            MERGE IN FILE CATEGORY + MODE.

Seq #  *Modification Id* Act 
----------------------------+
02982  M01S00439.ns2011  +++|*         MERGE IN FILE CATEGORY + MODE.
02983  M00S02302.cpcom   +++|Z1 IFEQ FC,77B
02984  M00S02303.cpcom   +++|  BX6 X1+X4
02985  M00S02304.cpcom   +++|Z1  ELSE 1
02986  M00S02305.cpcom   +++|  BX6 X1
02987  M00S02306.cpcom   +++|  SA6 F+10B
02988  M00S02307.cpcom   +++|Z ELSE
02989  M00S02308.cpcom   +++|  IFEQ FC,77B
02990  M00S02309.cpcom   +++|  MX6 42D
02991  M00S02310.cpcom   +++|  SA1 F+10B
02992  M00S02311.cpcom   +++|  BX6 X6*X1
02993  M00S02312.cpcom   +++|  BX6 X6+X4
02994  M00S02313.cpcom   +++|  SA6 A1
02995  M00S02314.cpcom   +++|Z ENDIF

Seq #  *Modification Id* Act 
----------------------------+
02996  M01S02315.ns2011  ---|*                            OPTIONAL USER NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
02997  M01S00440.ns2011  +++|*         OPTIONAL USER NUMBER.

Seq #  *Modification Id* Act 
----------------------------+
02998  M01S02316.cpcom10 ---|  IFC NE,$U$$,4
02999  M01S02317.cpcom10 ---|  IFC NE,$U$X3$,1
03000  M01S02318.cpcom10 ---|  R= A3,U

Seq #  *Modification Id* Act 
----------------------------+
03001  M01S00006.cpcom10 +++|  IFC NE,$UN$$,4
03002  M01S00007.cpcom10 +++|  IFC NE,$UN$X3$,1
03003  M01S00008.cpcom10 +++|  R= A3,UN
03004  M00S02319.cpcom   +++|  BX6 X3
03005  M00S02320.cpcom   +++|  SA6 F+11B

Seq #  *Modification Id* Act 
----------------------------+
03006  M01S02321.ns2011  ---|*                            PASSWORD.

Seq #  *Modification Id* Act 
----------------------------+
03007  M01S00441.ns2011  +++|*         PASSWORD.

Seq #  *Modification Id* Act 
----------------------------+
03008  M01S02322.cpcom11 ---|  IFC NE,$PW$$,8D
03009  M01S02323.cpcom11 ---|  IFC NE,$PW$X2$,1
03010  M01S02324.cpcom11 ---|  R= A2,PW

Seq #  *Modification Id* Act 
----------------------------+
03011  M01S00001.cpcom11 +++|P1 IFC NE,$PW$$
03012  M01S00002.cpcom11 +++|P2 IFC EQ,$PW$X2$
03013  M01S00003.cpcom11 +++|  BX3 X2
03014  M01S00004.cpcom11 +++|P2 ELSE
03015  M01S00005.cpcom11 +++|  R= A3,PW
03016  M01S00006.cpcom11 +++|P2 ENDIF
03017  M00S02325.cpcom   +++|  MX4 42D
03018  M00S02326.cpcom   +++|  SA1 F+12B
03019  M00S02327.cpcom   +++|  BX6 -X4*X1

Seq #  *Modification Id* Act 
----------------------------+
03020  M01S02328.cpcom11 ---|  BX7 X4*X2

Seq #  *Modification Id* Act 
----------------------------+
03021  M01S00007.cpcom11 +++|  BX7 X4*X3
03022  M00S02329.cpcom   +++|  BX6 X6+X7
03023  M00S02330.cpcom   +++|  SA6 A1

Seq #  *Modification Id* Act 
----------------------------+
03024  M01S00008.cpcom11 +++|P1 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03025  M01S02331.ns2011  ---|*                            USER CONTROL WORD.

Seq #  *Modification Id* Act 
----------------------------+
03026  M01S00442.ns2011  +++|*         USER CONTROL WORD.
03027  M00S02332.cpcom   +++|  IFC NE,$UC$$,3
03028  M00S02333.cpcom   +++|  R= A4,UC
03029  M00S02334.cpcom   +++|  BX6 X4
03030  M00S02335.cpcom   +++|  SA6 F+13B

Seq #  *Modification Id* Act 
----------------------------+
03031  M01S02336.ns2011  ---|*                            PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03032  M01S00443.ns2011  +++|*         PACKNAME.
03033  M00S02337.cpcom   +++|  IFC NE,$PN$$,3
03034  M00S02338.cpcom   +++|  R= A4,PN
03035  M00S02339.cpcom   +++|  BX6 X4
03036  M00S02340.cpcom   +++|  SA6 F+14B

Seq #  *Modification Id* Act 
----------------------------+
03037  M01S02341.ns2011  ---|*                            DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03038  M01S00444.ns2011  +++|*         DEVICE TYPE.
03039  M00S02342.cpcom   +++|K IFC NE,$DT$$
03040  M00S02343.cpcom   +++|  MX7 12D
03041  M00S02344.cpcom   +++|  SX1 B0
03042  M00S02345.cpcom   +++|VV MICRO 1,2, DT
03043  M00S02346.cpcom   +++|WW MICRO 3,, DT
03044  M00S02347.cpcom   +++|V SET 77B
03045  M00S02348.cpcom   +++|K1 MICCNT WW
03046  M00S02349.cpcom   +++|K2 IFLE K1,2
03047  M00S02350.cpcom   +++|  ECHO  3,B=(DE,DP,DV,DW)
03048  M00S02351.cpcom   +++|  IFC EQ,$B$"VV"$,2
03049  M00S02352.cpcom   +++|  STOPDUP
03050  M00S02353.cpcom   +++|V SET 2R_"VV"
03051  M00S02354.cpcom   +++|*
03052  M00S02355.cpcom   +++|  IFNE V,77B,2
03053  M00S02356.cpcom   +++|  IFC NE,$"WW"$$,1
03054  M00S02357.cpcom   +++|  ERR - ILLEGAL PARAMETER
03055  M00S02358.cpcom   +++|  IFEQ V,77B,6

Seq #  *Modification Id* Act 
----------------------------+
03056  M01S02359.251l670 ---|  ECHO  5,B=(DI,DJ,DK,DL,DM,DQ,MD)

Seq #  *Modification Id* Act 
----------------------------+
03057  M01S00001.251l670 +++|  ECHO  5,B=(DD,DG,DI,DJ,DK,DL,DM,DQ,DX,DY,DZ,DA,DB,DC,DF,DH)
03058  M00S02360.cpcom   +++|  IFC EQ,$B$"VV"$,4
03059  M00S02361.cpcom   +++|  STOPDUP
03060  M00S02362.cpcom   +++|V SET 2R_"VV"
03061  M00S02363.cpcom   +++|  IFC NE,$"WW"$$,1
03062  M00S02364.cpcom   +++|  SX1 1R_"WW"
03063  M00S02365.cpcom   +++|K2 ENDIF
03064  M00S02366.cpcom   +++|*
03065  M00S02367.cpcom   +++|KK IFEQ V,77B
03066  M00S02368.cpcom   +++|  R= A4,DT
03067  M00S02369.cpcom   +++|  BX6 X7*X4
03068  M00S02370.cpcom   +++|  LX4 12D
03069  M00S02371.cpcom   +++|  BX1 X7*X4
03070  M00S02372.cpcom   +++|  LX1 6
03071  M00S02373.cpcom   +++|KK ELSE 3
03072  M00S02374.cpcom   +++|  R= X4,V
03073  M00S02375.cpcom   +++|  LX4 48D
03074  M00S02376.cpcom   +++|  BX6 X7*X4
03075  M00S02377.cpcom   +++|*
03076  M00S02378.cpcom   +++|  SA4 F+1
03077  M00S02379.cpcom   +++|  BX4 -X7*X4
03078  M00S02380.cpcom   +++|  BX6 X4+X6
03079  M00S02381.cpcom   +++|  SA6 A4
03080  M00S02382.cpcom   +++|*
03081  M00S02383.cpcom   +++|  ZR X1,AA
03082  M00S02384.cpcom   +++|  SX1 X1-1R0
03083  M00S02385.cpcom   +++|AA SA4 F+14B
03084  M00S02386.cpcom   +++|  LX7 12D
03085  M00S02387.cpcom   +++|  BX4    -X7*X4
03086  M00S02388.cpcom   +++|  BX1    X7*X1
03087  M00S02389.cpcom   +++|  BX6    X4+X1
03088  M00S02390.cpcom   +++|  SA6    A4
03089  M00S02391.cpcom   +++|K ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03090  M01S00081.ns22000 +++|*         SET ACCESS CATEGORY SET.
03091  M01S00082.ns22000 +++|AB IFC NE,$CS$$
03092  M01S00083.ns22000 +++|  SA4 CS
03093  M01S00084.ns22000 +++|  MX1 -32D
03094  M01S00085.ns22000 +++|  BX6 -X1*X4
03095  M01S00086.ns22000 +++|  SA4 F+5
03096  M01S00087.ns22000 +++|  BX4 X1*X4
03097  M01S00088.ns22000 +++|  BX6 X6+X4
03098  M01S00089.ns22000 +++|  SA6 A4
03099  M01S00090.ns22000 +++|AB ENDIF
03100  M01S00091.ns22000 +++|*         SET ACCESS LEVEL.

Seq #  *Modification Id* Act 
----------------------------+
03101  M02S00092.v23l617 ---|AC IFC NE,$AL$$

Seq #  *Modification Id* Act 
----------------------------+
03102  M01S00012.v23l617 +++|AG IFC NE,$AL$$

Seq #  *Modification Id* Act 
----------------------------+
03103  M01S00093.ns22000 +++|I SET 77B
03104  M01S00094.ns22000 +++|  ECHO 4,B=("ALM0","ALM1","ALM2","ALM3"),C=(0,1,2,3)
03105  M01S00095.ns22000 +++|AD IFC EQ,$B$AL$
03106  M01S00096.ns22000 +++|  STOPDUP
03107  M01S00097.ns22000 +++|I SET C
03108  M01S00098.ns22000 +++|AD ENDIF
03109  M01S00099.ns22000 +++|  ECHO 4,B=("ALM4","ALM5","ALM6","ALM7"),C=(4,5,6,7)
03110  M01S00100.ns22000 +++|AE IFC EQ,$B$AL$
03111  M01S00101.ns22000 +++|  STOPDUP
03112  M01S00102.ns22000 +++|I SET C
03113  M01S00103.ns22000 +++|AE ENDIF
03114  M01S00104.ns22000 +++|*
03115  M01S00105.ns22000 +++|AF IFEQ I,77B
03116  M01S00106.ns22000 +++|  R= A4,AL
03117  M01S00107.ns22000 +++|AF ELSE
03118  M01S00108.ns22000 +++|  R= X4,I
03119  M01S00109.ns22000 +++|AF ENDIF
03120  M01S00110.ns22000 +++|  MX1 -3
03121  M01S00111.ns22000 +++|  BX6 -X1*X4
03122  M01S00112.ns22000 +++|  LX1 36D
03123  M01S00113.ns22000 +++|  LX6 36D
03124  M01S00114.ns22000 +++|  SA4 F+4
03125  M01S00115.ns22000 +++|  BX4 X1*X4
03126  M01S00116.ns22000 +++|  BX6 X6+X4
03127  M01S00117.ns22000 +++|  SA6 A4

Seq #  *Modification Id* Act 
----------------------------+
03128  M02S00118.v23l617 ---|AC ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03129  M01S00013.v23l617 +++|AG ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03130  M01S00119.ns22000 +++|*         SET SUBSYSTEM,PREFERRED RESIDENCE AND BACKUP REQUIREMENT.
03131  M01S00120.ns22000 +++|  ECHO 4,B=(PR,BR,SS)
03132  M01S00121.ns22000 +++|SX IFC NE,$B$$
03133  M01S00122.ns22000 +++|  STOPDUP
03134  M01S00123.ns22000 +++|  =3SS F,PR,BR,SS
03135  M01S00124.ns22000 +++|SX ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03136  M01S00014.v23l617 +++|*         SET ALTERNATE CATLIST PERMISSION.
03137  M01S00015.v23l617 +++|CP IFC NE,$AC$$
03138  M01S00016.v23l617 +++|I SET 77B
03139  M01S00017.v23l617 +++|  ECHO 3,B=(N,Y),C=(1,2)
03140  M01S00018.v23l617 +++|  IFC EQ,$B$AC$,2
03141  M01S00019.v23l617 +++|  STOPDUP
03142  M01S00020.v23l617 +++|I SET C
03143  M01S00021.v23l617 +++|M1 IFEQ I,77B
03144  M01S00022.v23l617 +++|  R= A3,AC
03145  M01S00023.v23l617 +++|M1 ELSE
03146  M01S00024.v23l617 +++|  R= X3,I
03147  M01S00025.v23l617 +++|M1 ENDIF
03148  M01S00026.v23l617 +++|  MX1 -2
03149  M01S00027.v23l617 +++|  BX6 -X1*X3
03150  M01S00028.v23l617 +++|  LX1 46D
03151  M01S00029.v23l617 +++|  SA4 F+17B
03152  M01S00030.v23l617 +++|  LX6 46D
03153  M01S00031.v23l617 +++|  BX4 X1*X4
03154  M01S00032.v23l617 +++|  BX6 X6+X4
03155  M01S00033.v23l617 +++|  SA6 A4
03156  M01S00034.v23l617 +++|CP ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03157  M01S00125.ns22000 +++|*         SET PERMIT/PASSWORD EXPIRATION TERM OR DATE.
03158  M01S00126.ns22000 +++|PX IFC NE,$XT$$
03159  M01S00127.ns22000 +++|  SA4 XT
03160  M01S00128.ns22000 +++|  MX1 -18
03161  M01S00129.ns22000 +++|  BX6 -X1*X4
03162  M01S00130.ns22000 +++|  SA4 F+15B
03163  M01S00131.ns22000 +++|  BX4 X1*X4
03164  M01S00132.ns22000 +++|  BX6 X6+X4
03165  M01S00133.ns22000 +++|  SA6 A4
03166  M01S00134.ns22000 +++|PX ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03167  M01S00035.v23l617 +++|*         SET REAL-TIME OPTION.
03168  M01S00036.v23l617 +++|AG IFC NE,$RT$$
03169  M01S00037.v23l617 +++|  SA4 F+1
03170  M01S00038.v23l617 +++|  R= X6,1
03171  M01S00039.v23l617 +++|  LX6 43D-0
03172  M01S00040.v23l617 +++|  BX6 X6+X4
03173  M01S00041.v23l617 +++|  SA6 A4
03174  M01S00042.v23l617 +++|AG ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03175  M01S02392.ns2011  ---|*                            SET FUNCTION.

Seq #  *Modification Id* Act 
----------------------------+
03176  M01S00445.ns2011  +++|*         SET FUNCTION.
03177  M00S02393.cpcom   +++|I SET 0
03178  M00S02394.cpcom   +++|L IFC NE,$FO$$
03179  M00S02395.cpcom   +++|  ECHO 3,B=(DF,IP),C=(1000B,2000B)
03180  M00S02396.cpcom   +++|  IFC EQ,$B$FO$,2
03181  M00S02397.cpcom   +++|  STOPDUP
03182  M00S02398.cpcom   +++|I SET C
03183  M00S02399.cpcom   +++|  IFEQ I,0,1
03184  M00S02400.cpcom   +++|  ERR - ILLEGAL FORCE FAMILY OPTION
03185  M00S02401.cpcom   +++|L ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03186  M01S02402.ns22000 ---|*         SET SUBSYSTEM, PREFERRED RESIDENCE AND BACKUP REQUIREMENT.
03187  M01S02403.ns22000 ---|  ECHO 4,B=(PR,BR,SS)
03188  M01S02404.ns22000 ---|SX IFC NE,$B$$
03189  M01S02405.ns22000 ---|  STOPDUP
03190  M01S02406.ns22000 ---|  =3SS F,PR,BR,SS
03191  M01S02407.ns22000 ---|SX ENDIF
03192  M00S02408.cpcom   +++|  SX7 O+I
03193  M00S02409.cpcom   +++|*
03194  M00S02410.cpcom   +++|  R= X2,F
03195  M00S02411.cpcom   +++|  RJ =XPFM=
03196  M00S02412.cpcom   +++|  ENDM
03197  M00S02413.cpcom   +++|          SPACE  4,10
03198  M00S02414.cpcom   +++|**        PARAMETER PROCESSING MACROS FOR THE =3 MACRO.
03199  M00S02415.cpcom   +++| =3SS     SPACE  4,10
03200  M00S02416.cpcom   +++|**        =3SS - SET SUBSYSTEM FIELD IN FET.
03201  M00S02417.cpcom   +++|
03202  M00S02418.cpcom   +++|          PURGMAC  =3SS
03203  M00S02419.cpcom   +++|
03204  M00S02420.cpcom   +++| =3SS     MACRO  F,PR,BR,SS
03205  M00S02421.cpcom   +++|  LOCAL I
03206  M00S02422.cpcom   +++|A IFC EQ,$SS$$
03207  M00S02423.cpcom   +++|  =3BR F,PR,BR,SS
03208  M00S02424.cpcom   +++|A ELSE
03209  M00S02425.cpcom   +++|I SET 100D
03210  M00S02426.cpcom   +++|  ECHO 4,B=(NULL,BASIC,FORT,FTNTS,EXEC,BATCH),C=(0,1,2,3,4,5)
03211  M00S02427.cpcom   +++|AX IFC EQ,$B$SS$
03212  M00S02428.cpcom   +++|  STOPDUP
03213  M00S02429.cpcom   +++|I SET C
03214  M00S02430.cpcom   +++|AX ENDIF
03215  M00S02431.cpcom   +++|AA IFEQ I,100D
03216  M00S02432.cpcom   +++|  R= A4,SS
03217  M00S02433.cpcom   +++|AA ELSE
03218  M00S02434.cpcom   +++|  R= X4,I
03219  M00S02435.cpcom   +++|AA ENDIF
03220  M00S02436.cpcom   +++|  =3BR F,PR,BR,X4
03221  M00S02437.cpcom   +++|A ENDIF
03222  M00S02438.cpcom   +++| =3SS     ENDM
03223  M00S02439.cpcom   +++| =3BR     SPACE  4,10
03224  M00S02440.cpcom   +++|**        =3BR - SET BACKUP REQUIREMENT IN FET.
03225  M00S02441.cpcom   +++|
03226  M00S02442.cpcom   +++|          PURGMAC  =3BR
03227  M00S02443.cpcom   +++|
03228  M00S02444.cpcom   +++| =3BR     MACRO  F,PR,BR,SS
03229  M00S02445.cpcom   +++|  LOCAL I
03230  M00S02446.cpcom   +++|A IFC EQ,$BR$$
03231  M00S02447.cpcom   +++|  =3PR F,PR,SS
03232  M00S02448.cpcom   +++|A ELSE
03233  M00S02449.cpcom   +++|I SET 10D
03234  M00S02450.cpcom   +++|  ECHO 4,B=(N,Y,MD),C=(1,2,3)
03235  M00S02451.cpcom   +++|AX IFC EQ,$B$BR$
03236  M00S02452.cpcom   +++|  STOPDUP
03237  M00S02453.cpcom   +++|I SET C
03238  M00S02454.cpcom   +++|AX ENDIF
03239  M00S02455.cpcom   +++|AA IFEQ I,10D
03240  M00S02456.cpcom   +++|  R= A3,BR
03241  M00S02457.cpcom   +++|AA ELSE
03242  M00S02458.cpcom   +++|  R= X3,I
03243  M00S02459.cpcom   +++|AA ENDIF
03244  M00S02460.cpcom   +++|  LX3 6
03245  M00S02461.cpcom   +++|  IFC NE,$SS$$,1
03246  M00S02462.cpcom   +++|  BX3 SS+X3
03247  M00S02463.cpcom   +++|  =3PR F,PR,X3
03248  M00S02464.cpcom   +++|A ENDIF
03249  M00S02465.cpcom   +++| =3BR     ENDM
03250  M00S02466.cpcom   +++| =3PR     SPACE  4,10
03251  M00S02467.cpcom   +++|**        =3PR - SET PREFERRED RESIDENCE PARAMETER IN FET.
03252  M00S02468.cpcom   +++|
03253  M00S02469.cpcom   +++|          PURGMAC  =3PR
03254  M00S02470.cpcom   +++|
03255  M00S02471.cpcom   +++| =3PR     MACRO  F,PR,PX
03256  M00S02472.cpcom   +++|  LOCAL I
03257  M00S02473.cpcom   +++|A IFC EQ,$PR$$
03258  M00S02474.cpcom   +++|  BX6 PX
03259  M00S02475.cpcom   +++|A ELSE
03260  M00S02476.cpcom   +++|I SET 10D

Seq #  *Modification Id* Act 
----------------------------+
03261  M01S02477.cpcom7  ---|  ECHO 4,B=(L,D,M,N),C=(1,2,3,4)

Seq #  *Modification Id* Act 
----------------------------+
03262  M01S00001.cpcom7  +++|  ECHO 4,B=(L,D,M,N,T),C=(1,2,3,4,5)
03263  M00S02478.cpcom   +++|AX IFC EQ,$B$PR$
03264  M00S02479.cpcom   +++|  STOPDUP
03265  M00S02480.cpcom   +++|I SET C
03266  M00S02481.cpcom   +++|AX ENDIF
03267  M00S02482.cpcom   +++|AA IFEQ I,10D

Seq #  *Modification Id* Act 
----------------------------+
03268  M01S02483.cpcom11 ---|  R= A2,PR

Seq #  *Modification Id* Act 
----------------------------+
03269  M01S00009.cpcom11 +++|  R= A4,PR
03270  M00S02484.cpcom   +++|AA ELSE

Seq #  *Modification Id* Act 
----------------------------+
03271  M01S02485.cpcom11 ---|  R= X2,I

Seq #  *Modification Id* Act 
----------------------------+
03272  M01S00010.cpcom11 +++|  R= X4,I
03273  M00S02486.cpcom   +++|AA ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03274  M01S02487.cpcom11 ---|  LX2 9D

Seq #  *Modification Id* Act 
----------------------------+
03275  M01S00011.cpcom11 +++|  LX4 9D
03276  M00S02488.cpcom   +++|AB IFC NE,$PX$$

Seq #  *Modification Id* Act 
----------------------------+
03277  M01S02489.cpcom11 ---|  BX6 X2+PX

Seq #  *Modification Id* Act 
----------------------------+
03278  M01S00012.cpcom11 +++|  BX6 X4+PX
03279  M00S02490.cpcom   +++|AB ELSE

Seq #  *Modification Id* Act 
----------------------------+
03280  M01S02491.cpcom11 ---|  BX6 X2

Seq #  *Modification Id* Act 
----------------------------+
03281  M01S00013.cpcom11 +++|  BX6 X4
03282  M00S02492.cpcom   +++|  ENDIF
03283  M00S02493.cpcom   +++|  LX6 48D
03284  M00S02494.cpcom   +++|  SA6 F+17B
03285  M00S02495.cpcom   +++| =3PR     ENDM

Seq #  *Modification Id* Act 
----------------------------+
03286  M01S02496.ns2011  ---| APPEND   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03287  M01S00446.ns2011  +++| APPEND   SPACE  4,10
03288  M00S02497.cpcom   +++|***       APPEND (F,PF,UN,PW,PN,D,FO,SR)
03289  M00S02498.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03290  M01S02499.ns2011  ---|*                F = ADDRESS OF FET (CONTAINS FILE TO BE APPENDED).

Seq #  *Modification Id* Act 
----------------------------+
03291  M01S00447.ns2011  +++|*                F  = ADDRESS OF FET (CONTAINS FILE TO BE APPENDED).
03292  M00S02500.cpcom   +++|*                PF = PERMANENT FILE TO BE APPENDED TO.
03293  M00S02501.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03294  M00S02502.cpcom   +++|*                PW = FILE PASSWORD.
03295  M00S02503.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03296  M01S02504.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03297  M01S00448.ns2011  +++|*                D  = DEVICE TYPE.
03298  M00S02505.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03299  M00S02506.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03300  M00S02507.cpcom   +++|
03301  M00S02508.cpcom   +++|
03302  M00S02509.cpcom   +++|          PURGMAC APPEND
03303  M00S02510.cpcom   +++|
03304  M00S02511.cpcom   +++| APPEND   MACRO  F,PF,UN,PW,PN,D,FO,SR
03305  M00S02512.cpcom   +++|  =3 F,PF,UN,PW,,PN,,,D,FO,7,SR
03306  M00S02513.cpcom   +++|  MACREF APPEND
03307  M00S02514.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03308  M01S02515.ns2011  ---| ATTACH   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03309  M01S00449.ns2011  +++| ATTACH   SPACE  4,15
03310  M00S02516.cpcom   +++|***       ATTACH (F,PF,UN,PW,M,PN,D,FO,SR,RT)
03311  M00S02517.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03312  M01S02518.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).

Seq #  *Modification Id* Act 
----------------------------+
03313  M01S00450.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03314  M00S02519.cpcom   +++|*                PF = PERMANENT FILE NAME.
03315  M00S02520.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03316  M00S02521.cpcom   +++|*                PW = FILE PASSWORD.

Seq #  *Modification Id* Act 
----------------------------+
03317  M01S02522.ns2011  ---|*                M = MODE OF ACCESS DESIRED.

Seq #  *Modification Id* Act 
----------------------------+
03318  M01S00451.ns2011  +++|*                M  = MODE OF ACCESS DESIRED.
03319  M00S02523.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03320  M01S02524.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03321  M01S00452.ns2011  +++|*                D  = DEVICE TYPE.
03322  M00S02525.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03323  M00S02526.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03324  M00S02527.cpcom   +++|*                RT = REAL TIME OPTION.
03325  M00S02528.cpcom   +++|
03326  M00S02529.cpcom   +++|
03327  M00S02530.cpcom   +++|          PURGMAC ATTACH
03328  M00S02531.cpcom   +++|
03329  M00S02532.cpcom   +++| ATTACH   MACRO  F,PF,UN,PW,M,PN,D,FO,SR,RT

Seq #  *Modification Id* Act 
----------------------------+
03330  M01S02533.v23l617 ---|A IFC NE,$RT$$
03331  M01S02534.v23l617 ---|  SA4 F+1
03332  M01S02535.v23l617 ---|  R= X6,1
03333  M01S02536.v23l617 ---|  LX6 43D
03334  M01S02537.v23l617 ---|  BX6 X6+X4
03335  M01S02538.v23l617 ---|  SA6 A4
03336  M01S02539.v23l617 ---|A ENDIF
03337  M01S02540.v23l617 ---|  =3   F,PF,UN,PW,,PN,,M,D,FO,11B,SR
03338  M01S02541.v23l617 ---|  MACREF ATTACH

Seq #  *Modification Id* Act 
----------------------------+
03339  M01S00043.v23l617 +++|  MACREF ATTACH
03340  M01S00044.v23l617 +++|  =3 F,PF,UN,PW,,PN,,M,D,FO,11B,SR,,,,,,,,RT
03341  M00S02542.cpcom   +++|   ENDM

Seq #  *Modification Id* Act 
----------------------------+
03342  M01S02543.ns2011  ---| CHG      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03343  M02S02544.ns22000 ---|***       CHANGE (F,PF,NF,PW,UC,CT,M,PN,F,FO,SR,SS,BR,PR)

Seq #  *Modification Id* Act 
----------------------------+
03344  M02S00453.ns22000 ---| CHG      SPACE  4,20
03345  M02S00454.ns22000 ---|***       CHANGE (F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR)

Seq #  *Modification Id* Act 
----------------------------+
03346  M01S00135.ns22000 +++| CHG      SPACE  4,25

Seq #  *Modification Id* Act 
----------------------------+
03347  M02S00136.v23l617 ---|***       CHANGE (F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR,XT)

Seq #  *Modification Id* Act 
----------------------------+
03348  M01S00045.v23l617 +++|***       CHANGE (F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR,XT,AC)
03349  M00S02545.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03350  M01S02546.ns2011  ---|*                F = ADDRESS OF FET.

Seq #  *Modification Id* Act 
----------------------------+
03351  M01S00455.ns2011  +++|*                F  = ADDRESS OF FET.
03352  M01S00456.ns2011  +++|*                PF = OLD PERMANENT FILE NAME.
03353  M00S02547.cpcom   +++|*                NF = NEW PERMANENT FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
03354  M01S02548.ns2011  ---|*                PF = OLD PERMANENT FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
03355  M01S00457.ns2011  +++|*                PW = FILE PASSWORD.
03356  M01S00458.ns2011  +++|*                UC = USER CONTROL INFORMATION.
03357  M00S02549.cpcom   +++|*                CT = FILE CATEGORY.

Seq #  *Modification Id* Act 
----------------------------+
03358  M01S02550.ns2011  ---|*                M = MODE OF ACCESS ALLOWED TO FILE.

Seq #  *Modification Id* Act 
----------------------------+
03359  M01S00459.ns2011  +++|*                M  = MODE OF ACCESS ALLOWED TO FILE.
03360  M01S00460.ns2011  +++|*                NOTE - IF *M* OR *CT* IS NOT SPECIFIED AS MNEMONIC,
03361  M01S00461.ns2011  +++|*                THEN CONTENTS OF *M* OR *CT* MUST BE 40B + MODE OR
03362  M01S00462.ns2011  +++|*                CATEGORY.
03363  M00S02551.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03364  M01S02552.ns2011  ---|*                UC = USER CONTROL INFORMATION.
03365  M01S02553.ns2011  ---|*                PW = FILE PASSWORD.
03366  M01S02554.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03367  M01S00463.ns2011  +++|*                D  = DEVICE TYPE.
03368  M00S02555.cpcom   +++|*                FO = FORCE FAMILY OPTION.

Seq #  *Modification Id* Act 
----------------------------+
03369  M01S02556.ns2011  ---|*                NOTE - IF M OR CT IS NOT SPECIFIED AS MNEMONIC,
03370  M01S02557.ns2011  ---|*                THEN CONTENTS OF M OR CT MUST BE 40B + MODE
03371  M01S02558.ns2011  ---|*                OR CATEGORY.
03372  M00S02559.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03373  M00S02560.cpcom   +++|*                SS = SUBSYSTEM.
03374  M00S02561.cpcom   +++|*                BR = BACKUP REQUIREMENT.
03375  M00S02562.cpcom   +++|*                PR = PREFERRED RESIDENCE.

Seq #  *Modification Id* Act 
----------------------------+
03376  M01S00137.ns22000 +++|*                XT = PASSWORD EXPIRATION DATE.

Seq #  *Modification Id* Act 
----------------------------+
03377  M01S00046.v23l617 +++|*                AC = ALTERNATE CATLIST PERMISSION.
03378  M00S02563.cpcom   +++|
03379  M00S02564.cpcom   +++|
03380  M00S02565.cpcom   +++|          PURGMAC CHANGE
03381  M00S02566.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03382  M01S02567.ns22000 ---| CHANGE   MACRO  F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR

Seq #  *Modification Id* Act 
----------------------------+
03383  M02S00138.v23l617 ---| CHANGE   MACRO  F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR,XT

Seq #  *Modification Id* Act 
----------------------------+
03384  M01S00047.v23l617 +++| CHANGE   MACRO  F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR,XT,AC

Seq #  *Modification Id* Act 
----------------------------+
03385  M01S02568.cpcom5  ---|  IFC  NE,$NF$$,3

Seq #  *Modification Id* Act 
----------------------------+
03386  M01S00001.cpcom5  +++|A IFC NE,$NF$$
03387  M00S02569.cpcom   +++|  R= A4,NF

Seq #  *Modification Id* Act 
----------------------------+
03388  M01S02570.cpcom5  ---|  BX6 X4
03389  M01S02571.cpcom5  ---|  SA6 F+15B

Seq #  *Modification Id* Act 
----------------------------+
03390  M01S00002.cpcom5  +++|  MX7 42D
03391  M01S00003.cpcom5  +++|  BX6 X7*X4
03392  M01S00004.cpcom5  +++|  SA4 F+15B
03393  M01S00005.cpcom5  +++|  BX4 -X7*X4
03394  M01S00006.cpcom5  +++|  BX6 X6+X4
03395  M01S00007.cpcom5  +++|  SA6 A4
03396  M01S00008.cpcom5  +++|A ENDIF
03397  M00S02572.cpcom   +++|  MACREF CHANGE

Seq #  *Modification Id* Act 
----------------------------+
03398  M01S02573.ns22000 ---|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,12B,SR,SS,BR,PR

Seq #  *Modification Id* Act 
----------------------------+
03399  M02S00139.v23l617 ---|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,12B,SR,SS,BR,PR,XT

Seq #  *Modification Id* Act 
----------------------------+
03400  M01S00048.v23l617 +++|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,12B,SR,SS,BR,PR,XT,,,AC
03401  M00S02574.cpcom   +++|   ENDM

Seq #  *Modification Id* Act 
----------------------------+
03402  M01S02575.ns2011  ---| DEFINE   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03403  M01S00464.ns2011  +++| DEFINE   SPACE  4,20

Seq #  *Modification Id* Act 
----------------------------+
03404  M01S02576.ns22000 ---|***       DEFINE (F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR)

Seq #  *Modification Id* Act 
----------------------------+
03405  M02S00140.v23l617 ---|***       DEFINE (F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR,XT,AL)

Seq #  *Modification Id* Act 
----------------------------+
03406  M01S00049.v23l617 +++|***       DEFINE (F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR,XT,AL,AC)
03407  M00S02577.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03408  M01S02578.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).

Seq #  *Modification Id* Act 
----------------------------+
03409  M01S00465.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03410  M00S02579.cpcom   +++|*                PF = PERMANENT FILE NAME.
03411  M00S02580.cpcom   +++|*                PW = FILE PASSWORD.
03412  M00S02581.cpcom   +++|*                UC = USER CONTROL WORD.

Seq #  *Modification Id* Act 
----------------------------+
03413  M01S00466.ns2011  +++|*                D  = DEVICE TYPE.
03414  M00S02582.cpcom   +++|*                CT = FILE CATEGORY.

Seq #  *Modification Id* Act 
----------------------------+
03415  M01S02583.ns2011  ---|*                M = MODE OF ACCESS ALLOWED TO FILE.
03416  M01S02584.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03417  M01S00467.ns2011  +++|*                M  = MODE OF ACCESS ALLOWED TO FILE.
03418  M00S02585.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03419  M01S02586.ns2011  ---|*                S = SPACE IN PRUS DESIRED FOR FILE ( THIS IS ADDRESS
03420  M01S02587.ns2011  ---|*                OF RIGHT JUSTIFIED OCTAL QUANTITY).

Seq #  *Modification Id* Act 
----------------------------+
03421  M01S00468.ns2011  +++|*                S  = SPACE IN PRUS DESIRED FOR FILE (THIS IS ADDRESS
03422  M01S00469.ns2011  +++|*                     OF RIGHT JUSTIFIED OCTAL QUANTITY).
03423  M00S02588.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03424  M00S02589.cpcom   +++|*                BR = BACKUP REQUIREMENT.
03425  M00S02590.cpcom   +++|*                PR = PREFERRED RESIDENCE.
03426  M00S02591.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.

Seq #  *Modification Id* Act 
----------------------------+
03427  M01S00141.ns22000 +++|*                XT = PASSWORD EXPIRATION DATE.
03428  M01S00142.ns22000 +++|*                AL = FILE ACCESS LEVEL.

Seq #  *Modification Id* Act 
----------------------------+
03429  M01S00050.v23l617 +++|*                AC = ALTERNATE CATLIST PERMISSION.
03430  M00S02592.cpcom   +++|
03431  M00S02593.cpcom   +++|
03432  M00S02594.cpcom   +++|          PURGMAC DEFINE
03433  M00S02595.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03434  M01S02596.ns22000 ---| DEFINE   MACRO  F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR

Seq #  *Modification Id* Act 
----------------------------+
03435  M02S00143.v23l617 ---| DEFINE   MACRO  F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR,XT,AL

Seq #  *Modification Id* Act 
----------------------------+
03436  M01S00051.v23l617 +++| DEFINE   MACRO  F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR,XT,AL,AC
03437  M00S02597.cpcom   +++|  MACREF DEFINE
03438  M00S02598.cpcom   +++|  IFC  NE,$S$$,3
03439  M00S02599.cpcom   +++|  R= A5,S
03440  M00S02600.cpcom   +++|  BX6 X5
03441  M00S02601.cpcom   +++|  SA6 F+11B

Seq #  *Modification Id* Act 
----------------------------+
03442  M01S02602.ns22000 ---|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,10B,SR,,BR,PR

Seq #  *Modification Id* Act 
----------------------------+
03443  M02S00144.v23l617 ---|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,10B,SR,,BR,PR,XT,,AL

Seq #  *Modification Id* Act 
----------------------------+
03444  M01S00052.v23l617 +++|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,10B,SR,,BR,PR,XT,,AL,AC
03445  M00S02603.cpcom   +++|    ENDM

Seq #  *Modification Id* Act 
----------------------------+
03446  M01S02604.ns2011  ---| GET      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03447  M01S00470.ns2011  +++| GET      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03448  M01S02605.v23l617 ---|***       GET    (F,PF,UN,PW,PN,D,FO,SR)

Seq #  *Modification Id* Act 
----------------------------+
03449  M01S00053.v23l617 +++|***       GET    (F,PF,UN,PW,PN,D,FO,SR,RT)
03450  M00S02606.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03451  M01S02607.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).

Seq #  *Modification Id* Act 
----------------------------+
03452  M01S00471.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03453  M00S02608.cpcom   +++|*                PF = PERMANENT FILE NAME.
03454  M00S02609.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03455  M00S02610.cpcom   +++|*                PW = FILE PASSWORD.
03456  M00S02611.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03457  M01S02612.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03458  M01S00472.ns2011  +++|*                D  = DEVICE TYPE.
03459  M00S02613.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03460  M00S02614.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.

Seq #  *Modification Id* Act 
----------------------------+
03461  M01S00054.v23l617 +++|*                RT = REAL TIME OPTION.
03462  M00S02615.cpcom   +++|
03463  M00S02616.cpcom   +++|
03464  M00S02617.cpcom   +++|          PURGMAC GET
03465  M00S02618.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03466  M01S02619.v23l617 ---| GET      MACRO  F,PF,UN,PW,PN,D,FO,SR

Seq #  *Modification Id* Act 
----------------------------+
03467  M01S00055.v23l617 +++| GET      MACRO  F,PF,UN,PW,PN,D,FO,SR,RT
03468  M00S02620.cpcom   +++|  MACREF GET

Seq #  *Modification Id* Act 
----------------------------+
03469  M01S02621.v23l617 ---|  =3 F,PF,UN,PW,,PN,,,D,FO,2,SR

Seq #  *Modification Id* Act 
----------------------------+
03470  M01S00056.v23l617 +++|  =3 F,PF,UN,PW,,PN,,,D,FO,2,SR,,,,,,,,RT
03471  M00S02622.cpcom   +++|    ENDM
03472  M00S02623.cpcom   +++| OLD      SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03473  M01S02624.v23l617 ---|***       OLD    (F,PF,UN,PW,PN,D,FO,SR)

Seq #  *Modification Id* Act 
----------------------------+
03474  M01S00057.v23l617 +++|***       OLD    (F,PF,UN,PW,PN,D,FO,SR,RT)

Seq #  *Modification Id* Act 
----------------------------+
03475  M01S02625.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).

Seq #  *Modification Id* Act 
----------------------------+
03476  M01S00473.ns2011  +++|*
03477  M01S00474.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03478  M00S02626.cpcom   +++|*                PF = PERMANENT FILE NAME.
03479  M00S02627.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03480  M00S02628.cpcom   +++|*                PW = FILE PASSWORD.
03481  M00S02629.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03482  M01S02630.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03483  M01S00475.ns2011  +++|*                D  = DEVICE TYPE.
03484  M00S02631.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03485  M00S02632.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.

Seq #  *Modification Id* Act 
----------------------------+
03486  M01S00058.v23l617 +++|*                RT = REAL TIME OPTION.
03487  M00S02633.cpcom   +++|
03488  M00S02634.cpcom   +++|
03489  M00S02635.cpcom   +++|          PURGMAC OLD
03490  M00S02636.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03491  M01S02637.v23l617 ---| OLD      MACRO  F,PF,UN,PW,PN,D,FO,SR

Seq #  *Modification Id* Act 
----------------------------+
03492  M01S00059.v23l617 +++| OLD      MACRO  F,PF,UN,PW,PN,D,FO,SR,RT
03493  M00S02638.cpcom   +++|  MACREF OLD

Seq #  *Modification Id* Act 
----------------------------+
03494  M01S02639.v23l617 ---|  =3 F,PF,UN,PW,,PN,,,D,FO,21B,SR

Seq #  *Modification Id* Act 
----------------------------+
03495  M01S00060.v23l617 +++|  =3 F,PF,UN,PW,,PN,,,D,FO,21B,SR,,,,,,,,RT
03496  M00S02640.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03497  M01S02641.ns2011  ---| PERMIT   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03498  M01S00476.ns2011  +++| PERMIT   SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03499  M01S02642.ns22000 ---|***       PERMIT (F,PF,UN,M,PN,D,FO,SR)

Seq #  *Modification Id* Act 
----------------------------+
03500  M01S00145.ns22000 +++|***       PERMIT (F,PF,UN,M,PN,D,FO,SR,XT)
03501  M00S02643.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03502  M01S02644.ns2011  ---|*                F = ADDRESS OF FET.

Seq #  *Modification Id* Act 
----------------------------+
03503  M01S00477.ns2011  +++|*                F  = ADDRESS OF FET.
03504  M00S02645.cpcom   +++|*                PF = PERMANENT FILE NAME.
03505  M00S02646.cpcom   +++|*                UN = USER NUMBER TO PERMIT.

Seq #  *Modification Id* Act 
----------------------------+
03506  M01S02647.ns2011  ---|*                M = MODE OF ACCESS PERMITTED.
03507  M01S02648.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03508  M01S00478.ns2011  +++|*                M  = MODE OF ACCESS PERMITTED.
03509  M00S02649.cpcom   +++|*                PN = PACK NAME.

Seq #  *Modification Id* Act 
----------------------------+
03510  M01S00479.ns2011  +++|*                D  = DEVICE TYPE.
03511  M00S02650.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03512  M00S02651.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.

Seq #  *Modification Id* Act 
----------------------------+
03513  M01S00146.ns22000 +++|*                XT = PERMIT EXPIRATION DATE.
03514  M00S02652.cpcom   +++|
03515  M00S02653.cpcom   +++|
03516  M00S02654.cpcom   +++|          PURGMAC PERMIT
03517  M00S02655.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03518  M01S02656.ns22000 ---| PERMIT   MACRO  F,PF,UN,M,PN,D,FO,SR

Seq #  *Modification Id* Act 
----------------------------+
03519  M01S00147.ns22000 +++| PERMIT   MACRO  F,PF,UN,M,PN,D,FO,SR,XT
03520  M00S02657.cpcom   +++|  MACREF PERMIT

Seq #  *Modification Id* Act 
----------------------------+
03521  M01S02658.ns22000 ---|  =3 F,PF,UN,,,PN,,M,D,FO,5,SR

Seq #  *Modification Id* Act 
----------------------------+
03522  M01S00148.ns22000 +++|  =3 F,PF,UN,,,PN,,M,D,FO,5,SR,,,,XT
03523  M00S02659.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03524  M01S02660.ns2011  ---| PUR      SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03525  M01S00480.ns2011  +++| PUR      SPACE  4,10
03526  M00S02661.cpcom   +++|***       PURGE  (F,UN,PW,PN,D,FO,SR)
03527  M00S02662.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03528  M01S02663.ns2011  ---|*                F = ADDRESS OF FET (PERMANENT FILE NAME).

Seq #  *Modification Id* Act 
----------------------------+
03529  M01S00481.ns2011  +++|*                F  = ADDRESS OF FET (PERMANENT FILE NAME).
03530  M00S02664.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03531  M00S02665.cpcom   +++|*                PW = FILE PASSWORD.
03532  M00S02666.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03533  M01S02667.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03534  M01S00482.ns2011  +++|*                D  = DEVICE TYPE.
03535  M00S02668.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03536  M00S02669.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03537  M00S02670.cpcom   +++|
03538  M00S02671.cpcom   +++|
03539  M00S02672.cpcom   +++|          PURGMAC PURGE
03540  M00S02673.cpcom   +++|
03541  M00S02674.cpcom   +++| PURGE    MACRO  F,UN,PW,PN,D,FO,SR
03542  M00S02675.cpcom   +++|  MACREF PURGE
03543  M00S02676.cpcom   +++|  =3 F,,UN,PW,,PN,,,D,FO,3,SR
03544  M00S02677.cpcom   +++|    ENDM

Seq #  *Modification Id* Act 
----------------------------+
03545  M01S02678.ns2011  ---| REPLACE  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03546  M01S00483.ns2011  +++| REPLACE  SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
03547  M01S02679.ns2267  ---|***       REPLACE(F,PF,UN,PW,UC,PN,D,FO,SR)

Seq #  *Modification Id* Act 
----------------------------+
03548  M01S00001.ns2267  +++|***       REPLACE(F,PF,UN,PW,UC,PN,D,FO,SR,M)
03549  M00S02680.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03550  M01S02681.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).

Seq #  *Modification Id* Act 
----------------------------+
03551  M01S00484.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03552  M00S02682.cpcom   +++|*                PF = PERMANENT FILE NAME.
03553  M00S02683.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03554  M00S02684.cpcom   +++|*                PW = FILE PASSWORD.
03555  M00S02685.cpcom   +++|*                UC = USER CONTROL WORD.
03556  M00S02686.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03557  M01S02687.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03558  M01S00485.ns2011  +++|*                D  = DEVICE TYPE.
03559  M00S02688.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03560  M00S02689.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.

Seq #  *Modification Id* Act 
----------------------------+
03561  M01S00002.ns2267  +++|*                M  = FILE MODE (IF FILE DOES NOT ALREADY EXIST).
03562  M00S02690.cpcom   +++|
03563  M00S02691.cpcom   +++|
03564  M00S02692.cpcom   +++|          PURGMAC REPLACE
03565  M00S02693.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03566  M01S02694.ns2267  ---| REPLACE  MACRO  F,PF,UN,PW,UC,PN,D,FO,SR

Seq #  *Modification Id* Act 
----------------------------+
03567  M01S00003.ns2267  +++| REPLACE  MACRO  F,PF,UN,PW,UC,PN,D,FO,SR,M
03568  M00S02695.cpcom   +++|  MACREF REPLACE

Seq #  *Modification Id* Act 
----------------------------+
03569  M01S02696.ns2267  ---|  =3 F,PF,UN,PW,UC,PN,,,D,FO,6,SR

Seq #  *Modification Id* Act 
----------------------------+
03570  M01S00004.ns2267  +++|  =3 F,PF,UN,PW,UC,PN,,M,D,FO,6,SR
03571  M00S02697.cpcom   +++|    ENDM

Seq #  *Modification Id* Act 
----------------------------+
03572  M01S02698.ns2011  ---| SAVE     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03573  M01S00486.ns2011  +++| SAVE     SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
03574  M01S02699.ns22000 ---|***       SAVE   (F,PF,PW,UC,CT,M,PN,D,FO,SS,BR,PR,SR)

Seq #  *Modification Id* Act 
----------------------------+
03575  M02S00149.v23l617 ---|***       SAVE   (F,PF,PW,UC,CT,M,PN,D,FO,SS,BR,PR,ST,XT,AL)

Seq #  *Modification Id* Act 
----------------------------+
03576  M01S00061.v23l617 +++|***       SAVE   (F,PF,PW,UC,CT,M,PN,D,FO,SS,BR,PR,ST,XT,AL,AC)
03577  M00S02700.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03578  M01S02701.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).

Seq #  *Modification Id* Act 
----------------------------+
03579  M01S00487.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03580  M00S02702.cpcom   +++|*                PF = PERMANENT FILE NAME.
03581  M00S02703.cpcom   +++|*                PW = FILE PASSWORD.
03582  M00S02704.cpcom   +++|*                UC = USER CONTROL WORD.
03583  M00S02705.cpcom   +++|*                CT = FILE CATEGORY.

Seq #  *Modification Id* Act 
----------------------------+
03584  M01S02706.ns2011  ---|*                M = FILE MODE.

Seq #  *Modification Id* Act 
----------------------------+
03585  M01S00488.ns2011  +++|*                M  = FILE MODE.
03586  M00S02707.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03587  M01S02708.ns2011  ---|*                D = DEVICE TYPE.

Seq #  *Modification Id* Act 
----------------------------+
03588  M01S00489.ns2011  +++|*                D  = DEVICE TYPE.
03589  M00S02709.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03590  M00S02710.cpcom   +++|*                SS = SUBSYSTEM.
03591  M00S02711.cpcom   +++|*                BR = BACKUP REQUIREMENT.
03592  M00S02712.cpcom   +++|*                PR = PREFERRED RESIDENCE.
03593  M00S02713.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.

Seq #  *Modification Id* Act 
----------------------------+
03594  M01S00150.ns22000 +++|*                XT = PASSWORD EXPIRATION DATE.
03595  M01S00151.ns22000 +++|*                AL = FILE ACCESS LEVEL.

Seq #  *Modification Id* Act 
----------------------------+
03596  M01S00062.v23l617 +++|*                AC = ALTERNATE CATLIST PERMISSION.
03597  M00S02714.cpcom   +++|
03598  M00S02715.cpcom   +++|
03599  M00S02716.cpcom   +++|          PURGMAC SAVE
03600  M00S02717.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03601  M01S02718.ns22000 ---| SAVE     MACRO  F,PF,PW,UC,T,M,PN,D,FO,SS,BR,PR,SR

Seq #  *Modification Id* Act 
----------------------------+
03602  M02S00152.v23l617 ---| SAVE     MACRO  F,PF,PW,UC,T,M,PN,D,FO,SS,BR,PR,SR,XT,AL

Seq #  *Modification Id* Act 
----------------------------+
03603  M01S00063.v23l617 +++| SAVE     MACRO  F,PF,PW,UC,T,M,PN,D,FO,SS,BR,PR,SR,XT,AL,AC
03604  M00S02719.cpcom   +++|  MACREF SAVE

Seq #  *Modification Id* Act 
----------------------------+
03605  M01S02720.ns22000 ---|  =3 F,PF,,PW,UC,PN,T,M,D,FO,1,SR,SS,BR,PR

Seq #  *Modification Id* Act 
----------------------------+
03606  M02S00153.v23l617 ---|  =3 F,PF,,PW,UC,PN,T,M,D,FO,1,SR,SS,BR,PR,XT,,AL

Seq #  *Modification Id* Act 
----------------------------+
03607  M01S00064.v23l617 +++|  =3 F,PF,,PW,UC,PN,T,M,D,FO,1,SR,SS,BR,PR,XT,,AL,AC
03608  M00S02721.cpcom   +++|    ENDM

Seq #  *Modification Id* Act 
----------------------------+
03609  M01S00154.ns22000 +++| SETPFAC  SPACE  4,10
03610  M01S00155.ns22000 +++|***       SETPFAC(F,PF,AC,PN,D,SR)
03611  M01S00156.ns22000 +++|*
03612  M01S00157.ns22000 +++|*                F  = ADDRESS OF FET.
03613  M01S00158.ns22000 +++|*                PF = PERMANENT FILE NAME.
03614  M01S00159.ns22000 +++|*                AC = ADDRESS OF NEW CATEGORY SET FOR THE FILE.
03615  M01S00160.ns22000 +++|*                PN = PACKNAME.
03616  M01S00161.ns22000 +++|*                D  = DEVICE TYPE.
03617  M01S00162.ns22000 +++|*                SR = SPECIAL REQUEST OPTION.
03618  M01S00163.ns22000 +++|
03619  M01S00164.ns22000 +++|
03620  M01S00165.ns22000 +++|          PURGMAC SETPFAC
03621  M01S00166.ns22000 +++| SETPFAC  MACRO  F,PF,AC,PN,D,SR
03622  M01S00167.ns22000 +++|  MACREF SETPFAC
03623  M01S00168.ns22000 +++|  =3 F,PF,,,,PN,,,D,,22B,SR,,,,,AC
03624  M01S00169.ns22000 +++|    ENDM
03625  M01S00170.ns22000 +++| SETPFAL  SPACE  4,10
03626  M01S00171.ns22000 +++|***       SETPFAL(F,PF,AL,PN,D,SR)
03627  M01S00172.ns22000 +++|*
03628  M01S00173.ns22000 +++|*                F  = ADDRESS OF FET.
03629  M01S00174.ns22000 +++|*                PF = PERMANENT FILE NAME.
03630  M01S00175.ns22000 +++|*                AL = NEW ACCESS LEVEL FOR FILE (ADDRESS OR MNEMONIC).
03631  M01S00176.ns22000 +++|*                PN = PACKNAME.
03632  M01S00177.ns22000 +++|*                D  = DEVICE TYPE.
03633  M01S00178.ns22000 +++|*                SR = SPECIAL REQUEST OPTION.
03634  M01S00179.ns22000 +++|
03635  M01S00180.ns22000 +++|
03636  M01S00181.ns22000 +++|          PURGMAC SETPFAL
03637  M01S00182.ns22000 +++| SETPFAL  MACRO  F,PF,AL,PN,D,SR
03638  M01S00183.ns22000 +++|  MACREF SETPFAL
03639  M01S00184.ns22000 +++|  =3 F,PF,,,,PN,,,D,,23B,SR,,,,,,AL
03640  M01S00185.ns22000 +++|    ENDM
03641  M00S02722.cpcom   +++|          TITLE  DATA TRANSFER MACROS.

Seq #  *Modification Id* Act 
----------------------------+
03642  M01S02723.ns2011  ---| DATA     SPACE  4
03643  M01S02724.ns2011  ---|***              DATA TRANSFER MACROS FORMAT REQUESTS INTO X REGISTERS
03644  M01S02725.ns2011  ---|*         AND RETURN JUMP TO PROCESSING SUBROUTINES.
03645  M01S02726.ns2011  ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03646  M01S00490.ns2011  +++| DATA     SPACE  4,10
03647  M01S00491.ns2011  +++|***       DATA TRANSFER MACROS FORMAT REQUESTS INTO X REGISTERS AND
03648  M01S00492.ns2011  +++|*         RETURN JUMP TO PROCESSING SUBROUTINES.
03649  M01S00493.ns2011  +++|          SPACE  4,10
03650  M00S02727.cpcom   +++|***       MACROS WHICH READ DATA FROM A FILE RETURN STATUS INFORMATION
03651  M00S02728.cpcom   +++|*         AS FOLLOWS -

Seq #  *Modification Id* Act 
----------------------------+
03652  M01S02729.ns2011  ---|*         (X1) = 0 FOR TRANSFER COMPLETE.
03653  M01S02730.ns2011  ---|*         (X1) = -1 FOR EOF DETECTED ON FILE.
03654  M01S02731.ns2011  ---|*         (X1) = +NON-ZERO IF EOR DETECTED ON FILE BEFORE TRANSFER
03655  M01S02732.ns2011  ---|*                WAS COMPLETED.  (X1) = ADDRESS OF LAST WORD
03656  M01S02733.ns2011  ---|*                TRANSFERRED INTO WORKING BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
03657  M01S00494.ns2011  +++|*                (X1) = 0 FOR TRANSFER COMPLETE.
03658  M01S00495.ns2011  +++|*                (X1) = ADDRESS OF LAST WORD TRANSFERRED INTO WORKING
03659  M01S00496.ns2011  +++|*                       BUFFER, IF EOR DETECTED ON FILE BEFORE TRANSFER
03660  M01S00497.ns2011  +++|*                       COMPLETED.
03661  M01S00498.ns2011  +++|*                (X1) = -1 IF EOF DETECTED ON FILE.
03662  M01S00499.ns2011  +++|*                (X1) = -2 IF EOI DETECTED ON FILE.
03663  M01S00500.ns2011  +++|*
03664  M00S02734.cpcom   +++|*         DATA WILL NOT BE TRANSFERRED AFTER AN EOR/EOF IS SENSED.

Seq #  *Modification Id* Act 
----------------------------+
03665  M01S02735.ns2011  ---| READC    SPACE  4
03666  M01S02736.ns2011  ---|***       THE FOLLOWING MACROS TRANSFER DATA TO OR FROM WORKING
03667  M01S02737.ns2011  ---|*         BUFFERS AND THE SELECTED FILE IN FORMATS SPECIFIED.
03668  M01S02738.ns2011  ---|*         MACROS WHICH READ DATA FROM A FILE RETURN WITH (X7) = (B6) =
03669  M01S02739.ns2011  ---|*         LAST WORD OF DATA TRANSFERRED.

Seq #  *Modification Id* Act 
----------------------------+
03670  M01S00501.ns2011  +++| READC    SPACE  4,10
03671  M01S00502.ns2011  +++|***       THE FOLLOWING MACROS TRANSFER DATA TO OR FROM WORKING BUFFERS
03672  M01S00503.ns2011  +++|*         AND THE SELECTED FILE IN FORMATS SPECIFIED.  MACROS WHICH
03673  M01S00504.ns2011  +++|*         READ DATA FROM A FILE RETURN WITH (B6) = LWA + 1 OF DATA
03674  M01S00505.ns2011  +++|*         TRANSFERRED.
03675  M00S02740.cpcom   +++|*
03676  M00S02741.cpcom   +++|*         ENTRY  *BUF* = ADDRESS OF WORKING BUFFER.
03677  M00S02742.cpcom   +++|*                *N* = WORD COUNT OF WORKING BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
03678  M01S02743.ns2011  ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03679  M01S00506.ns2011  +++| READC    SPACE  4,10
03680  M00S02744.cpcom   +++|***       READC - READ CODED LINE IN *C* FORMAT.
03681  M00S02745.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03682  M01S00507.ns2011  +++|*         READC  FILE,BUF,N
03683  M00S02746.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03684  M01S02747.ns2011  ---|*         READC  FILE,BUF,N
03685  M00S02748.cpcom   +++|*         READ 1 CODED LINE FROM *FILE* TO *BUF*.
03686  M00S02749.cpcom   +++|*         DATA IS TRANSFERRED UNTIL THE END OF LINE 0000 IS SENSED.

Seq #  *Modification Id* Act 
----------------------------+
03687  M01S00508.ns2011  +++|*
03688  M00S02750.cpcom   +++|*         CALLS  RDC=.
03689  M00S02751.cpcom   +++|
03690  M00S02752.cpcom   +++|
03691  M00S02753.cpcom   +++|          PURGMAC READC
03692  M00S02754.cpcom   +++|
03693  M00S02755.cpcom   +++| READC    MACRO  F,S,N
03694  M00S02756.cpcom   +++|  MACREF READC
03695  M00S02757.cpcom   +++|  R= B6,S
03696  M00S02758.cpcom   +++|  R= B7,N
03697  M00S02759.cpcom   +++|  R= X2,F
03698  M00S02760.cpcom   +++|  RJ =XRDC=
03699  M00S02761.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03700  M01S02762.ns2011  ---| WRITEC   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03701  M01S00509.ns2011  +++| WRITEC   SPACE  4,10
03702  M00S02763.cpcom   +++|***       WRITEC - WRITE CODED LINE IN *C* FORMAT.
03703  M00S02764.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03704  M01S00510.ns2011  +++|*         WRITEC FILE,BUF
03705  M00S02765.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03706  M01S02766.ns2011  ---|*         WRITEC FILE,BUF
03707  M00S02767.cpcom   +++|*         DATA IS TRANSFERRED UNTIL THE END OF LINE 0000 IS SENSED.

Seq #  *Modification Id* Act 
----------------------------+
03708  M01S00511.ns2011  +++|*
03709  M00S02768.cpcom   +++|*         CALLS  WTC=.
03710  M00S02769.cpcom   +++|
03711  M00S02770.cpcom   +++|
03712  M00S02771.cpcom   +++|          PURGMAC WRITEC
03713  M00S02772.cpcom   +++|
03714  M00S02773.cpcom   +++| WRITEC   MACRO  F,S
03715  M00S02774.cpcom   +++|  MACREF WRITEC
03716  M00S02775.cpcom   +++|  R= B6,S
03717  M00S02776.cpcom   +++|  R= X2,F
03718  M00S02777.cpcom   +++|  RJ =XWTC=
03719  M00S02778.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03720  M01S02779.ns2011  ---| READH    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03721  M01S00512.ns2011  +++| READH    SPACE  4,10
03722  M00S02780.cpcom   +++|***       READH - READ CODED LINE IN *H* FORMAT.
03723  M00S02781.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03724  M01S00513.ns2011  +++|*         READH  FILE,BUF,N
03725  M00S02782.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03726  M01S02783.ns2011  ---|*         READH  FILE,BUF,N
03727  M00S02784.cpcom   +++|*         DATA IS TRANSFERRED UNTIL THE END OF LINE 0000 IS SENSED.
03728  M00S02785.cpcom   +++|*         TRAILING SPACES ARE FILLED INTO THE WORKING BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
03729  M01S00514.ns2011  +++|*
03730  M00S02786.cpcom   +++|*         CALLS  RDH=.
03731  M00S02787.cpcom   +++|
03732  M00S02788.cpcom   +++|
03733  M00S02789.cpcom   +++|          PURGMAC READH
03734  M00S02790.cpcom   +++|
03735  M00S02791.cpcom   +++| READH    MACRO  F,S,N
03736  M00S02792.cpcom   +++|  MACREF READH
03737  M00S02793.cpcom   +++|  R= B6,S
03738  M00S02794.cpcom   +++|  R= B7,N
03739  M00S02795.cpcom   +++|  R= X2,F
03740  M00S02796.cpcom   +++|  RJ =XRDH=
03741  M00S02797.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03742  M01S02798.ns2011  ---| WRITEH   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03743  M01S00515.ns2011  +++| WRITEH   SPACE  4,10
03744  M00S02799.cpcom   +++|***       WRITEH - WRITE CODED LINE IN *H* FORMAT.
03745  M00S02800.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03746  M01S00516.ns2011  +++|*         WRITEH FILE,BUF,N
03747  M00S02801.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03748  M01S02802.ns2011  ---|*         WRITEH FILE,BUF,N
03749  M00S02803.cpcom   +++|*         TRAILING SPACES ARE DELETED.

Seq #  *Modification Id* Act 
----------------------------+
03750  M01S00517.ns2011  +++|*
03751  M00S02804.cpcom   +++|*         CALLS  WTH=.
03752  M00S02805.cpcom   +++|
03753  M00S02806.cpcom   +++|
03754  M00S02807.cpcom   +++|          PURGMAC WRITEH
03755  M00S02808.cpcom   +++|
03756  M00S02809.cpcom   +++| WRITEH   MACRO  F,S,N
03757  M00S02810.cpcom   +++|  MACREF WRITEH
03758  M00S02811.cpcom   +++|  R= B6,S
03759  M00S02812.cpcom   +++|  R= B7,N
03760  M00S02813.cpcom   +++|  R= X2,F
03761  M00S02814.cpcom   +++|  RJ =XWTH=
03762  M00S02815.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03763  M01S02816.ns2011  ---| READO    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03764  M01S00518.ns2011  +++| READO    SPACE  4,10
03765  M00S02817.cpcom   +++|***       READO - READ ONE WORD.
03766  M00S02818.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03767  M01S00519.ns2011  +++|*         READO  FILE
03768  M00S02819.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03769  M01S02820.ns2011  ---|*         READO  FILE
03770  M00S02821.cpcom   +++|*         ENTRY  NONE.

Seq #  *Modification Id* Act 
----------------------------+
03771  M01S00520.ns2011  +++|*
03772  M00S02822.cpcom   +++|*         EXIT   (X6) = WORD READ.

Seq #  *Modification Id* Act 
----------------------------+
03773  M01S00521.ns2011  +++|*
03774  M00S02823.cpcom   +++|*         CALLS  RDO=.
03775  M00S02824.cpcom   +++|
03776  M00S02825.cpcom   +++|
03777  M00S02826.cpcom   +++|          PURGMAC READO
03778  M00S02827.cpcom   +++|
03779  M00S02828.cpcom   +++| READO    MACRO  F
03780  M00S02829.cpcom   +++|  MACREF READO
03781  M00S02830.cpcom   +++|  SA1 F+2
03782  M00S02831.cpcom   +++|  RJ =XRDO=
03783  M00S02832.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03784  M01S02833.ns2011  ---| WRITEO   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03785  M01S00522.ns2011  +++| WRITEO   SPACE  4,10
03786  M00S02834.cpcom   +++|***       WRITEO - WRITE ONE WORD.
03787  M00S02835.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03788  M01S00523.ns2011  +++|*         WRITEO FILE
03789  M00S02836.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03790  M01S02837.ns2011  ---|*         WRITEO FILE
03791  M00S02838.cpcom   +++|*         ENTRY  (X6) = WORD TO WRITE.

Seq #  *Modification Id* Act 
----------------------------+
03792  M01S00524.ns2011  +++|*
03793  M00S02839.cpcom   +++|*         CALLS  WTO=.
03794  M00S02840.cpcom   +++|
03795  M00S02841.cpcom   +++|
03796  M00S02842.cpcom   +++|          PURGMAC WRITEO     (1051)
03797  M00S02843.cpcom   +++|
03798  M00S02844.cpcom   +++| WRITEO   MACRO  F
03799  M00S02845.cpcom   +++|  MACREF WRITEO
03800  M00S02846.cpcom   +++|  SA1 F+2
03801  M00S02847.cpcom   +++|  RJ =XWTO=
03802  M00S02848.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03803  M01S02849.ns2011  ---| READS    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03804  M01S00525.ns2011  +++| READS    SPACE  4,15
03805  M00S02850.cpcom   +++|***       READS - READ CODED LINE TO CHARACTER BUFFER.
03806  M00S02851.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03807  M01S00526.ns2011  +++|*         READS  FILE,BUF,N
03808  M00S02852.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03809  M01S02853.ns2011  ---|*         READS  FILE,BUF,N
03810  M00S02854.cpcom   +++|*         WORDS ARE UNPACKED AND STORED IN THE WORKING BUFFER 1
03811  M00S02855.cpcom   +++|*         CHARACTER/WORD UNTIL THE END OF LINE (0000) BYTE IS SENSED.
03812  M00S02856.cpcom   +++|*         00 CHARACTERS ARE STORED AS SPACE (55) CODES.
03813  M00S02857.cpcom   +++|*         IF THE CODED LINE TERMINATES BEFORE *N* CHARACTERS ARE
03814  M00S02858.cpcom   +++|*         STORED, THE WORKING BUFFER IS FILLED WITH SPACE CODES.

Seq #  *Modification Id* Act 
----------------------------+
03815  M01S00527.ns2011  +++|*
03816  M00S02859.cpcom   +++|*         CALLS  RDS=.
03817  M00S02860.cpcom   +++|
03818  M00S02861.cpcom   +++|
03819  M00S02862.cpcom   +++|          PURGMAC READS
03820  M00S02863.cpcom   +++|
03821  M00S02864.cpcom   +++| READS    MACRO  F,S,N
03822  M00S02865.cpcom   +++|  MACREF READS
03823  M00S02866.cpcom   +++|  R= B6,S
03824  M00S02867.cpcom   +++|  R= B7,N
03825  M00S02868.cpcom   +++|  R= X2,F
03826  M00S02869.cpcom   +++|  RJ =XRDS=
03827  M00S02870.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03828  M01S02871.ns2011  ---| WRITES   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03829  M01S00528.ns2011  +++| WRITES   SPACE  4,10
03830  M00S02872.cpcom   +++|***       WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
03831  M00S02873.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03832  M01S00529.ns2011  +++|*         WRITES FILE,BUF,N
03833  M00S02874.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03834  M01S02875.ns2011  ---|*         WRITES FILE,BUF,N
03835  M00S02876.cpcom   +++|*         CHARACTERS ARE PACKED FROM THE WORKING BUFFER 10 CHARACTERS
03836  M00S02877.cpcom   +++|*         PER WORD.
03837  M00S02878.cpcom   +++|*         TRAILING CODES ARE DELETED BEFORE CHARACTERS ARE PACKED.

Seq #  *Modification Id* Act 
----------------------------+
03838  M01S00530.ns2011  +++|*
03839  M00S02879.cpcom   +++|*         CALLS  WTS=.
03840  M00S02880.cpcom   +++|
03841  M00S02881.cpcom   +++|
03842  M00S02882.cpcom   +++|          PURGMAC WRITES
03843  M00S02883.cpcom   +++|
03844  M00S02884.cpcom   +++| WRITES   MACRO  F,S,N
03845  M00S02885.cpcom   +++|  MACREF WRITES
03846  M00S02886.cpcom   +++|  R= B6,S
03847  M00S02887.cpcom   +++|  R= B7,N
03848  M00S02888.cpcom   +++|  R= X2,F

Proceed to Part 3