25 Modifications

Seq #  *Modification Id* Act 
----------------------------+

Seq #  *Modification Id* Act 
----------------------------+
01257  M01S00216.ns2011  +++|*         VALID PARAMETER BUT A NO-OP.
01258  M00S00959.cpcom   +++|  ENDM
01259  M00S00960.cpcom   +++|
01260  M00S00961.cpcom   +++|
01261  M00S00962.cpcom   +++|          PURGMAC =1DTY
01262  M00S00963.cpcom   +++|
01263  M00S00964.cpcom   +++| =1DTY    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01264  M01S00965.ns2011  ---|*                            SET DEVICE TYPE IN FET+1.

Seq #  *Modification Id* Act 
----------------------------+
01265  M01S00217.ns2011  +++|*         SET DEVICE TYPE IN FET+1.
01266  M00S00966.cpcom   +++|  =1B FL,,DTY,A
01267  M00S00967.cpcom   +++|  ENDM
01268  M00S00968.cpcom   +++|
01269  M00S00969.cpcom   +++|
01270  M00S00970.cpcom   +++|          PURGMAC =1EPR
01271  M00S00971.cpcom   +++|
01272  M00S00972.cpcom   +++| =1EPR    MACRO  FL,A,B,UP,EP

Seq #  *Modification Id* Act 
----------------------------+
01273  M01S00973.ns2011  ---|*                            SET ERROR PROCESSING FLAG BIT.

Seq #  *Modification Id* Act 
----------------------------+
01274  M01S00218.ns2011  +++|*         SET ERROR PROCESSING FLAG BIT.
01275  M00S00974.cpcom   +++|EP SET 1
01276  M00S00975.cpcom   +++|  ENDM
01277  M00S00976.cpcom   +++|
01278  M00S00977.cpcom   +++|
01279  M00S00978.cpcom   +++|          PURGMAC =1FET
01280  M00S00979.cpcom   +++|
01281  M00S00980.cpcom   +++| =1FET    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01282  M01S00981.ns2011  ---|*                            SET FET LENGTH AS SPECIFIED.

Seq #  *Modification Id* Act 
----------------------------+
01283  M01S00219.ns2011  +++|*         SET FET LENGTH AS SPECIFIED.
01284  M00S00982.cpcom   +++|  =1B FL,A
01285  M00S00983.cpcom   +++|  ENDM
01286  M00S00984.cpcom   +++|
01287  M00S00985.cpcom   +++|
01288  M00S00986.cpcom   +++|          PURGMAC =1IND
01289  M00S00987.cpcom   +++|
01290  M00S00988.cpcom   +++| =1IND    MACRO  FL,A,B

Seq #  *Modification Id* Act 
----------------------------+
01291  M01S00989.ns2011  ---|*                            SET INDEX ADDRESS AND LENGTH.

Seq #  *Modification Id* Act 
----------------------------+
01292  M01S00220.ns2011  +++|*         SET INDEX ADDRESS AND LENGTH.
01293  M00S00990.cpcom   +++|  =1B FL,8D,(INF,INL),(A,B)

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00991.cpcom   +++|  ENDM
01303  M00S00992.cpcom   +++|
01304  M00S00993.cpcom   +++|
01305  M00S00994.cpcom   +++|          PURGMAC =1LBL
01306  M00S00995.cpcom   +++|
01307  M00S00996.cpcom   +++| =1LBL    MACRO  FL

Seq #  *Modification Id* Act 
----------------------------+
01308  M01S00997.ns2011  ---|*                            SET FET LENGTH TO 13D.

Seq #  *Modification Id* Act 
----------------------------+
01309  M01S00221.ns2011  +++|*         SET FET LENGTH TO 13D.
01310  M00S00998.cpcom   +++|  =1B FL,13D
01311  M00S00999.cpcom   +++|  ENDM
01312  M00S01000.cpcom   +++|
01313  M00S01001.cpcom   +++|
01314  M00S01002.cpcom   +++|          PURGMAC =1OWN
01315  M00S01003.cpcom   +++|
01316  M00S01004.cpcom   +++| =1OWN    MACRO  FL,A,B,UP,EP

Seq #  *Modification Id* Act 
----------------------------+
01317  M01S01005.ns2011  ---|*                            SET OWN CODE PROCESSOR ADDRESSES.

Seq #  *Modification Id* Act 
----------------------------+
01318  M01S00222.ns2011  +++|*         SET OWN CODE PROCESSOR ADDRESSES.
01319  M00S01006.cpcom   +++|  =1B FL,9D,(EOI,ERR),(A,B)
01320  M00S01007.cpcom   +++|  IFC NE,  B ,2
01321  M00S01008.cpcom   +++|  IFC NE, 0 B ,1
01322  M00S01009.cpcom   +++|EP SET 1
01323  M00S01010.cpcom   +++|  ENDIF
01324  M00S01011.cpcom   +++|  ENDM
01325  M00S01012.cpcom   +++|
01326  M00S01013.cpcom   +++|
01327  M00S01014.cpcom   +++|          PURGMAC =1PFN
01328  M00S01015.cpcom   +++|
01329  M00S01016.cpcom   +++| =1PFN    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01330  M01S01017.ns2011  ---|*                            SET PERMANENT FILE NAME IN FET.

Seq #  *Modification Id* Act 
----------------------------+
01331  M01S00223.ns2011  +++|*         SET PERMANENT FILE NAME IN FET.
01332  M00S01018.cpcom   +++|.1 MICRO 1,5, A
01333  M00S01019.cpcom   +++|.2 MICRO 6,, A
01334  M00S01020.cpcom   +++|  =1B FL,9D,(PFN,PFO),(".1",".2")
01335  M00S01021.cpcom   +++|  ENDM
01336  M00S01022.cpcom   +++|
01337  M00S01023.cpcom   +++|
01338  M00S01024.cpcom   +++|          PURGMAC =1PKN
01339  M00S01025.cpcom   +++|
01340  M00S01026.cpcom   +++| =1PKN    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01341  M01S01027.ns2011  ---|*                            SET PERMANENT FILE PACK NAME.

Seq #  *Modification Id* Act 
----------------------------+
01342  M01S00224.ns2011  +++|*         SET PERMANENT FILE PACK NAME.
01343  M00S01028.cpcom   +++|  =1B FL,13D,PKN,A
01344  M00S01029.cpcom   +++|  ENDM
01345  M00S01030.cpcom   +++|
01346  M00S01031.cpcom   +++|
01347  M00S01032.cpcom   +++|          PURGMAC =1PWD
01348  M00S01033.cpcom   +++|
01349  M00S01034.cpcom   +++| =1PWD    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01350  M01S01035.ns2011  ---|*                            SET PERMANENT FILE PASSWORD.

Seq #  *Modification Id* Act 
----------------------------+
01351  M01S00225.ns2011  +++|*         SET PERMANENT FILE PASSWORD.
01352  M00S01036.cpcom   +++|  =1B FL,11D,PWD,A
01353  M00S01037.cpcom   +++|  ENDM
01354  M00S01038.cpcom   +++|
01355  M00S01039.cpcom   +++|

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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01040.cpcom   +++|          PURGMAC =1UCW
01373  M00S01041.cpcom   +++|
01374  M00S01042.cpcom   +++| =1UCW    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01375  M01S01043.ns2011  ---|*                            SET PERMANENT FILE USER CONTROL WORD.

Seq #  *Modification Id* Act 
----------------------------+
01376  M01S00226.ns2011  +++|*         SET PERMANENT FILE USER CONTROL WORD.
01377  M00S01044.cpcom   +++|  =1B FL,12D,UCW,A
01378  M00S01045.cpcom   +++|  ENDM
01379  M00S01046.cpcom   +++|
01380  M00S01047.cpcom   +++|
01381  M00S01048.cpcom   +++|          PURGMAC =1UPR
01382  M00S01049.cpcom   +++|
01383  M00S01050.cpcom   +++| =1UPR    MACRO  FL,A,B,UP

Seq #  *Modification Id* Act 
----------------------------+
01384  M01S01051.ns2011  ---|*                            SET *UP* BIT IN FET+1.

Seq #  *Modification Id* Act 
----------------------------+
01385  M01S00227.ns2011  +++|*         SET *UP* BIT IN FET+1.
01386  M00S01052.cpcom   +++|UP SET 1
01387  M00S01053.cpcom   +++|  ENDM
01388  M00S01054.cpcom   +++|
01389  M00S01055.cpcom   +++|
01390  M00S01056.cpcom   +++|          PURGMAC =1USN
01391  M00S01057.cpcom   +++|
01392  M00S01058.cpcom   +++| =1USN    MACRO  FL,A

Seq #  *Modification Id* Act 
----------------------------+
01393  M01S01059.ns2011  ---|*                            SET PERMANENT FILE USER NUMBER IN FET.

Seq #  *Modification Id* Act 
----------------------------+
01394  M01S00228.ns2011  +++|*         SET PERMANENT FILE USER NUMBER IN FET.
01395  M00S01060.cpcom   +++|  =1B FL,10D,USN,A
01396  M00S01061.cpcom   +++|  ENDM
01397  M00S01062.cpcom   +++|
01398  M00S01063.cpcom   +++|
01399  M00S01064.cpcom   +++|          PURGMAC =1WSA
01400  M00S01065.cpcom   +++|
01401  M00S01066.cpcom   +++| =1WSA    MACRO  FL,A,B

Seq #  *Modification Id* Act 
----------------------------+
01402  M01S01067.ns2011  ---|*                            SET WORKING STORAGE BUFFER ADDRESSES.

Seq #  *Modification Id* Act 
----------------------------+
01403  M01S00229.ns2011  +++|*         SET WORKING STORAGE BUFFER ADDRESSES.
01404  M00S01068.cpcom   +++|  =1B FL,6D,(WSF,WSL),(A,B)
01405  M00S01069.cpcom   +++|  ENDM
01406  M00S01070.cpcom   +++|
01407  M00S01071.cpcom   +++|
01408  M00S01072.cpcom   +++|          PURGMAC =1XL
01409  M00S01073.cpcom   +++|

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

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

Seq #  *Modification Id* Act 
----------------------------+
01412  M01S01075.ns2011  ---|*                            SET FET LENGTH TO 13D AND *XL* FLAG BIT

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

Seq #  *Modification Id* Act 
----------------------------+
01417  M01S01079.ns2011  ---| FILEB    SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
01420  M01S01081.ns2011  ---|*
01421  M00S01082.cpcom   +++|*
01422  M00S01083.cpcom   +++|*LFN      FILEB  FWA,LENGTH,A,B,C,...,P
01423  M00S01084.cpcom   +++|
01424  M00S01085.cpcom   +++|
01425  M00S01086.cpcom   +++|          PURGMAC FILEB
01426  M00S01087.cpcom   +++|
01427  M00S01088.cpcom   +++|          MACRO  FILEB,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01428  M00S01089.cpcom   +++|  =1 1,0,5D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01429  M00S01090.cpcom   +++|,,(M),(N),(O),(P))
01430  M00S01091.cpcom   +++|  MACREF FILEB
01431  M00S01092.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01432  M01S01093.ns2011  ---| FILEC    SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
01435  M01S01095.ns2011  ---|*
01436  M00S01096.cpcom   +++|*
01437  M00S01097.cpcom   +++|*LFN      FILEC  FWA,LENGTH,A,B,C,...,P
01438  M00S01098.cpcom   +++|
01439  M00S01099.cpcom   +++|
01440  M00S01100.cpcom   +++|          PURGMAC FILEC
01441  M00S01101.cpcom   +++|
01442  M00S01102.cpcom   +++|          MACRO  FILEC,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01443  M00S01103.cpcom   +++|  =1 0,0,5D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01444  M00S01104.cpcom   +++|,,(M),(N),(O),(P))
01445  M00S01105.cpcom   +++|  MACREF FILEC
01446  M00S01106.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01447  M01S01107.ns2011  ---| RFILEB   SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
01450  M01S01109.ns2011  ---|*
01451  M00S01110.cpcom   +++|*
01452  M00S01111.cpcom   +++|*LFN      RFILEB FWA,LENGTH,A,B,C,...,P
01453  M00S01112.cpcom   +++|
01454  M00S01113.cpcom   +++|
01455  M00S01114.cpcom   +++|          PURGMAC RFILEB
01456  M00S01115.cpcom   +++|
01457  M00S01116.cpcom   +++|          MACRO  RFILEB,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01458  M00S01117.cpcom   +++|  =1 1,1,8D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01459  M00S01118.cpcom   +++|,,(M),(N),(O),(P))
01460  M00S01119.cpcom   +++|  MACREF RFILEB
01461  M00S01120.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01462  M01S01121.ns2011  ---| RFILEC   SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
01465  M01S01123.ns2011  ---|*
01466  M00S01124.cpcom   +++|*
01467  M00S01125.cpcom   +++|*LFN      RFILEC FWA,LENGTH,A,B,C,...,P
01468  M00S01126.cpcom   +++|
01469  M00S01127.cpcom   +++|
01470  M00S01128.cpcom   +++|          PURGMAC RFILEC
01471  M00S01129.cpcom   +++|
01472  M00S01130.cpcom   +++|          MACRO  RFILEC,LFN,FWA,LEN,A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P
01473  M00S01131.cpcom   +++|  =1 0,1,8D,LFN,FWA,LEN,((A),(B),(C),(D),(E),(F),(G),(H),(I),(J),(K),(L)
01474  M00S01132.cpcom   +++|,,(M),(N),(O),(P))
01475  M00S01133.cpcom   +++|  MACREF RFILEC
01476  M00S01134.cpcom   +++|  ENDM
01477  M00S01135.cpcom   +++|          TITLE  LOCAL FILE ACTION MACROS.

Seq #  *Modification Id* Act 
----------------------------+
01478  M01S01136.ns2011  ---| FILE     SPACE  4
01479  M01S01137.ns2011  ---|***              FILE ACTION REQUESTS FORMAT REQUESTS INTO X REGISTERS
01480  M01S01138.ns2011  ---|*         AND RETURN JUMP TO SUBROUTINES FOR PROCESSING.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01139.cpcom   +++|*
01485  M00S01140.cpcom   +++|*         THE FOLLOWING INFORMATION APPLIES TO ALL I/O FUNCTION
01486  M00S01141.cpcom   +++|*         REQUESTS -
01487  M00S01142.cpcom   +++|*
01488  M00S01143.cpcom   +++|*                THE PARAMETER *FILE* IS THE ADDRESS OF THE FET
01489  M00S01144.cpcom   +++|*                IS USED TO CONTROL THE FILE FOR WHICH THE OPERATION
01490  M00S01145.cpcom   +++|*                IS REQUESTED.
01491  M00S01146.cpcom   +++|*
01492  M00S01147.cpcom   +++|*                IF THE PARAMETER *RECALL* IS PRESENT IN THE MACRO
01493  M00S01148.cpcom   +++|*                CALL, CONTROL WILL BE RETURNED TO THE USER PROGRAM
01494  M00S01149.cpcom   +++|*                WHEN THE REQUESTED FUNCTION IS COMPLETE.  IF
01495  M00S01150.cpcom   +++|*                *RECALL* IS NOT SPECIFIED, CONTROL WILL BE RETURNED
01496  M00S01151.cpcom   +++|*                WHEN THE OPERATION IS REQUESTED.
01497  M00S01152.cpcom   +++|*
01498  M00S01153.cpcom   +++|*         ENTRY  COMMON DECK

Seq #  *Modification Id* Act 
----------------------------+
01499  M01S01154.ns2011  ---|*         CIO=   COMCCIO
01500  M01S01155.ns2011  ---|*         LFM=   COMCLFM
01501  M01S01156.ns2011  ---|          SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01502  M01S00238.ns2011  +++|*                CIO=  *COMCCIO*
01503  M01S00239.ns2011  +++|*                LFM=  *COMCLFM*
01504  M01S00240.ns2011  +++|          SPACE  4,10
01505  M00S01157.cpcom   +++|**        BASIC I/O FUNCTION REQUEST MACROS.
01506  M00S01158.cpcom   +++|
01507  M00S01159.cpcom   +++|
01508  M00S01160.cpcom   +++|          PURGMAC =2
01509  M00S01161.cpcom   +++|
01510  M00S01162.cpcom   +++| =2       MACRO  F,L,O
01511  M00S01163.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
01512  M01S01164.ns2011  ---|*                            (X7) = OPCODE
01513  M01S01165.ns2011  ---|*                            (X7) = -OPCODE IF RECALL REQUESTED

Seq #  *Modification Id* Act 
----------------------------+
01514  M01S00241.ns2011  +++|*         (X7) = OPCODE.
01515  M01S00242.ns2011  +++|*         (X7) = -OPCODE IF RECALL REQUESTED.
01516  M00S01166.cpcom   +++|  IFC EQ,$L$$
01517  M00S01167.cpcom   +++|  SX7 O
01518  M00S01168.cpcom   +++|  ELSE 1
01519  M00S01169.cpcom   +++|  SX7 -O

Seq #  *Modification Id* Act 
----------------------------+
01520  M01S01170.ns2011  ---|*                            PROCESS REQUEST

Seq #  *Modification Id* Act 
----------------------------+
01521  M01S00243.ns2011  +++|*         PROCESS REQUEST.
01522  M00S01171.cpcom   +++|  RJ =XCIO=
01523  M00S01172.cpcom   +++|  ENDM
01524  M00S01173.cpcom   +++|          SPACE  4,10
01525  M00S01174.cpcom   +++|          PURGMAC =2A
01526  M00S01175.cpcom   +++|
01527  M00S01176.cpcom   +++| =2A      MACRO  F,C
01528  M00S01177.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
01529  M01S00001.cpcom1  +++|  RECALL X2
01530  M00S01178.cpcom   +++|  MX7 1
01531  M00S01179.cpcom   +++|  BX2 X7+X2
01532  M00S01180.cpcom   +++|  SX7 C
01533  M00S01181.cpcom   +++|  RJ =XCIO=
01534  M00S01182.cpcom   +++|  ENDM
01535  M00S01183.cpcom   +++| ASSIGN   SPACE  4,15
01536  M00S01184.cpcom   +++|***       ASSIGN - ASSIGN SYSTEM OR LIBRARY FILE TO JOB.
01537  M00S01185.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01538  M01S01186.ns2011  ---|*
01539  M00S01187.cpcom   +++|*         ASSIGN FILE,LIBRARY
01540  M00S01188.cpcom   +++|*
01541  M00S01189.cpcom   +++|*         ENTRY  *LIBRARY* IS PRESENT, FILE WILL BE ASSIGNED FROM
01542  M00S01190.cpcom   +++|*                SYSTEM LIBRARY IF AVAILABLE.
01543  M00S01191.cpcom   +++|*                *LIBRARY* NOT PRESENT, *SYSTEM* FILE WILL
01544  M00S01192.cpcom   +++|*                BE ASSIGNED IF SYSTEM ORIGIN JOB OR USER
01545  M00S01193.cpcom   +++|*                IS ALLOWED TO ACCESS *SYSTEM* FILE.
01546  M00S01194.cpcom   +++|*
01547  M00S01195.cpcom   +++|*         CALLS  LFM=.
01548  M00S01196.cpcom   +++|
01549  M00S01197.cpcom   +++|
01550  M00S01198.cpcom   +++|          PURGMAC ASSIGN
01551  M00S01199.cpcom   +++|
01552  M00S01200.cpcom   +++| ASSIGN   MACRO  F,L
01553  M00S01201.cpcom   +++|  MACREF ASSIGN
01554  M00S01202.cpcom   +++|  R= X2,F
01555  M00S01203.cpcom   +++|  IFC EQ,$L$$
01556  M00S01204.cpcom   +++|  MX6 1
01557  M00S01205.cpcom   +++|  LX6 1+18D
01558  M00S01206.cpcom   +++|  BX2 X2+X6
01559  M00S01207.cpcom   +++|  ENDIF
01560  M00S01208.cpcom   +++|  SX7 20B
01561  M00S01209.cpcom   +++|  RJ =XLFM=
01562  M00S01210.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01563  M01S01211.ns2011  ---| BKSP     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01564  M01S00244.ns2011  +++| BKSP     SPACE  4,10
01565  M00S01212.cpcom   +++|***       BKSP - BACKSPACE 1 LOGICAL RECORD.
01566  M00S01213.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01567  M01S00245.ns2011  +++|*         BKSP   FILE,RECALL
01568  M00S01214.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01569  M01S01215.ns2011  ---|*         BKSP   FILE,RECALL
01570  M00S01216.cpcom   +++|*         CALLS  CIO=.
01571  M00S01217.cpcom   +++|
01572  M00S01218.cpcom   +++|
01573  M00S01219.cpcom   +++|          PURGMAC BKSP
01574  M00S01220.cpcom   +++|
01575  M00S01221.cpcom   +++| BKSP     MACRO  F,L
01576  M00S01222.cpcom   +++|  MACREF BKSP
01577  M00S01223.cpcom   +++|  =2 F,L,40B
01578  M00S01224.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01579  M01S01225.ns2011  ---| BKSPRU   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01580  M01S00246.ns2011  +++| BKSPRU   SPACE  4,10
01581  M00S01226.cpcom   +++|***       BKSPRU - BACKSPACE PHYSICAL RECORDS.
01582  M00S01227.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01583  M01S00247.ns2011  +++|*         BKSPRU FILE,N,RECALL
01584  M00S01228.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01585  M01S01229.ns2011  ---|*         BKSPRU FILE,N,RECALL
01586  M00S01230.cpcom   +++|*         ENTRY  *N* = RECORD COUNT.

Seq #  *Modification Id* Act 
----------------------------+
01587  M01S00248.ns2011  +++|*
01588  M00S01231.cpcom   +++|*         CALLS  CIO=.
01589  M00S01232.cpcom   +++|
01590  M00S01233.cpcom   +++|
01591  M00S01234.cpcom   +++|          PURGMAC BKSPRU
01592  M00S01235.cpcom   +++|
01593  M00S01236.cpcom   +++| BKSPRU   MACRO  F,N,L
01594  M00S01237.cpcom   +++|  MACREF BKSPRU
01595  M00S01238.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
01596  M01S01239.cpcom2  ---|  IFNE N,,3

Seq #  *Modification Id* Act 
----------------------------+
01597  M01S00001.cpcom2  +++|.A IFNE N,0
01598  M00S01240.cpcom   +++|  R= X1,N

Seq #  *Modification Id* Act 
----------------------------+
01599  M01S00002.cpcom2  +++|  MX7 -18
01600  M01S00003.cpcom2  +++|  BX1 -X7*X1
01601  M00S01241.cpcom   +++|  LX1 18D
01602  M00S01242.cpcom   +++|  BX2 X1+X2

Seq #  *Modification Id* Act 
----------------------------+
01603  M01S00004.cpcom2  +++|.A ENDIF
01604  M00S01243.cpcom   +++|  IFC EQ,$L$$
01605  M00S01244.cpcom   +++|  SX7 44B
01606  M00S01245.cpcom   +++|  ELSE 1
01607  M00S01246.cpcom   +++|  SX7 -44B
01608  M00S01247.cpcom   +++|  RJ =XCIO=
01609  M00S01248.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01610  M01S01249.ns2011  ---| CLOSE    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01611  M01S00249.ns2011  +++| CLOSE    SPACE  4,15
01612  M00S01250.cpcom   +++|***       CLOSE - CLOSE FILE.
01613  M00S01251.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01614  M01S00250.ns2011  +++|*         CLOSE  FILE,TYPE,RECALL
01615  M00S01252.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01616  M01S01253.ns2011  ---|*         CLOSE  FILE,TYPE,RECALL
01617  M00S01254.cpcom   +++|*         ENTRY  *TYPE* AS FOLLOWS -
01618  M00S01255.cpcom   +++|*                NR          DO NOT REWIND FILE
01619  M00S01256.cpcom   +++|*                UNLOAD      UNLOAD FILE
01620  M00S01257.cpcom   +++|*                RETURN      RETURN FILE
01621  M00S01258.cpcom   +++|*                REWIND      REWIND FILE

Seq #  *Modification Id* Act 
----------------------------+
01622  M01S00251.ns2011  +++|*
01623  M00S01259.cpcom   +++|*         CALLS  CIO=.
01624  M00S01260.cpcom   +++|
01625  M00S01261.cpcom   +++|
01626  M00S01262.cpcom   +++|          PURGMAC CLOSE
01627  M00S01263.cpcom   +++|
01628  M00S01264.cpcom   +++| CLOSE    MACRO  F,T,L
01629  M00S01265.cpcom   +++|          LOCAL  A
01630  M00S01266.cpcom   +++|  MACREF CLOSE
01631  M00S01267.cpcom   +++|  R= X2,F
01632  M00S01268.cpcom   +++|A SET 0
01633  M00S01269.cpcom   +++|  ECHO 3,B=(,NR,UNLOAD,RETURN,REWIND),C=(150B,130B,170B,174B,150B)
01634  M00S01270.cpcom   +++|  IFC EQ,$B$T$,2
01635  M00S01271.cpcom   +++|  STOPDUP
01636  M00S01272.cpcom   +++|A SET C
01637  M00S01273.cpcom   +++|  IFEQ A,,1
01638  M00S01274.cpcom   +++|  ERR ILLEGAL CLOSE TYPE - T
01639  M00S01275.cpcom   +++|  IFC EQ,$L$$
01640  M00S01276.cpcom   +++|  SX7 A
01641  M00S01277.cpcom   +++|  ELSE 1
01642  M00S01278.cpcom   +++|  SX7 -A
01643  M00S01279.cpcom   +++|  RJ =XCIO=
01644  M00S01280.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01645  M01S01281.ns2011  ---| CLOSER   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01646  M01S00252.ns2011  +++| CLOSER   SPACE  4,10
01647  M00S01282.cpcom   +++|***       CLOSER - CLOSE MAGNETIC TAPE REEL.
01648  M00S01283.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01649  M01S00253.ns2011  +++|*         CLOSER FILE,TYPE,RECALL
01650  M00S01284.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01651  M01S01285.ns2011  ---|*         CLOSER FILE,TYPE,RECALL
01652  M00S01286.cpcom   +++|*         ENTRY  *TYPE* AS FOLLOWS -
01653  M00S01287.cpcom   +++|*                NR          DO NOT REWIND
01654  M00S01288.cpcom   +++|*                UNLOAD      UNLOAD
01655  M00S01289.cpcom   +++|*                IF ABSENT   REWIND

Seq #  *Modification Id* Act 
----------------------------+
01656  M01S00001.ns2106  +++|*                RETURN      RETURN

Seq #  *Modification Id* Act 
----------------------------+
01657  M01S00254.ns2011  +++|*
01658  M00S01290.cpcom   +++|*         CALLS  CIO=.
01659  M00S01291.cpcom   +++|
01660  M00S01292.cpcom   +++|
01661  M00S01293.cpcom   +++|          PURGMAC CLOSER
01662  M00S01294.cpcom   +++|
01663  M00S01295.cpcom   +++| CLOSER   MACRO  F,T,L
01664  M00S01296.cpcom   +++|          LOCAL  A
01665  M00S01297.cpcom   +++|  MACREF CLOSER
01666  M00S01298.cpcom   +++|  R= X2,F
01667  M00S01299.cpcom   +++|A SET 0

Seq #  *Modification Id* Act 
----------------------------+
01668  M01S01300.ns2106  ---|  ECHO 3,B=(,NR,UNLOAD),C=(350B,330B,370B)

Seq #  *Modification Id* Act 
----------------------------+
01669  M01S00002.ns2106  +++|  ECHO 3,B=(,NR,UNLOAD,RETURN),C=(350B,330B,370B,374B)
01670  M00S01301.cpcom   +++|  IFC EQ,$B$T$,2
01671  M00S01302.cpcom   +++|  STOPDUP
01672  M00S01303.cpcom   +++|A SET C
01673  M00S01304.cpcom   +++|  IFEQ A,,1
01674  M00S01305.cpcom   +++|  ERR ILLEGAL CLOSER TYPE - T
01675  M00S01306.cpcom   +++|  IFC EQ,$L$$
01676  M00S01307.cpcom   +++|  SX7 A
01677  M00S01308.cpcom   +++|  ELSE 1
01678  M00S01309.cpcom   +++|  SX7 -A
01679  M00S01310.cpcom   +++|  RJ =XCIO=
01680  M00S01311.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01681  M01S01312.ns2011  ---| EVICT    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01682  M01S00255.ns2011  +++| EVICT    SPACE  4,10
01683  M00S01313.cpcom   +++|***       EVICT - RELEASE FILE SPACE.
01684  M00S01314.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01685  M01S00256.ns2011  +++|*         EVICT  FILE,RECALL
01686  M00S01315.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01687  M01S01316.ns2011  ---|*         EVICT  FILE,RECALL
01688  M01S01317.ns2011  ---|*         CALLS CIO=.

Seq #  *Modification Id* Act 
----------------------------+
01689  M01S00257.ns2011  +++|*         CALLS  CIO=.
01690  M00S01318.cpcom   +++|
01691  M00S01319.cpcom   +++|
01692  M00S01320.cpcom   +++|          PURGMAC EVICT
01693  M00S01321.cpcom   +++|
01694  M00S01322.cpcom   +++| EVICT    MACRO  F,L
01695  M00S01323.cpcom   +++|  MACREF EVICT
01696  M00S01324.cpcom   +++|  =2 F,L,114B
01697  M00S01325.cpcom   +++|  ENDM
01698  M00S01326.cpcom   +++| FILINFO  SPACE  4,10
01699  M00S01327.cpcom   +++|***       FILINFO - RETURN SYSTEM INFORMATION ABOUT SPECIFIED FILE.
01700  M00S01328.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01701  M01S00258.ns2011  +++|*         FILINFO ADDR
01702  M00S01329.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01703  M01S01330.ns2011  ---|*         FILINFO ADDR
01704  M00S01331.cpcom   +++|*         ENTRY  *ADDR* - ADDRESS OF PARAMETER BLOCK TO RECEIVE
01705  M00S01332.cpcom   +++|*                         INFORMATION.
01706  M00S01333.cpcom   +++|*
01707  M00S01334.cpcom   +++|*         CALLS  LFM=.
01708  M00S01335.cpcom   +++|
01709  M00S01336.cpcom   +++|
01710  M00S01337.cpcom   +++|          PURGMAC FILINFO
01711  M00S01338.cpcom   +++|
01712  M00S01339.cpcom   +++| FILINFO  MACRO  F
01713  M00S01340.cpcom   +++|  MACREF FILINFO
01714  M00S01341.cpcom   +++|  R= X2,F
01715  M00S01342.cpcom   +++|  SX7 32B
01716  M00S01343.cpcom   +++|  RJ =XLFM=
01717  M00S01344.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01718  M01S01345.ns2011  ---| LABEL    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01719  M01S00259.ns2011  +++| LABEL    SPACE  4,80
01720  M00S01346.cpcom   +++|***       LABEL - REQUEST AUTOMATIC MAGNETIC TAPE ASSIGNMENT.
01721  M00S01347.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01722  M01S00260.ns2011  +++|*         LABEL  F
01723  M00S01348.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01724  M01S01349.ns2011  ---|*         LABEL  F
01725  M00S01350.cpcom   +++|*         ENTRY  *F* = FET ADDRESS
01726  M00S01351.cpcom   +++|*                FET+10B - FET+15B CONTAIN TAPE DESCRIPTORS AND
01727  M00S01352.cpcom   +++|*                LABEL INFORMATION IN THE FORMAT -
01728  M00S01353.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01355.cpcom   +++|*         R      LABEL PROCESSING
01732  M00S01356.cpcom   +++|*                0 = READ LABEL   FILE OPENED BY OPEN/ALTER
01733  M00S01357.cpcom   +++|*                1 = WRITE LABEL  FILE OPENED BY OPEN/WRITE
01734  M00S01358.cpcom   +++|*         L      NOS LABELED IF SET
01735  M00S01359.cpcom   +++|*         N      NON-STANDARD LABELS IF SET

Seq #  *Modification Id* Act 
----------------------------+
01736  M01S01360.cpcom12 ---|*         T      NINE TRACK IF SET, OTHERWISE SEVEN TRACK

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01361.cpcom   +++|*         D      DENSITY
01743  M00S01362.cpcom   +++|*                0 = INSTALLATION DEFAULT
01744  M00S01363.cpcom   +++|*                1 = 556 BPI
01745  M00S01364.cpcom   +++|*                2 = 200 BPI
01746  M00S01365.cpcom   +++|*                3 = 800 BPI/CPI
01747  M00S01366.cpcom   +++|*                4 = 1600 CPI
01748  M00S01367.cpcom   +++|*                5 = 6250 CPI

Seq #  *Modification Id* Act 
----------------------------+
01749  M01S00007.cpcom12 +++|*                6 = 38000 CPI
01750  M00S01368.cpcom   +++|*         CV     CONVERSION MODE
01751  M00S01369.cpcom   +++|*                0 = INSTALLATION DEFAULT

Seq #  *Modification Id* Act 
----------------------------+
01752  M01S01370.ns2011  ---|*                1 = USASI/ASCII CONVERSION 9 TRACK

Seq #  *Modification Id* Act 
----------------------------+
01753  M01S00261.ns2011  +++|*                1 = ASCII/USCII CONVERSION 9 TRACK
01754  M00S01371.cpcom   +++|*                2 = EBCDIC CONVERSION 9 TRACK
01755  M00S01372.cpcom   +++|*         PO     PROCESSING OPTIONS
01756  M00S01373.cpcom   +++|*                XXX0 = ABORT ON P.E. UNLESS E.P. SET
01757  M00S01374.cpcom   +++|*                XXX1 = ABORT ON P.E. REGARDLESS OF E.P.
01758  M00S01375.cpcom   +++|*                XXX2 = NO ABORT ON P.E.
01759  M00S01376.cpcom   +++|*                XXX4 = INHIBIT ERROR PROCESSING
01760  M00S01377.cpcom   +++|*                XX1X = ENFORCE RING OUT
01761  M00S01378.cpcom   +++|*                XX2X = ENFORCE RING IN
01762  M00S01379.cpcom   +++|*                XX4X = INHIBIT UNLOAD
01763  M00S01380.cpcom   +++|*                X1XX = DISABLE 6250 CPI WRITE ERROR CORRECTION
01764  M00S01381.cpcom   +++|*                X2XX = TOGGLE TAPE MESSAGES TO USER DAYFILE FLAG
01765  M00S01382.cpcom   +++|*                0XXX = DEFAULT EOT OPTION SELECTED ACCORDING TO
01766  M00S01383.cpcom   +++|*                       LABEL AND FORMAT SPECIFICATION
01767  M00S01384.cpcom   +++|*                1XXX = STOP ON TAPE MARK AFTER EOT (UNLABELED)
01768  M00S01385.cpcom   +++|*                1XXX = STOP ON TAPE MARK PLUS LABELS (LABELED)
01769  M00S01386.cpcom   +++|*                2XXX = ACCEPT BLOCK IN PROGRESS ON EOT
01770  M00S01387.cpcom   +++|*                4XXX = INGORE BLOCK IN PROGRESS ON EOT
01771  M00S01388.cpcom   +++|*         F      DATA FORMAT
01772  M00S01389.cpcom   +++|*                0 = INTERNAL BINARY
01773  M00S01390.cpcom   +++|*                1 = SYSTEM INTERNAL (NOS/BE COMPATIBLE)
01774  M00S01391.cpcom   +++|*                2 = FOREIGN
01775  M00S01392.cpcom   +++|*                3 = STRANGER
01776  M00S01393.cpcom   +++|*                4 = LONG RECORD STRANGER

Seq #  *Modification Id* Act 
----------------------------+
01777  M01S00008.cpcom12 +++|*                5 = LONG RECORD INTERNAL BINARY
01778  M00S01394.cpcom   +++|*         NS     NOISE SIZE IN FRAMES
01779  M00S01395.cpcom   +++|*         FC     BLOCK SIZE IN FRAMES
01780  M00S01396.cpcom   +++|*
01781  M00S01397.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  M00S01398.cpcom   +++|*         VSN    6 CHARACTER VOLUME SERIAL NUMBER  (SPACE FILLED)
01783  M00S01399.cpcom   +++|*         A      1 CHARACTER ACCESSIBILITY  (DEFAULT = * *)
01784  M00S01400.cpcom   +++|*         SN     FILE SECTION NUMBER  (DEFAULT = 0001)
01785  M00S01401.cpcom   +++|*
01786  M00S01402.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  M00S01403.cpcom   +++|*         FI     FIRST 10 CHARACTERS OF FILE IDENTIFIER
01788  M00S01404.cpcom   +++|*
01789  M00S01405.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  M00S01406.cpcom   +++|*         FI     LAST 7 CHARACTERS OF FILE IDENTIFIER  (SPACE FILLED)
01791  M00S01407.cpcom   +++|*         QN     FILE SEQUENCE NUMBER  (DEFAULT = 0001)
01792  M00S01408.cpcom   +++|*
01793  M00S01409.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  M00S01410.cpcom   +++|*         SI     6 CHARACTER MULTI-SET IDENTIFIER  (SPACE FILLED)
01795  M00S01411.cpcom   +++|*         E      GENERATION VERSION NUMBER  (DEFAULT = 00)
01796  M00S01412.cpcom   +++|*         G      GENERATION NUMBER  (DEFAULT = 0001)
01797  M00S01413.cpcom   +++|*
01798  M00S01414.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  M00S01415.cpcom   +++|*         RTD    RETENTION DATE (JULIAN)  (DEFAULT = TODAY)
01800  M00S01416.cpcom   +++|*         CRD    CREATION DATE (JULIAN)  (DEFAULT = TODAY)
01801  M00S01417.cpcom   +++|*
01802  M00S01418.cpcom   +++|*         FOR AUTOMATIC ASSIGNMENT, A VOLUME SERIAL NUMBER MUST BE

Seq #  *Modification Id* Act 
----------------------------+
01803  M01S01419.ns2011  ---|*         SUPPLIED EITHER THROUGH A *VSN* CONTROL CARD OR BY THE VSN
01804  M01S01420.ns2011  ---|*         FIELD IN FET+11B.  IF THE VSN FIELD IS ZERO AND NO
01805  M01S01421.ns2011  ---|*         VSN HAS BEEN SPECIFIED BY A VSN CARD, THE OPERATOR

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01422.cpcom   +++|*         WILL BE REQUESTED TO ASSIGN THE APPROPRIATE EQUIPMENT.
01810  M00S01423.cpcom   +++|*
01811  M00S01424.cpcom   +++|*         CALLS  LFM=.
01812  M00S01425.cpcom   +++|
01813  M00S01426.cpcom   +++|
01814  M00S01427.cpcom   +++|          PURGMAC LABEL
01815  M00S01428.cpcom   +++|
01816  M00S01429.cpcom   +++| LABEL    MACRO  F
01817  M00S01430.cpcom   +++|  MACREF LABEL
01818  M00S01431.cpcom   +++|  R= X2,F
01819  M00S01432.cpcom   +++|  SX7 24B
01820  M00S01433.cpcom   +++|  RJ =XLFM=
01821  M00S01434.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01822  M01S01435.ns2011  ---| LOCK     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01823  M01S00265.ns2011  +++| LOCK     SPACE  4,10
01824  M00S01436.cpcom   +++|***       LOCK - SET WRITE LOCK OUT.
01825  M00S01437.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01826  M01S00266.ns2011  +++|*         LOCK   FILE
01827  M00S01438.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01828  M01S01439.ns2011  ---|*         LOCK   FILE
01829  M00S01440.cpcom   +++|*         FILE MUST BE LOCAL OR PRIMARY.

Seq #  *Modification Id* Act 
----------------------------+
01830  M01S00267.ns2011  +++|*
01831  M00S01441.cpcom   +++|*         CALLS  LFM=.
01832  M00S01442.cpcom   +++|
01833  M00S01443.cpcom   +++|
01834  M00S01444.cpcom   +++|          PURGMAC LOCK
01835  M00S01445.cpcom   +++|
01836  M00S01446.cpcom   +++| LOCK     MACRO  F
01837  M00S01447.cpcom   +++|  MACREF LOCK
01838  M00S01448.cpcom   +++|  R= X2,F
01839  M00S01449.cpcom   +++|  SX7 10B
01840  M00S01450.cpcom   +++|  RJ =XLFM=
01841  M00S01451.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01842  M01S01452.ns2011  ---| OPEN     SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01843  M01S00268.ns2011  +++| OPEN     SPACE  4,20
01844  M00S01453.cpcom   +++|***       OPEN - OPEN FILE FOR PROCESSING.
01845  M00S01454.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01846  M01S00269.ns2011  +++|*         OPEN   FILE,TYPE,RECALL
01847  M00S01455.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01848  M01S01456.ns2011  ---|*         OPEN   FILE,TYPE,RECALL
01849  M00S01457.cpcom   +++|*         ENTRY  *TYPE* AS FOLLOWS.
01850  M00S01458.cpcom   +++|*                READ
01851  M00S01459.cpcom   +++|*                READNR
01852  M00S01460.cpcom   +++|*                WRITE
01853  M00S01461.cpcom   +++|*                WRITENR
01854  M00S01462.cpcom   +++|*                ALTER
01855  M00S01463.cpcom   +++|*                ALTERNR
01856  M00S01464.cpcom   +++|*                REEL
01857  M00S01465.cpcom   +++|*                NR
01858  M00S01466.cpcom   +++|*                REELNR
01859  M00S01467.cpcom   +++|*                IF ABSENT, REWIND

Seq #  *Modification Id* Act 
----------------------------+
01860  M01S00270.ns2011  +++|*
01861  M00S01468.cpcom   +++|*         CALLS  CIO=.
01862  M00S01469.cpcom   +++|
01863  M00S01470.cpcom   +++|
01864  M00S01471.cpcom   +++|          PURGMAC OPEN
01865  M00S01472.cpcom   +++|
01866  M00S01473.cpcom   +++| OPEN     MACRO  F,T,L
01867  M00S01474.cpcom   +++|          LOCAL  A
01868  M00S01475.cpcom   +++|  MACREF OPEN
01869  M00S01476.cpcom   +++|  R= X2,F
01870  M00S01477.cpcom   +++|A SET 0
01871  M00S01478.cpcom   +++|  ECHO 3,B=(,READ,REEL,ALTER,WRITE,NR,READNR,REELNR,ALTERNR,WRITENR),C=(
01872  M00S01479.cpcom   +++|,160B,140B,340B,160B,144B,120B,100B,300B,120B,104B)
01873  M00S01480.cpcom   +++|  IFC EQ,$B$T$,2
01874  M00S01481.cpcom   +++|  STOPDUP
01875  M00S01482.cpcom   +++|A SET C
01876  M00S01483.cpcom   +++|  IFEQ A,,1
01877  M00S01484.cpcom   +++|  ERR ILLEGAL OPEN TYPE - T
01878  M00S01485.cpcom   +++|  IFC EQ,$L$$
01879  M00S01486.cpcom   +++|  SX7 A
01880  M00S01487.cpcom   +++|  ELSE 1
01881  M00S01488.cpcom   +++|  SX7 -A
01882  M00S01489.cpcom   +++|  RJ =XCIO=
01883  M00S01490.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
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  M01S01491.ns2011  ---| POSMF    SPACE  4
01921  M01S01492.ns2011  ---|***       POSMF - POSITION MULTI-FILE SET.
01922  M01S01493.ns2011  ---|*         MAGNETIC TAPE ONLY.

Seq #  *Modification Id* Act 
----------------------------+
01923  M01S00271.ns2011  +++| POSMF    SPACE  4,10
01924  M01S00272.ns2011  +++|***       POSMF - POSITION MULTI-FILE SET.
01925  M01S00273.ns2011  +++|*         MAGNETIC TAPE ONLY.
01926  M00S01494.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01927  M01S00274.ns2011  +++|*         POSMF  FILE,RECALL
01928  M00S01495.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01929  M01S01496.ns2011  ---|*         POSMF  FILE,RECALL
01930  M00S01497.cpcom   +++|*         CALLS  CIO=.
01931  M00S01498.cpcom   +++|
01932  M00S01499.cpcom   +++|
01933  M00S01500.cpcom   +++|          PURGMAC POSMF
01934  M00S01501.cpcom   +++|
01935  M00S01502.cpcom   +++| POSMF    MACRO  F,L
01936  M00S01503.cpcom   +++|  MACREF POSMF
01937  M00S01504.cpcom   +++|  =2 F,L,110B
01938  M00S01505.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01939  M01S01506.ns2011  ---| READ     SPACE  4
01940  M01S01507.ns2011  ---|***       READ - READ FILE TO CIO BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
01941  M01S00275.ns2011  +++| READ     SPACE  4,10
01942  M01S00276.ns2011  +++|***       READ - READ FILE TO *CIO* BUFFER.
01943  M00S01508.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01944  M01S00277.ns2011  +++|*         READ   FILE,RECALL
01945  M00S01509.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01946  M01S01510.ns2011  ---|*         READ   FILE,RECALL
01947  M01S01511.ns2011  ---|*         CALLS CIO=.

Seq #  *Modification Id* Act 
----------------------------+
01948  M01S00278.ns2011  +++|*         CALLS  CIO=.
01949  M00S01512.cpcom   +++|
01950  M00S01513.cpcom   +++|
01951  M00S01514.cpcom   +++|          PURGMAC READ
01952  M00S01515.cpcom   +++|
01953  M00S01516.cpcom   +++| READ     MACRO  F,L
01954  M00S01517.cpcom   +++|  MACREF READ
01955  M00S01518.cpcom   +++|  =2 F,L,10B
01956  M00S01519.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01957  M01S01520.ns2011  ---| READCW   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01958  M01S00279.ns2011  +++| READCW   SPACE  4,10
01959  M00S01521.cpcom   +++|***       READCW - READ NON-STOP WITH CONTROL WORDS.
01960  M00S01522.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01961  M01S00280.ns2011  +++|*         READCW FILE,LEVEL,RECALL
01962  M00S01523.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01963  M01S01524.ns2011  ---|*         READCW FILE,LEVEL,RECALL
01964  M00S01525.cpcom   +++|*         ENTRY  LEVEL= 0 OR ABSENT, STOP AT END OF INFORMATION.
01965  M00S01526.cpcom   +++|*                     = 17B, STOP AT END OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
01966  M01S00281.ns2011  +++|*
01967  M00S01527.cpcom   +++|*         CALLS  CIO=.
01968  M00S01528.cpcom   +++|
01969  M00S01529.cpcom   +++|
01970  M00S01530.cpcom   +++|          PURGMAC READCW
01971  M00S01531.cpcom   +++|
01972  M00S01532.cpcom   +++| READCW   MACRO  F,T,L
01973  M00S01533.cpcom   +++|  MACREF READCW
01974  M00S01534.cpcom   +++|  R= X2,F
01975  M00S01535.cpcom   +++|  SX7 200B
01976  M00S01536.cpcom   +++|  IFC NE,$T$$,3
01977  M00S01537.cpcom   +++|  R= X6,T
01978  M00S01538.cpcom   +++|  LX6 14D
01979  M00S01539.cpcom   +++|  BX7 X6+X7
01980  M00S01540.cpcom   +++|  IFC NE,$L$$,1
01981  M00S01541.cpcom   +++|  BX7 -X7
01982  M00S01542.cpcom   +++|  RJ =XCIO=
01983  M00S01543.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
01984  M01S01544.ns2011  ---| READEI   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
01985  M01S00282.ns2011  +++| READEI   SPACE  4,10
01986  M00S01545.cpcom   +++|***       READEI - READ FILE TO END OF INFORMATION.
01987  M00S01546.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01988  M01S00283.ns2011  +++|*         READEI FILE,RECALL
01989  M00S01547.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
01990  M01S01548.ns2011  ---|*         READEI FILE,RECALL
01991  M00S01549.cpcom   +++|*         CALLS  CIO=.
01992  M00S01550.cpcom   +++|
01993  M00S01551.cpcom   +++|
01994  M00S01552.cpcom   +++|          PURGMAC READEI
01995  M00S01553.cpcom   +++|
01996  M00S01554.cpcom   +++| READEI   MACRO  F,L
01997  M00S01555.cpcom   +++|  MACREF READEI
01998  M00S01556.cpcom   +++|  =2 F,L,600B
01999  M00S01557.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02000  M01S01558.ns2011  ---| READLS   SPACE  4
02001  M01S01559.ns2011  ---|***       READLS - READ FILE WITH LIST.

Seq #  *Modification Id* Act 
----------------------------+
02002  M01S00284.ns2011  +++| READLS   SPACE  4,10
02003  M01S00285.ns2011  +++|***       READLS - READ FILE WITH LIST.
02004  M01S00286.ns2011  +++|*         MASS STORAGE FILES ONLY.
02005  M00S01560.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02006  M01S00287.ns2011  +++|*         READLS FILE,RECALL
02007  M00S01561.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02008  M01S01562.ns2011  ---|*         READLS FILE,RECALL
02009  M01S01563.ns2011  ---|*         MASS STORAGE FILES ONLY.
02010  M00S01564.cpcom   +++|*         CALLS  CIO=.
02011  M00S01565.cpcom   +++|
02012  M00S01566.cpcom   +++|
02013  M00S01567.cpcom   +++|          PURGMAC READLS
02014  M00S01568.cpcom   +++|
02015  M00S01569.cpcom   +++| READLS   MACRO  F,L
02016  M00S01570.cpcom   +++|  MACREF READLS
02017  M00S01571.cpcom   +++|  =2 F,L,210B
02018  M00S01572.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02019  M01S01573.ns2011  ---| READN    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02020  M01S00288.ns2011  +++| READN    SPACE  4,10
02021  M00S01574.cpcom   +++|***       READN - READ *S* OR *L* FORMAT TAPE NON-STOP.
02022  M00S01575.cpcom   +++|*         MAGNETIC TAPE ONLY.
02023  M00S01576.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02024  M01S00289.ns2011  +++|*         READN  FILE,RECALL
02025  M00S01577.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02026  M01S01578.ns2011  ---|*         READN  FILE,RECALL
02027  M00S01579.cpcom   +++|*         CALLS  CIO=.
02028  M00S01580.cpcom   +++|
02029  M00S01581.cpcom   +++|
02030  M00S01582.cpcom   +++|          PURGMAC READN
02031  M00S01583.cpcom   +++|
02032  M00S01584.cpcom   +++| READN    MACRO  F,L
02033  M00S01585.cpcom   +++|  MACREF READN
02034  M00S01586.cpcom   +++|  =2 F,L,260B
02035  M00S01587.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02036  M01S01588.ns2011  ---| READNS   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02037  M01S00290.ns2011  +++| READNS   SPACE  4,10
02038  M00S01589.cpcom   +++|***       READNS - READ FILE NON-STOP. (READ TO EOF)
02039  M00S01590.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02040  M01S00291.ns2011  +++|*         READNS FILE,RECALL
02041  M00S01591.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02042  M01S01592.ns2011  ---|*         READNS FILE,RECALL
02043  M00S01593.cpcom   +++|*         CALLS  CIO=.
02044  M00S01594.cpcom   +++|
02045  M00S01595.cpcom   +++|
02046  M00S01596.cpcom   +++|          PURGMAC READNS
02047  M00S01597.cpcom   +++|
02048  M00S01598.cpcom   +++| READNS   MACRO  F,L
02049  M00S01599.cpcom   +++|  MACREF READNS
02050  M00S01600.cpcom   +++|  =2 F,L,250B
02051  M00S01601.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02052  M01S01602.ns2011  ---| READSKP  SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
02055  M01S01604.ns2011  ---|*         READSKP PERFORMS A READ FUNCTION UNTIL THE CIO BUFFER IS
02056  M01S01605.ns2011  ---|*         FULL, OR AN END OF RECORD, END OF FILE IS SENSED.
02057  M01S01606.ns2011  ---|*         IF THE BUFFER IS FILLED BEFORE EOR IS REACHED, THE FILE IS

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01607.cpcom   +++|*         POSITIONED TO END OF RECORD. IF *LEVEL* IS GIVEN AS 17B, THE
02063  M00S01608.cpcom   +++|*         FILE IS POSITIONED TO END OF FILE INSTEAD OF END OF RECORD.
02064  M00S01609.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02065  M01S00297.ns2011  +++|*         READSKP FILE,LEVEL,RECALL
02066  M00S01610.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02067  M01S01611.ns2011  ---|*         READSKP FILE,LEVEL,RECALL
02068  M00S01612.cpcom   +++|*         ENTRY  LEVEL= 0 OR ABSENT, SKIP TO END OF RECORD.
02069  M00S01613.cpcom   +++|*                     = 17B, SKIP TO END OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
02070  M01S00298.ns2011  +++|*
02071  M00S01614.cpcom   +++|*         CALLS  CIO=.
02072  M00S01615.cpcom   +++|
02073  M00S01616.cpcom   +++|
02074  M00S01617.cpcom   +++|          PURGMAC READSKP
02075  M00S01618.cpcom   +++|
02076  M00S01619.cpcom   +++| READSKP  MACRO  F,T,L
02077  M00S01620.cpcom   +++|  MACREF READSKP
02078  M00S01621.cpcom   +++|  R= X2,F
02079  M00S01622.cpcom   +++|  SX7 20B
02080  M00S01623.cpcom   +++|  IFC NE,$T$$,3
02081  M00S01624.cpcom   +++|  R= X6,T
02082  M00S01625.cpcom   +++|  LX6 14D
02083  M00S01626.cpcom   +++|  BX7 X6+X7
02084  M00S01627.cpcom   +++|  IFC NE,$L$$,1
02085  M00S01628.cpcom   +++|  BX7 -X7
02086  M00S01629.cpcom   +++|  RJ =XCIO=
02087  M00S01630.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02088  M01S01631.ns2011  ---| RENAME   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02089  M01S00299.ns2011  +++| RENAME   SPACE  4,10
02090  M00S01632.cpcom   +++|***       RENAME - RENAME FILE.
02091  M00S01633.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02092  M01S00300.ns2011  +++|*         RENAME FILE,NAME
02093  M00S01634.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02094  M01S01635.ns2011  ---|*         RENAME FILE,NAME
02095  M00S01636.cpcom   +++|*         ENTRY  *NAME* = ADDRESS OF NEW FILE NAME.
02096  M00S01637.cpcom   +++|*                IF *NAME* = *X1*, (X1) = NEW FILE NAME.
02097  M00S01638.cpcom   +++|*                IF *NAME* IS NOT PRESENT, (FET+6) = NEW FILE NAME.

Seq #  *Modification Id* Act 
----------------------------+
02098  M01S00301.ns2011  +++|*
02099  M00S01639.cpcom   +++|*         CALLS  LFM=.
02100  M00S01640.cpcom   +++|
02101  M00S01641.cpcom   +++|
02102  M00S01642.cpcom   +++|          PURGMAC RENAME
02103  M00S01643.cpcom   +++|
02104  M00S01644.cpcom   +++| RENAME   MACRO  F,N
02105  M00S01645.cpcom   +++|  MACREF RENAME
02106  M00S01646.cpcom   +++|  R= X2,F
02107  M00S01647.cpcom   +++|  IFC NE,$N$$,4
02108  M00S01648.cpcom   +++|  IFC NE,$N$X1$,1
02109  M00S01649.cpcom   +++|  SA1 N
02110  M00S01650.cpcom   +++|  BX6 X1
02111  M00S01651.cpcom   +++|  SA6 F+6
02112  M00S01652.cpcom   +++|  SX7 B0
02113  M00S01653.cpcom   +++|  RJ =XLFM=
02114  M00S01654.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02115  M01S01655.ns2011  ---| REQUEST  SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
02119  M01S01658.ns2011  ---|*         THE REQUEST MACRO CANNOT BE USED TO ASSIGN TAPE
02120  M01S01659.ns2011  ---|*         OR VSN EQUIPMENT.
02121  M01S01660.ns2011  ---|*

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

Seq #  *Modification Id* Act 
----------------------------+
02128  M01S01665.ns2011  ---|*                *UNIT* IF USED ASSIGNS THE EQUIPMENT DESIGNATED
02129  M01S01666.ns2011  ---|*                IN THE *DTY* POSITION IN *FILE*+1.
02130  M01S01667.ns2011  ---|*                *NMSG* IF PRESENT SPECIFIES THAT NO DAYFILE MESSAGE
02131  M01S01668.ns2011  ---|*                IS TO BE ISSUED INDICATING THE EQUIPMENT TO WHICH
02132  M01S01669.ns2011  ---|*                THE FILE WAS ASSIGNED.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01670.cpcom   +++|*
02139  M00S01671.cpcom   +++|*         EXIT   (X2) = FUNCTION PARAMETER AND ADDRESS OF THE FET.
02140  M00S01672.cpcom   +++|*                (X7) = FUNCTION CODE.
02141  M00S01673.cpcom   +++|*
02142  M00S01674.cpcom   +++|*         USES   X - 2, 7.
02143  M00S01675.cpcom   +++|*
02144  M00S01676.cpcom   +++|*         CALLS  LFM=.
02145  M00S01677.cpcom   +++|
02146  M00S01678.cpcom   +++|
02147  M00S01679.cpcom   +++|          PURGMAC REQUEST
02148  M00S01680.cpcom   +++|
02149  M00S01681.cpcom   +++| REQUEST  MACRO  F,U,N
02150  M00S01682.cpcom   +++|  MACREF REQUEST
02151  M00S01683.cpcom   +++|  R= X2,F
02152  M00S01684.cpcom   +++|  IFC NE,$N$$
02153  M00S01685.cpcom   +++|  MX7 1
02154  M00S01686.cpcom   +++|  LX7 19-59
02155  M00S01687.cpcom   +++|  BX2 X2+X7
02156  M00S01688.cpcom   +++|  ENDIF
02157  M00S01689.cpcom   +++|  IFC EQ,$U$$
02158  M00S01690.cpcom   +++|  SX7 14B
02159  M00S01691.cpcom   +++|  ELSE
02160  M00S01692.cpcom   +++|  SX7 15B
02161  M00S01693.cpcom   +++|  ENDIF
02162  M00S01694.cpcom   +++|  RJ =XLFM=
02163  M00S01695.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02164  M01S01696.ns2011  ---| RETURN   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02165  M01S00310.ns2011  +++| RETURN   SPACE  4,10
02166  M00S01697.cpcom   +++|***       RETURN - RETURN FILE TO SYSTEM.
02167  M00S01698.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02168  M01S00311.ns2011  +++|*         RETURN FILE,RECALL
02169  M00S01699.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02170  M01S01700.ns2011  ---|*         RETURN FILE,RECALL
02171  M01S01701.ns2011  ---|*         CALLS CIO=.

Seq #  *Modification Id* Act 
----------------------------+
02172  M01S00312.ns2011  +++|*         CALLS  CIO=.
02173  M00S01702.cpcom   +++|
02174  M00S01703.cpcom   +++|
02175  M00S01704.cpcom   +++|          PURGMAC RETURN
02176  M00S01705.cpcom   +++|
02177  M00S01706.cpcom   +++| RETURN   MACRO  F,L
02178  M00S01707.cpcom   +++|  MACREF RETURN
02179  M00S01708.cpcom   +++|  =2 F,L,70B
02180  M00S01709.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02181  M01S01710.ns2011  ---| REWIND   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02182  M01S00313.ns2011  +++| REWIND   SPACE  4,10
02183  M00S01711.cpcom   +++|***       REWIND - REWIND FILE.
02184  M00S01712.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02185  M01S00314.ns2011  +++|*         REWIND FILE,RECALL
02186  M00S01713.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02187  M01S01714.ns2011  ---|*         REWIND FILE,RECALL
02188  M01S01715.ns2011  ---|*         CALLS CIO=.

Seq #  *Modification Id* Act 
----------------------------+
02189  M01S00315.ns2011  +++|*         CALLS  CIO=.
02190  M00S01716.cpcom   +++|
02191  M00S01717.cpcom   +++|
02192  M00S01718.cpcom   +++|          PURGMAC REWIND
02193  M00S01719.cpcom   +++|
02194  M00S01720.cpcom   +++| REWIND   MACRO  F,L
02195  M00S01721.cpcom   +++|  MACREF REWIND
02196  M00S01722.cpcom   +++|  =2 F,L,50B
02197  M00S01723.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02198  M01S01724.ns2011  ---| REWRITE  SPACE  4
02199  M01S01725.ns2011  ---|***       REWRITE - REWRITE DATA FROM CIO BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02200  M01S00316.ns2011  +++| REWRITE  SPACE  4,15
02201  M01S00317.ns2011  +++|***       REWRITE - REWRITE DATA FROM *CIO* BUFFER.
02202  M01S00318.ns2011  +++|*         MASS STORAGE FILES ONLY.
02203  M00S01726.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02204  M01S00319.ns2011  +++|*         REWRITE FILE,RECALL
02205  M00S01727.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02206  M01S01728.ns2011  ---|*         REWRITE FILE,RECALL
02207  M01S01729.ns2011  ---|*         ENTRY  RECALL= *, SET CIO FUNCTION CODE IN FET, DONT CALL CIO.
02208  M01S01730.ns2011  ---|*                ALSO, USER MUST INSURE THAT PREVIOUS FUNCTION
02209  M01S01731.ns2011  ---|*                HAS COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
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
02212  M02S00322.cpcom1  ---|*                         PREVIOUS FUNCTION HAS COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
02213  M01S00002.cpcom1  +++|*                         CALL *CIO*.

Seq #  *Modification Id* Act 
----------------------------+
02214  M01S00323.ns2011  +++|*

Seq #  *Modification Id* Act 
----------------------------+
02215  M01S01732.ns2011  ---|*         MASS STORAGE FILES ONLY.
02216  M00S01733.cpcom   +++|*         CALLS  CIO=.
02217  M00S01734.cpcom   +++|
02218  M00S01735.cpcom   +++|
02219  M00S01736.cpcom   +++|          PURGMAC REWRITE
02220  M00S01737.cpcom   +++|
02221  M00S01738.cpcom   +++| REWRITE  MACRO  F,L
02222  M00S01739.cpcom   +++|  MACREF REWRITE
02223  M00S01740.cpcom   +++|  IFC EQ,$L$*$
02224  M00S01741.cpcom   +++|  =2A F,215B
02225  M00S01742.cpcom   +++|  ELSE 1
02226  M00S01743.cpcom   +++|  =2 F,L,214B
02227  M00S01744.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02228  M01S01745.ns2011  ---| REWRITEF SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02229  M01S00324.ns2011  +++| REWRITEF SPACE  4,10
02230  M00S01746.cpcom   +++|***       REWRITEF - REWRITE END OF FILE.

Seq #  *Modification Id* Act 
----------------------------+
02231  M01S00325.ns2011  +++|*         MASS STORAGE FILES ONLY.
02232  M00S01747.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02233  M01S00326.ns2011  +++|*         REWRITEF FILE,RECALL
02234  M00S01748.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02235  M01S01749.ns2011  ---|*         REWRITEF FILE,RECALL
02236  M01S01750.ns2011  ---|*         MASS STORAGE FILES ONLY.
02237  M00S01751.cpcom   +++|*         CALLS  CIO=.
02238  M00S01752.cpcom   +++|
02239  M00S01753.cpcom   +++|
02240  M00S01754.cpcom   +++|          PURGMAC REWRITEF
02241  M00S01755.cpcom   +++|
02242  M00S01756.cpcom   +++| REWRITEF MACRO  F,L
02243  M00S01757.cpcom   +++|  MACREF REWRITEF
02244  M00S01758.cpcom   +++|  =2 F,L,234B
02245  M00S01759.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02246  M01S01760.ns2011  ---| REWRITER SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02247  M01S00327.ns2011  +++| REWRITER SPACE  4,10
02248  M00S01761.cpcom   +++|***       REWRITER - REWRITE END OF RECORD.

Seq #  *Modification Id* Act 
----------------------------+
02249  M01S00328.ns2011  +++|*         MASS STORAGE FILES ONLY.
02250  M00S01762.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02251  M01S00329.ns2011  +++|*         REWRITER FILE,RECALL
02252  M00S01763.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02253  M01S01764.ns2011  ---|*         REWRITER FILE,RECALL
02254  M01S01765.ns2011  ---|*         MASS STORAGE FILES ONLY.
02255  M00S01766.cpcom   +++|*         CALLS  CIO=.
02256  M00S01767.cpcom   +++|
02257  M00S01768.cpcom   +++|
02258  M00S01769.cpcom   +++|          PURGMAC REWRITER
02259  M00S01770.cpcom   +++|
02260  M00S01771.cpcom   +++| REWRITER MACRO  F,L
02261  M00S01772.cpcom   +++|  MACREF REWRITER
02262  M00S01773.cpcom   +++|  =2 F,L,224B
02263  M00S01774.cpcom   +++|  ENDM
02264  M00S01775.cpcom   +++| ROUTE    SPACE  4,10
02265  M00S01776.cpcom   +++|**        ROUTE - ROUTE FILE TO INPUT/OUTPUT QUEUE.
02266  M00S01777.cpcom   +++|*
02267  M00S01778.cpcom   +++|*         ROUTE  ADDR,R
02268  M00S01779.cpcom   +++|*
02269  M00S01780.cpcom   +++|*                ADDR = FWA OF CALL BLOCK.

Seq #  *Modification Id* Act 
----------------------------+
02270  M01S01781.ns2011  ---|*                            (SEE *DSP* DOCUMENTATION FOR FORMAT)

Seq #  *Modification Id* Act 
----------------------------+
02271  M01S00330.ns2011  +++|*                       (SEE *DSP* DOCUMENTATION FOR FORMAT)
02272  M00S01782.cpcom   +++|*                R = RECALL (OPTIONAL)
02273  M00S01783.cpcom   +++|
02274  M00S01784.cpcom   +++|
02275  M00S01785.cpcom   +++|          PURGMAC ROUTE
02276  M00S01786.cpcom   +++|
02277  M00S01787.cpcom   +++|
02278  M00S01788.cpcom   +++| ROUTE    MACRO  A,R
02279  M00S01789.cpcom   +++|  MACREF ROUTE
02280  M00S01790.cpcom   +++|  SYSTEM DSP,R,A
02281  M00S01791.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02282  M01S01792.ns2011  ---| RPHR     SPACE  4
02283  M01S01793.ns2011  ---|***       RPHR - READ PHYSICAL RECORD TO CIO BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02284  M01S00331.ns2011  +++| RPHR     SPACE  4,10
02285  M01S00332.ns2011  +++|***       RPHR - READ PHYSICAL RECORD TO *CIO* BUFFER.
02286  M00S01794.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02287  M01S00333.ns2011  +++|*         RPHR   FILE,RECALL
02288  M00S01795.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02289  M01S01796.ns2011  ---|*         RPHR   FILE,RECALL
02290  M00S01797.cpcom   +++|*         CALLS  CIO=.
02291  M00S01798.cpcom   +++|
02292  M00S01799.cpcom   +++|
02293  M00S01800.cpcom   +++|          PURGMAC RPHR
02294  M00S01801.cpcom   +++|
02295  M00S01802.cpcom   +++| RPHR     MACRO  F,L
02296  M00S01803.cpcom   +++|  MACREF RPHR
02297  M00S01804.cpcom   +++|  IFC EQ,$L$$
02298  M00S01805.cpcom   +++|  R= X7,0
02299  M00S01806.cpcom   +++|  ELSE 1
02300  M00S01807.cpcom   +++|  MX7 60D
02301  M00S01808.cpcom   +++|  R= X2,F
02302  M00S01809.cpcom   +++|  RJ =XCIO=
02303  M00S01810.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02304  M01S01811.ns2011  ---| RPHRLS   SPACE  4
02305  M01S01812.ns2011  ---|***       RPHRLS - READ PRUS WITH LIST.

Seq #  *Modification Id* Act 
----------------------------+
02306  M01S00334.ns2011  +++| RPHRLS   SPACE  4,10
02307  M01S00335.ns2011  +++|***       RPHRLS - READ PRUS WITH LIST.
02308  M01S00336.ns2011  +++|*         MASS STORAGE FILES ONLY.
02309  M00S01813.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02310  M01S00337.ns2011  +++|*         RPHRLS FILE,RECALL
02311  M00S01814.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02312  M01S01815.ns2011  ---|*         RPHRLS FILE,RECALL
02313  M01S01816.ns2011  ---|*         MASS STORAGE FILES ONLY.
02314  M00S01817.cpcom   +++|*         CALLS  CIO=.
02315  M00S01818.cpcom   +++|
02316  M00S01819.cpcom   +++|
02317  M00S01820.cpcom   +++|          PURGMAC RPHRLS
02318  M00S01821.cpcom   +++|
02319  M00S01822.cpcom   +++| RPHRLS   MACRO  F,L
02320  M00S01823.cpcom   +++|  MACREF RPHRLS
02321  M00S01824.cpcom   +++|  =2 F,L,230B
02322  M00S01825.cpcom   +++|  ENDM
02323  M00S01826.cpcom   +++| SETFS    SPACE  4,10
02324  M00S01827.cpcom   +++|***       SETFS - SET FILE STATUS.
02325  M00S01828.cpcom   +++|*
02326  M00S01829.cpcom   +++|*         SETFS  FILE,N
02327  M00S01830.cpcom   +++|*
02328  M00S01831.cpcom   +++|*         CERTAIN STATUSES MAY ONLY BE SET AND CLEARED BY *SSJ=*
02329  M00S01832.cpcom   +++|*         PROGRAMS.  ATTEMPTS BY OTHER PROGRAMS TO SET OR CHANGE
02330  M00S01833.cpcom   +++|*         THESE STATUSES WILL BE IGNORED.
02331  M00S01834.cpcom   +++|*
02332  M00S01835.cpcom   +++|*         ENTRY  *FILE* = FWA OF FET.

Seq #  *Modification Id* Act 
----------------------------+
02333  M01S01836.ns2011  ---|*                *N* =  FILE STATUS.
02334  M01S01837.ns2011  ---|*                       *AD* = *AUTO-DROP* (0).
02335  M01S01838.ns2011  ---|*                       *NAD* = *NO-AUTO-DROP* (NDST).
02336  M01S01839.ns2011  ---|*                       (SYMBOLS FOR OTHER STATUSES ARE DEFINED
02337  M01S01840.ns2011  ---|*                       IN *COMSLFD*).

Seq #  *Modification Id* Act 
----------------------------+
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  M00S01841.cpcom   +++|*
02344  M00S01842.cpcom   +++|*         USES   X - 1, 2, 7.
02345  M00S01843.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02346  M01S01844.ns2011  ---|*         CALLS  *LFM*.

Seq #  *Modification Id* Act 
----------------------------+
02347  M01S00343.ns2011  +++|*         CALLS  LFM=.
02348  M00S01845.cpcom   +++|
02349  M00S01846.cpcom   +++|
02350  M00S01847.cpcom   +++|          PURGMAC  SETFS
02351  M00S01848.cpcom   +++|
02352  M00S01849.cpcom   +++| SETFS    MACRO  F,N

Seq #  *Modification Id* Act 
----------------------------+
02353  M01S00001.cpcom4  +++|  MACREF SETFS
02354  M00S01850.cpcom   +++|.FS SET 777B
02355  M00S01851.cpcom   +++|  ECHO 4,B=(AD,NAD),C=(0,7)
02356  M00S01852.cpcom   +++|.A IFC EQ,$B$N$
02357  M00S01853.cpcom   +++|  STOPDUP
02358  M00S01854.cpcom   +++|.FS SET C
02359  M00S01855.cpcom   +++|.A ENDIF
02360  M00S01856.cpcom   +++|.B IFEQ .FS,777B
02361  M00S01857.cpcom   +++|  R= X1,N
02362  M00S01858.cpcom   +++|.B ELSE
02363  M00S01859.cpcom   +++|  R= X1,.FS
02364  M00S01860.cpcom   +++|.B ENDIF
02365  M00S01861.cpcom   +++|  R=  X2,F
02366  M00S01862.cpcom   +++|  LX1 18D
02367  M00S01863.cpcom   +++|  BX2 X1+X2
02368  M00S01864.cpcom   +++|  SX7 3
02369  M00S01865.cpcom   +++|  RJ  =XLFM=
02370  M00S01866.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02371  M01S01867.ns2011  ---| SKIPB    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02372  M01S00344.ns2011  +++| SKIPB    SPACE  4,10
02373  M00S01868.cpcom   +++|***       SKIPB - SKIP RECORDS BACKWARDS.
02374  M00S01869.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02375  M01S00345.ns2011  +++|*         SKIPB  FILE,N,RECALL
02376  M00S01870.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02377  M01S01871.ns2011  ---|*         SKIPB  FILE,N,RECALL
02378  M00S01872.cpcom   +++|*         ENTRY  *N* = RECORD COUNT.

Seq #  *Modification Id* Act 
----------------------------+
02379  M01S00346.ns2011  +++|*
02380  M00S01873.cpcom   +++|*         CALLS  CIO=.
02381  M00S01874.cpcom   +++|
02382  M00S01875.cpcom   +++|
02383  M00S01876.cpcom   +++|          PURGMAC SKIPB
02384  M00S01877.cpcom   +++|
02385  M00S01878.cpcom   +++| SKIPB    MACRO  F,N,L
02386  M00S01879.cpcom   +++|  MACREF SKIPB
02387  M00S01880.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02388  M01S01881.cpcom2  ---|  IFNE N,,3

Seq #  *Modification Id* Act 
----------------------------+
02389  M01S00005.cpcom2  +++|.A IFNE N,0
02390  M00S01882.cpcom   +++|  R= X1,N

Seq #  *Modification Id* Act 
----------------------------+
02391  M01S00006.cpcom2  +++|  MX7 -18
02392  M01S00007.cpcom2  +++|  BX1 -X7*X1
02393  M00S01883.cpcom   +++|  LX1 18D
02394  M00S01884.cpcom   +++|  BX2 X1+X2

Seq #  *Modification Id* Act 
----------------------------+
02395  M01S00008.cpcom2  +++|.A ENDIF
02396  M00S01885.cpcom   +++|  IFC EQ,$L$$
02397  M00S01886.cpcom   +++|  SX7 640B
02398  M00S01887.cpcom   +++|  ELSE 1
02399  M00S01888.cpcom   +++|  SX7 -640B
02400  M00S01889.cpcom   +++|  RJ =XCIO=
02401  M00S01890.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02402  M01S01891.ns2011  ---| SKIPEI   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02403  M01S00347.ns2011  +++| SKIPEI   SPACE  4,10
02404  M00S01892.cpcom   +++|***       SKIPEI - SKIP TO END OF INFORMATION.
02405  M00S01893.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02406  M01S00348.ns2011  +++|*         SKIPEI FILE,RECALL
02407  M00S01894.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02408  M01S01895.ns2011  ---|*         SKIPEI FILE,RECALL
02409  M00S01896.cpcom   +++|*         CALLS  CIO=.
02410  M00S01897.cpcom   +++|
02411  M00S01898.cpcom   +++|
02412  M00S01899.cpcom   +++|          PURGMAC SKIPEI
02413  M00S01900.cpcom   +++|
02414  M00S01901.cpcom   +++| SKIPEI   MACRO  F,L
02415  M00S01902.cpcom   +++|  MACREF SKIPEI
02416  M00S01903.cpcom   +++|  R= X2,F
02417  M00S01904.cpcom   +++|  MX1 -18D
02418  M00S01905.cpcom   +++|  LX1 18D
02419  M00S01906.cpcom   +++|  BX2 -X1+X2
02420  M00S01907.cpcom   +++|  IFC EQ,$L$$
02421  M00S01908.cpcom   +++|  SX7 240B
02422  M00S01909.cpcom   +++|  ELSE 1
02423  M00S01910.cpcom   +++|  SX7 -240B
02424  M00S01911.cpcom   +++|  RJ =XCIO=
02425  M00S01912.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02426  M01S01913.ns2011  ---| SKIPFB   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02427  M01S00349.ns2011  +++| SKIPFB   SPACE  4,10
02428  M00S01914.cpcom   +++|***       SKIPFB - SKIP FILES BACKWARD.
02429  M00S01915.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02430  M01S00350.ns2011  +++|*         SKIPFB FILE,N,RECALL
02431  M00S01916.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02432  M01S01917.ns2011  ---|*         SKIPFB FILE,N,RECALL
02433  M00S01918.cpcom   +++|*         ENTRY  *N* = RECORD COUNT.

Seq #  *Modification Id* Act 
----------------------------+
02434  M01S00351.ns2011  +++|*
02435  M00S01919.cpcom   +++|*         CALLS  CIO=.
02436  M00S01920.cpcom   +++|
02437  M00S01921.cpcom   +++|
02438  M00S01922.cpcom   +++|          PURGMAC SKIPFB
02439  M00S01923.cpcom   +++|
02440  M00S01924.cpcom   +++| SKIPFB   MACRO  F,N,L
02441  M00S01925.cpcom   +++|  MACREF SKIPFB
02442  M00S01926.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02443  M01S01927.cpcom2  ---|  IFNE N,,3

Seq #  *Modification Id* Act 
----------------------------+
02444  M01S00009.cpcom2  +++|.A IFNE N,0
02445  M00S01928.cpcom   +++|  R= X1,N

Seq #  *Modification Id* Act 
----------------------------+
02446  M01S00010.cpcom2  +++|  MX7 -18
02447  M01S00011.cpcom2  +++|  BX1 -X7*X1
02448  M00S01929.cpcom   +++|  LX1 18D
02449  M00S01930.cpcom   +++|  BX2 X1+X2

Seq #  *Modification Id* Act 
----------------------------+
02450  M01S00012.cpcom2  +++|.A ENDIF
02451  M00S01931.cpcom   +++|  IFC EQ,$L$$
02452  M00S01932.cpcom   +++|  SX7 740640BS-3
02453  M00S01933.cpcom   +++|  ELSE 1
02454  M00S01934.cpcom   +++|  SX7 -740640BS-3
02455  M00S01935.cpcom   +++|  LX7 3
02456  M00S01936.cpcom   +++|  RJ =XCIO=
02457  M00S01937.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02458  M01S01938.ns2011  ---| SKIPF    SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02459  M01S00352.ns2011  +++| SKIPF    SPACE  4,10
02460  M00S01939.cpcom   +++|***       SKIPF - SKIP RECORDS FORWARD.
02461  M00S01940.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02462  M01S00353.ns2011  +++|*         SKIPF  FILE,N,RECALL
02463  M00S01941.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02464  M01S01942.ns2011  ---|*         SKIPF  FILE,N,RECALL
02465  M01S01943.ns2011  ---|*         *N* = RECORD COUNT.

Seq #  *Modification Id* Act 
----------------------------+
02466  M01S00354.ns2011  +++|*         ENTRY  *N* = RECORD COUNT.
02467  M01S00355.ns2011  +++|*
02468  M00S01944.cpcom   +++|*         CALLS  CIO=.
02469  M00S01945.cpcom   +++|
02470  M00S01946.cpcom   +++|
02471  M00S01947.cpcom   +++|          PURGMAC SKIPF
02472  M00S01948.cpcom   +++|
02473  M00S01949.cpcom   +++| SKIPF    MACRO  F,N,L
02474  M00S01950.cpcom   +++|  MACREF SKIPF
02475  M00S01951.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02476  M01S01952.cpcom2  ---|  IFNE N,,3

Seq #  *Modification Id* Act 
----------------------------+
02477  M01S00013.cpcom2  +++|.A IFNE N,0
02478  M00S01953.cpcom   +++|  R= X1,N

Seq #  *Modification Id* Act 
----------------------------+
02479  M01S00014.cpcom2  +++|  MX7 -18
02480  M01S00015.cpcom2  +++|  BX1 -X7*X1
02481  M00S01954.cpcom   +++|  LX1 18D
02482  M00S01955.cpcom   +++|  BX2 X1+X2

Seq #  *Modification Id* Act 
----------------------------+
02483  M01S00016.cpcom2  +++|.A ENDIF
02484  M00S01956.cpcom   +++|  IFC EQ,$L$$
02485  M00S01957.cpcom   +++|  SX7 240B
02486  M00S01958.cpcom   +++|  ELSE 1
02487  M00S01959.cpcom   +++|  SX7 -240B
02488  M00S01960.cpcom   +++|  RJ =XCIO=
02489  M00S01961.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02490  M01S01962.ns2011  ---| SKIPFF   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02491  M01S00356.ns2011  +++| SKIPFF   SPACE  4,10
02492  M00S01963.cpcom   +++|***       SKIPFF - SKIP FILES FORWARD.
02493  M00S01964.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02494  M01S00357.ns2011  +++|*         SKIPFF FILE,N,RECALL
02495  M00S01965.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02496  M01S01966.ns2011  ---|*         SKIPFF FILE,N,RECALL
02497  M01S01967.ns2011  ---|*         *N* = COUNT COUNT.

Seq #  *Modification Id* Act 
----------------------------+
02498  M01S00358.ns2011  +++|*         ENTRY  *N* = COUNT COUNT.
02499  M01S00359.ns2011  +++|*
02500  M00S01968.cpcom   +++|*         CALLS  CIO=.
02501  M00S01969.cpcom   +++|
02502  M00S01970.cpcom   +++|
02503  M00S01971.cpcom   +++|          PURGMAC SKIPFF
02504  M00S01972.cpcom   +++|
02505  M00S01973.cpcom   +++| SKIPFF   MACRO  F,N,L
02506  M00S01974.cpcom   +++|  MACREF SKIPFF
02507  M00S01975.cpcom   +++|  R= X2,F

Seq #  *Modification Id* Act 
----------------------------+
02508  M01S01976.cpcom2  ---|  IFNE N,,3

Seq #  *Modification Id* Act 
----------------------------+
02509  M01S00017.cpcom2  +++|.A IFNE N,0
02510  M00S01977.cpcom   +++|  R= X1,N

Seq #  *Modification Id* Act 
----------------------------+
02511  M01S00018.cpcom2  +++|  MX7 -18
02512  M01S00019.cpcom2  +++|  BX1 -X7*X1
02513  M00S01978.cpcom   +++|  LX1 18D
02514  M00S01979.cpcom   +++|  BX2 X1+X2

Seq #  *Modification Id* Act 
----------------------------+
02515  M01S00020.cpcom2  +++|.A ENDIF
02516  M00S01980.cpcom   +++|  IFC EQ,$L$$
02517  M00S01981.cpcom   +++|  SX7 740240BS-3
02518  M00S01982.cpcom   +++|  ELSE 1
02519  M00S01983.cpcom   +++|  SX7 -740240BS-3
02520  M00S01984.cpcom   +++|  LX7 3
02521  M00S01985.cpcom   +++|  RJ =XCIO=
02522  M00S01986.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02523  M01S01987.ns2011  ---| STATUS   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02524  M01S00360.ns2011  +++| STATUS   SPACE  4,20
02525  M00S01988.cpcom   +++|***       STATUS - RETURN CURRENT FILE STATUS.
02526  M00S01989.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02527  M01S00361.ns2011  +++|*         STATUS FILE,POSITION,TAPEINFO
02528  M00S01990.cpcom   +++|*

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

Seq #  *Modification Id* Act 
----------------------------+
02531  M01S01993.ns2011  ---|*                            RETURNED TO (FET+6).
02532  M01S01994.ns2011  ---|*                *TAPEINFO*  IF SPECIFIED, IN ADDITION TO *POSITION*,
02533  M01S01995.ns2011  ---|*                            AND FILE IS A MAGNETIC TAPE FILE,
02534  M01S01996.ns2011  ---|*                            ADDITIONAL TAPE INFORMATION IS RETURNED TO
02535  M01S01997.ns2011  ---|*                            FET+8 IN LABEL MACRO FORMAT, INCLUDING
02536  M01S01998.ns2011  ---|*                            LABEL BIT, NONSTANDARD LABEL BIT, TRACK
02537  M01S01999.ns2011  ---|*                            BIT, DENSITY, CONVERSION MODE, PROCESSING
02538  M01S02000.ns2011  ---|*                            OPTIONS, FORMAT, NOISE SIZE IN FRAMES, AND
02539  M01S02001.ns2011  ---|*                            BLOCK SIZE IN CM WORDS.

Seq #  *Modification Id* Act 
----------------------------+
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  M00S02002.cpcom   +++|*         CALLS  LFM=.
02551  M00S02003.cpcom   +++|
02552  M00S02004.cpcom   +++|
02553  M00S02005.cpcom   +++|          PURGMAC STATUS
02554  M00S02006.cpcom   +++|
02555  M00S02007.cpcom   +++| STATUS   MACRO  F,N,T
02556  M00S02008.cpcom   +++|  MACREF STATUS
02557  M00S02009.cpcom   +++|  R= X2,F
02558  M00S02010.cpcom   +++|  IFC EQ,$N$$
02559  M00S02011.cpcom   +++|  SX7 12B
02560  M00S02012.cpcom   +++|  ELSE
02561  M00S02013.cpcom   +++|  SX7 13B
02562  M00S02014.cpcom   +++|  IFC NE,$T$$,3
02563  M00S02015.cpcom   +++|  MX6 1
02564  M00S02016.cpcom   +++|  LX6 1+18D
02565  M00S02017.cpcom   +++|  BX2 X2+X6
02566  M00S02018.cpcom   +++|  ENDIF
02567  M00S02019.cpcom   +++|  RJ =XLFM=
02568  M00S02020.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02569  M01S02021.ns2011  ---| UNLOAD   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02570  M01S00372.ns2011  +++| UNLOAD   SPACE  4,10
02571  M00S02022.cpcom   +++|***       UNLOAD - UNLOAD FILE.
02572  M00S02023.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02573  M01S00373.ns2011  +++|*         UNLOAD FILE,RECALL
02574  M00S02024.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02575  M01S02025.ns2011  ---|*         UNLOAD FILE,RECALL
02576  M00S02026.cpcom   +++|*         CALLS  CIO=.
02577  M00S02027.cpcom   +++|
02578  M00S02028.cpcom   +++|
02579  M00S02029.cpcom   +++|          PURGMAC UNLOAD
02580  M00S02030.cpcom   +++|
02581  M00S02031.cpcom   +++| UNLOAD   MACRO  F,L
02582  M00S02032.cpcom   +++|  MACREF UNLOAD
02583  M00S02033.cpcom   +++|  =2 F,L,60B
02584  M00S02034.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02585  M01S02035.ns2011  ---| UNLOCK   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02586  M01S00374.ns2011  +++| UNLOCK   SPACE  4,10
02587  M00S02036.cpcom   +++|***       UNLOCK - CLEAR WRITE LOCK OUT.

Seq #  *Modification Id* Act 
----------------------------+
02588  M01S00375.ns2011  +++|*         FILE MUST BE LOCAL OR PRIMARY.
02589  M00S02037.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02590  M01S00376.ns2011  +++|*         UNLOCK FILE
02591  M00S02038.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02592  M01S02039.ns2011  ---|*         UNLOCK FILE
02593  M01S02040.ns2011  ---|*         FILE MUST BE LOCAL OR PRIMARY.
02594  M00S02041.cpcom   +++|*         CALLS  LFM=.
02595  M00S02042.cpcom   +++|
02596  M00S02043.cpcom   +++|
02597  M00S02044.cpcom   +++|          PURGMAC UNLOCK
02598  M00S02045.cpcom   +++|
02599  M00S02046.cpcom   +++| UNLOCK   MACRO  F
02600  M00S02047.cpcom   +++|  MACREF UNLOCK
02601  M00S02048.cpcom   +++|  R= X2,F
02602  M00S02049.cpcom   +++|  SX7 11B
02603  M00S02050.cpcom   +++|  RJ =XLFM=
02604  M00S02051.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02605  M01S02052.ns2011  ---| WPHR     SPACE  4
02606  M01S02053.ns2011  ---|***       WPHR - WRITE 1 PHYSICAL RECORD FROM CIO BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02607  M01S00377.ns2011  +++| WPHR     SPACE  4,10
02608  M01S00378.ns2011  +++|***       WPHR - WRITE 1 PHYSICAL RECORD FROM *CIO* BUFFER.
02609  M00S02054.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02610  M01S00379.ns2011  +++|*         WPHR   FILE,RECALL
02611  M00S02055.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02612  M01S02056.ns2011  ---|*         WPHR   FILE,RECALL
02613  M00S02057.cpcom   +++|*         CALLS  CIO=.
02614  M00S02058.cpcom   +++|
02615  M00S02059.cpcom   +++|
02616  M00S02060.cpcom   +++|          PURGMAC WPHR
02617  M00S02061.cpcom   +++|
02618  M00S02062.cpcom   +++| WPHR     MACRO  F,L
02619  M00S02063.cpcom   +++|  MACREF WPHR
02620  M00S02064.cpcom   +++|  =2 F,L,4
02621  M00S02065.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02622  M01S02066.ns2011  ---| WRITE    SPACE  4
02623  M01S02067.ns2011  ---|***       WRITE - WRITE DATA FROM CIO BUFFER.

Seq #  *Modification Id* Act 
----------------------------+
02624  M01S00380.ns2011  +++| WRITE    SPACE  4,10
02625  M01S00381.ns2011  +++|***       WRITE - WRITE DATA FROM *CIO* BUFFER.
02626  M00S02068.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02627  M01S00382.ns2011  +++|*         WRITE  FILE,RECALL
02628  M00S02069.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02629  M01S02070.ns2011  ---|*         WRITE  FILE,RECALL
02630  M01S02071.ns2011  ---|*         ENTRY  RECALL= *, SET CIO FUNCTION CODE IN FET, DONT CALL CIO.
02631  M01S02072.ns2011  ---|*                ALSO, USER MUST INSURE THAT PREVIOUS FUNCTION
02632  M01S02073.ns2011  ---|*                HAS COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
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
02635  M02S00385.cpcom1  ---|*                        PREVIOUS FUNCTION HAS COMPLETED.

Seq #  *Modification Id* Act 
----------------------------+
02636  M01S00003.cpcom1  +++|*                        CALL *CIO*.

Seq #  *Modification Id* Act 
----------------------------+
02637  M01S00386.ns2011  +++|*
02638  M00S02074.cpcom   +++|*         CALLS  CIO=.
02639  M00S02075.cpcom   +++|
02640  M00S02076.cpcom   +++|
02641  M00S02077.cpcom   +++|          PURGMAC WRITE
02642  M00S02078.cpcom   +++|
02643  M00S02079.cpcom   +++| WRITE    MACRO  F,L
02644  M00S02080.cpcom   +++|  MACREF WRITE
02645  M00S02081.cpcom   +++|  IFC EQ,$L$*$
02646  M00S02082.cpcom   +++|  =2A F,15B
02647  M00S02083.cpcom   +++|  ELSE 1
02648  M00S02084.cpcom   +++|  =2 F,L,14B
02649  M00S02085.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02650  M01S02086.ns2011  ---| WRITECW  SPACE  4

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

Seq #  *Modification Id* Act 
----------------------------+
02653  M01S02088.ns2011  ---|*
02654  M00S02089.cpcom   +++|*
02655  M00S02090.cpcom   +++|*         WRITECW FILE,RECALL
02656  M00S02091.cpcom   +++|*

Seq #  *Modification Id* Act 
----------------------------+
02657  M01S02092.ns2011  ---|*         ENTRY  RECALL = * WILL SET *CIO* FUNCTION CODE IN FET BUT
02658  M01S02093.ns2011  ---|*                WILL NOT ISSUE *CIO* FUNCTION.

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

Seq #  *Modification Id* Act 
----------------------------+
02662  M01S02095.ns2011  ---|
02663  M00S02096.cpcom   +++|*         CALLS  CIO=.
02664  M00S02097.cpcom   +++|
02665  M00S02098.cpcom   +++|
02666  M00S02099.cpcom   +++|          PURGMAC WRITECW
02667  M00S02100.cpcom   +++|
02668  M00S02101.cpcom   +++| WRITECW  MACRO  F,L
02669  M00S02102.cpcom   +++|          LOCAL  A
02670  M00S02103.cpcom   +++|  MACREF WRITECW
02671  M00S02104.cpcom   +++|  IFC EQ,$L$*$
02672  M00S02105.cpcom   +++|  =2A F,205B
02673  M00S02106.cpcom   +++|  ELSE 9
02674  M00S02107.cpcom   +++|  R= X2,F
02675  M00S02108.cpcom   +++|  RECALL X2
02676  M00S02109.cpcom   +++|  SA1 X2+2
02677  M00S02110.cpcom   +++|  BX7 X1
02678  M00S02111.cpcom   +++|  SA1 A1+B1
02679  M00S02112.cpcom   +++|  BX7 X1-X7
02680  M00S02113.cpcom   +++|  ZR X7,A
02681  M00S02114.cpcom   +++|  =2 X2,L,204B
02682  M00S02115.cpcom   +++| A BSS 0
02683  M00S02116.cpcom   +++|  ENDM

Seq #  *Modification Id* Act 
----------------------------+
02684  M01S02117.ns2011  ---| WRITEF   SPACE  4

Seq #  *Modification Id* Act 
----------------------------+
02685  M01S00390.ns2011  +++| WRITEF   SPACE  4,10

Proceed to Part 2