Common CPCOM Part 002

25 Modifications

Seq #  *Modification Id* Act 
----------------------------+
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
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.
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.
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   +++|*
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   +++|*
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   +++|*
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   +++|*
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   +++|*
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.
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   +++|*
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   +++|*
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   +++|*
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
03849  M00S02889.cpcom   +++|  RJ =XWTS=
03850  M00S02890.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
03851  M01S02891.ns2011  ---| READW    SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
03857  M01S02895.ns2011  ---|*         READW  FILE,BUF,N
03858  M00S02896.cpcom   ---|*         CALLS  RDW=.
03859  M00S02897.cpcom   ---|
03860  M00S02898.cpcom   ---|
03861  M00S02899.cpcom   ---|          PURGMAC READW
03862  M00S02900.cpcom   ---|
03863  M00S02901.cpcom   ---| READW    MACRO  F,S,N
03864  M00S02902.cpcom   ---|  MACREF READW
03865  M00S02903.cpcom   ---|  R= B6,S
03866  M00S02904.cpcom   ---|  R= B7,N
03867  M00S02905.cpcom   ---|  R= X2,F
03868  M00S02906.cpcom   ---|  RJ =XRDW=
03869  M00S02907.cpcom   ---|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
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  M01S02908.ns2011  ---| WRITEW   SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
03892  M01S02912.ns2011  ---|*         WRITEW FILE,BUF,N
03893  M00S02913.cpcom   ---|*         CALLS  WTW=.
03894  M00S02914.cpcom   ---|
03895  M00S02915.cpcom   ---|
03896  M00S02916.cpcom   ---|          PURGMAC WRITEW
03897  M00S02917.cpcom   ---|
03898  M00S02918.cpcom   ---| WRITEW   MACRO  F,S,N
03899  M00S02919.cpcom   ---|  MACREF WRITEW
03900  M00S02920.cpcom   ---|  R= B6,S
03901  M00S02921.cpcom   ---|  R= B7,N
03902  M00S02922.cpcom   ---|  R= X2,F
03903  M00S02923.cpcom   ---|  RJ =XWTW=
03904  M00S02924.cpcom   ---|  ENDM
03905  M00S02925.cpcom   ---|
03906  M00S02926.cpcom   ---|          TITLE  COMPASS/SYMPL DECLARATION MACROS.
03907  M01S02927.ns2011  ---|          SPACE  4,15

Seq #  *Modification Id* Act 
----------------------------+
03908  M01S00535.ns2011  +++|          SPACE  4,10
03909  M00S02928.cpcom   +++|***       COMPASS/SYMPL DECLARATION MACROS.
03910  M00S02929.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
03911  M01S02930.ns2011  ---|*         THE #DEF# MACRO PERMITS SOURCE LINES
03912  M01S02931.ns2011  ---|*         TO CONTAIN BOTH A *COMPASS* AND *SYMPL* DECLARATION
03913  M01S02932.ns2011  ---|*         OF A VARIABLE.  COMMENTS ARE USED TO HIDE INSTRUCTIONS
03914  M01S02933.ns2011  ---|*         FOR ONE LANGUAGE FROM THE OTHER LANGUAGE.  IN *SYMPL*,
03915  M01S02934.ns2011  ---|*         COMMENTS ARE DELIMITED BY THE (#) CHARACTER.
03916  M01S02935.ns2011  ---|*         PERSONS MODIFYING LINES WITH BOTH *COMPASS* AND *SYMPL*
03917  M01S02936.ns2011  ---|*         DECLARATIONS SHOULD ENSURE THAT THE VARIABLE IS

Seq #  *Modification Id* Act 
----------------------------+
03918  M01S00536.ns2011  +++|*         THE #DEF# MACRO PERMITS SOURCE LINES TO CONTAIN BOTH A
03919  M01S00537.ns2011  +++|*         *COMPASS* AND *SYMPL* DECLARATION OF A VARIABLE.  COMMENTS
03920  M01S00538.ns2011  +++|*         ARE USED TO HIDE INSTRUCTIONS FOR ONE LANGUAGE FROM THE
03921  M01S00539.ns2011  +++|*         OTHER LANGUAGE.  IN *SYMPL*, COMMENTS ARE DELIMITED BY THE
03922  M01S00540.ns2011  +++|*         (#) CHARACTER.  PERSONS MODIFYING LINES WITH BOTH *COMPASS*
03923  M01S00541.ns2011  +++|*         AND *SYMPL* DECLARATIONS SHOULD ENSURE THAT THE VARIABLE IS
03924  M00S02937.cpcom   +++|*         DEFINED TO HAVE THE SAME VALUE IN BOTH LANGUAGES.

Seq #  *Modification Id* Act 
----------------------------+
03925  M01S02938.ns2011  ---|#DEF#     SPACE  4,10

Seq #  *Modification Id* Act 
----------------------------+
03926  M01S00542.ns2011  +++| #DEF#    SPACE  4,10
03927  M00S02939.cpcom   +++|***       #DEF# - DEFINE *SYMPL*/*COMPASS* VARIABLE.
03928  M00S02940.cpcom   +++|*
03929  M00S02941.cpcom   +++|* #NAMEC  #DEF#  VALUE       # NAMES #VALUE#;
03930  M00S02942.cpcom   +++|*         NAMEC = THE *COMPASS* NAME OF A VARIABLE.
03931  M00S02943.cpcom   +++|*         NAMES = THE *SYMPL* NAME OF THE SAME VARIABLE.
03932  M00S02944.cpcom   +++|*         VALUE = THE VALUE TO BE ASSIGNED TO THE VARIABLE.  BOTH
03933  M00S02945.cpcom   +++|*                 INSTANCES MUST HAVE THE SAME NUMERIC VALUE, ALTHOUGH
03934  M00S02946.cpcom   +++|*                 THEIR REPRESENTATIONS MAY DIFFER (E.G. 16D VS. 16,
03935  M00S02947.cpcom   +++|*                 OR 32B VS. O"32").
03936  M00S02948.cpcom   +++|
03937  M00S02949.cpcom   +++|
03938  M00S02950.cpcom   +++|          PURGMAC #DEF#
03939  M00S02951.cpcom   +++|
03940  M00S02952.cpcom   +++|          MACRO  #DEF#,N,V

Seq #  *Modification Id* Act 
----------------------------+
03941  M01S02953.cpcom8  ---| .1 MICRO 2,,$N$

Seq #  *Modification Id* Act 
----------------------------+
03942  M01S00001.cpcom8  +++| .1 MICRO 2,, N
03943  M00S02954.cpcom   +++| ".1" EQU V
03944  M00S02955.cpcom   +++| #DEF#    ENDM
03945  M00S02956.cpcom   +++|