25 Modifications

Seq #  *Modification Id* Act 
----------------------------+
02741  M01S02163.cpcom   +++|  MACREF WRITER
02742  M01S02164.cpcom   +++|  =2 F,L,24B
02743  M01S02165.cpcom   +++|  ENDM
02744  M01S02166.cpcom   +++|          TITLE  PERMANENT FILE REQUEST MACROS.
02745  M01S02167.cpcom   +++|***       PERMANENT FILE ACTION MACROS.
02746  M01S02168.cpcom   +++|*
02747  M01S02169.cpcom   +++|*         THE FOLLOWING INFORMATION APPLIES TO ALL PERMANENT
02748  M01S02170.cpcom   +++|*         FILE ACTION MACROS.
02749  M01S00400.ns2011  +++|*
02750  M01S02171.cpcom   +++|*         CODE CAN BE OPTIMIZED BY PASSING ARGUMENTS VIA REGISTERS
02751  M01S02172.cpcom   +++|*         INDICATED ON THE FOLLOWING PARAMETERS.
02752  M01S02173.cpcom   +++|*         THE FET LENGTH MAY BE-

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

Seq #  *Modification Id* Act 
----------------------------+
02754  M02S02175.ns2011  ---|*                B.  UP TO 15B WORDS IF ANY SPECIAL OTPIONS ARE REQUIRED
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  M02S02176.ns22000 ---|*

Seq #  *Modification Id* Act 
----------------------------+
02758  M03S02177.ns22000 ---|*         IF *PF* IS NOT SPECIFIED. (F+8) CONTAINS PERMANENT

Seq #  *Modification Id* Act 
----------------------------+
02759  M03S02178.ns22000 ---|*         FILE NAME.(X1)

Seq #  *Modification Id* Act 
----------------------------+
02760  M03S02179.ns22000 ---|*         IF *UN* IS NOT SPECIFIED, (F+9) CONTAINS NAME OF

Seq #  *Modification Id* Act 
----------------------------+
02761  M03S02180.ns22000 ---|*         ALTERNATE CATALOG.(X3)

Seq #  *Modification Id* Act 
----------------------------+
02762  M03S02181.ns22000 ---|*         IF *PW* IS NOT SPECIFIED, (F+10) CONTAINS THE

Seq #  *Modification Id* Act 
----------------------------+
02763  M03S02182.ns22000 ---|*         FILE PASSWORD.(X2)

Seq #  *Modification Id* Act 
----------------------------+
02764  M03S02183.ns22000 ---|*         IF *UC* IS NOT SPECIFIED, (F+11) CONTAINS USER

Seq #  *Modification Id* Act 
----------------------------+
02765  M03S02184.ns22000 ---|*         CONTROL INFORMATION.  BIT 59 MUST BE SET IF THIS WORD

Seq #  *Modification Id* Act 
----------------------------+
02766  M03S02185.ns22000 ---|*         CONTAINS DATA FOR *PFM* TO PROCESS.

Seq #  *Modification Id* Act 
----------------------------+
02767  M02S00403.ns22000 ---|*         IF *PF* IS NOT SPECIFIED. (F+8) CONTAINS PERMANENT FILE

Seq #  *Modification Id* Act 
----------------------------+
02768  M02S00404.ns22000 ---|*                NAME. (X1)

Seq #  *Modification Id* Act 
----------------------------+
02769  M02S00405.ns22000 ---|*         IF *UN* IS NOT SPECIFIED, (F+9) CONTAINS NAME OF ALTERNATE

Seq #  *Modification Id* Act 
----------------------------+
02770  M02S00406.ns22000 ---|*                CATALOG. (X3)

Seq #  *Modification Id* Act 
----------------------------+
02771  M02S00407.ns22000 ---|*         IF *PW* IS NOT SPECIFIED, (F+10) CONTAINS THE FILE

Seq #  *Modification Id* Act 
----------------------------+
02772  M02S00408.ns22000 ---|*                PASSWORD. (X2)

Seq #  *Modification Id* Act 
----------------------------+
02773  M02S00409.ns22000 ---|*         IF *UC* IS NOT SPECIFIED, (F+11) CONTAINS USER CONTROL

Seq #  *Modification Id* Act 
----------------------------+
02774  M02S00410.ns22000 ---|*                INFORMATION.  BIT 59 MUST BE SET IF THIS WORD

Seq #  *Modification Id* Act 
----------------------------+
02775  M02S00411.ns22000 ---|*                CONTAINS DATA FOR *PFM* TO PROCESS.

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

Seq #  *Modification Id* Act 
----------------------------+
02777  M03S02187.ns22000 ---|*         TO SATISFY PF REQUESTS FROM.

Seq #  *Modification Id* Act 
----------------------------+
02778  M03S02188.ns22000 ---|*         IF *NF* IS NOT SPECIFIED, (F+13 ) CONTAINS NEW

Seq #  *Modification Id* Act 
----------------------------+
02779  M03S02189.ns22000 ---|*         FILE NAME FOR CHANGE COMMAND.

Seq #  *Modification Id* Act 
----------------------------+
02780  M02S00412.ns22000 ---|*                TO SATISFY PF REQUESTS FROM.

Seq #  *Modification Id* Act 
----------------------------+
02781  M02S00413.ns22000 ---|*         IF *NF* IS NOT SPECIFIED, (F+13 ) CONTAINS NEW FILE NAME

Seq #  *Modification Id* Act 
----------------------------+
02782  M02S00414.ns22000 ---|*                FOR CHANGE COMMAND.
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
02788  M01S00001.cpcom10 +++|*         IF *UN* IS NOT SPECIFIED, (F+11B) (BITS 18-59) CONTAINS THE
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  M01S02190.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02804  M02S02191.ns2011  ---|*         IF *FO* IS SET TO *IP* THE PACKNAME IS IGNORED

Seq #  *Modification Id* Act 
----------------------------+
02805  M02S02192.ns2011  ---|*         AND THE CURRENT FAMILY IS USED FOR PF ACCESS.

Seq #  *Modification Id* Act 
----------------------------+
02806  M02S02193.ns2011  ---|*         IF *FO* IS SET TO *DF* THE PACKNAME AND FAMILY

Seq #  *Modification Id* Act 
----------------------------+
02807  M02S02194.ns2011  ---|*         ARE IGNORED AND THE DEFAULT SYSTEM FAMILY IS ACCESSED.
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  M02S02195.ns22000 ---|*         THE *DF* OPTION MAY ONLY BE USED BY *SSJ=* TYPE JOBS.
02813  M01S00058.ns22000 +++|*                THE *DF* OPTION MAY ONLY BE USED BY *SSJ=* JOBS.
02814  M01S02196.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
02816  M03S02198.ns22000 ---|*         OF THE FILE (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02817  M03S02199.ns22000 ---|*         IF *SR* IS SET TO *NF* ON AN *ATTACH*, PREVENT A

Seq #  *Modification Id* Act 
----------------------------+
02818  M03S02200.ns22000 ---|*         FAST ATTACH OF THE FILE.

Seq #  *Modification Id* Act 
----------------------------+
02819  M02S00419.ns22000 ---|*                OF THE FILE (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02820  M02S00420.ns22000 ---|*         IF *SR* IS SET TO *NF* ON AN *ATTACH*, PREVENT A FAST

Seq #  *Modification Id* Act 
----------------------------+
02821  M02S00421.ns22000 ---|*                ATTACH OF THE FILE.

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
02826  M03S02204.ns22000 ---|*         RESIDE ON THE MASTER DEVICE (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02827  M03S02205.ns22000 ---|*         IF *SR* IS SET TO *IE*, PROCESS THE REQUEST EVEN IF

Seq #  *Modification Id* Act 
----------------------------+
02828  M03S02206.ns22000 ---|*         ERROR IDLE IS SET (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02829  M02S00423.ns22000 ---|*                RESIDE ON THE MASTER DEVICE (*SSJ=* ONLY).

Seq #  *Modification Id* Act 
----------------------------+
02830  M02S00424.ns22000 ---|*         IF *SR* IS SET TO *IE*, PROCESS THE REQUEST EVEN IF ERROR

Seq #  *Modification Id* Act 
----------------------------+
02831  M02S00425.ns22000 ---|*                IDLE IS SET (*SSJ=* ONLY).
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).
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.
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  M01S02207.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02851  M02S02208.ns22000 ---|*         SS = SUBSYSTEM

Seq #  *Modification Id* Act 
----------------------------+
02852  M02S02209.ns22000 ---|*         BR = BACKUP REQUIREMENT.

Seq #  *Modification Id* Act 
----------------------------+
02853  M02S02210.ns22000 ---|*         PR = PREFERRED RESIDENCE.
02854  M01S02211.cpcom   +++|*         FOR *SS*, *BR* AND *PR*, IF ANY ARE SPECIFIED, THOSE NOT

Seq #  *Modification Id* Act 
----------------------------+
02855  M02S02212.ns2011  ---|*         SPECIFIED ARE CLEARED.  THIS RESULTS IN A SYSTEM DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
02856  M02S02213.ns2011  ---|*         VALUE BEING USED FOR ALL RELEVANT COMMANDS EXCEPT THE

Seq #  *Modification Id* Act 
----------------------------+
02857  M02S02214.ns2011  ---|*         *CHANGE* COMMAND.
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.
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.
02870  M01S00004.v23l617 +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
02872  M02S00006.cpcom10 ---|*         REAL-TIME PROCESSING BIT.
02873  M01S00002.cpcom10 +++|*         IF *RT* IS  NOT SPECIFIED, (FET+1) (BIT 43) CONTAINS THE
02874  M01S00003.cpcom10 +++|*                REAL-TIME PROCESSING BIT.
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  M01S02215.cpcom   +++|*
02879  M01S02216.cpcom   +++|*         THE ADDRESS OF THE FET MUST BE SUPPLIED VIA *F* PARAMETER.
02880  M01S02217.cpcom   +++|*         THE USER MUST INSURE THAT ALL ACTIVITY HAS COMPLETED ON
02881  M01S02218.cpcom   +++|*         THIS FET PRIOR TO EXECUTING A PERMANENT FILE ACTION MACRO.
02882  M01S02219.cpcom   +++|*         THE CALL MADE TO *PFM* WILL RECALL THE CPU WHEN THE REQUEST
02883  M01S02220.cpcom   +++|*         IS COMPLETE.  IF THE USER DESIRES TO PROCESS *PFM* ERRORS
02884  M01S02221.cpcom   +++|*         THE ERROR PROCESSING BIT MUST BE SET IN THE FET.
02885  M01S02222.cpcom   +++|*         THE ERROR CODES WILL BE RETURNED IN THE CODE AND STATUS

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

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

Seq #  *Modification Id* Act 
----------------------------+
02894  M02S02228.ns2011  ---|*                A - 1,2,3,4,6,7.

Seq #  *Modification Id* Act 
----------------------------+
02895  M02S02229.ns2011  ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02896  M02S02230.ns2011  ---|          SPACE  4
02897  M01S00432.ns2011  +++|          SPACE  4,10
02898  M01S02231.cpcom   +++|          PURGMAC =3
02899  M01S02232.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
02900  M02S02233.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
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  M01S02234.cpcom   +++|

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

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

Seq #  *Modification Id* Act 
----------------------------+
02915  M02S02242.ns2011  ---|  ECHO 3,B=(P,S,L,PU),C=(0,1,2,2)
02916  M01S00435.ns2011  +++|  ECHO 3,B=(P,S,L,PU),C=(0,1,2,2)
02917  M01S02243.cpcom   +++|  IFC EQ,$B$T$,2
02918  M01S02244.cpcom   +++|  STOPDUP
02919  M01S02245.cpcom   +++|I  SET C+40B
02920  M01S02246.cpcom   +++|*
02921  M01S02247.cpcom   +++|N1 IFEQ I,77B
02922  M01S02248.cpcom   +++|  R= A4,T
02923  M01S02249.cpcom   +++|N1 ELSE 1
02924  M01S02250.cpcom   +++|  R= X4,I
02925  M01S02251.cpcom   +++|  LX4 6
02926  M01S02252.cpcom   +++|  IFC NE,$MO$$,1
02927  M01S02253.cpcom   +++|  SB2 X4
02928  M01S02254.cpcom   +++|J ENDIF

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

Seq #  *Modification Id* Act 
----------------------------+
02933  M02S02258.ns21000 ---|  ECHO 4,B=(W,R,A,E,N,M,RM,RA),C=(0,1,2,3,4,5,6,7)
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  M01S02259.cpcom   +++|QX IFC EQ,$B$MO$
02936  M01S02260.cpcom   +++|  STOPDUP
02937  M01S02261.cpcom   +++|I  SET C+40B
02938  M01S02262.cpcom   +++|QX ENDIF
02939  M01S02263.cpcom   +++|*
02940  M01S02264.cpcom   +++|Q1 IFEQ I,77B
02941  M01S02265.cpcom   +++|  R= A4,MO
02942  M01S02266.cpcom   +++|Q1  ELSE 1
02943  M01S02267.cpcom   +++|  R= X4,I
02944  M01S02268.cpcom   +++|  IFEQ FC,77B,1
02945  M01S02269.cpcom   +++|  SX4 B2+X4
02946  M01S02270.cpcom   +++|FC SET  77B
02947  M01S02271.cpcom   +++|Q ENDIF

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

Seq #  *Modification Id* Act 
----------------------------+
02952  M02S02275.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)
02954  M01S00004.ns2729  +++|  ECHO 3,B=(FA,CE,NF,MR,IE,CP,MA),C=(1,3,4,5,6,10B,12B)
02955  M01S02276.cpcom   +++|  IFC EQ,$B$SR$,2
02956  M01S02277.cpcom   +++|  STOPDUP
02957  M01S02278.cpcom   +++|I SET C
02958  M01S02279.cpcom   +++|  IFEQ FC,77B,1
02959  M01S02280.cpcom   +++|  SB2 X4
02960  M01S02281.cpcom   +++|R2 IFEQ I,0
02961  M01S02282.cpcom   +++|  R= A4,SR
02962  M01S02283.cpcom   +++|  LX4 12D
02963  M01S02284.cpcom   +++|  IFEQ FC,77B,1
02964  M01S02285.cpcom   +++|  SX4 X4+B2
02965  M01S02286.cpcom   +++|R2 ELSE
02966  M01S02287.cpcom   +++|R1 IFEQ FC,77B
02967  M01S02288.cpcom   +++|  SX4 X4+I*10000B
02968  M01S02289.cpcom   +++|R1 ELSE 1
02969  M01S02290.cpcom   +++|  SX4 I*10000B
02970  M01S02291.cpcom   +++|R2 ENDIF
02971  M01S02292.cpcom   +++|FC SET 77B
02972  M01S02293.cpcom   +++|R ENDIF

Seq #  *Modification Id* Act 
----------------------------+
02973  M02S02294.ns2011  ---|*                            PF NAME.
02974  M01S00438.ns2011  +++|*         PF NAME.
02975  M01S02295.cpcom   +++|Z IFC NE,$PF$$
02976  M01S02296.cpcom   +++|  IFC EQ,$PF$0$,2
02977  M01S02297.cpcom   +++|  SX1 B0
02978  M01S02298.cpcom   +++|Z2 ELSE 2
02979  M01S02299.cpcom   +++|  IFC NE,$PF$X1$,1
02980  M01S02300.cpcom   +++|  R= A1,PF

Seq #  *Modification Id* Act 
----------------------------+
02981  M02S02301.ns2011  ---|*                            MERGE IN FILE CATEGORY + MODE.
02982  M01S00439.ns2011  +++|*         MERGE IN FILE CATEGORY + MODE.
02983  M01S02302.cpcom   +++|Z1 IFEQ FC,77B
02984  M01S02303.cpcom   +++|  BX6 X1+X4
02985  M01S02304.cpcom   +++|Z1  ELSE 1
02986  M01S02305.cpcom   +++|  BX6 X1
02987  M01S02306.cpcom   +++|  SA6 F+10B
02988  M01S02307.cpcom   +++|Z ELSE
02989  M01S02308.cpcom   +++|  IFEQ FC,77B
02990  M01S02309.cpcom   +++|  MX6 42D
02991  M01S02310.cpcom   +++|  SA1 F+10B
02992  M01S02311.cpcom   +++|  BX6 X6*X1
02993  M01S02312.cpcom   +++|  BX6 X6+X4
02994  M01S02313.cpcom   +++|  SA6 A1
02995  M01S02314.cpcom   +++|Z ENDIF

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

Seq #  *Modification Id* Act 
----------------------------+
02998  M02S02316.cpcom10 ---|  IFC NE,$U$$,4

Seq #  *Modification Id* Act 
----------------------------+
02999  M02S02317.cpcom10 ---|  IFC NE,$U$X3$,1

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

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

Seq #  *Modification Id* Act 
----------------------------+
03008  M02S02322.cpcom11 ---|  IFC NE,$PW$$,8D

Seq #  *Modification Id* Act 
----------------------------+
03009  M02S02323.cpcom11 ---|  IFC NE,$PW$X2$,1

Seq #  *Modification Id* Act 
----------------------------+
03010  M02S02324.cpcom11 ---|  R= A2,PW
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  M01S02325.cpcom   +++|  MX4 42D
03018  M01S02326.cpcom   +++|  SA1 F+12B
03019  M01S02327.cpcom   +++|  BX6 -X4*X1

Seq #  *Modification Id* Act 
----------------------------+
03020  M02S02328.cpcom11 ---|  BX7 X4*X2
03021  M01S00007.cpcom11 +++|  BX7 X4*X3
03022  M01S02329.cpcom   +++|  BX6 X6+X7
03023  M01S02330.cpcom   +++|  SA6 A1
03024  M01S00008.cpcom11 +++|P1 ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03025  M02S02331.ns2011  ---|*                            USER CONTROL WORD.
03026  M01S00442.ns2011  +++|*         USER CONTROL WORD.
03027  M01S02332.cpcom   +++|  IFC NE,$UC$$,3
03028  M01S02333.cpcom   +++|  R= A4,UC
03029  M01S02334.cpcom   +++|  BX6 X4
03030  M01S02335.cpcom   +++|  SA6 F+13B

Seq #  *Modification Id* Act 
----------------------------+
03031  M02S02336.ns2011  ---|*                            PACKNAME.
03032  M01S00443.ns2011  +++|*         PACKNAME.
03033  M01S02337.cpcom   +++|  IFC NE,$PN$$,3
03034  M01S02338.cpcom   +++|  R= A4,PN
03035  M01S02339.cpcom   +++|  BX6 X4
03036  M01S02340.cpcom   +++|  SA6 F+14B

Seq #  *Modification Id* Act 
----------------------------+
03037  M02S02341.ns2011  ---|*                            DEVICE TYPE.
03038  M01S00444.ns2011  +++|*         DEVICE TYPE.
03039  M01S02342.cpcom   +++|K IFC NE,$DT$$
03040  M01S02343.cpcom   +++|  MX7 12D
03041  M01S02344.cpcom   +++|  SX1 B0
03042  M01S02345.cpcom   +++|VV MICRO 1,2, DT
03043  M01S02346.cpcom   +++|WW MICRO 3,, DT
03044  M01S02347.cpcom   +++|V SET 77B
03045  M01S02348.cpcom   +++|K1 MICCNT WW
03046  M01S02349.cpcom   +++|K2 IFLE K1,2
03047  M01S02350.cpcom   +++|  ECHO  3,B=(DE,DP,DV,DW)
03048  M01S02351.cpcom   +++|  IFC EQ,$B$"VV"$,2
03049  M01S02352.cpcom   +++|  STOPDUP
03050  M01S02353.cpcom   +++|V SET 2R_"VV"
03051  M01S02354.cpcom   +++|*
03052  M01S02355.cpcom   +++|  IFNE V,77B,2
03053  M01S02356.cpcom   +++|  IFC NE,$"WW"$$,1
03054  M01S02357.cpcom   +++|  ERR - ILLEGAL PARAMETER
03055  M01S02358.cpcom   +++|  IFEQ V,77B,6

Seq #  *Modification Id* Act 
----------------------------+
03056  M02S02359.251l670 ---|  ECHO  5,B=(DI,DJ,DK,DL,DM,DQ,MD)
03057  M01S00001.251l670 +++|  ECHO  5,B=(DD,DG,DI,DJ,DK,DL,DM,DQ,DX,DY,DZ,DA,DB,DC,DF,DH)
03058  M01S02360.cpcom   +++|  IFC EQ,$B$"VV"$,4
03059  M01S02361.cpcom   +++|  STOPDUP
03060  M01S02362.cpcom   +++|V SET 2R_"VV"
03061  M01S02363.cpcom   +++|  IFC NE,$"WW"$$,1
03062  M01S02364.cpcom   +++|  SX1 1R_"WW"
03063  M01S02365.cpcom   +++|K2 ENDIF
03064  M01S02366.cpcom   +++|*
03065  M01S02367.cpcom   +++|KK IFEQ V,77B
03066  M01S02368.cpcom   +++|  R= A4,DT
03067  M01S02369.cpcom   +++|  BX6 X7*X4
03068  M01S02370.cpcom   +++|  LX4 12D
03069  M01S02371.cpcom   +++|  BX1 X7*X4
03070  M01S02372.cpcom   +++|  LX1 6
03071  M01S02373.cpcom   +++|KK ELSE 3
03072  M01S02374.cpcom   +++|  R= X4,V
03073  M01S02375.cpcom   +++|  LX4 48D
03074  M01S02376.cpcom   +++|  BX6 X7*X4
03075  M01S02377.cpcom   +++|*
03076  M01S02378.cpcom   +++|  SA4 F+1
03077  M01S02379.cpcom   +++|  BX4 -X7*X4
03078  M01S02380.cpcom   +++|  BX6 X4+X6
03079  M01S02381.cpcom   +++|  SA6 A4
03080  M01S02382.cpcom   +++|*
03081  M01S02383.cpcom   +++|  ZR X1,AA
03082  M01S02384.cpcom   +++|  SX1 X1-1R0
03083  M01S02385.cpcom   +++|AA SA4 F+14B
03084  M01S02386.cpcom   +++|  LX7 12D
03085  M01S02387.cpcom   +++|  BX4    -X7*X4
03086  M01S02388.cpcom   +++|  BX1    X7*X1
03087  M01S02389.cpcom   +++|  BX6    X4+X1
03088  M01S02390.cpcom   +++|  SA6    A4
03089  M01S02391.cpcom   +++|K ENDIF
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$$
03102  M01S00012.v23l617 +++|AG IFC NE,$AL$$
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
03129  M01S00013.v23l617 +++|AG ENDIF
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
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
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
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  M02S02392.ns2011  ---|*                            SET FUNCTION.
03176  M01S00445.ns2011  +++|*         SET FUNCTION.
03177  M01S02393.cpcom   +++|I SET 0
03178  M01S02394.cpcom   +++|L IFC NE,$FO$$
03179  M01S02395.cpcom   +++|  ECHO 3,B=(DF,IP),C=(1000B,2000B)
03180  M01S02396.cpcom   +++|  IFC EQ,$B$FO$,2
03181  M01S02397.cpcom   +++|  STOPDUP
03182  M01S02398.cpcom   +++|I SET C
03183  M01S02399.cpcom   +++|  IFEQ I,0,1
03184  M01S02400.cpcom   +++|  ERR - ILLEGAL FORCE FAMILY OPTION
03185  M01S02401.cpcom   +++|L ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03186  M02S02402.ns22000 ---|*         SET SUBSYSTEM, PREFERRED RESIDENCE AND BACKUP REQUIREMENT.

Seq #  *Modification Id* Act 
----------------------------+
03187  M02S02403.ns22000 ---|  ECHO 4,B=(PR,BR,SS)

Seq #  *Modification Id* Act 
----------------------------+
03188  M02S02404.ns22000 ---|SX IFC NE,$B$$

Seq #  *Modification Id* Act 
----------------------------+
03189  M02S02405.ns22000 ---|  STOPDUP

Seq #  *Modification Id* Act 
----------------------------+
03190  M02S02406.ns22000 ---|  =3SS F,PR,BR,SS

Seq #  *Modification Id* Act 
----------------------------+
03191  M02S02407.ns22000 ---|SX ENDIF
03192  M01S02408.cpcom   +++|  SX7 O+I
03193  M01S02409.cpcom   +++|*
03194  M01S02410.cpcom   +++|  R= X2,F
03195  M01S02411.cpcom   +++|  RJ =XPFM=
03196  M01S02412.cpcom   +++|  ENDM
03197  M01S02413.cpcom   +++|          SPACE  4,10
03198  M01S02414.cpcom   +++|**        PARAMETER PROCESSING MACROS FOR THE =3 MACRO.
03199  M01S02415.cpcom   +++| =3SS     SPACE  4,10
03200  M01S02416.cpcom   +++|**        =3SS - SET SUBSYSTEM FIELD IN FET.
03201  M01S02417.cpcom   +++|
03202  M01S02418.cpcom   +++|          PURGMAC  =3SS
03203  M01S02419.cpcom   +++|
03204  M01S02420.cpcom   +++| =3SS     MACRO  F,PR,BR,SS
03205  M01S02421.cpcom   +++|  LOCAL I
03206  M01S02422.cpcom   +++|A IFC EQ,$SS$$
03207  M01S02423.cpcom   +++|  =3BR F,PR,BR,SS
03208  M01S02424.cpcom   +++|A ELSE
03209  M01S02425.cpcom   +++|I SET 100D
03210  M01S02426.cpcom   +++|  ECHO 4,B=(NULL,BASIC,FORT,FTNTS,EXEC,BATCH),C=(0,1,2,3,4,5)
03211  M01S02427.cpcom   +++|AX IFC EQ,$B$SS$
03212  M01S02428.cpcom   +++|  STOPDUP
03213  M01S02429.cpcom   +++|I SET C
03214  M01S02430.cpcom   +++|AX ENDIF
03215  M01S02431.cpcom   +++|AA IFEQ I,100D
03216  M01S02432.cpcom   +++|  R= A4,SS
03217  M01S02433.cpcom   +++|AA ELSE
03218  M01S02434.cpcom   +++|  R= X4,I
03219  M01S02435.cpcom   +++|AA ENDIF
03220  M01S02436.cpcom   +++|  =3BR F,PR,BR,X4
03221  M01S02437.cpcom   +++|A ENDIF
03222  M01S02438.cpcom   +++| =3SS     ENDM
03223  M01S02439.cpcom   +++| =3BR     SPACE  4,10
03224  M01S02440.cpcom   +++|**        =3BR - SET BACKUP REQUIREMENT IN FET.
03225  M01S02441.cpcom   +++|
03226  M01S02442.cpcom   +++|          PURGMAC  =3BR
03227  M01S02443.cpcom   +++|
03228  M01S02444.cpcom   +++| =3BR     MACRO  F,PR,BR,SS
03229  M01S02445.cpcom   +++|  LOCAL I
03230  M01S02446.cpcom   +++|A IFC EQ,$BR$$
03231  M01S02447.cpcom   +++|  =3PR F,PR,SS
03232  M01S02448.cpcom   +++|A ELSE
03233  M01S02449.cpcom   +++|I SET 10D
03234  M01S02450.cpcom   +++|  ECHO 4,B=(N,Y,MD),C=(1,2,3)
03235  M01S02451.cpcom   +++|AX IFC EQ,$B$BR$
03236  M01S02452.cpcom   +++|  STOPDUP
03237  M01S02453.cpcom   +++|I SET C
03238  M01S02454.cpcom   +++|AX ENDIF
03239  M01S02455.cpcom   +++|AA IFEQ I,10D
03240  M01S02456.cpcom   +++|  R= A3,BR
03241  M01S02457.cpcom   +++|AA ELSE
03242  M01S02458.cpcom   +++|  R= X3,I
03243  M01S02459.cpcom   +++|AA ENDIF
03244  M01S02460.cpcom   +++|  LX3 6
03245  M01S02461.cpcom   +++|  IFC NE,$SS$$,1
03246  M01S02462.cpcom   +++|  BX3 SS+X3
03247  M01S02463.cpcom   +++|  =3PR F,PR,X3
03248  M01S02464.cpcom   +++|A ENDIF
03249  M01S02465.cpcom   +++| =3BR     ENDM
03250  M01S02466.cpcom   +++| =3PR     SPACE  4,10
03251  M01S02467.cpcom   +++|**        =3PR - SET PREFERRED RESIDENCE PARAMETER IN FET.
03252  M01S02468.cpcom   +++|
03253  M01S02469.cpcom   +++|          PURGMAC  =3PR
03254  M01S02470.cpcom   +++|
03255  M01S02471.cpcom   +++| =3PR     MACRO  F,PR,PX
03256  M01S02472.cpcom   +++|  LOCAL I
03257  M01S02473.cpcom   +++|A IFC EQ,$PR$$
03258  M01S02474.cpcom   +++|  BX6 PX
03259  M01S02475.cpcom   +++|A ELSE
03260  M01S02476.cpcom   +++|I SET 10D

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

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03280  M02S02491.cpcom11 ---|  BX6 X2
03281  M01S00013.cpcom11 +++|  BX6 X4
03282  M01S02492.cpcom   +++|  ENDIF
03283  M01S02493.cpcom   +++|  LX6 48D
03284  M01S02494.cpcom   +++|  SA6 F+17B
03285  M01S02495.cpcom   +++| =3PR     ENDM

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

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

Seq #  *Modification Id* Act 
----------------------------+
03296  M02S02504.ns2011  ---|*                D = DEVICE TYPE.
03297  M01S00448.ns2011  +++|*                D  = DEVICE TYPE.
03298  M01S02505.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03299  M01S02506.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03300  M01S02507.cpcom   +++|
03301  M01S02508.cpcom   +++|
03302  M01S02509.cpcom   +++|          PURGMAC APPEND
03303  M01S02510.cpcom   +++|
03304  M01S02511.cpcom   +++| APPEND   MACRO  F,PF,UN,PW,PN,D,FO,SR
03305  M01S02512.cpcom   +++|  =3 F,PF,UN,PW,,PN,,,D,FO,7,SR
03306  M01S02513.cpcom   +++|  MACREF APPEND
03307  M01S02514.cpcom   +++|  ENDM

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03320  M02S02524.ns2011  ---|*                D = DEVICE TYPE.
03321  M01S00452.ns2011  +++|*                D  = DEVICE TYPE.
03322  M01S02525.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03323  M01S02526.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03324  M01S02527.cpcom   +++|*                RT = REAL TIME OPTION.
03325  M01S02528.cpcom   +++|
03326  M01S02529.cpcom   +++|
03327  M01S02530.cpcom   +++|          PURGMAC ATTACH
03328  M01S02531.cpcom   +++|
03329  M01S02532.cpcom   +++| ATTACH   MACRO  F,PF,UN,PW,M,PN,D,FO,SR,RT

Seq #  *Modification Id* Act 
----------------------------+
03330  M02S02533.v23l617 ---|A IFC NE,$RT$$

Seq #  *Modification Id* Act 
----------------------------+
03331  M02S02534.v23l617 ---|  SA4 F+1

Seq #  *Modification Id* Act 
----------------------------+
03332  M02S02535.v23l617 ---|  R= X6,1

Seq #  *Modification Id* Act 
----------------------------+
03333  M02S02536.v23l617 ---|  LX6 43D

Seq #  *Modification Id* Act 
----------------------------+
03334  M02S02537.v23l617 ---|  BX6 X6+X4

Seq #  *Modification Id* Act 
----------------------------+
03335  M02S02538.v23l617 ---|  SA6 A4

Seq #  *Modification Id* Act 
----------------------------+
03336  M02S02539.v23l617 ---|A ENDIF

Seq #  *Modification Id* Act 
----------------------------+
03337  M02S02540.v23l617 ---|  =3   F,PF,UN,PW,,PN,,M,D,FO,11B,SR

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

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

Seq #  *Modification Id* Act 
----------------------------+
03343  M03S02544.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

Seq #  *Modification Id* Act 
----------------------------+
03345  M02S00454.ns22000 ---|***       CHANGE (F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR)
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)
03348  M01S00045.v23l617 +++|***       CHANGE (F,PF,NF,PW,UC,CT,M,PN,D,FO,SR,SS,BR,PR,XT,AC)
03349  M01S02545.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
03354  M02S02548.ns2011  ---|*                PF = OLD PERMANENT FILE NAME.
03355  M01S00457.ns2011  +++|*                PW = FILE PASSWORD.
03356  M01S00458.ns2011  +++|*                UC = USER CONTROL INFORMATION.
03357  M01S02549.cpcom   +++|*                CT = FILE CATEGORY.

Seq #  *Modification Id* Act 
----------------------------+
03358  M02S02550.ns2011  ---|*                M = MODE OF ACCESS ALLOWED TO FILE.
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  M01S02551.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03364  M02S02552.ns2011  ---|*                UC = USER CONTROL INFORMATION.

Seq #  *Modification Id* Act 
----------------------------+
03365  M02S02553.ns2011  ---|*                PW = FILE PASSWORD.

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

Seq #  *Modification Id* Act 
----------------------------+
03369  M02S02556.ns2011  ---|*                NOTE - IF M OR CT IS NOT SPECIFIED AS MNEMONIC,

Seq #  *Modification Id* Act 
----------------------------+
03370  M02S02557.ns2011  ---|*                THEN CONTENTS OF M OR CT MUST BE 40B + MODE

Seq #  *Modification Id* Act 
----------------------------+
03371  M02S02558.ns2011  ---|*                OR CATEGORY.
03372  M01S02559.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03373  M01S02560.cpcom   +++|*                SS = SUBSYSTEM.
03374  M01S02561.cpcom   +++|*                BR = BACKUP REQUIREMENT.
03375  M01S02562.cpcom   +++|*                PR = PREFERRED RESIDENCE.
03376  M01S00137.ns22000 +++|*                XT = PASSWORD EXPIRATION DATE.
03377  M01S00046.v23l617 +++|*                AC = ALTERNATE CATLIST PERMISSION.
03378  M01S02563.cpcom   +++|
03379  M01S02564.cpcom   +++|
03380  M01S02565.cpcom   +++|          PURGMAC CHANGE
03381  M01S02566.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03382  M02S02567.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
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  M02S02568.cpcom5  ---|  IFC  NE,$NF$$,3
03386  M01S00001.cpcom5  +++|A IFC NE,$NF$$
03387  M01S02569.cpcom   +++|  R= A4,NF

Seq #  *Modification Id* Act 
----------------------------+
03388  M02S02570.cpcom5  ---|  BX6 X4

Seq #  *Modification Id* Act 
----------------------------+
03389  M02S02571.cpcom5  ---|  SA6 F+15B
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  M01S02572.cpcom   +++|  MACREF CHANGE

Seq #  *Modification Id* Act 
----------------------------+
03398  M02S02573.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
03400  M01S00048.v23l617 +++|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,12B,SR,SS,BR,PR,XT,,,AC
03401  M01S02574.cpcom   +++|   ENDM

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

Seq #  *Modification Id* Act 
----------------------------+
03404  M02S02576.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)
03406  M01S00049.v23l617 +++|***       DEFINE (F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR,XT,AL,AC)
03407  M01S02577.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03408  M02S02578.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).
03409  M01S00465.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03410  M01S02579.cpcom   +++|*                PF = PERMANENT FILE NAME.
03411  M01S02580.cpcom   +++|*                PW = FILE PASSWORD.
03412  M01S02581.cpcom   +++|*                UC = USER CONTROL WORD.
03413  M01S00466.ns2011  +++|*                D  = DEVICE TYPE.
03414  M01S02582.cpcom   +++|*                CT = FILE CATEGORY.

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

Seq #  *Modification Id* Act 
----------------------------+
03416  M02S02584.ns2011  ---|*                D = DEVICE TYPE.
03417  M01S00467.ns2011  +++|*                M  = MODE OF ACCESS ALLOWED TO FILE.
03418  M01S02585.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03419  M02S02586.ns2011  ---|*                S = SPACE IN PRUS DESIRED FOR FILE ( THIS IS ADDRESS

Seq #  *Modification Id* Act 
----------------------------+
03420  M02S02587.ns2011  ---|*                OF RIGHT JUSTIFIED OCTAL QUANTITY).
03421  M01S00468.ns2011  +++|*                S  = SPACE IN PRUS DESIRED FOR FILE (THIS IS ADDRESS
03422  M01S00469.ns2011  +++|*                     OF RIGHT JUSTIFIED OCTAL QUANTITY).
03423  M01S02588.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03424  M01S02589.cpcom   +++|*                BR = BACKUP REQUIREMENT.
03425  M01S02590.cpcom   +++|*                PR = PREFERRED RESIDENCE.
03426  M01S02591.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03427  M01S00141.ns22000 +++|*                XT = PASSWORD EXPIRATION DATE.
03428  M01S00142.ns22000 +++|*                AL = FILE ACCESS LEVEL.
03429  M01S00050.v23l617 +++|*                AC = ALTERNATE CATLIST PERMISSION.
03430  M01S02592.cpcom   +++|
03431  M01S02593.cpcom   +++|
03432  M01S02594.cpcom   +++|          PURGMAC DEFINE
03433  M01S02595.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03434  M02S02596.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
03436  M01S00051.v23l617 +++| DEFINE   MACRO  F,PF,PW,UC,D,CT,M,PN,S,FO,BR,PR,SR,XT,AL,AC
03437  M01S02597.cpcom   +++|  MACREF DEFINE
03438  M01S02598.cpcom   +++|  IFC  NE,$S$$,3
03439  M01S02599.cpcom   +++|  R= A5,S
03440  M01S02600.cpcom   +++|  BX6 X5
03441  M01S02601.cpcom   +++|  SA6 F+11B

Seq #  *Modification Id* Act 
----------------------------+
03442  M02S02602.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
03444  M01S00052.v23l617 +++|  =3 F,PF,,PW,UC,PN,CT,M,D,FO,10B,SR,,BR,PR,XT,,AL,AC
03445  M01S02603.cpcom   +++|    ENDM

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

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

Seq #  *Modification Id* Act 
----------------------------+
03451  M02S02607.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).
03452  M01S00471.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03453  M01S02608.cpcom   +++|*                PF = PERMANENT FILE NAME.
03454  M01S02609.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03455  M01S02610.cpcom   +++|*                PW = FILE PASSWORD.
03456  M01S02611.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03457  M02S02612.ns2011  ---|*                D = DEVICE TYPE.
03458  M01S00472.ns2011  +++|*                D  = DEVICE TYPE.
03459  M01S02613.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03460  M01S02614.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03461  M01S00054.v23l617 +++|*                RT = REAL TIME OPTION.
03462  M01S02615.cpcom   +++|
03463  M01S02616.cpcom   +++|
03464  M01S02617.cpcom   +++|          PURGMAC GET
03465  M01S02618.cpcom   +++|

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03482  M02S02630.ns2011  ---|*                D = DEVICE TYPE.
03483  M01S00475.ns2011  +++|*                D  = DEVICE TYPE.
03484  M01S02631.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03485  M01S02632.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03486  M01S00058.v23l617 +++|*                RT = REAL TIME OPTION.
03487  M01S02633.cpcom   +++|
03488  M01S02634.cpcom   +++|
03489  M01S02635.cpcom   +++|          PURGMAC OLD
03490  M01S02636.cpcom   +++|

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

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03506  M02S02647.ns2011  ---|*                M = MODE OF ACCESS PERMITTED.

Seq #  *Modification Id* Act 
----------------------------+
03507  M02S02648.ns2011  ---|*                D = DEVICE TYPE.
03508  M01S00478.ns2011  +++|*                M  = MODE OF ACCESS PERMITTED.
03509  M01S02649.cpcom   +++|*                PN = PACK NAME.
03510  M01S00479.ns2011  +++|*                D  = DEVICE TYPE.
03511  M01S02650.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03512  M01S02651.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03513  M01S00146.ns22000 +++|*                XT = PERMIT EXPIRATION DATE.
03514  M01S02652.cpcom   +++|
03515  M01S02653.cpcom   +++|
03516  M01S02654.cpcom   +++|          PURGMAC PERMIT
03517  M01S02655.cpcom   +++|

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

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03533  M02S02667.ns2011  ---|*                D = DEVICE TYPE.
03534  M01S00482.ns2011  +++|*                D  = DEVICE TYPE.
03535  M01S02668.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03536  M01S02669.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03537  M01S02670.cpcom   +++|
03538  M01S02671.cpcom   +++|
03539  M01S02672.cpcom   +++|          PURGMAC PURGE
03540  M01S02673.cpcom   +++|
03541  M01S02674.cpcom   +++| PURGE    MACRO  F,UN,PW,PN,D,FO,SR
03542  M01S02675.cpcom   +++|  MACREF PURGE
03543  M01S02676.cpcom   +++|  =3 F,,UN,PW,,PN,,,D,FO,3,SR
03544  M01S02677.cpcom   +++|    ENDM

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

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

Seq #  *Modification Id* Act 
----------------------------+
03550  M02S02681.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).
03551  M01S00484.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03552  M01S02682.cpcom   +++|*                PF = PERMANENT FILE NAME.
03553  M01S02683.cpcom   +++|*                UN = OPTIONAL USER NUMBER.
03554  M01S02684.cpcom   +++|*                PW = FILE PASSWORD.
03555  M01S02685.cpcom   +++|*                UC = USER CONTROL WORD.
03556  M01S02686.cpcom   +++|*                PN = PACKNAME.

Seq #  *Modification Id* Act 
----------------------------+
03557  M02S02687.ns2011  ---|*                D = DEVICE TYPE.
03558  M01S00485.ns2011  +++|*                D  = DEVICE TYPE.
03559  M01S02688.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03560  M01S02689.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03561  M01S00002.ns2267  +++|*                M  = FILE MODE (IF FILE DOES NOT ALREADY EXIST).
03562  M01S02690.cpcom   +++|
03563  M01S02691.cpcom   +++|
03564  M01S02692.cpcom   +++|          PURGMAC REPLACE
03565  M01S02693.cpcom   +++|

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

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

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

Seq #  *Modification Id* Act 
----------------------------+
03574  M02S02699.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)
03576  M01S00061.v23l617 +++|***       SAVE   (F,PF,PW,UC,CT,M,PN,D,FO,SS,BR,PR,ST,XT,AL,AC)
03577  M01S02700.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03578  M02S02701.ns2011  ---|*                F = ADDRESS OF FET (WORKING FILE NAME).
03579  M01S00487.ns2011  +++|*                F  = ADDRESS OF FET (WORKING FILE NAME).
03580  M01S02702.cpcom   +++|*                PF = PERMANENT FILE NAME.
03581  M01S02703.cpcom   +++|*                PW = FILE PASSWORD.
03582  M01S02704.cpcom   +++|*                UC = USER CONTROL WORD.
03583  M01S02705.cpcom   +++|*                CT = FILE CATEGORY.

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

Seq #  *Modification Id* Act 
----------------------------+
03587  M02S02708.ns2011  ---|*                D = DEVICE TYPE.
03588  M01S00489.ns2011  +++|*                D  = DEVICE TYPE.
03589  M01S02709.cpcom   +++|*                FO = FORCE FAMILY OPTION.
03590  M01S02710.cpcom   +++|*                SS = SUBSYSTEM.
03591  M01S02711.cpcom   +++|*                BR = BACKUP REQUIREMENT.
03592  M01S02712.cpcom   +++|*                PR = PREFERRED RESIDENCE.
03593  M01S02713.cpcom   +++|*                SR = SPECIAL REQUEST OPTION.
03594  M01S00150.ns22000 +++|*                XT = PASSWORD EXPIRATION DATE.
03595  M01S00151.ns22000 +++|*                AL = FILE ACCESS LEVEL.
03596  M01S00062.v23l617 +++|*                AC = ALTERNATE CATLIST PERMISSION.
03597  M01S02714.cpcom   +++|
03598  M01S02715.cpcom   +++|
03599  M01S02716.cpcom   +++|          PURGMAC SAVE
03600  M01S02717.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
03601  M02S02718.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
03603  M01S00063.v23l617 +++| SAVE     MACRO  F,PF,PW,UC,T,M,PN,D,FO,SS,BR,PR,SR,XT,AL,AC
03604  M01S02719.cpcom   +++|  MACREF SAVE

Seq #  *Modification Id* Act 
----------------------------+
03605  M02S02720.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
03607  M01S00064.v23l617 +++|  =3 F,PF,,PW,UC,PN,T,M,D,FO,1,SR,SS,BR,PR,XT,,AL,AC
03608  M01S02721.cpcom   +++|    ENDM
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  M01S02722.cpcom   +++|          TITLE  DATA TRANSFER MACROS.

Seq #  *Modification Id* Act 
----------------------------+
03642  M02S02723.ns2011  ---| DATA     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03643  M02S02724.ns2011  ---|***              DATA TRANSFER MACROS FORMAT REQUESTS INTO X REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
03644  M02S02725.ns2011  ---|*         AND RETURN JUMP TO PROCESSING SUBROUTINES.

Seq #  *Modification Id* Act 
----------------------------+
03645  M02S02726.ns2011  ---|          SPACE  4
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  M01S02727.cpcom   +++|***       MACROS WHICH READ DATA FROM A FILE RETURN STATUS INFORMATION
03651  M01S02728.cpcom   +++|*         AS FOLLOWS -

Seq #  *Modification Id* Act 
----------------------------+
03652  M02S02729.ns2011  ---|*         (X1) = 0 FOR TRANSFER COMPLETE.

Seq #  *Modification Id* Act 
----------------------------+
03653  M02S02730.ns2011  ---|*         (X1) = -1 FOR EOF DETECTED ON FILE.

Seq #  *Modification Id* Act 
----------------------------+
03654  M02S02731.ns2011  ---|*         (X1) = +NON-ZERO IF EOR DETECTED ON FILE BEFORE TRANSFER

Seq #  *Modification Id* Act 
----------------------------+
03655  M02S02732.ns2011  ---|*                WAS COMPLETED.  (X1) = ADDRESS OF LAST WORD

Seq #  *Modification Id* Act 
----------------------------+
03656  M02S02733.ns2011  ---|*                TRANSFERRED INTO WORKING BUFFER.
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  M01S02734.cpcom   +++|*         DATA WILL NOT BE TRANSFERRED AFTER AN EOR/EOF IS SENSED.

Seq #  *Modification Id* Act 
----------------------------+
03665  M02S02735.ns2011  ---| READC    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
03666  M02S02736.ns2011  ---|***       THE FOLLOWING MACROS TRANSFER DATA TO OR FROM WORKING

Seq #  *Modification Id* Act 
----------------------------+
03667  M02S02737.ns2011  ---|*         BUFFERS AND THE SELECTED FILE IN FORMATS SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
03668  M02S02738.ns2011  ---|*         MACROS WHICH READ DATA FROM A FILE RETURN WITH (X7) = (B6) =

Seq #  *Modification Id* Act 
----------------------------+
03669  M02S02739.ns2011  ---|*         LAST WORD OF DATA TRANSFERRED.
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  M01S02740.cpcom   +++|*
03676  M01S02741.cpcom   +++|*         ENTRY  *BUF* = ADDRESS OF WORKING BUFFER.
03677  M01S02742.cpcom   +++|*                *N* = WORD COUNT OF WORKING BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
03678  M02S02743.ns2011  ---|          SPACE  4
03679  M01S00506.ns2011  +++| READC    SPACE  4,10
03680  M01S02744.cpcom   +++|***       READC - READ CODED LINE IN *C* FORMAT.
03681  M01S02745.cpcom   +++|*
03682  M01S00507.ns2011  +++|*         READC  FILE,BUF,N
03683  M01S02746.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03684  M02S02747.ns2011  ---|*         READC  FILE,BUF,N
03685  M01S02748.cpcom   +++|*         READ 1 CODED LINE FROM *FILE* TO *BUF*.
03686  M01S02749.cpcom   +++|*         DATA IS TRANSFERRED UNTIL THE END OF LINE 0000 IS SENSED.
03687  M01S00508.ns2011  +++|*
03688  M01S02750.cpcom   +++|*         CALLS  RDC=.
03689  M01S02751.cpcom   +++|
03690  M01S02752.cpcom   +++|
03691  M01S02753.cpcom   +++|          PURGMAC READC
03692  M01S02754.cpcom   +++|
03693  M01S02755.cpcom   +++| READC    MACRO  F,S,N
03694  M01S02756.cpcom   +++|  MACREF READC
03695  M01S02757.cpcom   +++|  R= B6,S
03696  M01S02758.cpcom   +++|  R= B7,N
03697  M01S02759.cpcom   +++|  R= X2,F
03698  M01S02760.cpcom   +++|  RJ =XRDC=
03699  M01S02761.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03700  M02S02762.ns2011  ---| WRITEC   SPACE  4
03701  M01S00509.ns2011  +++| WRITEC   SPACE  4,10
03702  M01S02763.cpcom   +++|***       WRITEC - WRITE CODED LINE IN *C* FORMAT.
03703  M01S02764.cpcom   +++|*
03704  M01S00510.ns2011  +++|*         WRITEC FILE,BUF
03705  M01S02765.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03706  M02S02766.ns2011  ---|*         WRITEC FILE,BUF
03707  M01S02767.cpcom   +++|*         DATA IS TRANSFERRED UNTIL THE END OF LINE 0000 IS SENSED.
03708  M01S00511.ns2011  +++|*
03709  M01S02768.cpcom   +++|*         CALLS  WTC=.
03710  M01S02769.cpcom   +++|
03711  M01S02770.cpcom   +++|
03712  M01S02771.cpcom   +++|          PURGMAC WRITEC
03713  M01S02772.cpcom   +++|
03714  M01S02773.cpcom   +++| WRITEC   MACRO  F,S
03715  M01S02774.cpcom   +++|  MACREF WRITEC
03716  M01S02775.cpcom   +++|  R= B6,S
03717  M01S02776.cpcom   +++|  R= X2,F
03718  M01S02777.cpcom   +++|  RJ =XWTC=
03719  M01S02778.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03720  M02S02779.ns2011  ---| READH    SPACE  4
03721  M01S00512.ns2011  +++| READH    SPACE  4,10
03722  M01S02780.cpcom   +++|***       READH - READ CODED LINE IN *H* FORMAT.
03723  M01S02781.cpcom   +++|*
03724  M01S00513.ns2011  +++|*         READH  FILE,BUF,N
03725  M01S02782.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03726  M02S02783.ns2011  ---|*         READH  FILE,BUF,N
03727  M01S02784.cpcom   +++|*         DATA IS TRANSFERRED UNTIL THE END OF LINE 0000 IS SENSED.
03728  M01S02785.cpcom   +++|*         TRAILING SPACES ARE FILLED INTO THE WORKING BUFFER.
03729  M01S00514.ns2011  +++|*
03730  M01S02786.cpcom   +++|*         CALLS  RDH=.
03731  M01S02787.cpcom   +++|
03732  M01S02788.cpcom   +++|
03733  M01S02789.cpcom   +++|          PURGMAC READH
03734  M01S02790.cpcom   +++|
03735  M01S02791.cpcom   +++| READH    MACRO  F,S,N
03736  M01S02792.cpcom   +++|  MACREF READH
03737  M01S02793.cpcom   +++|  R= B6,S
03738  M01S02794.cpcom   +++|  R= B7,N
03739  M01S02795.cpcom   +++|  R= X2,F
03740  M01S02796.cpcom   +++|  RJ =XRDH=
03741  M01S02797.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03742  M02S02798.ns2011  ---| WRITEH   SPACE  4
03743  M01S00515.ns2011  +++| WRITEH   SPACE  4,10
03744  M01S02799.cpcom   +++|***       WRITEH - WRITE CODED LINE IN *H* FORMAT.
03745  M01S02800.cpcom   +++|*
03746  M01S00516.ns2011  +++|*         WRITEH FILE,BUF,N
03747  M01S02801.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03748  M02S02802.ns2011  ---|*         WRITEH FILE,BUF,N
03749  M01S02803.cpcom   +++|*         TRAILING SPACES ARE DELETED.
03750  M01S00517.ns2011  +++|*
03751  M01S02804.cpcom   +++|*         CALLS  WTH=.
03752  M01S02805.cpcom   +++|
03753  M01S02806.cpcom   +++|
03754  M01S02807.cpcom   +++|          PURGMAC WRITEH
03755  M01S02808.cpcom   +++|
03756  M01S02809.cpcom   +++| WRITEH   MACRO  F,S,N
03757  M01S02810.cpcom   +++|  MACREF WRITEH
03758  M01S02811.cpcom   +++|  R= B6,S
03759  M01S02812.cpcom   +++|  R= B7,N
03760  M01S02813.cpcom   +++|  R= X2,F
03761  M01S02814.cpcom   +++|  RJ =XWTH=
03762  M01S02815.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03763  M02S02816.ns2011  ---| READO    SPACE  4
03764  M01S00518.ns2011  +++| READO    SPACE  4,10
03765  M01S02817.cpcom   +++|***       READO - READ ONE WORD.
03766  M01S02818.cpcom   +++|*
03767  M01S00519.ns2011  +++|*         READO  FILE
03768  M01S02819.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03769  M02S02820.ns2011  ---|*         READO  FILE
03770  M01S02821.cpcom   +++|*         ENTRY  NONE.
03771  M01S00520.ns2011  +++|*
03772  M01S02822.cpcom   +++|*         EXIT   (X6) = WORD READ.
03773  M01S00521.ns2011  +++|*
03774  M01S02823.cpcom   +++|*         CALLS  RDO=.
03775  M01S02824.cpcom   +++|
03776  M01S02825.cpcom   +++|
03777  M01S02826.cpcom   +++|          PURGMAC READO
03778  M01S02827.cpcom   +++|
03779  M01S02828.cpcom   +++| READO    MACRO  F
03780  M01S02829.cpcom   +++|  MACREF READO
03781  M01S02830.cpcom   +++|  SA1 F+2
03782  M01S02831.cpcom   +++|  RJ =XRDO=
03783  M01S02832.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03784  M02S02833.ns2011  ---| WRITEO   SPACE  4
03785  M01S00522.ns2011  +++| WRITEO   SPACE  4,10
03786  M01S02834.cpcom   +++|***       WRITEO - WRITE ONE WORD.
03787  M01S02835.cpcom   +++|*
03788  M01S00523.ns2011  +++|*         WRITEO FILE
03789  M01S02836.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03790  M02S02837.ns2011  ---|*         WRITEO FILE
03791  M01S02838.cpcom   +++|*         ENTRY  (X6) = WORD TO WRITE.
03792  M01S00524.ns2011  +++|*
03793  M01S02839.cpcom   +++|*         CALLS  WTO=.
03794  M01S02840.cpcom   +++|
03795  M01S02841.cpcom   +++|
03796  M01S02842.cpcom   +++|          PURGMAC WRITEO     (1051)
03797  M01S02843.cpcom   +++|
03798  M01S02844.cpcom   +++| WRITEO   MACRO  F
03799  M01S02845.cpcom   +++|  MACREF WRITEO
03800  M01S02846.cpcom   +++|  SA1 F+2
03801  M01S02847.cpcom   +++|  RJ =XWTO=
03802  M01S02848.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03803  M02S02849.ns2011  ---| READS    SPACE  4
03804  M01S00525.ns2011  +++| READS    SPACE  4,15
03805  M01S02850.cpcom   +++|***       READS - READ CODED LINE TO CHARACTER BUFFER.
03806  M01S02851.cpcom   +++|*
03807  M01S00526.ns2011  +++|*         READS  FILE,BUF,N
03808  M01S02852.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03809  M02S02853.ns2011  ---|*         READS  FILE,BUF,N
03810  M01S02854.cpcom   +++|*         WORDS ARE UNPACKED AND STORED IN THE WORKING BUFFER 1
03811  M01S02855.cpcom   +++|*         CHARACTER/WORD UNTIL THE END OF LINE (0000) BYTE IS SENSED.
03812  M01S02856.cpcom   +++|*         00 CHARACTERS ARE STORED AS SPACE (55) CODES.
03813  M01S02857.cpcom   +++|*         IF THE CODED LINE TERMINATES BEFORE *N* CHARACTERS ARE
03814  M01S02858.cpcom   +++|*         STORED, THE WORKING BUFFER IS FILLED WITH SPACE CODES.
03815  M01S00527.ns2011  +++|*
03816  M01S02859.cpcom   +++|*         CALLS  RDS=.
03817  M01S02860.cpcom   +++|
03818  M01S02861.cpcom   +++|
03819  M01S02862.cpcom   +++|          PURGMAC READS
03820  M01S02863.cpcom   +++|
03821  M01S02864.cpcom   +++| READS    MACRO  F,S,N
03822  M01S02865.cpcom   +++|  MACREF READS
03823  M01S02866.cpcom   +++|  R= B6,S
03824  M01S02867.cpcom   +++|  R= B7,N
03825  M01S02868.cpcom   +++|  R= X2,F
03826  M01S02869.cpcom   +++|  RJ =XRDS=
03827  M01S02870.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03828  M02S02871.ns2011  ---| WRITES   SPACE  4
03829  M01S00528.ns2011  +++| WRITES   SPACE  4,10
03830  M01S02872.cpcom   +++|***       WRITES - WRITE CODED LINE FROM CHARACTER BUFFER.
03831  M01S02873.cpcom   +++|*
03832  M01S00529.ns2011  +++|*         WRITES FILE,BUF,N
03833  M01S02874.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03834  M02S02875.ns2011  ---|*         WRITES FILE,BUF,N
03835  M01S02876.cpcom   +++|*         CHARACTERS ARE PACKED FROM THE WORKING BUFFER 10 CHARACTERS
03836  M01S02877.cpcom   +++|*         PER WORD.
03837  M01S02878.cpcom   +++|*         TRAILING CODES ARE DELETED BEFORE CHARACTERS ARE PACKED.
03838  M01S00530.ns2011  +++|*
03839  M01S02879.cpcom   +++|*         CALLS  WTS=.
03840  M01S02880.cpcom   +++|
03841  M01S02881.cpcom   +++|
03842  M01S02882.cpcom   +++|          PURGMAC WRITES
03843  M01S02883.cpcom   +++|
03844  M01S02884.cpcom   +++| WRITES   MACRO  F,S,N
03845  M01S02885.cpcom   +++|  MACREF WRITES
03846  M01S02886.cpcom   +++|  R= B6,S
03847  M01S02887.cpcom   +++|  R= B7,N
03848  M01S02888.cpcom   +++|  R= X2,F
03849  M01S02889.cpcom   +++|  RJ =XWTS=
03850  M01S02890.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03851  M02S02891.ns2011  ---| READW    SPACE  4
03852  M01S00531.ns2011  +++| READW    SPACE  4,10
03853  M01S02892.cpcom   +++|***       READW - READ DATA TO WORKING BUFFER.
03854  M01S02893.cpcom   +++|*
03855  M01S00532.ns2011  +++|*         READW  FILE,BUF,N
03856  M01S02894.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03857  M02S02895.ns2011  ---|*         READW  FILE,BUF,N
03858  M01S02896.cpcom   +++|*         CALLS  RDW=.
03859  M01S02897.cpcom   +++|
03860  M01S02898.cpcom   +++|
03861  M01S02899.cpcom   +++|          PURGMAC READW
03862  M01S02900.cpcom   +++|
03863  M01S02901.cpcom   +++| READW    MACRO  F,S,N
03864  M01S02902.cpcom   +++|  MACREF READW
03865  M01S02903.cpcom   +++|  R= B6,S
03866  M01S02904.cpcom   +++|  R= B7,N
03867  M01S02905.cpcom   +++|  R= X2,F
03868  M01S02906.cpcom   +++|  RJ =XRDW=
03869  M01S02907.cpcom   +++|  ENDM
03870  M01S00001.274l797 +++| SKIPW    SPACE  4,10
03871  M01S00002.274l797 +++|***       SKIPW - SKIP WORDS IN CIRCULAR BUFFER.
03872  M01S00003.274l797 +++|*
03873  M01S00004.274l797 +++|*         SKIPW  FILE,N
03874  M01S00005.274l797 +++|*
03875  M01S00006.274l797 +++|*         CALLS  SKW=.
03876  M01S00007.274l797 +++|
03877  M01S00008.274l797 +++|
03878  M01S00009.274l797 +++|          PURGMAC SKIPW
03879  M01S00010.274l797 +++|
03880  M01S00011.274l797 +++| SKIPW    MACRO  F,N
03881  M01S00012.274l797 +++|  MACREF SKIPW
03882  M01S00013.274l797 +++|  R= B7,N
03883  M01S00014.274l797 +++|  R= X2,F
03884  M01S00015.274l797 +++|  RJ =XSKW=
03885  M01S00016.274l797 +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03886  M02S02908.ns2011  ---| WRITEW   SPACE  4
03887  M01S00533.ns2011  +++| WRITEW   SPACE  4,10
03888  M01S02909.cpcom   +++|***       WRITEW - WRITE DATA FROM WORKING BUFFER.
03889  M01S02910.cpcom   +++|*
03890  M01S00534.ns2011  +++|*         WRITEW FILE,BUF,N
03891  M01S02911.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03892  M02S02912.ns2011  ---|*         WRITEW FILE,BUF,N
03893  M01S02913.cpcom   +++|*         CALLS  WTW=.
03894  M01S02914.cpcom   +++|
03895  M01S02915.cpcom   +++|
03896  M01S02916.cpcom   +++|          PURGMAC WRITEW
03897  M01S02917.cpcom   +++|
03898  M01S02918.cpcom   +++| WRITEW   MACRO  F,S,N
03899  M01S02919.cpcom   +++|  MACREF WRITEW
03900  M01S02920.cpcom   +++|  R= B6,S
03901  M01S02921.cpcom   +++|  R= B7,N
03902  M01S02922.cpcom   +++|  R= X2,F
03903  M01S02923.cpcom   +++|  RJ =XWTW=
03904  M01S02924.cpcom   +++|  ENDM
03905  M01S02925.cpcom   +++|
03906  M01S02926.cpcom   +++|          TITLE  COMPASS/SYMPL DECLARATION MACROS.

Seq #  *Modification Id* Act 
----------------------------+
03907  M02S02927.ns2011  ---|          SPACE  4,15
03908  M01S00535.ns2011  +++|          SPACE  4,10
03909  M01S02928.cpcom   +++|***       COMPASS/SYMPL DECLARATION MACROS.
03910  M01S02929.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03911  M02S02930.ns2011  ---|*         THE #DEF# MACRO PERMITS SOURCE LINES

Seq #  *Modification Id* Act 
----------------------------+
03912  M02S02931.ns2011  ---|*         TO CONTAIN BOTH A *COMPASS* AND *SYMPL* DECLARATION

Seq #  *Modification Id* Act 
----------------------------+
03913  M02S02932.ns2011  ---|*         OF A VARIABLE.  COMMENTS ARE USED TO HIDE INSTRUCTIONS

Seq #  *Modification Id* Act 
----------------------------+
03914  M02S02933.ns2011  ---|*         FOR ONE LANGUAGE FROM THE OTHER LANGUAGE.  IN *SYMPL*,

Seq #  *Modification Id* Act 
----------------------------+
03915  M02S02934.ns2011  ---|*         COMMENTS ARE DELIMITED BY THE (#) CHARACTER.

Seq #  *Modification Id* Act 
----------------------------+
03916  M02S02935.ns2011  ---|*         PERSONS MODIFYING LINES WITH BOTH *COMPASS* AND *SYMPL*

Seq #  *Modification Id* Act 
----------------------------+
03917  M02S02936.ns2011  ---|*         DECLARATIONS SHOULD ENSURE THAT THE VARIABLE IS
03918  M01S00536.ns2011  +++|*         THE #DEF# MACRO PERMITS SOURCE LINES TO CONTAIN BOTH A
03919  M01S00537.ns2011  +++|*         *COMPASS* AND *SYMPL* DECLARATION OF A VARIABLE.  COMMENTS

Proceed to Part 3