Common COMPSRU

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compsru +++|          CTEXT  COMPSRU - SET SRU CONTROL FIELDS.
00002  M00S00002.compsru +++|          SPACE  4,10
00003  M00S00003.compsru +++|          IF     -DEF,QUAL$,1
00004  M00S00004.compsru +++|          QUAL   COMPSRU

Line S00005 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00005.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP. 1978.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00007  M00S00006.compsru +++|          SPACE  4,10
00008  M00S00007.compsru +++|***       SRU - SET SRU CONTROL FIELDS.
00009  M00S00008.compsru +++|*         S. L. BETH         78/07/27.
00010  M00S00009.compsru +++|          SPACE  4,10
00011  M00S00010.compsru +++|***       *SRU* SETS THE *SRU* CONTROL FIELDS IN CONTROL POINT
00012  M00S00011.compsru +++|*         WORDS *STLW*, *SRJW* AND *FPFW*.
00013  M00S00012.compsru +++|*
00014  M00S00013.compsru +++|*         ENTRY  (A) = VALIDATION LIMIT.
00015  M00S00014.compsru +++|*
00016  M00S00015.compsru +++|*         USES   CM - CM+4, CN - CN+4, FN - FN+4.
00017  M00S00016.compsru +++|*
00018  M00S00017.compsru +++|*         MACROS MONITOR.
00019  M00S00018.compsru +++|
00020  M00S00019.compsru +++|
00021  M00S00020.compsru +++| SRU      SUBR               ENTRY/EXIT
00022  M00S00021.compsru +++|          SHN    3           VALIDATION LIMIT * 10B
00023  M00S00022.compsru +++|          STD    CM+4
00024  M00S00023.compsru +++|          SHN    -14
00025  M00S00024.compsru +++|          STD    CM+3
00026  M00S00025.compsru +++|          LDD    CP          READ SRU CONTROL WORDS
00027  M00S00026.compsru +++|          ADN    STLW
00028  M00S00027.compsru +++|          CRD    CN
00029  M00S00028.compsru +++|          ADN    FPFW-STLW
00030  M00S00029.compsru +++|          CRD    FN
00031  M00S00030.compsru +++|          LDD    CM+3        SET SRU FIELDS
00032  M00S00031.compsru +++|          SHN    14
00033  M00S00032.compsru +++|          LMD    CM+4

Line S00033 Modification History
`M01` (Removed by)	`ns2516`

Seq #  *Modification Id* Act 
----------------------------+
00034  M01S00033.ns2516  ---|          SHN    22-3        SET VALIDATION LIMIT IN *FPFW*

Line S00001 Modification History
`M01` (Added by)	`ns2516`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00001.ns2516  +++|          SHN    22-6        SET (VALIDATION LIMIT)/100B IN *FPFW*
00036  M00S00034.compsru +++|          STD    FN+1

Line S00035 Modification History
`M01` (Removed by)	`ns2516`

Seq #  *Modification Id* Act 
----------------------------+
00037  M01S00035.ns2516  ---|          SHN    14+3
00038  M00S00036.compsru +++|          STD    CN
00039  M00S00037.compsru +++|          SHN    14
00040  M00S00038.compsru +++|          LMD    CN+1
00041  M00S00039.compsru +++|          SCN    77
00042  M00S00040.compsru +++|          LMD    CN+1
00043  M00S00041.compsru +++|          STD    CN+1
00044  M00S00042.compsru +++|          LDD    CP          REWRITE FIELDS
00045  M00S00043.compsru +++|          ADN    STLW
00046  M00S00044.compsru +++|          CWD    CN
00047  M00S00045.compsru +++|          ADN    FPFW-STLW
00048  M00S00046.compsru +++|          CWD    FN
00049  M00S00047.compsru +++|          LDN    RLSL        SET NEW JOB STEP LIMIT
00050  M00S00048.compsru +++|          STD    CM+1
00051  M00S00049.compsru +++|          MONITOR  RLMM
00052  M00S00050.compsru +++|          LJM    SRUX        RETURN
00053  M00S00051.compsru +++|          SPACE  4,10
00054  M00S00052.compsru +++| QUAL$    IF     -DEF,QUAL$
00055  M00S00053.compsru +++|          QUAL   *
00056  M00S00054.compsru +++| SRU      EQU    /COMPSRU/SRU
00057  M00S00055.compsru +++| QUAL$    ENDIF
00058  M00S00056.compsru +++|          ENDX