Common CPCOM Part 001

25 Modifications

Seq #  *Modification Id* Act 
----------------------------+
01223  M01S00929.cpcom   +++|*         ARE THEN USED BY THE *=1* MACRO FOR GENERATION OF THE
01224  M01S00930.cpcom   +++|*         RESULTANT FET.
01225  M01S00931.cpcom   +++|
01226  M01S00932.cpcom   +++|
01227  M01S00933.cpcom   +++|          PURGMAC =1A
01228  M01S00934.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
01229  M02S00935.cpcom6  ---| =1A      MACRO  FL,UP,EP,XX,A,B

Seq #  *Modification Id* Act 
----------------------------+
01230  M02S00011.ns2599  ---| =1A      MACRO  FL,UP,EP,RT,XX,A,B
01231  M01S00015.ns2599  +++| =1A      MACRO  FL,SA,UP,EP,RT,IP,XX,A,B
01232  M01S00936.cpcom   +++|)1 MICRO 1,3, A
01233  M01S00937.cpcom   +++|)2 MICRO 5,, A
01234  M01S00938.cpcom   +++|  IF -MIC,=1")1"
01235  M01S00939.cpcom   +++|  ERR - ILLEGAL FET PARAMETER (")1").
01236  M01S00940.cpcom   +++|  ELSE 1

Seq #  *Modification Id* Act 
----------------------------+
01237  M02S00941.cpcom6  ---|  =1")1" FL,")2",B,UP,EP,XX

Seq #  *Modification Id* Act 
----------------------------+
01238  M02S00012.ns2599  ---|  =1")1" FL,")2",B,UP,EP,RT,XX
01239  M01S00016.ns2599  +++|  =1")1" FL,")2",B,UP,EP,RT,XX,IP,SA
01240  M01S00942.cpcom   +++|  ENDM
01241  M01S00943.cpcom   +++|
01242  M01S00944.cpcom   +++|
01243  M01S00945.cpcom   +++|          PURGMAC =1B
01244  M01S00946.cpcom   +++|
01245  M01S00947.cpcom   +++| =1B      MACRO  FL,LEN,M,S
01246  M01S00948.cpcom   +++|FL MAX FL,LEN
01247  M01S00949.cpcom   +++|  ECHO 1,A=(M),B=(S)
01248  M01S00950.cpcom   +++|=1_A MICRO 1,, B
01249  M01S00951.cpcom   +++|  ENDM
01250  M01S00952.cpcom   +++|          SPACE  4,10
01251  M01S00953.cpcom   +++|**        PARAMETER PROCESSING MACROS.
01252  M01S00954.cpcom   +++|
01253  M01S00955.cpcom   +++|          PURGMAC =1DSC
01254  M01S00956.cpcom   +++|
01255  M01S00957.cpcom   +++| =1DSC    MACRO

Seq #  *Modification Id* Act 
----------------------------+
01256  M02S00958.ns2011  ---|*                            VALID PARAMETER BUT A NO-OP.
01257  M01S00216.ns2011  +++|*         VALID PARAMETER BUT A NO-OP.
01258  M01S00959.cpcom   +++|  ENDM
01259  M01S00960.cpcom   +++|
01260  M01S00961.cpcom   +++|
01261  M01S00962.cpcom   +++|          PURGMAC =1DTY
01262  M01S00963.cpcom   +++|
01263  M01S00964.cpcom   +++| =1DTY    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01264  M02S00965.ns2011  ---|*                            SET DEVICE TYPE IN FET+1.
01265  M01S00217.ns2011  +++|*         SET DEVICE TYPE IN FET+1.
01266  M01S00966.cpcom   +++|  =1B FL,,DTY,A
01267  M01S00967.cpcom   +++|  ENDM
01268  M01S00968.cpcom   +++|
01269  M01S00969.cpcom   +++|
01270  M01S00970.cpcom   +++|          PURGMAC =1EPR
01271  M01S00971.cpcom   +++|
01272  M01S00972.cpcom   +++| =1EPR    MACRO  FL,A,B,UP,EP

Seq #  *Modification Id* Act 
----------------------------+
01273  M02S00973.ns2011  ---|*                            SET ERROR PROCESSING FLAG BIT.
01274  M01S00218.ns2011  +++|*         SET ERROR PROCESSING FLAG BIT.
01275  M01S00974.cpcom   +++|EP SET 1
01276  M01S00975.cpcom   +++|  ENDM
01277  M01S00976.cpcom   +++|
01278  M01S00977.cpcom   +++|
01279  M01S00978.cpcom   +++|          PURGMAC =1FET
01280  M01S00979.cpcom   +++|
01281  M01S00980.cpcom   +++| =1FET    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01282  M02S00981.ns2011  ---|*                            SET FET LENGTH AS SPECIFIED.
01283  M01S00219.ns2011  +++|*         SET FET LENGTH AS SPECIFIED.
01284  M01S00982.cpcom   +++|  =1B FL,A
01285  M01S00983.cpcom   +++|  ENDM
01286  M01S00984.cpcom   +++|
01287  M01S00985.cpcom   +++|
01288  M01S00986.cpcom   +++|          PURGMAC =1IND
01289  M01S00987.cpcom   +++|
01290  M01S00988.cpcom   +++| =1IND    MACRO  FL,A,B

Seq #  *Modification Id* Act 
----------------------------+
01291  M02S00989.ns2011  ---|*                            SET INDEX ADDRESS AND LENGTH.
01292  M01S00220.ns2011  +++|*         SET INDEX ADDRESS AND LENGTH.
01293  M01S00990.cpcom   +++|  =1B FL,8D,(INF,INL),(A,B)
01294  M01S00017.ns2599  +++|  ENDM
01295  M01S00018.ns2599  +++|
01296  M01S00019.ns2599  +++|
01297  M01S00020.ns2599  +++|          PURGMAC =1IPR
01298  M01S00021.ns2599  +++|
01299  M01S00022.ns2599  +++| =1IPR    MACRO  FL,A,B,UP,EP,RT,XX,IP
01300  M01S00023.ns2599  +++|*         SET INTERLOCK PROCESSING FLAG BIT.
01301  M01S00024.ns2599  +++|IP SET 1
01302  M01S00991.cpcom   +++|  ENDM
01303  M01S00992.cpcom   +++|
01304  M01S00993.cpcom   +++|
01305  M01S00994.cpcom   +++|          PURGMAC =1LBL
01306  M01S00995.cpcom   +++|
01307  M01S00996.cpcom   +++| =1LBL    MACRO  FL

Seq #  *Modification Id* Act 
----------------------------+
01308  M02S00997.ns2011  ---|*                            SET FET LENGTH TO 13D.
01309  M01S00221.ns2011  +++|*         SET FET LENGTH TO 13D.
01310  M01S00998.cpcom   +++|  =1B FL,13D
01311  M01S00999.cpcom   +++|  ENDM
01312  M01S01000.cpcom   +++|
01313  M01S01001.cpcom   +++|
01314  M01S01002.cpcom   +++|          PURGMAC =1OWN
01315  M01S01003.cpcom   +++|
01316  M01S01004.cpcom   +++| =1OWN    MACRO  FL,A,B,UP,EP

Seq #  *Modification Id* Act 
----------------------------+
01317  M02S01005.ns2011  ---|*                            SET OWN CODE PROCESSOR ADDRESSES.
01318  M01S00222.ns2011  +++|*         SET OWN CODE PROCESSOR ADDRESSES.
01319  M01S01006.cpcom   +++|  =1B FL,9D,(EOI,ERR),(A,B)
01320  M01S01007.cpcom   +++|  IFC NE,  B ,2
01321  M01S01008.cpcom   +++|  IFC NE, 0 B ,1
01322  M01S01009.cpcom   +++|EP SET 1
01323  M01S01010.cpcom   +++|  ENDIF
01324  M01S01011.cpcom   +++|  ENDM
01325  M01S01012.cpcom   +++|
01326  M01S01013.cpcom   +++|
01327  M01S01014.cpcom   +++|          PURGMAC =1PFN
01328  M01S01015.cpcom   +++|
01329  M01S01016.cpcom   +++| =1PFN    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01330  M02S01017.ns2011  ---|*                            SET PERMANENT FILE NAME IN FET.
01331  M01S00223.ns2011  +++|*         SET PERMANENT FILE NAME IN FET.
01332  M01S01018.cpcom   +++|.1 MICRO 1,5, A
01333  M01S01019.cpcom   +++|.2 MICRO 6,, A
01334  M01S01020.cpcom   +++|  =1B FL,9D,(PFN,PFO),(".1",".2")
01335  M01S01021.cpcom   +++|  ENDM
01336  M01S01022.cpcom   +++|
01337  M01S01023.cpcom   +++|
01338  M01S01024.cpcom   +++|          PURGMAC =1PKN
01339  M01S01025.cpcom   +++|
01340  M01S01026.cpcom   +++| =1PKN    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01341  M02S01027.ns2011  ---|*                            SET PERMANENT FILE PACK NAME.
01342  M01S00224.ns2011  +++|*         SET PERMANENT FILE PACK NAME.
01343  M01S01028.cpcom   +++|  =1B FL,13D,PKN,A
01344  M01S01029.cpcom   +++|  ENDM
01345  M01S01030.cpcom   +++|
01346  M01S01031.cpcom   +++|
01347  M01S01032.cpcom   +++|          PURGMAC =1PWD
01348  M01S01033.cpcom   +++|
01349  M01S01034.cpcom   +++| =1PWD    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01350  M02S01035.ns2011  ---|*                            SET PERMANENT FILE PASSWORD.
01351  M01S00225.ns2011  +++|*         SET PERMANENT FILE PASSWORD.
01352  M01S01036.cpcom   +++|  =1B FL,11D,PWD,A
01353  M01S01037.cpcom   +++|  ENDM
01354  M01S01038.cpcom   +++|
01355  M01S01039.cpcom   +++|
01356  M01S00013.cpcom6  +++|          PURGMAC  =1RTP
01357  M01S00014.cpcom6  +++|
01358  M01S00015.cpcom6  +++| =1RTP    MACRO  FL,A,B,UP,EP,RT
01359  M01S00016.cpcom6  +++|*         SET REAL-TIME BIT.
01360  M01S00017.cpcom6  +++|RT SET 1
01361  M01S00018.cpcom6  +++|  ENDM
01362  M01S00019.cpcom6  +++|
01363  M01S00020.cpcom6  +++|
01364  M01S00025.ns2599  +++|          PURGMAC =1SAD
01365  M01S00026.ns2599  +++|
01366  M01S00027.ns2599  +++| =1SAD    MACRO  FL,A,B,UP,EP,RT,XX,IP,SA
01367  M01S00028.ns2599  +++|*         SET *SUPPRESS ADDRESS* FLAG BIT.
01368  M01S00029.ns2599  +++|SA SET 1
01369  M01S00030.ns2599  +++|  ENDM
01370  M01S00031.ns2599  +++|
01371  M01S00032.ns2599  +++|
01372  M01S01040.cpcom   +++|          PURGMAC =1UCW
01373  M01S01041.cpcom   +++|
01374  M01S01042.cpcom   +++| =1UCW    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01375  M02S01043.ns2011  ---|*                            SET PERMANENT FILE USER CONTROL WORD.
01376  M01S00226.ns2011  +++|*         SET PERMANENT FILE USER CONTROL WORD.
01377  M01S01044.cpcom   +++|  =1B FL,12D,UCW,A
01378  M01S01045.cpcom   +++|  ENDM
01379  M01S01046.cpcom   +++|
01380  M01S01047.cpcom   +++|
01381  M01S01048.cpcom   +++|          PURGMAC =1UPR
01382  M01S01049.cpcom   +++|
01383  M01S01050.cpcom   +++| =1UPR    MACRO  FL,A,B,UP

Seq #  *Modification Id* Act 
----------------------------+
01384  M02S01051.ns2011  ---|*                            SET *UP* BIT IN FET+1.
01385  M01S00227.ns2011  +++|*         SET *UP* BIT IN FET+1.
01386  M01S01052.cpcom   +++|UP SET 1
01387  M01S01053.cpcom   +++|  ENDM
01388  M01S01054.cpcom   +++|
01389  M01S01055.cpcom   +++|
01390  M01S01056.cpcom   +++|          PURGMAC =1USN
01391  M01S01057.cpcom   +++|
01392  M01S01058.cpcom   +++| =1USN    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01393  M02S01059.ns2011  ---|*                            SET PERMANENT FILE USER NUMBER IN FET.
01394  M01S00228.ns2011  +++|*         SET PERMANENT FILE USER NUMBER IN FET.
01395  M01S01060.cpcom   +++|  =1B FL,10D,USN,A
01396  M01S01061.cpcom   +++|  ENDM
01397  M01S01062.cpcom   +++|
01398  M01S01063.cpcom   +++|
01399  M01S01064.cpcom   +++|          PURGMAC =1WSA
01400  M01S01065.cpcom   +++|
01401  M01S01066.cpcom   +++| =1WSA    MACRO  FL,A,B

Seq #  *Modification Id* Act 
----------------------------+
01402  M02S01067.ns2011  ---|*                            SET WORKING STORAGE BUFFER ADDRESSES.
01403  M01S00229.ns2011  +++|*         SET WORKING STORAGE BUFFER ADDRESSES.
01404  M01S01068.cpcom   +++|  =1B FL,6D,(WSF,WSL),(A,B)
01405  M01S01069.cpcom   +++|  ENDM
01406  M01S01070.cpcom   +++|
01407  M01S01071.cpcom   +++|
01408  M01S01072.cpcom   +++|          PURGMAC =1XL
01409  M01S01073.cpcom   +++|

Seq #  *Modification Id* Act 
----------------------------+
01410  M02S01074.cpcom6  ---| =1XL     MACRO  FL,A,B,UP,EP,XX
01411  M01S00021.cpcom6  +++| =1XL     MACRO  FL,A,B,UP,EP,RT,XX

Seq #  *Modification Id* Act 
----------------------------+
01412  M02S01075.ns2011  ---|*                            SET FET LENGTH TO 13D AND *XL* FLAG BIT
01413  M01S00230.ns2011  +++|*         SET FET LENGTH TO 13D AND *XL* FLAG BIT.
01414  M01S01076.cpcom   +++|  =1B FL,13D
01415  M01S01077.cpcom   +++|XX SET 1
01416  M01S01078.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01417  M02S01079.ns2011  ---| FILEB    SPACE  4
01418  M01S00231.ns2011  +++| FILEB    SPACE  4,10
01419  M01S01080.cpcom   +++|***       FILEB - CREATE FET FOR BINARY SEQUENTIAL FILE.

Seq #  *Modification Id* Act 
----------------------------+
01420  M02S01081.ns2011  ---|*
01421  M01S01082.cpcom   +++|*
01422  M01S01083.cpcom   +++|*LFN      FILEB  FWA,LENGTH,A,B,C,...,P
01423  M01S01084.cpcom   +++|
01424  M01S01085.cpcom   +++|
01425  M01S01086.cpcom   +++|          PURGMAC FILEB
01426  M01S01087.cpcom   +++|
01427  M01S01088.cpcom   +++|          MACRO  FILEB,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01428  M01S01089.cpcom   +++|  =1 1,0,5D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01429  M01S01090.cpcom   +++|,,(M),(N),(O),(P))
01430  M01S01091.cpcom   +++|  MACREF FILEB
01431  M01S01092.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01432  M02S01093.ns2011  ---| FILEC    SPACE  4
01433  M01S00232.ns2011  +++| FILEC    SPACE  4,10
01434  M01S01094.cpcom   +++|***       FILEC - CREATE FET FOR CODED SEQUENTIAL FILE.

Seq #  *Modification Id* Act 
----------------------------+
01435  M02S01095.ns2011  ---|*
01436  M01S01096.cpcom   +++|*
01437  M01S01097.cpcom   +++|*LFN      FILEC  FWA,LENGTH,A,B,C,...,P
01438  M01S01098.cpcom   +++|
01439  M01S01099.cpcom   +++|
01440  M01S01100.cpcom   +++|          PURGMAC FILEC
01441  M01S01101.cpcom   +++|
01442  M01S01102.cpcom   +++|          MACRO  FILEC,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01443  M01S01103.cpcom   +++|  =1 0,0,5D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01444  M01S01104.cpcom   +++|,,(M),(N),(O),(P))
01445  M01S01105.cpcom   +++|  MACREF FILEC
01446  M01S01106.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01447  M02S01107.ns2011  ---| RFILEB   SPACE  4
01448  M01S00233.ns2011  +++| RFILEB   SPACE  4,10
01449  M01S01108.cpcom   +++|***       RFILEB - CREATE FET FOR BINARY RANDOM FILE.

Seq #  *Modification Id* Act 
----------------------------+
01450  M02S01109.ns2011  ---|*
01451  M01S01110.cpcom   +++|*
01452  M01S01111.cpcom   +++|*LFN      RFILEB FWA,LENGTH,A,B,C,...,P
01453  M01S01112.cpcom   +++|
01454  M01S01113.cpcom   +++|
01455  M01S01114.cpcom   +++|          PURGMAC RFILEB
01456  M01S01115.cpcom   +++|
01457  M01S01116.cpcom   +++|          MACRO  RFILEB,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01458  M01S01117.cpcom   +++|  =1 1,1,8D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01459  M01S01118.cpcom   +++|,,(M),(N),(O),(P))
01460  M01S01119.cpcom   +++|  MACREF RFILEB
01461  M01S01120.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01462  M02S01121.ns2011  ---| RFILEC   SPACE  4
01463  M01S00234.ns2011  +++| RFILEC   SPACE  4,10
01464  M01S01122.cpcom   +++|***       RFILEC - CREATE FET FOR CODED RANDOM FILE.

Seq #  *Modification Id* Act 
----------------------------+
01465  M02S01123.ns2011  ---|*
01466  M01S01124.cpcom   +++|*
01467  M01S01125.cpcom   +++|*LFN      RFILEC FWA,LENGTH,A,B,C,...,P
01468  M01S01126.cpcom   +++|
01469  M01S01127.cpcom   +++|
01470  M01S01128.cpcom   +++|          PURGMAC RFILEC
01471  M01S01129.cpcom   +++|
01472  M01S01130.cpcom   +++|          MACRO  RFILEC,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01473  M01S01131.cpcom   +++|  =1 0,1,8D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01474  M01S01132.cpcom   +++|,,(M),(N),(O),(P))
01475  M01S01133.cpcom   +++|  MACREF RFILEC
01476  M01S01134.cpcom   +++|  ENDM
01477  M01S01135.cpcom   +++|          TITLE  LOCAL FILE ACTION MACROS.

Seq #  *Modification Id* Act 
----------------------------+
01478  M02S01136.ns2011  ---| FILE     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01479  M02S01137.ns2011  ---|***              FILE ACTION REQUESTS FORMAT REQUESTS INTO X REGISTERS

Seq #  *Modification Id* Act 
----------------------------+
01480  M02S01138.ns2011  ---|*         AND RETURN JUMP TO SUBROUTINES FOR PROCESSING.
01481  M01S00235.ns2011  +++| FILE     SPACE  4,20
01482  M01S00236.ns2011  +++|***       FILE ACTION REQUESTS FORMAT REQUESTS INTO X REGISTERS AND
01483  M01S00237.ns2011  +++|*         RETURN JUMP TO SUBROUTINES FOR PROCESSING.
01484  M01S01139.cpcom   +++|*
01485  M01S01140.cpcom   +++|*         THE FOLLOWING INFORMATION APPLIES TO ALL I/O FUNCTION
01486  M01S01141.cpcom   +++|*         REQUESTS -
01487  M01S01142.cpcom   +++|*
01488  M01S01143.cpcom   +++|*                THE PARAMETER *FILE* IS THE ADDRESS OF THE FET
01489  M01S01144.cpcom   +++|*                IS USED TO CONTROL THE FILE FOR WHICH THE OPERATION
01490  M01S01145.cpcom   +++|*                IS REQUESTED.
01491  M01S01146.cpcom   +++|*
01492  M01S01147.cpcom   +++|*                IF THE PARAMETER *RECALL* IS PRESENT IN THE MACRO
01493  M01S01148.cpcom   +++|*                CALL, CONTROL WILL BE RETURNED TO THE USER PROGRAM
01494  M01S01149.cpcom   +++|*                WHEN THE REQUESTED FUNCTION IS COMPLETE.  IF
01495  M01S01150.cpcom   +++|*                *RECALL* IS NOT SPECIFIED, CONTROL WILL BE RETURNED
01496  M01S01151.cpcom   +++|*                WHEN THE OPERATION IS REQUESTED.
01497  M01S01152.cpcom   +++|*
01498  M01S01153.cpcom   +++|*         ENTRY  COMMON DECK

Seq #  *Modification Id* Act 
----------------------------+
01499  M02S01154.ns2011  ---|*         CIO=   COMCCIO

Seq #  *Modification Id* Act 
----------------------------+
01500  M02S01155.ns2011  ---|*         LFM=   COMCLFM

Seq #  *Modification Id* Act 
----------------------------+
01501  M02S01156.ns2011  ---|          SPACE  4
01502  M01S00238.ns2011  +++|*                CIO=  *COMCCIO*
01503  M01S00239.ns2011  +++|*                LFM=  *COMCLFM*
01504  M01S00240.ns2011  +++|          SPACE  4,10
01505  M01S01157.cpcom   +++|**        BASIC I/O FUNCTION REQUEST MACROS.
01506  M01S01158.cpcom   +++|
01507  M01S01159.cpcom   +++|
01508  M01S01160.cpcom   +++|          PURGMAC =2
01509  M01S01161.cpcom   +++|
01510  M01S01162.cpcom   +++| =2       MACRO  F,L,O
01511  M01S01163.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
01512  M02S01164.ns2011  ---|*                            (X7) = OPCODE

Seq #  *Modification Id* Act 
----------------------------+
01513  M02S01165.ns2011  ---|*                            (X7) = -OPCODE IF RECALL REQUESTED
01514  M01S00241.ns2011  +++|*         (X7) = OPCODE.
01515  M01S00242.ns2011  +++|*         (X7) = -OPCODE IF RECALL REQUESTED.
01516  M01S01166.cpcom   +++|  IFC EQ,$L$$
01517  M01S01167.cpcom   +++|  SX7 O
01518  M01S01168.cpcom   +++|  ELSE 1
01519  M01S01169.cpcom   +++|  SX7 -O

Seq #  *Modification Id* Act 
----------------------------+
01520  M02S01170.ns2011  ---|*                            PROCESS REQUEST
01521  M01S00243.ns2011  +++|*         PROCESS REQUEST.
01522  M01S01171.cpcom   +++|  RJ =XCIO=
01523  M01S01172.cpcom   +++|  ENDM
01524  M01S01173.cpcom   +++|          SPACE  4,10
01525  M01S01174.cpcom   +++|          PURGMAC =2A
01526  M01S01175.cpcom   +++|
01527  M01S01176.cpcom   +++| =2A      MACRO  F,C
01528  M01S01177.cpcom   +++|  R= X2,F
01529  M01S00001.cpcom1  +++|  RECALL X2
01530  M01S01178.cpcom   +++|  MX7 1
01531  M01S01179.cpcom   +++|  BX2 X7+X2
01532  M01S01180.cpcom   +++|  SX7 C
01533  M01S01181.cpcom   +++|  RJ =XCIO=
01534  M01S01182.cpcom   +++|  ENDM
01535  M01S01183.cpcom   +++| ASSIGN   SPACE  4,15
01536  M01S01184.cpcom   +++|***       ASSIGN - ASSIGN SYSTEM OR LIBRARY FILE TO JOB.
01537  M01S01185.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01538  M02S01186.ns2011  ---|*
01539  M01S01187.cpcom   +++|*         ASSIGN FILE,LIBRARY
01540  M01S01188.cpcom   +++|*
01541  M01S01189.cpcom   +++|*         ENTRY  *LIBRARY* IS PRESENT, FILE WILL BE ASSIGNED FROM
01542  M01S01190.cpcom   +++|*                SYSTEM LIBRARY IF AVAILABLE.
01543  M01S01191.cpcom   +++|*                *LIBRARY* NOT PRESENT, *SYSTEM* FILE WILL
01544  M01S01192.cpcom   +++|*                BE ASSIGNED IF SYSTEM ORIGIN JOB OR USER
01545  M01S01193.cpcom   +++|*                IS ALLOWED TO ACCESS *SYSTEM* FILE.
01546  M01S01194.cpcom   +++|*
01547  M01S01195.cpcom   +++|*         CALLS  LFM=.
01548  M01S01196.cpcom   +++|
01549  M01S01197.cpcom   +++|
01550  M01S01198.cpcom   +++|          PURGMAC ASSIGN
01551  M01S01199.cpcom   +++|
01552  M01S01200.cpcom   +++| ASSIGN   MACRO  F,L
01553  M01S01201.cpcom   +++|  MACREF ASSIGN
01554  M01S01202.cpcom   +++|  R= X2,F
01555  M01S01203.cpcom   +++|  IFC EQ,$L$$
01556  M01S01204.cpcom   +++|  MX6 1
01557  M01S01205.cpcom   +++|  LX6 1+18D
01558  M01S01206.cpcom   +++|  BX2 X2+X6
01559  M01S01207.cpcom   +++|  ENDIF
01560  M01S01208.cpcom   +++|  SX7 20B
01561  M01S01209.cpcom   +++|  RJ =XLFM=
01562  M01S01210.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01563  M02S01211.ns2011  ---| BKSP     SPACE  4
01564  M01S00244.ns2011  +++| BKSP     SPACE  4,10
01565  M01S01212.cpcom   +++|***       BKSP - BACKSPACE 1 LOGICAL RECORD.
01566  M01S01213.cpcom   +++|*
01567  M01S00245.ns2011  +++|*         BKSP   FILE,RECALL
01568  M01S01214.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01569  M02S01215.ns2011  ---|*         BKSP   FILE,RECALL
01570  M01S01216.cpcom   +++|*         CALLS  CIO=.
01571  M01S01217.cpcom   +++|
01572  M01S01218.cpcom   +++|
01573  M01S01219.cpcom   +++|          PURGMAC BKSP
01574  M01S01220.cpcom   +++|
01575  M01S01221.cpcom   +++| BKSP     MACRO  F,L
01576  M01S01222.cpcom   +++|  MACREF BKSP
01577  M01S01223.cpcom   +++|  =2 F,L,40B
01578  M01S01224.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01579  M02S01225.ns2011  ---| BKSPRU   SPACE  4
01580  M01S00246.ns2011  +++| BKSPRU   SPACE  4,10
01581  M01S01226.cpcom   +++|***       BKSPRU - BACKSPACE PHYSICAL RECORDS.
01582  M01S01227.cpcom   +++|*
01583  M01S00247.ns2011  +++|*         BKSPRU FILE,N,RECALL
01584  M01S01228.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01585  M02S01229.ns2011  ---|*         BKSPRU FILE,N,RECALL
01586  M01S01230.cpcom   +++|*         ENTRY  *N* = RECORD COUNT.
01587  M01S00248.ns2011  +++|*
01588  M01S01231.cpcom   +++|*         CALLS  CIO=.
01589  M01S01232.cpcom   +++|
01590  M01S01233.cpcom   +++|
01591  M01S01234.cpcom   +++|          PURGMAC BKSPRU
01592  M01S01235.cpcom   +++|
01593  M01S01236.cpcom   +++| BKSPRU   MACRO  F,N,L
01594  M01S01237.cpcom   +++|  MACREF BKSPRU
01595  M01S01238.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
01596  M02S01239.cpcom2  ---|  IFNE N,,3
01597  M01S00001.cpcom2  +++|.A IFNE N,0
01598  M01S01240.cpcom   +++|  R= X1,N
01599  M01S00002.cpcom2  +++|  MX7 -18
01600  M01S00003.cpcom2  +++|  BX1 -X7*X1
01601  M01S01241.cpcom   +++|  LX1 18D
01602  M01S01242.cpcom   +++|  BX2 X1+X2
01603  M01S00004.cpcom2  +++|.A ENDIF
01604  M01S01243.cpcom   +++|  IFC EQ,$L$$
01605  M01S01244.cpcom   +++|  SX7 44B
01606  M01S01245.cpcom   +++|  ELSE 1
01607  M01S01246.cpcom   +++|  SX7 -44B
01608  M01S01247.cpcom   +++|  RJ =XCIO=
01609  M01S01248.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01610  M02S01249.ns2011  ---| CLOSE    SPACE  4
01611  M01S00249.ns2011  +++| CLOSE    SPACE  4,15
01612  M01S01250.cpcom   +++|***       CLOSE - CLOSE FILE.
01613  M01S01251.cpcom   +++|*
01614  M01S00250.ns2011  +++|*         CLOSE  FILE,TYPE,RECALL
01615  M01S01252.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01616  M02S01253.ns2011  ---|*         CLOSE  FILE,TYPE,RECALL
01617  M01S01254.cpcom   +++|*         ENTRY  *TYPE* AS FOLLOWS -
01618  M01S01255.cpcom   +++|*                NR          DO NOT REWIND FILE
01619  M01S01256.cpcom   +++|*                UNLOAD      UNLOAD FILE
01620  M01S01257.cpcom   +++|*                RETURN      RETURN FILE
01621  M01S01258.cpcom   +++|*                REWIND      REWIND FILE
01622  M01S00251.ns2011  +++|*
01623  M01S01259.cpcom   +++|*         CALLS  CIO=.
01624  M01S01260.cpcom   +++|
01625  M01S01261.cpcom   +++|
01626  M01S01262.cpcom   +++|          PURGMAC CLOSE
01627  M01S01263.cpcom   +++|
01628  M01S01264.cpcom   +++| CLOSE    MACRO  F,T,L
01629  M01S01265.cpcom   +++|          LOCAL  A
01630  M01S01266.cpcom   +++|  MACREF CLOSE
01631  M01S01267.cpcom   +++|  R= X2,F
01632  M01S01268.cpcom   +++|A SET 0
01633  M01S01269.cpcom   +++|  ECHO 3,B=(,NR,UNLOAD,RETURN,REWIND),C=(150B,130B,170B,174B,150B)
01634  M01S01270.cpcom   +++|  IFC EQ,$B$T$,2
01635  M01S01271.cpcom   +++|  STOPDUP
01636  M01S01272.cpcom   +++|A SET C
01637  M01S01273.cpcom   +++|  IFEQ A,,1
01638  M01S01274.cpcom   +++|  ERR ILLEGAL CLOSE TYPE - T
01639  M01S01275.cpcom   +++|  IFC EQ,$L$$
01640  M01S01276.cpcom   +++|  SX7 A
01641  M01S01277.cpcom   +++|  ELSE 1
01642  M01S01278.cpcom   +++|  SX7 -A
01643  M01S01279.cpcom   +++|  RJ =XCIO=
01644  M01S01280.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01645  M02S01281.ns2011  ---| CLOSER   SPACE  4
01646  M01S00252.ns2011  +++| CLOSER   SPACE  4,10
01647  M01S01282.cpcom   +++|***       CLOSER - CLOSE MAGNETIC TAPE REEL.
01648  M01S01283.cpcom   +++|*
01649  M01S00253.ns2011  +++|*         CLOSER FILE,TYPE,RECALL
01650  M01S01284.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01651  M02S01285.ns2011  ---|*         CLOSER FILE,TYPE,RECALL
01652  M01S01286.cpcom   +++|*         ENTRY  *TYPE* AS FOLLOWS -
01653  M01S01287.cpcom   +++|*                NR          DO NOT REWIND
01654  M01S01288.cpcom   +++|*                UNLOAD      UNLOAD
01655  M01S01289.cpcom   +++|*                IF ABSENT   REWIND
01656  M01S00001.ns2106  +++|*                RETURN      RETURN
01657  M01S00254.ns2011  +++|*
01658  M01S01290.cpcom   +++|*         CALLS  CIO=.
01659  M01S01291.cpcom   +++|
01660  M01S01292.cpcom   +++|
01661  M01S01293.cpcom   +++|          PURGMAC CLOSER
01662  M01S01294.cpcom   +++|
01663  M01S01295.cpcom   +++| CLOSER   MACRO  F,T,L
01664  M01S01296.cpcom   +++|          LOCAL  A
01665  M01S01297.cpcom   +++|  MACREF CLOSER
01666  M01S01298.cpcom   +++|  R= X2,F
01667  M01S01299.cpcom   +++|A SET 0

Seq #  *Modification Id* Act 
----------------------------+
01668  M02S01300.ns2106  ---|  ECHO 3,B=(,NR,UNLOAD),C=(350B,330B,370B)
01669  M01S00002.ns2106  +++|  ECHO 3,B=(,NR,UNLOAD,RETURN),C=(350B,330B,370B,374B)
01670  M01S01301.cpcom   +++|  IFC EQ,$B$T$,2
01671  M01S01302.cpcom   +++|  STOPDUP
01672  M01S01303.cpcom   +++|A SET C
01673  M01S01304.cpcom   +++|  IFEQ A,,1
01674  M01S01305.cpcom   +++|  ERR ILLEGAL CLOSER TYPE - T
01675  M01S01306.cpcom   +++|  IFC EQ,$L$$
01676  M01S01307.cpcom   +++|  SX7 A
01677  M01S01308.cpcom   +++|  ELSE 1
01678  M01S01309.cpcom   +++|  SX7 -A
01679  M01S01310.cpcom   +++|  RJ =XCIO=
01680  M01S01311.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01681  M02S01312.ns2011  ---| EVICT    SPACE  4
01682  M01S00255.ns2011  +++| EVICT    SPACE  4,10
01683  M01S01313.cpcom   +++|***       EVICT - RELEASE FILE SPACE.
01684  M01S01314.cpcom   +++|*
01685  M01S00256.ns2011  +++|*         EVICT  FILE,RECALL
01686  M01S01315.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01687  M02S01316.ns2011  ---|*         EVICT  FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
01688  M02S01317.ns2011  ---|*         CALLS CIO=.
01689  M01S00257.ns2011  +++|*         CALLS  CIO=.
01690  M01S01318.cpcom   +++|
01691  M01S01319.cpcom   +++|
01692  M01S01320.cpcom   +++|          PURGMAC EVICT
01693  M01S01321.cpcom   +++|
01694  M01S01322.cpcom   +++| EVICT    MACRO  F,L
01695  M01S01323.cpcom   +++|  MACREF EVICT
01696  M01S01324.cpcom   +++|  =2 F,L,114B
01697  M01S01325.cpcom   +++|  ENDM
01698  M01S01326.cpcom   +++| FILINFO  SPACE  4,10
01699  M01S01327.cpcom   +++|***       FILINFO - RETURN SYSTEM INFORMATION ABOUT SPECIFIED FILE.
01700  M01S01328.cpcom   +++|*
01701  M01S00258.ns2011  +++|*         FILINFO ADDR
01702  M01S01329.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01703  M02S01330.ns2011  ---|*         FILINFO ADDR
01704  M01S01331.cpcom   +++|*         ENTRY  *ADDR* - ADDRESS OF PARAMETER BLOCK TO RECEIVE
01705  M01S01332.cpcom   +++|*                         INFORMATION.
01706  M01S01333.cpcom   +++|*
01707  M01S01334.cpcom   +++|*         CALLS  LFM=.
01708  M01S01335.cpcom   +++|
01709  M01S01336.cpcom   +++|
01710  M01S01337.cpcom   +++|          PURGMAC FILINFO
01711  M01S01338.cpcom   +++|
01712  M01S01339.cpcom   +++| FILINFO  MACRO  F
01713  M01S01340.cpcom   +++|  MACREF FILINFO
01714  M01S01341.cpcom   +++|  R= X2,F
01715  M01S01342.cpcom   +++|  SX7 32B
01716  M01S01343.cpcom   +++|  RJ =XLFM=
01717  M01S01344.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01718  M02S01345.ns2011  ---| LABEL    SPACE  4
01719  M01S00259.ns2011  +++| LABEL    SPACE  4,80
01720  M01S01346.cpcom   +++|***       LABEL - REQUEST AUTOMATIC MAGNETIC TAPE ASSIGNMENT.
01721  M01S01347.cpcom   +++|*
01722  M01S00260.ns2011  +++|*         LABEL  F
01723  M01S01348.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01724  M02S01349.ns2011  ---|*         LABEL  F
01725  M01S01350.cpcom   +++|*         ENTRY  *F* = FET ADDRESS
01726  M01S01351.cpcom   +++|*                FET+10B - FET+15B CONTAIN TAPE DESCRIPTORS AND
01727  M01S01352.cpcom   +++|*                LABEL INFORMATION IN THE FORMAT -
01728  M01S01353.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01729  M02S01354.cpcom12 ---|*T  FET+10B 1/R,1/L,1/N,1/T,2/ ,3/D,3/CV,12/PO,6/F,6/NS,24/FC

Figure FET+10

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "FC", "bits": 24, "type": 4 },
{ "name": "NS", "bits": 6, "type": 3 },
{ "name": "F", "bits": 6, "type": 2 },
{ "name": "PO", "bits": 12, "type": 1 },
{ "name": "CV", "bits": 3, "type": 0 },
{ "name": "D", "bits": 3, "type": 6 },
{ "name": " ", "bits": 2, "type": 5 },
{ "name": "T", "bits": 1, "type": 4 },
{ "name": "N", "bits": 1, "type": 3 },
{ "name": "L", "bits": 1, "type": 2 },
{ "name": "R", "bits": B 1, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01730  M01S00001.cpcom12 +++|*T  FET+10B 1/R,1/L,1/N,2/T,1/ ,3/D,3/CV,12/PO,6/F,6/NS,24/FC

Figure FET+10

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "FC", "bits": 24, "type": 4 },
{ "name": "NS", "bits": 6, "type": 3 },
{ "name": "F", "bits": 6, "type": 2 },
{ "name": "PO", "bits": 12, "type": 1 },
{ "name": "CV", "bits": 3, "type": 0 },
{ "name": "D", "bits": 3, "type": 6 },
{ "name": " ", "bits": 1, "type": 5 },
{ "name": "T", "bits": 2, "type": 4 },
{ "name": "N", "bits": 1, "type": 3 },
{ "name": "L", "bits": 1, "type": 2 },
{ "name": "R", "bits": B 1, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01731  M01S01355.cpcom   +++|*         R      LABEL PROCESSING
01732  M01S01356.cpcom   +++|*                0 = READ LABEL   FILE OPENED BY OPEN/ALTER
01733  M01S01357.cpcom   +++|*                1 = WRITE LABEL  FILE OPENED BY OPEN/WRITE
01734  M01S01358.cpcom   +++|*         L      NOS LABELED IF SET
01735  M01S01359.cpcom   +++|*         N      NON-STANDARD LABELS IF SET

Seq #  *Modification Id* Act 
----------------------------+
01736  M02S01360.cpcom12 ---|*         T      NINE TRACK IF SET, OTHERWISE SEVEN TRACK
01737  M01S00002.cpcom12 +++|*         T      TAPE DEVICE TYPE
01738  M01S00003.cpcom12 +++|*                0 = 7-TRACK             (MT)
01739  M01S00004.cpcom12 +++|*                1 = CARTRIDGE, NON-ACS  (CT)
01740  M01S00005.cpcom12 +++|*                2 = 9-TRACK             (NT)
01741  M01S00006.cpcom12 +++|*                3 = ACS CARTRIDGE       (AT)
01742  M01S01361.cpcom   +++|*         D      DENSITY
01743  M01S01362.cpcom   +++|*                0 = INSTALLATION DEFAULT
01744  M01S01363.cpcom   +++|*                1 = 556 BPI
01745  M01S01364.cpcom   +++|*                2 = 200 BPI
01746  M01S01365.cpcom   +++|*                3 = 800 BPI/CPI
01747  M01S01366.cpcom   +++|*                4 = 1600 CPI
01748  M01S01367.cpcom   +++|*                5 = 6250 CPI
01749  M01S00007.cpcom12 +++|*                6 = 38000 CPI
01750  M01S01368.cpcom   +++|*         CV     CONVERSION MODE
01751  M01S01369.cpcom   +++|*                0 = INSTALLATION DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
01752  M02S01370.ns2011  ---|*                1 = USASI/ASCII CONVERSION 9 TRACK
01753  M01S00261.ns2011  +++|*                1 = ASCII/USCII CONVERSION 9 TRACK
01754  M01S01371.cpcom   +++|*                2 = EBCDIC CONVERSION 9 TRACK
01755  M01S01372.cpcom   +++|*         PO     PROCESSING OPTIONS
01756  M01S01373.cpcom   +++|*                XXX0 = ABORT ON P.E. UNLESS E.P. SET
01757  M01S01374.cpcom   +++|*                XXX1 = ABORT ON P.E. REGARDLESS OF E.P.
01758  M01S01375.cpcom   +++|*                XXX2 = NO ABORT ON P.E.
01759  M01S01376.cpcom   +++|*                XXX4 = INHIBIT ERROR PROCESSING
01760  M01S01377.cpcom   +++|*                XX1X = ENFORCE RING OUT
01761  M01S01378.cpcom   +++|*                XX2X = ENFORCE RING IN
01762  M01S01379.cpcom   +++|*                XX4X = INHIBIT UNLOAD
01763  M01S01380.cpcom   +++|*                X1XX = DISABLE 6250 CPI WRITE ERROR CORRECTION
01764  M01S01381.cpcom   +++|*                X2XX = TOGGLE TAPE MESSAGES TO USER DAYFILE FLAG
01765  M01S01382.cpcom   +++|*                0XXX = DEFAULT EOT OPTION SELECTED ACCORDING TO
01766  M01S01383.cpcom   +++|*                       LABEL AND FORMAT SPECIFICATION
01767  M01S01384.cpcom   +++|*                1XXX = STOP ON TAPE MARK AFTER EOT (UNLABELED)
01768  M01S01385.cpcom   +++|*                1XXX = STOP ON TAPE MARK PLUS LABELS (LABELED)
01769  M01S01386.cpcom   +++|*                2XXX = ACCEPT BLOCK IN PROGRESS ON EOT
01770  M01S01387.cpcom   +++|*                4XXX = INGORE BLOCK IN PROGRESS ON EOT
01771  M01S01388.cpcom   +++|*         F      DATA FORMAT
01772  M01S01389.cpcom   +++|*                0 = INTERNAL BINARY
01773  M01S01390.cpcom   +++|*                1 = SYSTEM INTERNAL (NOS/BE COMPATIBLE)
01774  M01S01391.cpcom   +++|*                2 = FOREIGN
01775  M01S01392.cpcom   +++|*                3 = STRANGER
01776  M01S01393.cpcom   +++|*                4 = LONG RECORD STRANGER
01777  M01S00008.cpcom12 +++|*                5 = LONG RECORD INTERNAL BINARY
01778  M01S01394.cpcom   +++|*         NS     NOISE SIZE IN FRAMES
01779  M01S01395.cpcom   +++|*         FC     BLOCK SIZE IN FRAMES
01780  M01S01396.cpcom   +++|*
01781  M01S01397.cpcom   +++|*T  FET+11B 36/VSN,6/A,3/0,15/SN

Figure FET+11

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "SN", "bits": 15, "type": 4 },
{ "name": "0", "bits": 3, "type": 3 },
{ "name": "A", "bits": 6, "type": 2 },
{ "name": "VSN", "bits": B 36, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01782  M01S01398.cpcom   +++|*         VSN    6 CHARACTER VOLUME SERIAL NUMBER  (SPACE FILLED)
01783  M01S01399.cpcom   +++|*         A      1 CHARACTER ACCESSIBILITY  (DEFAULT = * *)
01784  M01S01400.cpcom   +++|*         SN     FILE SECTION NUMBER  (DEFAULT = 0001)
01785  M01S01401.cpcom   +++|*
01786  M01S01402.cpcom   +++|*T  FET+12B 60/FI

Figure FET+12

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "FI", "bits": B 60, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01787  M01S01403.cpcom   +++|*         FI     FIRST 10 CHARACTERS OF FILE IDENTIFIER
01788  M01S01404.cpcom   +++|*
01789  M01S01405.cpcom   +++|*T  FET+13B 42/FI,3/0,15/QN

Figure FET+13

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "QN", "bits": 15, "type": 3 },
{ "name": "0", "bits": 3, "type": 2 },
{ "name": "FI", "bits": B 42, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01790  M01S01406.cpcom   +++|*         FI     LAST 7 CHARACTERS OF FILE IDENTIFIER  (SPACE FILLED)
01791  M01S01407.cpcom   +++|*         QN     FILE SEQUENCE NUMBER  (DEFAULT = 0001)
01792  M01S01408.cpcom   +++|*
01793  M01S01409.cpcom   +++|*T  FET+14B 36/SI,9/E,15/G

Figure FET+14

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "G", "bits": 15, "type": 3 },
{ "name": "E", "bits": 9, "type": 2 },
{ "name": "SI", "bits": B 36, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01794  M01S01410.cpcom   +++|*         SI     6 CHARACTER MULTI-SET IDENTIFIER  (SPACE FILLED)
01795  M01S01411.cpcom   +++|*         E      GENERATION VERSION NUMBER  (DEFAULT = 00)
01796  M01S01412.cpcom   +++|*         G      GENERATION NUMBER  (DEFAULT = 0001)
01797  M01S01413.cpcom   +++|*
01798  M01S01414.cpcom   +++|*T  FET+15B 30/RTD,30/CRD

Figure FET+15

Bitfield Rendering Failure
======== ========= =======
The field description 
[
{ "name": "CRD", "bits": 30, "type": 2 },
{ "name": "RTD", "bits": B 30, "type": 1 }
]


 is invalid.

Please check your syntax and try again.

01799  M01S01415.cpcom   +++|*         RTD    RETENTION DATE (JULIAN)  (DEFAULT = TODAY)
01800  M01S01416.cpcom   +++|*         CRD    CREATION DATE (JULIAN)  (DEFAULT = TODAY)
01801  M01S01417.cpcom   +++|*
01802  M01S01418.cpcom   +++|*         FOR AUTOMATIC ASSIGNMENT, A VOLUME SERIAL NUMBER MUST BE

Seq #  *Modification Id* Act 
----------------------------+
01803  M02S01419.ns2011  ---|*         SUPPLIED EITHER THROUGH A *VSN* CONTROL CARD OR BY THE VSN

Seq #  *Modification Id* Act 
----------------------------+
01804  M02S01420.ns2011  ---|*         FIELD IN FET+11B.  IF THE VSN FIELD IS ZERO AND NO

Seq #  *Modification Id* Act 
----------------------------+
01805  M02S01421.ns2011  ---|*         VSN HAS BEEN SPECIFIED BY A VSN CARD, THE OPERATOR
01806  M01S00262.ns2011  +++|*         SUPPLIED EITHER THROUGH A *VSN* CONTROL STATEMENT OR BY THE
01807  M01S00263.ns2011  +++|*         VSN FIELD IN FET+11B.  IF THE VSN FIELD IS ZERO AND NO
01808  M01S00264.ns2011  +++|*         VSN HAS BEEN SPECIFIED BY A VSN STATEMENT, THE OPERATOR
01809  M01S01422.cpcom   +++|*         WILL BE REQUESTED TO ASSIGN THE APPROPRIATE EQUIPMENT.
01810  M01S01423.cpcom   +++|*
01811  M01S01424.cpcom   +++|*         CALLS  LFM=.
01812  M01S01425.cpcom   +++|
01813  M01S01426.cpcom   +++|
01814  M01S01427.cpcom   +++|          PURGMAC LABEL
01815  M01S01428.cpcom   +++|
01816  M01S01429.cpcom   +++| LABEL    MACRO  F
01817  M01S01430.cpcom   +++|  MACREF LABEL
01818  M01S01431.cpcom   +++|  R= X2,F
01819  M01S01432.cpcom   +++|  SX7 24B
01820  M01S01433.cpcom   +++|  RJ =XLFM=
01821  M01S01434.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01822  M02S01435.ns2011  ---| LOCK     SPACE  4
01823  M01S00265.ns2011  +++| LOCK     SPACE  4,10
01824  M01S01436.cpcom   +++|***       LOCK - SET WRITE LOCK OUT.
01825  M01S01437.cpcom   +++|*
01826  M01S00266.ns2011  +++|*         LOCK   FILE
01827  M01S01438.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01828  M02S01439.ns2011  ---|*         LOCK   FILE
01829  M01S01440.cpcom   +++|*         FILE MUST BE LOCAL OR PRIMARY.
01830  M01S00267.ns2011  +++|*
01831  M01S01441.cpcom   +++|*         CALLS  LFM=.
01832  M01S01442.cpcom   +++|
01833  M01S01443.cpcom   +++|
01834  M01S01444.cpcom   +++|          PURGMAC LOCK
01835  M01S01445.cpcom   +++|
01836  M01S01446.cpcom   +++| LOCK     MACRO  F
01837  M01S01447.cpcom   +++|  MACREF LOCK
01838  M01S01448.cpcom   +++|  R= X2,F
01839  M01S01449.cpcom   +++|  SX7 10B
01840  M01S01450.cpcom   +++|  RJ =XLFM=
01841  M01S01451.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01842  M02S01452.ns2011  ---| OPEN     SPACE  4
01843  M01S00268.ns2011  +++| OPEN     SPACE  4,20
01844  M01S01453.cpcom   +++|***       OPEN - OPEN FILE FOR PROCESSING.
01845  M01S01454.cpcom   +++|*
01846  M01S00269.ns2011  +++|*         OPEN   FILE,TYPE,RECALL
01847  M01S01455.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01848  M02S01456.ns2011  ---|*         OPEN   FILE,TYPE,RECALL
01849  M01S01457.cpcom   +++|*         ENTRY  *TYPE* AS FOLLOWS.
01850  M01S01458.cpcom   +++|*                READ
01851  M01S01459.cpcom   +++|*                READNR
01852  M01S01460.cpcom   +++|*                WRITE
01853  M01S01461.cpcom   +++|*                WRITENR
01854  M01S01462.cpcom   +++|*                ALTER
01855  M01S01463.cpcom   +++|*                ALTERNR
01856  M01S01464.cpcom   +++|*                REEL
01857  M01S01465.cpcom   +++|*                NR
01858  M01S01466.cpcom   +++|*                REELNR
01859  M01S01467.cpcom   +++|*                IF ABSENT, REWIND
01860  M01S00270.ns2011  +++|*
01861  M01S01468.cpcom   +++|*         CALLS  CIO=.
01862  M01S01469.cpcom   +++|
01863  M01S01470.cpcom   +++|
01864  M01S01471.cpcom   +++|          PURGMAC OPEN
01865  M01S01472.cpcom   +++|
01866  M01S01473.cpcom   +++| OPEN     MACRO  F,T,L
01867  M01S01474.cpcom   +++|          LOCAL  A
01868  M01S01475.cpcom   +++|  MACREF OPEN
01869  M01S01476.cpcom   +++|  R= X2,F
01870  M01S01477.cpcom   +++|A SET 0
01871  M01S01478.cpcom   +++|  ECHO 3,B=(,READ,REEL,ALTER,WRITE,NR,READNR,REELNR,ALTERNR,WRITENR),C=(
01872  M01S01479.cpcom   +++|,160B,140B,340B,160B,144B,120B,100B,300B,120B,104B)
01873  M01S01480.cpcom   +++|  IFC EQ,$B$T$,2
01874  M01S01481.cpcom   +++|  STOPDUP
01875  M01S01482.cpcom   +++|A SET C
01876  M01S01483.cpcom   +++|  IFEQ A,,1
01877  M01S01484.cpcom   +++|  ERR ILLEGAL OPEN TYPE - T
01878  M01S01485.cpcom   +++|  IFC EQ,$L$$
01879  M01S01486.cpcom   +++|  SX7 A
01880  M01S01487.cpcom   +++|  ELSE 1
01881  M01S01488.cpcom   +++|  SX7 -A
01882  M01S01489.cpcom   +++|  RJ =XCIO=
01883  M01S01490.cpcom   +++|  ENDM
01884  M01S00003.ns22000 +++| OVWRITE  SPACE  4,15
01885  M01S00004.ns22000 +++|***       OVWRITE - OVERWRITE FILE.
01886  M01S00005.ns22000 +++|*
01887  M01S00006.ns22000 +++|*         OVWRITE  FILE,OPTION,RETURN,RECALL
01888  M01S00007.ns22000 +++|*
01889  M01S00008.ns22000 +++|*         ENTRY  *OPTION* = *X*, OVERWRITE THE FILE FIRST WITH BINARY
01890  M01S00009.ns22000 +++|*                            ZEROES, THEN BINARY ONES, THEN A PATTERN
01891  M01S00010.ns22000 +++|*                            OF ALTERNATING ZEROES AND ONES.
01892  M01S00011.ns22000 +++|*                         = ANYTHING ELSE, OVERWRITE THE FILE ONLY WITH
01893  M01S00012.ns22000 +++|*                            BINARY ZEROES.
01894  M01S00013.ns22000 +++|*
01895  M01S00014.ns22000 +++|*                *RETURN* = IF SPECIFIED, RETURN FILE AFTER PROCESSING.
01896  M01S00015.ns22000 +++|*
01897  M01S00016.ns22000 +++|*         CALLS  CIO=.
01898  M01S00017.ns22000 +++|
01899  M01S00018.ns22000 +++|
01900  M01S00019.ns22000 +++|          PURGMAC  OVWRITE
01901  M01S00020.ns22000 +++|
01902  M01S00021.ns22000 +++| OVWRITE  MACRO  F,O,T,L
01903  M01S00022.ns22000 +++|  MACREF OVWRITE
01904  M01S00023.ns22000 +++|  R= X2,F
01905  M01S00024.ns22000 +++| .A IFC EQ,$O$X$
01906  M01S00025.ns22000 +++|  SX1 3
01907  M01S00026.ns22000 +++|  LX1 18D
01908  M01S00027.ns22000 +++|  BX2 X1+X2
01909  M01S00028.ns22000 +++| .A ENDIF
01910  M01S00029.ns22000 +++| .B IFC EQ,$T$$
01911  M01S00030.ns22000 +++|  SX7 244B
01912  M01S00031.ns22000 +++| .B ELSE
01913  M01S00032.ns22000 +++|  SX7 254B
01914  M01S00033.ns22000 +++| .B ENDIF
01915  M01S00034.ns22000 +++| .C IFC NE,$L$$
01916  M01S00035.ns22000 +++|  BX7 -X7
01917  M01S00036.ns22000 +++| .C ENDIF
01918  M01S00037.ns22000 +++|  RJ =XCIO=
01919  M01S00038.ns22000 +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01920  M02S01491.ns2011  ---| POSMF    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01921  M02S01492.ns2011  ---|***       POSMF - POSITION MULTI-FILE SET.

Seq #  *Modification Id* Act 
----------------------------+
01922  M02S01493.ns2011  ---|*         MAGNETIC TAPE ONLY.
01923  M01S00271.ns2011  +++| POSMF    SPACE  4,10
01924  M01S00272.ns2011  +++|***       POSMF - POSITION MULTI-FILE SET.
01925  M01S00273.ns2011  +++|*         MAGNETIC TAPE ONLY.
01926  M01S01494.cpcom   +++|*
01927  M01S00274.ns2011  +++|*         POSMF  FILE,RECALL
01928  M01S01495.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01929  M02S01496.ns2011  ---|*         POSMF  FILE,RECALL
01930  M01S01497.cpcom   +++|*         CALLS  CIO=.
01931  M01S01498.cpcom   +++|
01932  M01S01499.cpcom   +++|
01933  M01S01500.cpcom   +++|          PURGMAC POSMF
01934  M01S01501.cpcom   +++|
01935  M01S01502.cpcom   +++| POSMF    MACRO  F,L
01936  M01S01503.cpcom   +++|  MACREF POSMF
01937  M01S01504.cpcom   +++|  =2 F,L,110B
01938  M01S01505.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01939  M02S01506.ns2011  ---| READ     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01940  M02S01507.ns2011  ---|***       READ - READ FILE TO CIO BUFFER.
01941  M01S00275.ns2011  +++| READ     SPACE  4,10
01942  M01S00276.ns2011  +++|***       READ - READ FILE TO *CIO* BUFFER.
01943  M01S01508.cpcom   +++|*
01944  M01S00277.ns2011  +++|*         READ   FILE,RECALL
01945  M01S01509.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01946  M02S01510.ns2011  ---|*         READ   FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
01947  M02S01511.ns2011  ---|*         CALLS CIO=.
01948  M01S00278.ns2011  +++|*         CALLS  CIO=.
01949  M01S01512.cpcom   +++|
01950  M01S01513.cpcom   +++|
01951  M01S01514.cpcom   +++|          PURGMAC READ
01952  M01S01515.cpcom   +++|
01953  M01S01516.cpcom   +++| READ     MACRO  F,L
01954  M01S01517.cpcom   +++|  MACREF READ
01955  M01S01518.cpcom   +++|  =2 F,L,10B
01956  M01S01519.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01957  M02S01520.ns2011  ---| READCW   SPACE  4
01958  M01S00279.ns2011  +++| READCW   SPACE  4,10
01959  M01S01521.cpcom   +++|***       READCW - READ NON-STOP WITH CONTROL WORDS.
01960  M01S01522.cpcom   +++|*
01961  M01S00280.ns2011  +++|*         READCW FILE,LEVEL,RECALL
01962  M01S01523.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01963  M02S01524.ns2011  ---|*         READCW FILE,LEVEL,RECALL
01964  M01S01525.cpcom   +++|*         ENTRY  LEVEL= 0 OR ABSENT, STOP AT END OF INFORMATION.
01965  M01S01526.cpcom   +++|*                     = 17B, STOP AT END OF FILE.
01966  M01S00281.ns2011  +++|*
01967  M01S01527.cpcom   +++|*         CALLS  CIO=.
01968  M01S01528.cpcom   +++|
01969  M01S01529.cpcom   +++|
01970  M01S01530.cpcom   +++|          PURGMAC READCW
01971  M01S01531.cpcom   +++|
01972  M01S01532.cpcom   +++| READCW   MACRO  F,T,L
01973  M01S01533.cpcom   +++|  MACREF READCW
01974  M01S01534.cpcom   +++|  R= X2,F
01975  M01S01535.cpcom   +++|  SX7 200B
01976  M01S01536.cpcom   +++|  IFC NE,$T$$,3
01977  M01S01537.cpcom   +++|  R= X6,T
01978  M01S01538.cpcom   +++|  LX6 14D
01979  M01S01539.cpcom   +++|  BX7 X6+X7
01980  M01S01540.cpcom   +++|  IFC NE,$L$$,1
01981  M01S01541.cpcom   +++|  BX7 -X7
01982  M01S01542.cpcom   +++|  RJ =XCIO=
01983  M01S01543.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01984  M02S01544.ns2011  ---| READEI   SPACE  4
01985  M01S00282.ns2011  +++| READEI   SPACE  4,10
01986  M01S01545.cpcom   +++|***       READEI - READ FILE TO END OF INFORMATION.
01987  M01S01546.cpcom   +++|*
01988  M01S00283.ns2011  +++|*         READEI FILE,RECALL
01989  M01S01547.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01990  M02S01548.ns2011  ---|*         READEI FILE,RECALL
01991  M01S01549.cpcom   +++|*         CALLS  CIO=.
01992  M01S01550.cpcom   +++|
01993  M01S01551.cpcom   +++|
01994  M01S01552.cpcom   +++|          PURGMAC READEI
01995  M01S01553.cpcom   +++|
01996  M01S01554.cpcom   +++| READEI   MACRO  F,L
01997  M01S01555.cpcom   +++|  MACREF READEI
01998  M01S01556.cpcom   +++|  =2 F,L,600B
01999  M01S01557.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02000  M02S01558.ns2011  ---| READLS   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02001  M02S01559.ns2011  ---|***       READLS - READ FILE WITH LIST.
02002  M01S00284.ns2011  +++| READLS   SPACE  4,10
02003  M01S00285.ns2011  +++|***       READLS - READ FILE WITH LIST.
02004  M01S00286.ns2011  +++|*         MASS STORAGE FILES ONLY.
02005  M01S01560.cpcom   +++|*
02006  M01S00287.ns2011  +++|*         READLS FILE,RECALL
02007  M01S01561.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02008  M02S01562.ns2011  ---|*         READLS FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02009  M02S01563.ns2011  ---|*         MASS STORAGE FILES ONLY.
02010  M01S01564.cpcom   +++|*         CALLS  CIO=.
02011  M01S01565.cpcom   +++|
02012  M01S01566.cpcom   +++|
02013  M01S01567.cpcom   +++|          PURGMAC READLS
02014  M01S01568.cpcom   +++|
02015  M01S01569.cpcom   +++| READLS   MACRO  F,L
02016  M01S01570.cpcom   +++|  MACREF READLS
02017  M01S01571.cpcom   +++|  =2 F,L,210B
02018  M01S01572.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02019  M02S01573.ns2011  ---| READN    SPACE  4
02020  M01S00288.ns2011  +++| READN    SPACE  4,10
02021  M01S01574.cpcom   +++|***       READN - READ *S* OR *L* FORMAT TAPE NON-STOP.
02022  M01S01575.cpcom   +++|*         MAGNETIC TAPE ONLY.
02023  M01S01576.cpcom   +++|*
02024  M01S00289.ns2011  +++|*         READN  FILE,RECALL
02025  M01S01577.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02026  M02S01578.ns2011  ---|*         READN  FILE,RECALL
02027  M01S01579.cpcom   +++|*         CALLS  CIO=.
02028  M01S01580.cpcom   +++|
02029  M01S01581.cpcom   +++|
02030  M01S01582.cpcom   +++|          PURGMAC READN
02031  M01S01583.cpcom   +++|
02032  M01S01584.cpcom   +++| READN    MACRO  F,L
02033  M01S01585.cpcom   +++|  MACREF READN
02034  M01S01586.cpcom   +++|  =2 F,L,260B
02035  M01S01587.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02036  M02S01588.ns2011  ---| READNS   SPACE  4
02037  M01S00290.ns2011  +++| READNS   SPACE  4,10
02038  M01S01589.cpcom   +++|***       READNS - READ FILE NON-STOP. (READ TO EOF)
02039  M01S01590.cpcom   +++|*
02040  M01S00291.ns2011  +++|*         READNS FILE,RECALL
02041  M01S01591.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02042  M02S01592.ns2011  ---|*         READNS FILE,RECALL
02043  M01S01593.cpcom   +++|*         CALLS  CIO=.
02044  M01S01594.cpcom   +++|
02045  M01S01595.cpcom   +++|
02046  M01S01596.cpcom   +++|          PURGMAC READNS
02047  M01S01597.cpcom   +++|
02048  M01S01598.cpcom   +++| READNS   MACRO  F,L
02049  M01S01599.cpcom   +++|  MACREF READNS
02050  M01S01600.cpcom   +++|  =2 F,L,250B
02051  M01S01601.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02052  M02S01602.ns2011  ---| READSKP  SPACE  4
02053  M01S00292.ns2011  +++| READSKP  SPACE  4,15
02054  M01S01603.cpcom   +++|***       READSKP - READ SKIP.

Seq #  *Modification Id* Act 
----------------------------+
02055  M02S01604.ns2011  ---|*         READSKP PERFORMS A READ FUNCTION UNTIL THE CIO BUFFER IS

Seq #  *Modification Id* Act 
----------------------------+
02056  M02S01605.ns2011  ---|*         FULL, OR AN END OF RECORD, END OF FILE IS SENSED.

Seq #  *Modification Id* Act 
----------------------------+
02057  M02S01606.ns2011  ---|*         IF THE BUFFER IS FILLED BEFORE EOR IS REACHED, THE FILE IS
02058  M01S00293.ns2011  +++|*
02059  M01S00294.ns2011  +++|*         *READSKP* PERFORMS A READ FUNCTION UNTIL THE *CIO* BUFFER IS
02060  M01S00295.ns2011  +++|*         FULL, OR AN END OF RECORD, OR END OF FILE IS SENSED.  IF
02061  M01S00296.ns2011  +++|*         THE BUFFER IS FILLED BEFORE EOR IS REACHED, THE FILE IS
02062  M01S01607.cpcom   +++|*         POSITIONED TO END OF RECORD. IF *LEVEL* IS GIVEN AS 17B, THE
02063  M01S01608.cpcom   +++|*         FILE IS POSITIONED TO END OF FILE INSTEAD OF END OF RECORD.
02064  M01S01609.cpcom   +++|*
02065  M01S00297.ns2011  +++|*         READSKP FILE,LEVEL,RECALL
02066  M01S01610.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02067  M02S01611.ns2011  ---|*         READSKP FILE,LEVEL,RECALL
02068  M01S01612.cpcom   +++|*         ENTRY  LEVEL= 0 OR ABSENT, SKIP TO END OF RECORD.
02069  M01S01613.cpcom   +++|*                     = 17B, SKIP TO END OF FILE.
02070  M01S00298.ns2011  +++|*
02071  M01S01614.cpcom   +++|*         CALLS  CIO=.
02072  M01S01615.cpcom   +++|
02073  M01S01616.cpcom   +++|
02074  M01S01617.cpcom   +++|          PURGMAC READSKP
02075  M01S01618.cpcom   +++|
02076  M01S01619.cpcom   +++| READSKP  MACRO  F,T,L
02077  M01S01620.cpcom   +++|  MACREF READSKP
02078  M01S01621.cpcom   +++|  R= X2,F
02079  M01S01622.cpcom   +++|  SX7 20B
02080  M01S01623.cpcom   +++|  IFC NE,$T$$,3
02081  M01S01624.cpcom   +++|  R= X6,T
02082  M01S01625.cpcom   +++|  LX6 14D
02083  M01S01626.cpcom   +++|  BX7 X6+X7
02084  M01S01627.cpcom   +++|  IFC NE,$L$$,1
02085  M01S01628.cpcom   +++|  BX7 -X7
02086  M01S01629.cpcom   +++|  RJ =XCIO=
02087  M01S01630.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02088  M02S01631.ns2011  ---| RENAME   SPACE  4
02089  M01S00299.ns2011  +++| RENAME   SPACE  4,10
02090  M01S01632.cpcom   +++|***       RENAME - RENAME FILE.
02091  M01S01633.cpcom   +++|*
02092  M01S00300.ns2011  +++|*         RENAME FILE,NAME
02093  M01S01634.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02094  M02S01635.ns2011  ---|*         RENAME FILE,NAME
02095  M01S01636.cpcom   +++|*         ENTRY  *NAME* = ADDRESS OF NEW FILE NAME.
02096  M01S01637.cpcom   +++|*                IF *NAME* = *X1*, (X1) = NEW FILE NAME.
02097  M01S01638.cpcom   +++|*                IF *NAME* IS NOT PRESENT, (FET+6) = NEW FILE NAME.
02098  M01S00301.ns2011  +++|*
02099  M01S01639.cpcom   +++|*         CALLS  LFM=.
02100  M01S01640.cpcom   +++|
02101  M01S01641.cpcom   +++|
02102  M01S01642.cpcom   +++|          PURGMAC RENAME
02103  M01S01643.cpcom   +++|
02104  M01S01644.cpcom   +++| RENAME   MACRO  F,N
02105  M01S01645.cpcom   +++|  MACREF RENAME
02106  M01S01646.cpcom   +++|  R= X2,F
02107  M01S01647.cpcom   +++|  IFC NE,$N$$,4
02108  M01S01648.cpcom   +++|  IFC NE,$N$X1$,1
02109  M01S01649.cpcom   +++|  SA1 N
02110  M01S01650.cpcom   +++|  BX6 X1
02111  M01S01651.cpcom   +++|  SA6 F+6
02112  M01S01652.cpcom   +++|  SX7 B0
02113  M01S01653.cpcom   +++|  RJ =XLFM=
02114  M01S01654.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02115  M02S01655.ns2011  ---| REQUEST  SPACE  4
02116  M01S00302.ns2011  +++| REQUEST  SPACE  4,20
02117  M01S01656.cpcom   +++|***       REQUEST - REQUEST OPERATOR ASSIGNMENT OF EQUIPMENT.
02118  M01S01657.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02119  M02S01658.ns2011  ---|*         THE REQUEST MACRO CANNOT BE USED TO ASSIGN TAPE

Seq #  *Modification Id* Act 
----------------------------+
02120  M02S01659.ns2011  ---|*         OR VSN EQUIPMENT.

Seq #  *Modification Id* Act 
----------------------------+
02121  M02S01660.ns2011  ---|*
02122  M01S00303.ns2011  +++|*         THE *REQUEST* MACRO CANNOT BE USED TO ASSIGN TAPE OR VSN
02123  M01S00304.ns2011  +++|*         EQUIPMENT.
02124  M01S01661.cpcom   +++|*
02125  M01S01662.cpcom   +++|*         REQUEST  FILE,UNIT,NMSG
02126  M01S01663.cpcom   +++|*
02127  M01S01664.cpcom   +++|*         ENTRY  *FILE* IS THE ADDRESS OF THE FET.

Seq #  *Modification Id* Act 
----------------------------+
02128  M02S01665.ns2011  ---|*                *UNIT* IF USED ASSIGNS THE EQUIPMENT DESIGNATED

Seq #  *Modification Id* Act 
----------------------------+
02129  M02S01666.ns2011  ---|*                IN THE *DTY* POSITION IN *FILE*+1.

Seq #  *Modification Id* Act 
----------------------------+
02130  M02S01667.ns2011  ---|*                *NMSG* IF PRESENT SPECIFIES THAT NO DAYFILE MESSAGE

Seq #  *Modification Id* Act 
----------------------------+
02131  M02S01668.ns2011  ---|*                IS TO BE ISSUED INDICATING THE EQUIPMENT TO WHICH

Seq #  *Modification Id* Act 
----------------------------+
02132  M02S01669.ns2011  ---|*                THE FILE WAS ASSIGNED.
02133  M01S00305.ns2011  +++|*                *UNIT* IF USED ASSIGNS THE EQUIPMENT DESIGNATED IN
02134  M01S00306.ns2011  +++|*                       THE *DTY* POSITION IN *FILE*+1.
02135  M01S00307.ns2011  +++|*                *NMSG* IF PRESENT SPECIFIES THAT NO DAYFILE MESSAGE IS
02136  M01S00308.ns2011  +++|*                       TO BE ISSUED INDICATING THE EQUIPMENT TO WHICH
02137  M01S00309.ns2011  +++|*                       THE FILE WAS ASSIGNED.
02138  M01S01670.cpcom   +++|*
02139  M01S01671.cpcom   +++|*         EXIT   (X2) = FUNCTION PARAMETER AND ADDRESS OF THE FET.
02140  M01S01672.cpcom   +++|*                (X7) = FUNCTION CODE.
02141  M01S01673.cpcom   +++|*
02142  M01S01674.cpcom   +++|*         USES   X - 2, 7.
02143  M01S01675.cpcom   +++|*
02144  M01S01676.cpcom   +++|*         CALLS  LFM=.
02145  M01S01677.cpcom   +++|
02146  M01S01678.cpcom   +++|
02147  M01S01679.cpcom   +++|          PURGMAC REQUEST
02148  M01S01680.cpcom   +++|
02149  M01S01681.cpcom   +++| REQUEST  MACRO  F,U,N
02150  M01S01682.cpcom   +++|  MACREF REQUEST
02151  M01S01683.cpcom   +++|  R= X2,F
02152  M01S01684.cpcom   +++|  IFC NE,$N$$
02153  M01S01685.cpcom   +++|  MX7 1
02154  M01S01686.cpcom   +++|  LX7 19-59
02155  M01S01687.cpcom   +++|  BX2 X2+X7
02156  M01S01688.cpcom   +++|  ENDIF
02157  M01S01689.cpcom   +++|  IFC EQ,$U$$
02158  M01S01690.cpcom   +++|  SX7 14B
02159  M01S01691.cpcom   +++|  ELSE
02160  M01S01692.cpcom   +++|  SX7 15B
02161  M01S01693.cpcom   +++|  ENDIF
02162  M01S01694.cpcom   +++|  RJ =XLFM=
02163  M01S01695.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02164  M02S01696.ns2011  ---| RETURN   SPACE  4
02165  M01S00310.ns2011  +++| RETURN   SPACE  4,10
02166  M01S01697.cpcom   +++|***       RETURN - RETURN FILE TO SYSTEM.
02167  M01S01698.cpcom   +++|*
02168  M01S00311.ns2011  +++|*         RETURN FILE,RECALL
02169  M01S01699.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02170  M02S01700.ns2011  ---|*         RETURN FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02171  M02S01701.ns2011  ---|*         CALLS CIO=.
02172  M01S00312.ns2011  +++|*         CALLS  CIO=.
02173  M01S01702.cpcom   +++|
02174  M01S01703.cpcom   +++|
02175  M01S01704.cpcom   +++|          PURGMAC RETURN
02176  M01S01705.cpcom   +++|
02177  M01S01706.cpcom   +++| RETURN   MACRO  F,L
02178  M01S01707.cpcom   +++|  MACREF RETURN
02179  M01S01708.cpcom   +++|  =2 F,L,70B
02180  M01S01709.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02181  M02S01710.ns2011  ---| REWIND   SPACE  4
02182  M01S00313.ns2011  +++| REWIND   SPACE  4,10
02183  M01S01711.cpcom   +++|***       REWIND - REWIND FILE.
02184  M01S01712.cpcom   +++|*
02185  M01S00314.ns2011  +++|*         REWIND FILE,RECALL
02186  M01S01713.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02187  M02S01714.ns2011  ---|*         REWIND FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02188  M02S01715.ns2011  ---|*         CALLS CIO=.
02189  M01S00315.ns2011  +++|*         CALLS  CIO=.
02190  M01S01716.cpcom   +++|
02191  M01S01717.cpcom   +++|
02192  M01S01718.cpcom   +++|          PURGMAC REWIND
02193  M01S01719.cpcom   +++|
02194  M01S01720.cpcom   +++| REWIND   MACRO  F,L
02195  M01S01721.cpcom   +++|  MACREF REWIND
02196  M01S01722.cpcom   +++|  =2 F,L,50B
02197  M01S01723.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02198  M02S01724.ns2011  ---| REWRITE  SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02199  M02S01725.ns2011  ---|***       REWRITE - REWRITE DATA FROM CIO BUFFER.
02200  M01S00316.ns2011  +++| REWRITE  SPACE  4,15
02201  M01S00317.ns2011  +++|***       REWRITE - REWRITE DATA FROM *CIO* BUFFER.
02202  M01S00318.ns2011  +++|*         MASS STORAGE FILES ONLY.
02203  M01S01726.cpcom   +++|*
02204  M01S00319.ns2011  +++|*         REWRITE FILE,RECALL
02205  M01S01727.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02206  M02S01728.ns2011  ---|*         REWRITE FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02207  M02S01729.ns2011  ---|*         ENTRY  RECALL= *, SET CIO FUNCTION CODE IN FET, DONT CALL CIO.

Seq #  *Modification Id* Act 
----------------------------+
02208  M02S01730.ns2011  ---|*                ALSO, USER MUST INSURE THAT PREVIOUS FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
02209  M02S01731.ns2011  ---|*                HAS COMPLETED.
02210  M01S00320.ns2011  +++|*         ENTRY  RECALL = *, SET *CIO* FUNCTION CODE IN FET, DO NOT

Seq #  *Modification Id* Act 
----------------------------+
02211  M02S00321.cpcom1  ---|*                         CALL *CIO*.  ALSO, USER MUST INSURE THAT

Seq #  *Modification Id* Act 
----------------------------+
02212  M02S00322.cpcom1  ---|*                         PREVIOUS FUNCTION HAS COMPLETED.
02213  M01S00002.cpcom1  +++|*                         CALL *CIO*.
02214  M01S00323.ns2011  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02215  M02S01732.ns2011  ---|*         MASS STORAGE FILES ONLY.
02216  M01S01733.cpcom   +++|*         CALLS  CIO=.
02217  M01S01734.cpcom   +++|
02218  M01S01735.cpcom   +++|
02219  M01S01736.cpcom   +++|          PURGMAC REWRITE
02220  M01S01737.cpcom   +++|
02221  M01S01738.cpcom   +++| REWRITE  MACRO  F,L
02222  M01S01739.cpcom   +++|  MACREF REWRITE
02223  M01S01740.cpcom   +++|  IFC EQ,$L$*$
02224  M01S01741.cpcom   +++|  =2A F,215B
02225  M01S01742.cpcom   +++|  ELSE 1
02226  M01S01743.cpcom   +++|  =2 F,L,214B
02227  M01S01744.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02228  M02S01745.ns2011  ---| REWRITEF SPACE  4
02229  M01S00324.ns2011  +++| REWRITEF SPACE  4,10
02230  M01S01746.cpcom   +++|***       REWRITEF - REWRITE END OF FILE.
02231  M01S00325.ns2011  +++|*         MASS STORAGE FILES ONLY.
02232  M01S01747.cpcom   +++|*
02233  M01S00326.ns2011  +++|*         REWRITEF FILE,RECALL
02234  M01S01748.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02235  M02S01749.ns2011  ---|*         REWRITEF FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02236  M02S01750.ns2011  ---|*         MASS STORAGE FILES ONLY.
02237  M01S01751.cpcom   +++|*         CALLS  CIO=.
02238  M01S01752.cpcom   +++|
02239  M01S01753.cpcom   +++|
02240  M01S01754.cpcom   +++|          PURGMAC REWRITEF
02241  M01S01755.cpcom   +++|
02242  M01S01756.cpcom   +++| REWRITEF MACRO  F,L
02243  M01S01757.cpcom   +++|  MACREF REWRITEF
02244  M01S01758.cpcom   +++|  =2 F,L,234B
02245  M01S01759.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02246  M02S01760.ns2011  ---| REWRITER SPACE  4
02247  M01S00327.ns2011  +++| REWRITER SPACE  4,10
02248  M01S01761.cpcom   +++|***       REWRITER - REWRITE END OF RECORD.
02249  M01S00328.ns2011  +++|*         MASS STORAGE FILES ONLY.
02250  M01S01762.cpcom   +++|*
02251  M01S00329.ns2011  +++|*         REWRITER FILE,RECALL
02252  M01S01763.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02253  M02S01764.ns2011  ---|*         REWRITER FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02254  M02S01765.ns2011  ---|*         MASS STORAGE FILES ONLY.
02255  M01S01766.cpcom   +++|*         CALLS  CIO=.
02256  M01S01767.cpcom   +++|
02257  M01S01768.cpcom   +++|
02258  M01S01769.cpcom   +++|          PURGMAC REWRITER
02259  M01S01770.cpcom   +++|
02260  M01S01771.cpcom   +++| REWRITER MACRO  F,L
02261  M01S01772.cpcom   +++|  MACREF REWRITER
02262  M01S01773.cpcom   +++|  =2 F,L,224B
02263  M01S01774.cpcom   +++|  ENDM
02264  M01S01775.cpcom   +++| ROUTE    SPACE  4,10
02265  M01S01776.cpcom   +++|**        ROUTE - ROUTE FILE TO INPUT/OUTPUT QUEUE.
02266  M01S01777.cpcom   +++|*
02267  M01S01778.cpcom   +++|*         ROUTE  ADDR,R
02268  M01S01779.cpcom   +++|*
02269  M01S01780.cpcom   +++|*                ADDR = FWA OF CALL BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
02270  M02S01781.ns2011  ---|*                            (SEE *DSP* DOCUMENTATION FOR FORMAT)
02271  M01S00330.ns2011  +++|*                       (SEE *DSP* DOCUMENTATION FOR FORMAT)
02272  M01S01782.cpcom   +++|*                R = RECALL (OPTIONAL)
02273  M01S01783.cpcom   +++|
02274  M01S01784.cpcom   +++|
02275  M01S01785.cpcom   +++|          PURGMAC ROUTE
02276  M01S01786.cpcom   +++|
02277  M01S01787.cpcom   +++|
02278  M01S01788.cpcom   +++| ROUTE    MACRO  A,R
02279  M01S01789.cpcom   +++|  MACREF ROUTE
02280  M01S01790.cpcom   +++|  SYSTEM DSP,R,A
02281  M01S01791.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02282  M02S01792.ns2011  ---| RPHR     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02283  M02S01793.ns2011  ---|***       RPHR - READ PHYSICAL RECORD TO CIO BUFFER.
02284  M01S00331.ns2011  +++| RPHR     SPACE  4,10
02285  M01S00332.ns2011  +++|***       RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
02286  M01S01794.cpcom   +++|*
02287  M01S00333.ns2011  +++|*         RPHR   FILE,RECALL
02288  M01S01795.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02289  M02S01796.ns2011  ---|*         RPHR   FILE,RECALL
02290  M01S01797.cpcom   +++|*         CALLS  CIO=.
02291  M01S01798.cpcom   +++|
02292  M01S01799.cpcom   +++|
02293  M01S01800.cpcom   +++|          PURGMAC RPHR
02294  M01S01801.cpcom   +++|
02295  M01S01802.cpcom   +++| RPHR     MACRO  F,L
02296  M01S01803.cpcom   +++|  MACREF RPHR
02297  M01S01804.cpcom   +++|  IFC EQ,$L$$
02298  M01S01805.cpcom   +++|  R= X7,0
02299  M01S01806.cpcom   +++|  ELSE 1
02300  M01S01807.cpcom   +++|  MX7 60D
02301  M01S01808.cpcom   +++|  R= X2,F
02302  M01S01809.cpcom   +++|  RJ =XCIO=
02303  M01S01810.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02304  M02S01811.ns2011  ---| RPHRLS   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02305  M02S01812.ns2011  ---|***       RPHRLS - READ PRUS WITH LIST.
02306  M01S00334.ns2011  +++| RPHRLS   SPACE  4,10
02307  M01S00335.ns2011  +++|***       RPHRLS - READ PRUS WITH LIST.
02308  M01S00336.ns2011  +++|*         MASS STORAGE FILES ONLY.
02309  M01S01813.cpcom   +++|*
02310  M01S00337.ns2011  +++|*         RPHRLS FILE,RECALL
02311  M01S01814.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02312  M02S01815.ns2011  ---|*         RPHRLS FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02313  M02S01816.ns2011  ---|*         MASS STORAGE FILES ONLY.
02314  M01S01817.cpcom   +++|*         CALLS  CIO=.
02315  M01S01818.cpcom   +++|
02316  M01S01819.cpcom   +++|
02317  M01S01820.cpcom   +++|          PURGMAC RPHRLS
02318  M01S01821.cpcom   +++|
02319  M01S01822.cpcom   +++| RPHRLS   MACRO  F,L
02320  M01S01823.cpcom   +++|  MACREF RPHRLS
02321  M01S01824.cpcom   +++|  =2 F,L,230B
02322  M01S01825.cpcom   +++|  ENDM
02323  M01S01826.cpcom   +++| SETFS    SPACE  4,10
02324  M01S01827.cpcom   +++|***       SETFS - SET FILE STATUS.
02325  M01S01828.cpcom   +++|*
02326  M01S01829.cpcom   +++|*         SETFS  FILE,N
02327  M01S01830.cpcom   +++|*
02328  M01S01831.cpcom   +++|*         CERTAIN STATUSES MAY ONLY BE SET AND CLEARED BY *SSJ=*
02329  M01S01832.cpcom   +++|*         PROGRAMS.  ATTEMPTS BY OTHER PROGRAMS TO SET OR CHANGE
02330  M01S01833.cpcom   +++|*         THESE STATUSES WILL BE IGNORED.
02331  M01S01834.cpcom   +++|*
02332  M01S01835.cpcom   +++|*         ENTRY  *FILE* = FWA OF FET.

Seq #  *Modification Id* Act 
----------------------------+
02333  M02S01836.ns2011  ---|*                *N* =  FILE STATUS.

Seq #  *Modification Id* Act 
----------------------------+
02334  M02S01837.ns2011  ---|*                       *AD* = *AUTO-DROP* (0).

Seq #  *Modification Id* Act 
----------------------------+
02335  M02S01838.ns2011  ---|*                       *NAD* = *NO-AUTO-DROP* (NDST).

Seq #  *Modification Id* Act 
----------------------------+
02336  M02S01839.ns2011  ---|*                       (SYMBOLS FOR OTHER STATUSES ARE DEFINED

Seq #  *Modification Id* Act 
----------------------------+
02337  M02S01840.ns2011  ---|*                       IN *COMSLFD*).
02338  M01S00338.ns2011  +++|*                *N* = FILE STATUS.
02339  M01S00339.ns2011  +++|*                      *AD* = *AUTO-DROP* (0).
02340  M01S00340.ns2011  +++|*                      *NAD* = *NO-AUTO-DROP* (NDST).
02341  M01S00341.ns2011  +++|*                      (SYMBOLS FOR OTHER STATUSES ARE DEFINED
02342  M01S00342.ns2011  +++|*                      IN *COMSLFD*).
02343  M01S01841.cpcom   +++|*
02344  M01S01842.cpcom   +++|*         USES   X - 1, 2, 7.
02345  M01S01843.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02346  M02S01844.ns2011  ---|*         CALLS  *LFM*.
02347  M01S00343.ns2011  +++|*         CALLS  LFM=.
02348  M01S01845.cpcom   +++|
02349  M01S01846.cpcom   +++|
02350  M01S01847.cpcom   +++|          PURGMAC  SETFS
02351  M01S01848.cpcom   +++|
02352  M01S01849.cpcom   +++| SETFS    MACRO  F,N
02353  M01S00001.cpcom4  +++|  MACREF SETFS
02354  M01S01850.cpcom   +++|.FS SET 777B
02355  M01S01851.cpcom   +++|  ECHO 4,B=(AD,NAD),C=(0,7)
02356  M01S01852.cpcom   +++|.A IFC EQ,$B$N$
02357  M01S01853.cpcom   +++|  STOPDUP
02358  M01S01854.cpcom   +++|.FS SET C
02359  M01S01855.cpcom   +++|.A ENDIF
02360  M01S01856.cpcom   +++|.B IFEQ .FS,777B
02361  M01S01857.cpcom   +++|  R= X1,N
02362  M01S01858.cpcom   +++|.B ELSE
02363  M01S01859.cpcom   +++|  R= X1,.FS
02364  M01S01860.cpcom   +++|.B ENDIF
02365  M01S01861.cpcom   +++|  R=  X2,F
02366  M01S01862.cpcom   +++|  LX1 18D
02367  M01S01863.cpcom   +++|  BX2 X1+X2
02368  M01S01864.cpcom   +++|  SX7 3
02369  M01S01865.cpcom   +++|  RJ  =XLFM=
02370  M01S01866.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02371  M02S01867.ns2011  ---| SKIPB    SPACE  4
02372  M01S00344.ns2011  +++| SKIPB    SPACE  4,10
02373  M01S01868.cpcom   +++|***       SKIPB - SKIP RECORDS BACKWARDS.
02374  M01S01869.cpcom   +++|*
02375  M01S00345.ns2011  +++|*         SKIPB  FILE,N,RECALL
02376  M01S01870.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02377  M02S01871.ns2011  ---|*         SKIPB  FILE,N,RECALL
02378  M01S01872.cpcom   +++|*         ENTRY  *N* = RECORD COUNT.
02379  M01S00346.ns2011  +++|*
02380  M01S01873.cpcom   +++|*         CALLS  CIO=.
02381  M01S01874.cpcom   +++|
02382  M01S01875.cpcom   +++|
02383  M01S01876.cpcom   +++|          PURGMAC SKIPB
02384  M01S01877.cpcom   +++|
02385  M01S01878.cpcom   +++| SKIPB    MACRO  F,N,L
02386  M01S01879.cpcom   +++|  MACREF SKIPB
02387  M01S01880.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02388  M02S01881.cpcom2  ---|  IFNE N,,3
02389  M01S00005.cpcom2  +++|.A IFNE N,0
02390  M01S01882.cpcom   +++|  R= X1,N
02391  M01S00006.cpcom2  +++|  MX7 -18
02392  M01S00007.cpcom2  +++|  BX1 -X7*X1
02393  M01S01883.cpcom   +++|  LX1 18D
02394  M01S01884.cpcom   +++|  BX2 X1+X2
02395  M01S00008.cpcom2  +++|.A ENDIF
02396  M01S01885.cpcom   +++|  IFC EQ,$L$$
02397  M01S01886.cpcom   +++|  SX7 640B
02398  M01S01887.cpcom   +++|  ELSE 1
02399  M01S01888.cpcom   +++|  SX7 -640B
02400  M01S01889.cpcom   +++|  RJ =XCIO=
02401  M01S01890.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02402  M02S01891.ns2011  ---| SKIPEI   SPACE  4
02403  M01S00347.ns2011  +++| SKIPEI   SPACE  4,10
02404  M01S01892.cpcom   +++|***       SKIPEI - SKIP TO END OF INFORMATION.
02405  M01S01893.cpcom   +++|*
02406  M01S00348.ns2011  +++|*         SKIPEI FILE,RECALL
02407  M01S01894.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02408  M02S01895.ns2011  ---|*         SKIPEI FILE,RECALL
02409  M01S01896.cpcom   +++|*         CALLS  CIO=.
02410  M01S01897.cpcom   +++|
02411  M01S01898.cpcom   +++|
02412  M01S01899.cpcom   +++|          PURGMAC SKIPEI
02413  M01S01900.cpcom   +++|
02414  M01S01901.cpcom   +++| SKIPEI   MACRO  F,L
02415  M01S01902.cpcom   +++|  MACREF SKIPEI
02416  M01S01903.cpcom   +++|  R= X2,F
02417  M01S01904.cpcom   +++|  MX1 -18D
02418  M01S01905.cpcom   +++|  LX1 18D
02419  M01S01906.cpcom   +++|  BX2 -X1+X2
02420  M01S01907.cpcom   +++|  IFC EQ,$L$$
02421  M01S01908.cpcom   +++|  SX7 240B
02422  M01S01909.cpcom   +++|  ELSE 1
02423  M01S01910.cpcom   +++|  SX7 -240B
02424  M01S01911.cpcom   +++|  RJ =XCIO=
02425  M01S01912.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02426  M02S01913.ns2011  ---| SKIPFB   SPACE  4
02427  M01S00349.ns2011  +++| SKIPFB   SPACE  4,10
02428  M01S01914.cpcom   +++|***       SKIPFB - SKIP FILES BACKWARD.
02429  M01S01915.cpcom   +++|*
02430  M01S00350.ns2011  +++|*         SKIPFB FILE,N,RECALL
02431  M01S01916.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02432  M02S01917.ns2011  ---|*         SKIPFB FILE,N,RECALL
02433  M01S01918.cpcom   +++|*         ENTRY  *N* = RECORD COUNT.
02434  M01S00351.ns2011  +++|*
02435  M01S01919.cpcom   +++|*         CALLS  CIO=.
02436  M01S01920.cpcom   +++|
02437  M01S01921.cpcom   +++|
02438  M01S01922.cpcom   +++|          PURGMAC SKIPFB
02439  M01S01923.cpcom   +++|
02440  M01S01924.cpcom   +++| SKIPFB   MACRO  F,N,L
02441  M01S01925.cpcom   +++|  MACREF SKIPFB
02442  M01S01926.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02443  M02S01927.cpcom2  ---|  IFNE N,,3
02444  M01S00009.cpcom2  +++|.A IFNE N,0
02445  M01S01928.cpcom   +++|  R= X1,N
02446  M01S00010.cpcom2  +++|  MX7 -18
02447  M01S00011.cpcom2  +++|  BX1 -X7*X1
02448  M01S01929.cpcom   +++|  LX1 18D
02449  M01S01930.cpcom   +++|  BX2 X1+X2
02450  M01S00012.cpcom2  +++|.A ENDIF
02451  M01S01931.cpcom   +++|  IFC EQ,$L$$
02452  M01S01932.cpcom   +++|  SX7 740640BS-3
02453  M01S01933.cpcom   +++|  ELSE 1
02454  M01S01934.cpcom   +++|  SX7 -740640BS-3
02455  M01S01935.cpcom   +++|  LX7 3
02456  M01S01936.cpcom   +++|  RJ =XCIO=
02457  M01S01937.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02458  M02S01938.ns2011  ---| SKIPF    SPACE  4
02459  M01S00352.ns2011  +++| SKIPF    SPACE  4,10
02460  M01S01939.cpcom   +++|***       SKIPF - SKIP RECORDS FORWARD.
02461  M01S01940.cpcom   +++|*
02462  M01S00353.ns2011  +++|*         SKIPF  FILE,N,RECALL
02463  M01S01941.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02464  M02S01942.ns2011  ---|*         SKIPF  FILE,N,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02465  M02S01943.ns2011  ---|*         *N* = RECORD COUNT.
02466  M01S00354.ns2011  +++|*         ENTRY  *N* = RECORD COUNT.
02467  M01S00355.ns2011  +++|*
02468  M01S01944.cpcom   +++|*         CALLS  CIO=.
02469  M01S01945.cpcom   +++|
02470  M01S01946.cpcom   +++|
02471  M01S01947.cpcom   +++|          PURGMAC SKIPF
02472  M01S01948.cpcom   +++|
02473  M01S01949.cpcom   +++| SKIPF    MACRO  F,N,L
02474  M01S01950.cpcom   +++|  MACREF SKIPF
02475  M01S01951.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02476  M02S01952.cpcom2  ---|  IFNE N,,3
02477  M01S00013.cpcom2  +++|.A IFNE N,0
02478  M01S01953.cpcom   +++|  R= X1,N
02479  M01S00014.cpcom2  +++|  MX7 -18
02480  M01S00015.cpcom2  +++|  BX1 -X7*X1
02481  M01S01954.cpcom   +++|  LX1 18D
02482  M01S01955.cpcom   +++|  BX2 X1+X2
02483  M01S00016.cpcom2  +++|.A ENDIF
02484  M01S01956.cpcom   +++|  IFC EQ,$L$$
02485  M01S01957.cpcom   +++|  SX7 240B
02486  M01S01958.cpcom   +++|  ELSE 1
02487  M01S01959.cpcom   +++|  SX7 -240B
02488  M01S01960.cpcom   +++|  RJ =XCIO=
02489  M01S01961.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02490  M02S01962.ns2011  ---| SKIPFF   SPACE  4
02491  M01S00356.ns2011  +++| SKIPFF   SPACE  4,10
02492  M01S01963.cpcom   +++|***       SKIPFF - SKIP FILES FORWARD.
02493  M01S01964.cpcom   +++|*
02494  M01S00357.ns2011  +++|*         SKIPFF FILE,N,RECALL
02495  M01S01965.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02496  M02S01966.ns2011  ---|*         SKIPFF FILE,N,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02497  M02S01967.ns2011  ---|*         *N* = COUNT COUNT.
02498  M01S00358.ns2011  +++|*         ENTRY  *N* = COUNT COUNT.
02499  M01S00359.ns2011  +++|*
02500  M01S01968.cpcom   +++|*         CALLS  CIO=.
02501  M01S01969.cpcom   +++|
02502  M01S01970.cpcom   +++|
02503  M01S01971.cpcom   +++|          PURGMAC SKIPFF
02504  M01S01972.cpcom   +++|
02505  M01S01973.cpcom   +++| SKIPFF   MACRO  F,N,L
02506  M01S01974.cpcom   +++|  MACREF SKIPFF
02507  M01S01975.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02508  M02S01976.cpcom2  ---|  IFNE N,,3
02509  M01S00017.cpcom2  +++|.A IFNE N,0
02510  M01S01977.cpcom   +++|  R= X1,N
02511  M01S00018.cpcom2  +++|  MX7 -18
02512  M01S00019.cpcom2  +++|  BX1 -X7*X1
02513  M01S01978.cpcom   +++|  LX1 18D
02514  M01S01979.cpcom   +++|  BX2 X1+X2
02515  M01S00020.cpcom2  +++|.A ENDIF
02516  M01S01980.cpcom   +++|  IFC EQ,$L$$
02517  M01S01981.cpcom   +++|  SX7 740240BS-3
02518  M01S01982.cpcom   +++|  ELSE 1
02519  M01S01983.cpcom   +++|  SX7 -740240BS-3
02520  M01S01984.cpcom   +++|  LX7 3
02521  M01S01985.cpcom   +++|  RJ =XCIO=
02522  M01S01986.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02523  M02S01987.ns2011  ---| STATUS   SPACE  4
02524  M01S00360.ns2011  +++| STATUS   SPACE  4,20
02525  M01S01988.cpcom   +++|***       STATUS - RETURN CURRENT FILE STATUS.
02526  M01S01989.cpcom   +++|*
02527  M01S00361.ns2011  +++|*         STATUS FILE,POSITION,TAPEINFO
02528  M01S01990.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02529  M02S01991.ns2011  ---|*         STATUS FILE,POSITION,TAPEINFO
02530  M01S01992.cpcom   +++|*         ENTRY  *POSITION* IF PRESENT CURRENT FILE POSITION WILL BE

Seq #  *Modification Id* Act 
----------------------------+
02531  M02S01993.ns2011  ---|*                            RETURNED TO (FET+6).

Seq #  *Modification Id* Act 
----------------------------+
02532  M02S01994.ns2011  ---|*                *TAPEINFO*  IF SPECIFIED, IN ADDITION TO *POSITION*,

Seq #  *Modification Id* Act 
----------------------------+
02533  M02S01995.ns2011  ---|*                            AND FILE IS A MAGNETIC TAPE FILE,

Seq #  *Modification Id* Act 
----------------------------+
02534  M02S01996.ns2011  ---|*                            ADDITIONAL TAPE INFORMATION IS RETURNED TO

Seq #  *Modification Id* Act 
----------------------------+
02535  M02S01997.ns2011  ---|*                            FET+8 IN LABEL MACRO FORMAT, INCLUDING

Seq #  *Modification Id* Act 
----------------------------+
02536  M02S01998.ns2011  ---|*                            LABEL BIT, NONSTANDARD LABEL BIT, TRACK

Seq #  *Modification Id* Act 
----------------------------+
02537  M02S01999.ns2011  ---|*                            BIT, DENSITY, CONVERSION MODE, PROCESSING

Seq #  *Modification Id* Act 
----------------------------+
02538  M02S02000.ns2011  ---|*                            OPTIONS, FORMAT, NOISE SIZE IN FRAMES, AND

Seq #  *Modification Id* Act 
----------------------------+
02539  M02S02001.ns2011  ---|*                            BLOCK SIZE IN CM WORDS.
02540  M01S00362.ns2011  +++|*                           RETURNED TO (FET+6).
02541  M01S00363.ns2011  +++|*                *TAPEINFO* IF SPECIFIED, IN ADDITION TO *POSITION*,
02542  M01S00364.ns2011  +++|*                           AND FILE IS A MAGNETIC TAPE FILE,
02543  M01S00365.ns2011  +++|*                           ADDITIONAL TAPE INFORMATION IS RETURNED TO
02544  M01S00366.ns2011  +++|*                           FET+8 IN LABEL MACRO FORMAT, INCLUDING
02545  M01S00367.ns2011  +++|*                           LABEL BIT, NONSTANDARD LABEL BIT, TRACK
02546  M01S00368.ns2011  +++|*                           BIT, DENSITY, CONVERSION MODE, PROCESSING
02547  M01S00369.ns2011  +++|*                           OPTIONS, FORMAT, NOISE SIZE IN FRAMES, AND
02548  M01S00370.ns2011  +++|*                           BLOCK SIZE IN CM WORDS.
02549  M01S00371.ns2011  +++|*
02550  M01S02002.cpcom   +++|*         CALLS  LFM=.
02551  M01S02003.cpcom   +++|
02552  M01S02004.cpcom   +++|
02553  M01S02005.cpcom   +++|          PURGMAC STATUS
02554  M01S02006.cpcom   +++|
02555  M01S02007.cpcom   +++| STATUS   MACRO  F,N,T
02556  M01S02008.cpcom   +++|  MACREF STATUS
02557  M01S02009.cpcom   +++|  R= X2,F
02558  M01S02010.cpcom   +++|  IFC EQ,$N$$
02559  M01S02011.cpcom   +++|  SX7 12B
02560  M01S02012.cpcom   +++|  ELSE
02561  M01S02013.cpcom   +++|  SX7 13B
02562  M01S02014.cpcom   +++|  IFC NE,$T$$,3
02563  M01S02015.cpcom   +++|  MX6 1
02564  M01S02016.cpcom   +++|  LX6 1+18D
02565  M01S02017.cpcom   +++|  BX2 X2+X6
02566  M01S02018.cpcom   +++|  ENDIF
02567  M01S02019.cpcom   +++|  RJ =XLFM=
02568  M01S02020.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02569  M02S02021.ns2011  ---| UNLOAD   SPACE  4
02570  M01S00372.ns2011  +++| UNLOAD   SPACE  4,10
02571  M01S02022.cpcom   +++|***       UNLOAD - UNLOAD FILE.
02572  M01S02023.cpcom   +++|*
02573  M01S00373.ns2011  +++|*         UNLOAD FILE,RECALL
02574  M01S02024.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02575  M02S02025.ns2011  ---|*         UNLOAD FILE,RECALL
02576  M01S02026.cpcom   +++|*         CALLS  CIO=.
02577  M01S02027.cpcom   +++|
02578  M01S02028.cpcom   +++|
02579  M01S02029.cpcom   +++|          PURGMAC UNLOAD
02580  M01S02030.cpcom   +++|
02581  M01S02031.cpcom   +++| UNLOAD   MACRO  F,L
02582  M01S02032.cpcom   +++|  MACREF UNLOAD
02583  M01S02033.cpcom   +++|  =2 F,L,60B
02584  M01S02034.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02585  M02S02035.ns2011  ---| UNLOCK   SPACE  4
02586  M01S00374.ns2011  +++| UNLOCK   SPACE  4,10
02587  M01S02036.cpcom   +++|***       UNLOCK - CLEAR WRITE LOCK OUT.
02588  M01S00375.ns2011  +++|*         FILE MUST BE LOCAL OR PRIMARY.
02589  M01S02037.cpcom   +++|*
02590  M01S00376.ns2011  +++|*         UNLOCK FILE
02591  M01S02038.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02592  M02S02039.ns2011  ---|*         UNLOCK FILE

Seq #  *Modification Id* Act 
----------------------------+
02593  M02S02040.ns2011  ---|*         FILE MUST BE LOCAL OR PRIMARY.
02594  M01S02041.cpcom   +++|*         CALLS  LFM=.
02595  M01S02042.cpcom   +++|
02596  M01S02043.cpcom   +++|
02597  M01S02044.cpcom   +++|          PURGMAC UNLOCK
02598  M01S02045.cpcom   +++|
02599  M01S02046.cpcom   +++| UNLOCK   MACRO  F
02600  M01S02047.cpcom   +++|  MACREF UNLOCK
02601  M01S02048.cpcom   +++|  R= X2,F
02602  M01S02049.cpcom   +++|  SX7 11B
02603  M01S02050.cpcom   +++|  RJ =XLFM=
02604  M01S02051.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02605  M02S02052.ns2011  ---| WPHR     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02606  M02S02053.ns2011  ---|***       WPHR - WRITE 1 PHYSICAL RECORD FROM CIO BUFFER.
02607  M01S00377.ns2011  +++| WPHR     SPACE  4,10
02608  M01S00378.ns2011  +++|***       WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
02609  M01S02054.cpcom   +++|*
02610  M01S00379.ns2011  +++|*         WPHR   FILE,RECALL
02611  M01S02055.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02612  M02S02056.ns2011  ---|*         WPHR   FILE,RECALL
02613  M01S02057.cpcom   +++|*         CALLS  CIO=.
02614  M01S02058.cpcom   +++|
02615  M01S02059.cpcom   +++|
02616  M01S02060.cpcom   +++|          PURGMAC WPHR
02617  M01S02061.cpcom   +++|
02618  M01S02062.cpcom   +++| WPHR     MACRO  F,L
02619  M01S02063.cpcom   +++|  MACREF WPHR
02620  M01S02064.cpcom   +++|  =2 F,L,4
02621  M01S02065.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02622  M02S02066.ns2011  ---| WRITE    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02623  M02S02067.ns2011  ---|***       WRITE - WRITE DATA FROM CIO BUFFER.
02624  M01S00380.ns2011  +++| WRITE    SPACE  4,10
02625  M01S00381.ns2011  +++|***       WRITE - WRITE DATA FROM *CIO* BUFFER.
02626  M01S02068.cpcom   +++|*
02627  M01S00382.ns2011  +++|*         WRITE  FILE,RECALL
02628  M01S02069.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02629  M02S02070.ns2011  ---|*         WRITE  FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02630  M02S02071.ns2011  ---|*         ENTRY  RECALL= *, SET CIO FUNCTION CODE IN FET, DONT CALL CIO.

Seq #  *Modification Id* Act 
----------------------------+
02631  M02S02072.ns2011  ---|*                ALSO, USER MUST INSURE THAT PREVIOUS FUNCTION

Seq #  *Modification Id* Act 
----------------------------+
02632  M02S02073.ns2011  ---|*                HAS COMPLETED.
02633  M01S00383.ns2011  +++|*         ENTRY  RECALL= *, SET *CIO* FUNCTION CODE IN FET, DO NOT

Seq #  *Modification Id* Act 
----------------------------+
02634  M02S00384.cpcom1  ---|*                        CALL *CIO*.  ALSO, USER MUST INSURE THAT

Seq #  *Modification Id* Act 
----------------------------+
02635  M02S00385.cpcom1  ---|*                        PREVIOUS FUNCTION HAS COMPLETED.
02636  M01S00003.cpcom1  +++|*                        CALL *CIO*.
02637  M01S00386.ns2011  +++|*
02638  M01S02074.cpcom   +++|*         CALLS  CIO=.
02639  M01S02075.cpcom   +++|
02640  M01S02076.cpcom   +++|
02641  M01S02077.cpcom   +++|          PURGMAC WRITE
02642  M01S02078.cpcom   +++|
02643  M01S02079.cpcom   +++| WRITE    MACRO  F,L
02644  M01S02080.cpcom   +++|  MACREF WRITE
02645  M01S02081.cpcom   +++|  IFC EQ,$L$*$
02646  M01S02082.cpcom   +++|  =2A F,15B
02647  M01S02083.cpcom   +++|  ELSE 1
02648  M01S02084.cpcom   +++|  =2 F,L,14B
02649  M01S02085.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02650  M02S02086.ns2011  ---| WRITECW  SPACE  4
02651  M01S00387.ns2011  +++| WRITECW  SPACE  4,10
02652  M01S02087.cpcom   +++|***       WRITECW - WRITE NON-STOP WITH CONTROL WORDS.

Seq #  *Modification Id* Act 
----------------------------+
02653  M02S02088.ns2011  ---|*
02654  M01S02089.cpcom   +++|*
02655  M01S02090.cpcom   +++|*         WRITECW FILE,RECALL
02656  M01S02091.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02657  M02S02092.ns2011  ---|*         ENTRY  RECALL = * WILL SET *CIO* FUNCTION CODE IN FET BUT

Seq #  *Modification Id* Act 
----------------------------+
02658  M02S02093.ns2011  ---|*                WILL NOT ISSUE *CIO* FUNCTION.
02659  M01S00388.ns2011  +++|*         ENTRY  RECALL = *, WILL SET *CIO* FUNCTION CODE IN FET BUT
02660  M01S00389.ns2011  +++|*                         WILL NOT ISSUE *CIO* FUNCTION.
02661  M01S02094.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02662  M02S02095.ns2011  ---|
02663  M01S02096.cpcom   +++|*         CALLS  CIO=.
02664  M01S02097.cpcom   +++|
02665  M01S02098.cpcom   +++|
02666  M01S02099.cpcom   +++|          PURGMAC WRITECW
02667  M01S02100.cpcom   +++|
02668  M01S02101.cpcom   +++| WRITECW  MACRO  F,L
02669  M01S02102.cpcom   +++|          LOCAL  A
02670  M01S02103.cpcom   +++|  MACREF WRITECW
02671  M01S02104.cpcom   +++|  IFC EQ,$L$*$
02672  M01S02105.cpcom   +++|  =2A F,205B
02673  M01S02106.cpcom   +++|  ELSE 9
02674  M01S02107.cpcom   +++|  R= X2,F
02675  M01S02108.cpcom   +++|  RECALL X2
02676  M01S02109.cpcom   +++|  SA1 X2+2
02677  M01S02110.cpcom   +++|  BX7 X1
02678  M01S02111.cpcom   +++|  SA1 A1+B1
02679  M01S02112.cpcom   +++|  BX7 X1-X7
02680  M01S02113.cpcom   +++|  ZR X7,A
02681  M01S02114.cpcom   +++|  =2 X2,L,204B
02682  M01S02115.cpcom   +++| A BSS 0
02683  M01S02116.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02684  M02S02117.ns2011  ---| WRITEF   SPACE  4
02685  M01S00390.ns2011  +++| WRITEF   SPACE  4,10
02686  M01S02118.cpcom   +++|***       WRITEF - WRITE END OF FILE.
02687  M01S02119.cpcom   +++|*
02688  M01S00391.ns2011  +++|*         WRITEF FILE,RECALL
02689  M01S02120.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02690  M02S02121.ns2011  ---|*         WRITEF FILE,RECALL
02691  M01S02122.cpcom   +++|*         CALLS  CIO=.
02692  M01S02123.cpcom   +++|
02693  M01S02124.cpcom   +++|
02694  M01S02125.cpcom   +++|          PURGMAC WRITEF
02695  M01S02126.cpcom   +++|
02696  M01S02127.cpcom   +++| WRITEF   MACRO  F,L
02697  M01S02128.cpcom   +++|  MACREF WRITEF
02698  M01S02129.cpcom   +++|  =2 F,L,34B
02699  M01S02130.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02700  M02S02131.ns2011  ---| WRITEN   SPACE  4
02701  M01S00392.ns2011  +++| WRITEN   SPACE  4,10
02702  M01S02132.cpcom   +++|***       WRITEN - WRITE *S* OR *L* FORMAT TAPE NON-STOP.
02703  M01S02133.cpcom   +++|*         MAGNETIC TAPE ONLY.
02704  M01S02134.cpcom   +++|*
02705  M01S00393.ns2011  +++|*         WRITEN FILE,RECALL
02706  M01S02135.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02707  M02S02136.ns2011  ---|*         WRITEN FILE,RECALL

Seq #  *Modification Id* Act 
----------------------------+
02708  M02S02137.ns2011  ---|*         ENTRY  RECALL= *, SET CIO FUNCTION CODE IN FET, DONT CALL CIO.

Seq #  *Modification Id* Act 
----------------------------+
02709  M02S02138.ns2011  ---|*                ALSO, USER MUST INSURE THAT PREVIOUS FUNCTION

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

Seq #  *Modification Id* Act 
----------------------------+
02712  M02S00395.cpcom1  ---|*                        CALL *CIO*.  ALSO, USER MUST INSURE THAT

Seq #  *Modification Id* Act 
----------------------------+
02713  M02S00396.cpcom1  ---|*                        PREVIOUS FUNCTION HAS COMPLETED.
02714  M01S00004.cpcom1  +++|*                        CALL *CIO*.
02715  M01S00397.ns2011  +++|*
02716  M01S02140.cpcom   +++|*         CALLS  CIO=.
02717  M01S02141.cpcom   +++|
02718  M01S02142.cpcom   +++|
02719  M01S02143.cpcom   +++|          PURGMAC WRITEN
02720  M01S02144.cpcom   +++|
02721  M01S02145.cpcom   +++| WRITEN   MACRO  F,L
02722  M01S02146.cpcom   +++|  MACREF WRITEN
02723  M01S02147.cpcom   +++|  IFC EQ,$L$*$
02724  M01S02148.cpcom   +++|  =2A F,265B
02725  M01S02149.cpcom   +++|  ELSE 1
02726  M01S02150.cpcom   +++|  =2 F,L,264B
02727  M01S02151.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02728  M02S02152.ns2011  ---| WRITER   SPACE  4
02729  M01S00398.ns2011  +++| WRITER   SPACE  4,10
02730  M01S02153.cpcom   +++|***       WRITER - WRITE END OF RECORD.
02731  M01S02154.cpcom   +++|*
02732  M01S00399.ns2011  +++|*         WRITER FILE,RECALL
02733  M01S02155.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02734  M02S02156.ns2011  ---|*         WRITER FILE,,RECALL
02735  M01S02157.cpcom   +++|*         CALLS  CIO=.
02736  M01S02158.cpcom   +++|
02737  M01S02159.cpcom   +++|
02738  M01S02160.cpcom   +++|          PURGMAC WRITER
02739  M01S02161.cpcom   +++|
02740  M01S02162.cpcom   +++| WRITER   MACRO  F,L

Proceed to Part 2