Seq # *Modification Id* Act
----------------------------+
02791 M00S02042.enquire +++| MX0 18
02792 M00S02043.enquire +++| GJS1 ZR X2,GJS3 IF END OF TABLE
02793 M00S02044.enquire +++| BX3 X0*X2
02794 M00S02045.enquire +++| LX3 18
02795 M00S02046.enquire +++| IX4 X1-X3
02796 M00S02047.enquire +++| SX3 X2 ADDRESS OF STATUS DESCRIPTOR
02797 M00S02048.enquire +++| SA2 A2+1
02798 M00S02049.enquire +++| NZ X4,GJS1 IF NO MATCH
02799 M00S02050.enquire +++| NZ X3,GJS2 IF NOT EXECUTING JOB
02800 M00S02051.enquire +++| SA1 B6+B4 GET EJT STATUS
02801 M00S02052.enquire +++| MX0 -5
02802 M00S02053.enquire +++| LX1 11
| Line S02054 Modification History |
M01 (Removed by) | enqui14 |
Seq # *Modification Id* Act
----------------------------+
02803 M01S02054.enqui14 ---| BX1 -X0*X1
02804 M01S02055.enqui14 ---| SA3 X1+EJST (X3) = ADDRESS OF STATUS DESCRIPTOR
| Line S00044 Modification History |
M01 (Added by) | enqui14 |
Seq # *Modification Id* Act
----------------------------+
02805 M01S00044.enqui14 +++| BX6 -X0*X1
02806 M01S00045.enqui14 +++| SA3 X6+EJST
02807 M01S00046.enqui14 +++| SX6 X6-SUJS
02808 M01S00047.enqui14 +++| NZ X6,GJS2 IF NOT SUSPENDED JOB
02809 M01S00048.enqui14 +++| LX1 -11-12
02810 M01S00049.enqui14 +++| RJ DTT DETERMINE MINUTES UNTIL TIMEOUT
02811 M01S00050.enqui14 +++| SA3 EJST+SUJS RESET MESSAGE
02812 M00S02056.enquire +++| GJS2 SA1 X3
02813 M00S02057.enquire +++| BX6 X1
02814 M00S02058.enquire +++| EQ GJSX RETURN
02815 M00S02059.enquire +++|
| Line S02060 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02816 M01S02060.v23l617 ---| GJS3 SX1 EMSB * INVALID QUEUE TYPE.*
| Line S00099 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
02817 M01S00099.v23l617 +++| GJS3 SX1 EMSB * INCORRECT QUEUE TYPE.*
02818 M00S02061.enquire +++| EQ PSE ISSUE ERROR MESSAGE AND ABORT
02819 M00S02062.enquire +++| GSC SPACE 4,10
02820 M00S02063.enquire +++|** GSC - GET SERVICE CLASS.
02821 M00S02064.enquire +++|*
02822 M00S02065.enquire +++|* ENTRY (B6) = PEEK REPLY ENTRY ADDRESS.
02823 M00S02066.enquire +++|*
02824 M00S02067.enquire +++|* EXIT (X6) = SERVICE CLASS CHARACTER, LEFT JUSTIFIED.
02825 M00S02068.enquire +++|*
02826 M00S02069.enquire +++|* USES X - 0, 1, 2, 3, 4, 6.
02827 M00S02070.enquire +++|* A - 1, 2.
02828 M00S02071.enquire +++|* B - 2.
02829 M00S02072.enquire +++|
02830 M00S02073.enquire +++|
02831 M00S02074.enquire +++| GSC SUBR ENTRY/EXIT
02832 M00S02075.enquire +++| MX0 6 GET SERVICE CLASS
02833 M00S02076.enquire +++| SA1 B6+B1
02834 M00S02077.enquire +++| SX3 10 CALCULATE WORD ORDINAL
02835 M00S02078.enquire +++| BX1 X0*X1
02836 M00S02079.enquire +++| LX1 6
02837 M00S02080.enquire +++| BX4 X1
02838 M00S02081.enquire +++| SX6 X3
02839 M00S02082.enquire +++| IX3 X1/X3
02840 M00S02083.enquire +++| SA2 GSCA+X3
02841 M00S02084.enquire +++| IX3 X3*X6
02842 M00S02085.enquire +++| IX4 X4-X3
02843 M00S02086.enquire +++| SX3 6 CALCULATE SHIFT COUNT
02844 M00S02087.enquire +++| IX4 X3*X4
02845 M00S02088.enquire +++| SB2 X4
02846 M00S02089.enquire +++| LX2 X2,B2
02847 M00S02090.enquire +++| BX6 X0*X2 SERVICE CLASS CHARACTER
02848 M00S02091.enquire +++| EQ GSCX RETURN
02849 M00S02092.enquire +++|
02850 M00S02093.enquire +++|
02851 M00S02094.enquire +++| GSCA DATA L+"NMDS"+ SERVICE CLASS CHARACTER STRING
02852 M00S02095.enquire +++| IPR SPACE 4,15
02853 M00S02096.enquire +++|** IPR - ISSUE PEEK REQUEST.
02854 M00S02097.enquire +++|*
02855 M00S02098.enquire +++|* ENTRY (BQAC) = *QAC* PEEK REQUEST.
02856 M00S02099.enquire +++|*
02857 M00S02100.enquire +++|* EXIT (X1) = 0, IF REQUEST SUCCESSFUL.
02858 M00S02101.enquire +++|* = 1, IF NO JOBS FOUND.
02859 M00S02102.enquire +++|*
02860 M00S02103.enquire +++|* ERROR TO *PSE*, IF *QAC* ERROR ENCOUNTERED.
02861 M00S02104.enquire +++|*
02862 M00S02105.enquire +++|* USES X - 0, 1, 2, 6.
02863 M00S02106.enquire +++|* A - 1, 2, 6.
02864 M00S02107.enquire +++|*
02865 M00S02108.enquire +++|* CALLS ISM.
02866 M00S02109.enquire +++|*
02867 M00S02110.enquire +++|* MACROS SYSTEM.
02868 M00S02111.enquire +++|
02869 M00S02112.enquire +++|
02870 M00S02113.enquire +++| IPR SUBR ENTRY/EXIT
02871 M00S02114.enquire +++| SYSTEM QAC,R,BQAC ISSUE PEEK REQUEST
02872 M00S02115.enquire +++| SA1 BQAC CHECK ERROR STATUS
02873 M00S02116.enquire +++| MX0 -8
02874 M00S02117.enquire +++| LX1 -10
02875 M00S02118.enquire +++| BX1 -X0*X1
02876 M00S02119.enquire +++| ZR X1,IPR3 IF NO ERRORS
02877 M00S02120.enquire +++| SX2 X1-ER07
02878 M00S02121.enquire +++| ZR X2,IPR1 IF NO JOBS FOUND
| Line S02122 Modification History |
M01 (Removed by) | enqui5 |
Seq # *Modification Id* Act
----------------------------+
02879 M01S02122.enqui5 ---| SA1 EMSE * QAC ERROR ENCOUNTERED.*
| Line S00001 Modification History |
M01 (Added by) | enqui5 |
Seq # *Modification Id* Act
----------------------------+
02880 M01S00001.enqui5 +++| SX1 EMSE * QAC ERROR ENCOUNTERED.*
02881 M00S02123.enquire +++| EQ PSE ISSUE ERROR MESSAGE AND ABORT
02882 M00S02124.enquire +++|
02883 M00S02125.enquire +++|* PROCESS NO JOBS FOUND.
02884 M00S02126.enquire +++|
02885 M00S02127.enquire +++| IPR1 SA1 JSNM GET JSN
02886 M00S02128.enquire +++| SA2 EMSD
02887 M00S02129.enquire +++| NZ X1,IPR2 IF JSN SPECIFIED
02888 M00S02130.enquire +++| SA1 IPRA
02889 M00S02131.enquire +++| NZ X1,IPRX IF NOT FIRST REQUEST
02890 M00S02132.enquire +++| SA2 EMSC
02891 M00S02133.enquire +++| IPR2 RJ ISM
02892 M00S02134.enquire +++| SX1 B1+ SET NO JOBS FOUND FLAG
02893 M00S02135.enquire +++| IPR3 SX6 B1+ FIRST REQUEST ISSUED
02894 M00S02136.enquire +++| SA6 IPRA
02895 M00S02137.enquire +++| EQ IPRX RETURN
02896 M00S02138.enquire +++|
02897 M00S02139.enquire +++|
02898 M00S02140.enquire +++| IPRA CON 0 FIRST REQUEST FLAG
02899 M00S02141.enquire +++| ISM SPACE 4,20
02900 M00S02142.enquire +++|** ISM - ISSUE MESSAGE.
02901 M00S02143.enquire +++|*
02902 M00S02144.enquire +++|* ENTRY (X1) = JSN OR UJN.
02903 M00S02145.enquire +++|* = 0, IF JSN OR UJN NOT TO BE ADDED TO MESSAGE.
02904 M00S02146.enquire +++|* (X2) = FIRST WORD OF MESSAGE.
02905 M00S02147.enquire +++|* (A2) = BEGINNING ADDRESS OF MESSAGE.
02906 M00S02148.enquire +++|*
02907 M00S02149.enquire +++|* USES X - 1, 2, 3, 6.
02908 M00S02150.enquire +++|* A - 3, 6.
02909 M00S02151.enquire +++|*
02910 M00S02152.enquire +++|* CALLS SFN.
02911 M00S02153.enquire +++|*
02912 M00S02154.enquire +++|* MACROS MESSAGE, WRITEC.
02913 M00S02155.enquire +++|*
02914 M00S02156.enquire +++|* NOTES *ISM* ISSUES A SPECIFIED MESSAGE TO THE
02915 M00S02157.enquire +++|* OUTPUT FILE IF IT IS A TERMINAL FILE, OR TO
02916 M00S02158.enquire +++|* THE USER-S DAYFILE IF IT IS NOT. IF A JSN OR
02917 M00S02159.enquire +++|* UJN IS SPECIFIED, IT IS ADDED TO THE MESSAGE.
02918 M00S02160.enquire +++|
02919 M00S02161.enquire +++|
02920 M00S02162.enquire +++| ISM SUBR ENTRY/EXIT
02921 M00S02163.enquire +++| ZR X1,ISM1 IF NO JSN/UJN
02922 M00S02164.enquire +++| RJ SFN SPACE FILL JSN/UJN
02923 M00S02165.enquire +++| MX3 42 ADD JSN/UJN TO MESSAGE
02924 M00S02166.enquire +++| LX3 -6 PUT JSN/UJN IN CHARACTER POSITIONS 2-8
02925 M00S02167.enquire +++| BX2 -X3*X2
02926 M00S02168.enquire +++| LX6 -6
02927 M00S02169.enquire +++| BX1 X3*X6
02928 M00S02170.enquire +++| BX6 X2+X1
02929 M00S02171.enquire +++| SA6 A2+
02930 M00S02172.enquire +++| ISM1 SA3 FT
02931 M00S02173.enquire +++| ZR X3,ISM2 IF TERMINAL FILE
02932 M00S02174.enquire +++| MESSAGE A2,3
02933 M00S02175.enquire +++| EQ ISMX EXIT
02934 M00S02176.enquire +++|
02935 M00S02177.enquire +++| ISM2 WRITEC O,A2
02936 M00S02178.enquire +++| EQ ISMX EXIT
02937 M00S02179.enquire +++| LST SPACE 4,20
02938 M00S02180.enquire +++|** LST - PROCESS FILE LENGTH, STATUS AND TYPE.
02939 M00S02181.enquire +++|*
02940 M00S02182.enquire +++|* ENTRY (A5)= FNT ENTRY ADDRESS.
02941 M00S02183.enquire +++|* (X5)= FNT ENTRY.
02942 M00S02184.enquire +++|*
02943 M00S02185.enquire +++|* EXIT (A5) = FST WORD ADDRESS.
02944 M00S02186.enquire +++|* FILE LENGTH IN FOPB+1.
| Line S02187 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02945 M01S02187.ns22000 ---|*
02946 M00S02188.enquire ---|* FILE TYPE IN FOPB+2.
02947 M00S02189.enquire ---|* FILE STATUS IN FOPB+3.
| Line S00407 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02948 M01S00407.ns22000 +++|* FILE ACCESS LEVEL IN FOPB+4, FOPB+5.
02949 M00S02190.enquire +++|*
| Line S02191 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02950 M01S02191.ns22000 ---|* USES X - 0, 1, 2, 5, 6.
| Line S00408 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | enqui11 |
Seq # *Modification Id* Act
----------------------------+
02951 M02S00408.enqui11 ---|* USES X - 0, 1, 2, 3, 4, 5, 6.
| Line S02192 Modification History |
M01 (Removed by) | enqui11 |
Seq # *Modification Id* Act
----------------------------+
02952 M01S02192.enqui11 ---|* A - 1, 2, 5, 6.
| Line S00001 Modification History |
M01 (Added by) | enqui11 |
Seq # *Modification Id* Act
----------------------------+
02953 M01S00001.enqui11 +++|* USES X - 0, 1, 2, 3, 4, 5, 6, 7.
02954 M01S00002.enqui11 +++|* A - 1, 2, 5, 6, 7.
| Line S02193 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02955 M01S02193.ns22000 ---|* B - 5.
| Line S00409 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02956 M01S00409.ns22000 +++|* B - 2, 5.
02957 M00S02194.enquire +++|*
02958 M00S02195.enquire +++|* CALLS CDD, SFN.
02959 M00S02196.enquire +++|*
02960 M00S02197.enquire +++|* MACROS WRITEW.
02961 M00S02198.enquire +++|*
02962 M00S02199.enquire +++|
02963 M00S02200.enquire +++|
02964 M00S02201.enquire +++| LST SUBR
02965 M00S02202.enquire +++| MX0 42 PROCESS NAME
02966 M00S02203.enquire +++| BX1 X0*X5
02967 M00S02204.enquire +++| RJ SFN SPACE FILL NAME
02968 M00S02205.enquire +++| LX6 42 RIGHT JUSTIFY NAME
02969 M00S02206.enquire +++| SA6 FOPB
02970 M00S02207.enquire +++| MX0 -6 SET FILE STATUS
02971 M00S02208.enquire +++| BX1 -X0*X5
| Line S02209 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02972 M01S02209.ns22000 ---| SA2 FSTT+X1 FILE STATUS
02973 M01S02210.ns22000 ---| BX6 X2
02974 M01S02211.ns22000 ---| SA6 FOPB+4
| Line S00410 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
02975 M01S00410.ns22000 +++| SA1 FSTT+X1 FILE STATUS
02976 M01S00411.ns22000 +++| RJ SFN SPACE FILL NAME
02977 M01S00412.ns22000 +++| SB2 15 SET FILE ACCESS LEVEL
02978 M01S00413.ns22000 +++| AX3 X5,B2
02979 M01S00414.ns22000 +++| MX0 -3
02980 M01S00415.ns22000 +++| BX3 -X0*X3
02981 M01S00416.ns22000 +++| NZ X3,LST1 IF NOT LEVEL 0
02982 M01S00417.ns22000 +++| SA2 SSFL
02983 M01S00418.ns22000 +++| NZ X2,LST1 IF SECURE SYSTEM
02984 M01S00419.ns22000 +++| SA6 FOPB+4 STORE FILE STATUS
02985 M01S00420.ns22000 +++| SX6 B0+
02986 M01S00421.ns22000 +++| SA6 FOPB+5
02987 M01S00422.ns22000 +++| EQ LST2 GET FILE TYPE
02988 M01S00423.ns22000 +++|
02989 M01S00424.ns22000 +++| LST1 MX0 30
| Line S00425 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | enqui11 |
Seq # *Modification Id* Act
----------------------------+
02990 M02S00425.enqui11 ---| BX6 X0*X6
02991 M02S00426.enqui11 ---| SA3 TALV+X3 FILE ACCESS LEVEL
02992 M02S00427.enqui11 ---| LX3 30
02993 M02S00428.enqui11 ---| MX0 -30
02994 M02S00429.enqui11 ---| BX4 -X0*X3
02995 M02S00430.enqui11 ---| BX6 X4+X6
02996 M02S00431.enqui11 ---| SA6 FOPB+4
02997 M02S00432.enqui11 ---| MX0 12
02998 M02S00433.enqui11 ---| BX6 X0*X3
| Line S00003 Modification History |
M01 (Added by) | enqui11 |
Seq # *Modification Id* Act
----------------------------+
02999 M01S00003.enqui11 +++| BX4 X0*X6 SAVE FILE STATUS
03000 M01S00004.enqui11 +++| SA1 TALV+X3 FILE ACCESS LEVEL
03001 M01S00005.enqui11 +++| RJ SFN SPACE FILL ACCESS LEVEL
03002 M01S00006.enqui11 +++| LX6 -30
03003 M01S00007.enqui11 +++| BX7 -X0*X6
03004 M01S00008.enqui11 +++| BX7 X4+X7
03005 M01S00009.enqui11 +++| SA7 FOPB+4 SET FILE STATUS AND ACCESS LEVEL
03006 M01S00010.enqui11 +++| MX0 12
03007 M01S00011.enqui11 +++| BX6 X0*X6 SET LAST TWO CHARACTERS OF ACCESS LEVEL
| Line S00434 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03008 M01S00434.ns22000 +++| SA6 FOPB+5
03009 M01S00435.ns22000 +++| LST2 MX0 -6
03010 M00S02212.enquire +++| AX5 6 FILE TYPE
03011 M00S02213.enquire +++| BX2 -X0*X5
03012 M00S02214.enquire +++| SA1 FLTY+X2 FILE TYPE
03013 M00S02215.enquire +++| MX0 18
03014 M00S02216.enquire +++| BX1 X0*X1
03015 M00S02217.enquire +++| RJ SFN SPACE FILL NAME
03016 M00S02218.enquire +++| LX6 24
03017 M00S02219.enquire +++| LX5 6+59-12 CHECK WRITE LOCKOUT BIT
| Line S02220 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03018 M01S02220.ns22000 ---| PL X5,LST0.1 IF NOT WRITE LOCKOUT
| Line S00436 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03019 M01S00436.ns22000 +++| PL X5,LST3 IF NOT WRITE LOCKOUT
03020 M00S02221.enquire +++| SA1 =1R* DISPLAY * AFTER FILE TYPE
03021 M00S02222.enquire +++| MX0 -6
03022 M00S02223.enquire +++| BX6 X0*X6
03023 M00S02224.enquire +++| BX6 X1+X6
| Line S02225 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03024 M01S02225.ns22000 ---| LST0.1 LX6 6
| Line S00437 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03025 M01S00437.ns22000 +++| LST3 LX6 6
03026 M00S02226.enquire +++| SA6 FOPB+2
03027 M00S02227.enquire +++| MX0 -2 GET FILE TYPE
03028 M00S02228.enquire +++| BX5 -X0*X5
03029 M00S02229.enquire +++| SB5 X5
| Line S00001 Modification History |
M01 (Added by) | enqui8 |
Seq # *Modification Id* Act
----------------------------+
03030 M01S00001.enqui8 +++| SX2 X2-LOFT
03031 M01S00002.enqui8 +++| NZ X2,LST3.2 IF NOT LOCAL FILE
03032 M01S00003.enqui8 +++| SA2 LSTA SET *TP*
03033 M01S00004.enqui8 +++| EQ B5,B1,LST3.1 IF TAPE FILE
03034 M01S00005.enqui8 +++| SA2 A2+B1 SET *TT*
03035 M01S00006.enqui8 +++| SB2 B5-B1
03036 M01S00007.enqui8 +++| NE B2,B1,LST3.2 IF NOT TERMINAL FILE
03037 M01S00008.enqui8 +++| LST3.1 MX0 48 REPLACE *LO* IN FILE TYPE FIELD
03038 M01S00009.enqui8 +++| LX0 18
03039 M01S00010.enqui8 +++| LX2 30
03040 M01S00011.enqui8 +++| BX6 X0*X6
03041 M01S00012.enqui8 +++| BX6 X2+X6 INSERT NEW FILE TYPE
03042 M01S00013.enqui8 +++| SA6 A6+
03043 M00S02230.enquire +++|
03044 M00S02231.enquire +++|* PROCESSING FST ENTRY.
03045 M00S02232.enquire +++|
| Line S02233 Modification History |
M01 (Removed by) | enqui8 |
Seq # *Modification Id* Act
----------------------------+
03046 M01S02233.enqui8 ---| SA5 A5+1 FST ENTRY
| Line S00014 Modification History |
M01 (Added by) | enqui8 |
Seq # *Modification Id* Act
----------------------------+
03047 M01S00014.enqui8 +++| LST3.2 SA5 A5+1 FST ENTRY
03048 M00S02234.enquire +++| SA2 =10H
| Line S02235 Modification History |
M01 (Removed by) | enqui8 |
Seq # *Modification Id* Act
----------------------------+
03049 M01S02235.enqui8 ---| MX0 24
| Line S00015 Modification History |
M01 (Added by) | enqui8 |
Seq # *Modification Id* Act
----------------------------+
03050 M01S00015.enqui8 +++| NE B5,B1,LST3.3 IF NOT TAPE FILE
03051 M01S00016.enqui8 +++| LX5 24
03052 M01S00017.enqui8 +++| LST3.3 MX0 24
03053 M00S02236.enquire +++| BX1 X0*X5 FILE LENGTH
03054 M00S02237.enquire +++| LX1 24
03055 M00S02238.enquire +++| BX6 X2
| Line S02239 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03056 M01S02239.ns22000 ---| ZR X1,LST1 IF ZERO LENGTH
| Line S00438 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03057 M01S00438.ns22000 +++| ZR X1,LST4 IF ZERO LENGTH
03058 M00S02240.enquire +++| RJ CDD CONVERT TO DECIMAL
| Line S02241 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03059 M01S02241.ns22000 ---| LST1 SA6 FOPB+1
03060 M01S02242.ns22000 ---| LE B5,B1,LST1.1 IF MS OR TAPE FILE
| Line S00439 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03061 M01S00439.ns22000 +++| LST4 SA6 FOPB+1
03062 M01S00440.ns22000 +++| LE B5,B1,LST5 IF MS OR TAPE FILE
03063 M00S02243.enquire +++| SA1 =10H SET BLANKS FOR STATUS
| Line S02244 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03064 M01S02244.ns22000 ---| EQ LST2 STORE STATUS
| Line S00441 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03065 M01S00441.ns22000 +++| EQ LST6 STORE STATUS
03066 M00S02245.enquire +++|
| Line S02246 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03067 M01S02246.ns22000 ---| LST1.1 MX0 -3 SET STATUS FIELD
| Line S00442 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03068 M01S00442.ns22000 +++| LST5 MX0 -3 SET STATUS FIELD
| Line S00018 Modification History |
M01 (Added by) | enqui8 |
Seq # *Modification Id* Act
----------------------------+
03069 M01S00018.enqui8 +++| SA5 A5 FST ENTRY
| Line S02247 Modification History |
M01 (Removed by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
03070 M01S02247.242l642 ---| LX5 59-0
| Line S00014 Modification History |
M01 (Added by) | 242l642 |
Seq # *Modification Id* Act
----------------------------+
03071 M01S00014.242l642 +++| SA1 OPBB
03072 M01S00015.242l642 +++| LX5 59-8
03073 M01S00016.242l642 +++| NG X5,LST6 IF FILE ON INACCESSIBLE DEVICE
03074 M01S00017.242l642 +++| LX5 59-0-59+8
03075 M00S02248.enquire +++| BX2 -X0*X5
03076 M00S02249.enquire +++| SA1 FLST+X2
| Line S02250 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03077 M01S02250.ns22000 ---| PL X5,LST2 IF LAST OPERATION READ
| Line S00443 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03078 M01S00443.ns22000 +++| PL X5,LST6 IF LAST OPERATION READ
03079 M00S02251.enquire +++| MX0 30 UPDATE LAST OPERATION WITH *WRITE*
03080 M00S02252.enquire +++| BX1 X0*X1
03081 M00S02253.enquire +++| SA2 =R*WRITE*
03082 M00S02254.enquire +++| BX1 X1+X2
| Line S02255 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03083 M01S02255.ns22000 ---| LST2 BX6 X1
| Line S00444 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03084 M01S00444.ns22000 +++| LST6 BX6 X1
03085 M00S02256.enquire +++| SA6 FOPB+3
03086 M00S02257.enquire +++| WRITEW OUTPUT,FOPB,FOPL
03087 M00S02258.enquire +++| EQ LSTX EXIT
| Line S00019 Modification History |
M01 (Added by) | enqui8 |
Seq # *Modification Id* Act
----------------------------+
03088 M01S00019.enqui8 +++|
03089 M01S00020.enqui8 +++|
03090 M01S00021.enqui8 +++| LSTA DATA 2LTP
03091 M01S00022.enqui8 +++| DATA 2LTT
03092 M00S02259.enquire +++| PSE SPACE 4,10
03093 M00S02260.enquire +++|** PSE - PROCESS SYSTEM ERROR.
03094 M00S02261.enquire +++|*
03095 M00S02262.enquire +++|* ENTRY (X1) = FWA OF ERROR MESSAGE.
03096 M00S02263.enquire +++|*
03097 M00S02264.enquire +++|* EXIT JOB ABORTED.
03098 M00S02265.enquire +++|*
03099 M00S02266.enquire +++|* MACROS ABORT, MESSAGE.
03100 M00S02267.enquire +++|
03101 M00S02268.enquire +++|
03102 M00S02269.enquire +++| PSE BSS 0 ENTRY
03103 M00S02270.enquire +++| MESSAGE X1 ISSUE DESCRIPTIVE MESSAGE
03104 M00S02271.enquire +++| MESSAGE EMSA * ENQUIRE ABORTED.*
03105 M00S02272.enquire +++| ABORT
03106 M00S02273.enquire +++| RRB SPACE 4,10
03107 M00S02274.enquire +++|** RRB - RESET *QAC* REQUEST BUFFER.
03108 M00S02275.enquire +++|*
03109 M00S02276.enquire +++|* EXIT (X1) .EQ. 0, IF QUEUE SCAN IS COMPLETE.
03110 M00S02277.enquire +++|* .NE. 0, IF REQUEST IS TO BE REISSUED.
03111 M00S02278.enquire +++|*
03112 M00S02279.enquire +++|* USES X - 0, 1, 2, 3, 6.
03113 M00S02280.enquire +++|* A - 1, 2, 3, 6.
03114 M00S02281.enquire +++|* B - 2, 3.
03115 M00S02282.enquire +++|
03116 M00S02283.enquire +++|
03117 M00S02284.enquire +++| RRB SUBR ENTRY/EXIT
03118 M00S02285.enquire +++| SA1 BQAC+4 CHECK QUEUE SELECTION BITS
03119 M00S02286.enquire +++| MX0 -12
03120 M00S02287.enquire +++| LX1 -24
03121 M00S02288.enquire +++| BX1 -X0*X1
03122 M00S02289.enquire +++| ZR X1,RRBX IF QUEUE SEARCH COMPLETE
03123 M00S02290.enquire +++| MX0 -1 CLEAR COMPLETION BIT
03124 M00S02291.enquire +++| SA3 BQAC
03125 M00S02292.enquire +++| BX6 X0*X3
03126 M00S02293.enquire +++| SA6 A3
03127 M00S02294.enquire +++| SA2 A3+B1 RESET BUFFER POINTERS
03128 M00S02295.enquire +++| SX6 X2
03129 M00S02296.enquire +++| SA6 A2+1 SET *IN* = *FIRST*
03130 M00S02297.enquire +++| SB3 NUMQ
03131 M00S02298.enquire +++| SA2 RRBA
03132 M00S02299.enquire +++| SA6 A6+B1 SET *OUT* = *FIRST*
03133 M00S02300.enquire +++| SB2 5 NUMBER OF QUEUE COUNTS PER WORD
03134 M00S02301.enquire +++| BX6 X6-X6
03135 M00S02302.enquire +++| SA3 BQPF
03136 M00S02303.enquire +++| RRB1 ZR B3,RRB3 IF END OF QUEUES
03137 M00S02304.enquire +++| NZ B2,RRB2 IF NOT END OF WORD
03138 M00S02305.enquire +++| SA6 A3
03139 M00S02306.enquire +++| SB2 4 ADVANCE TO NEXT WORD
03140 M00S02307.enquire +++| SA3 A3+B1
03141 M00S02308.enquire +++| SX6 B0+
03142 M00S02309.enquire +++| RRB2 LX1 -1
03143 M00S02310.enquire +++| SB2 B2-B1
03144 M00S02311.enquire +++| LX2 -12
03145 M00S02312.enquire +++| SB3 B3-B1
03146 M00S02313.enquire +++| PL X1,RRB1 IF QUEUE SCANNED
03147 M00S02314.enquire +++| BX6 X2+X6
03148 M00S02315.enquire +++| EQ RRB1 CHECK NEXT QUEUE
03149 M00S02316.enquire +++|
03150 M00S02317.enquire +++| RRB3 SA6 A3+
03151 M00S02318.enquire +++| EQ RRBX RETURN
03152 M00S02319.enquire +++|
03153 M00S02320.enquire +++|
03154 M00S02321.enquire +++| RRBA CON 7777B MAXIMUM QUEUE COUNT
03155 M00S02322.enquire +++| WCL SPACE 4,15
03156 M00S02323.enquire +++|** WCL - WRITE DISPLAY CODED LINES.
03157 M00S02324.enquire +++|*
03158 M00S02325.enquire +++|* ENTRY (B6) = FWA OF DATA IN *QAC* REPLY UNIT BUFFER.
03159 M00S02326.enquire +++|* (B7) = SEARCH FLAG.
03160 M00S02327.enquire +++|* .EQ. 0, SEARCH FROM LWA TO FWA.
03161 M00S02328.enquire +++|* .NE. 0, SEARCH FROM FWA TO LWA.
03162 M00S02329.enquire +++|* (X5) = DATA WORD COUNT.
03163 M00S02330.enquire +++|*
03164 M00S02331.enquire +++|* USES X - 1, 5, 6, 7.
03165 M00S02332.enquire +++|* A - 1, 6.
03166 M00S02333.enquire +++|* B - 2, 3, 4, 5, 6, 7.
03167 M00S02334.enquire +++|*
03168 M00S02335.enquire +++|* CALLS USB.
03169 M00S02336.enquire +++|*
03170 M00S02337.enquire +++|* MACROS WRITES.
03171 M00S02338.enquire +++|*
03172 M00S02339.enquire +++|* NOTES *WCL* SEARCHES A *QAC* REPLY UNIT BUFFER
03173 M00S02340.enquire +++|* CHECKING FOR THE FWA OF DATA TO WRITE.
03174 M00S02341.enquire +++|* IF LESS THAN *MXLC* LINES ARE IN THE REPLY UNIT
03175 M00S02342.enquire +++|* BUFFER, ALL DATA WILL BE WRITTEN. OTHERWISE
03176 M00S02343.enquire +++|* THE FIRST ((B7) .NE. 0) OR LAST ((B7) .EQ. 0) *MXLC*
03177 M00S02344.enquire +++|* LINES WILL BE WRITTEN. LINES ARE TRUNCATED TO *MXLL*
03178 M00S02345.enquire +++|* CHARACTERS.
03179 M00S02346.enquire +++|
03180 M00S02347.enquire +++|
03181 M00S02348.enquire +++| WCL SUBR ENTRY/EXIT
| Line S02349 Modification History |
M01 (Removed by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03182 M01S02349.enqui2 ---| MX7 -12
| Line S00001 Modification History |
M01 (Added by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03183 M01S00001.enqui2 +++| ZR X5,WCLX IF NO DATA
03184 M00S02350.enquire +++| SB5 MXLC SET MAXIMUM NUMBER OF LINES TO WRITE
| Line S02351 Modification History |
M01 (Removed by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03185 M01S02351.enqui2 ---| SB4 B0 INITIALIZE LINE COUNT
| Line S00002 Modification History |
M01 (Added by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03186 M01S00002.enqui2 +++| MX7 -12
03187 M00S02352.enquire +++| SB2 B6+X5 (B2) = LWA+1 OF DATA
03188 M00S02353.enquire +++| NZ B7,WCL5 IF SEARCH FROM FWA TO LWA
03189 M01S00003.enqui2 +++| SB4 B0 INITIALIZE LINE COUNT
03190 M00S02354.enquire +++| WCL1 EQ B2,B6,WCL2 IF BEGINNING OF BUFFER
03191 M00S02355.enquire +++| SB2 B2-B1 GET PREVIOUS WORD
| Line S02356 Modification History |
M01 (Removed by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03192 M01S02356.enqui2 ---| SA1 B2+
| Line S00004 Modification History |
M01 (Added by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03193 M01S00004.enqui2 +++| SA1 B2
03194 M00S02357.enquire +++| BX1 -X7*X1
03195 M00S02358.enquire +++| NZ X1,WCL1 IF NO ZERO BYTE TERMINATOR
03196 M00S02359.enquire +++| SB4 B4+B1 INCREMENT LINE COUNT
03197 M00S02360.enquire +++| LE B4,B5,WCL1 IF LINE LIMIT NOT REACHED
03198 M00S02361.enquire +++| SB2 B2+B1 SET FWA OF PREVIOUS LINE
03199 M00S02362.enquire +++| SB4 B4-B1
03200 M00S02363.enquire +++| WCL2 SX6 B4+ SAVE LINE COUNT
03201 M00S02364.enquire +++| SA6 WCLA
03202 M00S02365.enquire +++| WCL3 SB6 USBBL
03203 M00S02366.enquire +++| RJ USB
03204 M00S02367.enquire +++| SB7 B7-WBUF2+1
03205 M00S02368.enquire +++| SB6 MXLL
03206 M00S02369.enquire +++| SX5 A1+B1 SAVE POSITION IN PACKED BUFFER
03207 M00S02370.enquire +++| LE B7,B6,WCL4 IF LINE NOT TOO LONG
03208 M00S02371.enquire +++| SB7 B6
03209 M00S02372.enquire +++| WCL4 WRITES OUTPUT,WBUF2,B7
03210 M00S02373.enquire +++| SA1 WCLA DECREMENT LINE COUNT
03211 M00S02374.enquire +++| SX6 X1-1
03212 M00S02375.enquire +++| SA6 A1
03213 M00S02376.enquire +++| SB2 X5 ADDRESS OF NEXT LINE
03214 M00S02377.enquire +++| NZ X6,WCL3 IF MAXIMUM LINES NOT WRITTEN
03215 M00S02378.enquire +++| EQ WCLX RETURN
03216 M00S02379.enquire +++|
| Line S02380 Modification History |
M01 (Removed by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03217 M01S02380.enqui2 ---| WCL5 SB3 B6-1
03218 M01S02381.enqui2 ---| WCL6 SB3 B3+1
03219 M01S02382.enqui2 ---| SA1 B3
| Line S00005 Modification History |
M01 (Added by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03220 M01S00005.enqui2 +++| WCL5 SB3 B6+
03221 M01S00006.enqui2 +++| SB4 1 INITIALIZE LINE COUNT
03222 M01S00007.enqui2 +++| WCL6 SA1 B3
03223 M01S00008.enqui2 +++| SB3 B3+1
03224 M00S02383.enquire +++| BX1 -X7*X1
03225 M00S02384.enquire +++| EQ B2,B3,WCL7 IF END OF BUFFER
03226 M00S02385.enquire +++| NZ X1,WCL6 IF NO ZERO BYTE TERMINATOR
03227 M00S02386.enquire +++| SB4 B4+1
| Line S02387 Modification History |
M01 (Removed by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03228 M01S02387.enqui2 ---| LE B4,B5,WCL6 IF LINE LIMIT NOT REACHED
| Line S00009 Modification History |
M01 (Added by) | enqui2 |
Seq # *Modification Id* Act
----------------------------+
03229 M01S00009.enqui2 +++| LT B4,B5,WCL6 IF LINE LIMIT NOT REACHED
03230 M00S02388.enquire +++| WCL7 SB2 B6 SET FWA OF FIRST LINE
03231 M00S02389.enquire +++| EQ WCL2 WRITE LINES TO OUTPUT
03232 M00S02390.enquire +++|
03233 M00S02391.enquire +++|
03234 M00S02392.enquire +++| WCLA CON 0 LINE COUNT
03235 M00S02393.enquire +++| WML SPACE 4,10
03236 M00S02394.enquire +++|** WML - WRITE MESSAGE LINE.
03237 M00S02395.enquire +++|*
03238 M00S02396.enquire +++|* ENTRY (A2) = FWA OF *QAC* REPLY UNIT CONTAINING MESSAGE.
03239 M00S02397.enquire +++|* (X2) = FIRST WORD OF *QAC* REPLY UNIT.
03240 M00S02398.enquire +++|*
03241 M00S02399.enquire +++|* USES X - 0, 1, 2, 3.
03242 M00S02400.enquire +++|* A - 3.
03243 M00S02401.enquire +++|* B - 2, 6, 7.
03244 M00S02402.enquire +++|*
03245 M00S02403.enquire +++|* CALLS USB.
03246 M00S02404.enquire +++|*
03247 M00S02405.enquire +++|* MACROS WRITES.
03248 M00S02406.enquire +++|
03249 M00S02407.enquire +++|
03250 M00S02408.enquire +++| WML SUBR ENTRY/EXIT
03251 M00S02409.enquire +++| SA3 A2+1
03252 M00S02410.enquire +++| ZR X3,WMLX IF NO MESSAGE PRESENT
03253 M00S02411.enquire +++| LX2 -12 GET MESSAGE LENGTH
03254 M00S02412.enquire +++| MX0 -12
03255 M00S02413.enquire +++| BX2 -X0*X2
03256 M00S02414.enquire +++| SB2 A3
03257 M00S02415.enquire +++| SX1 10
03258 M00S02416.enquire +++| IX2 X1*X2 MESSAGE LENGTH (CHARACTERS)
03259 M00S02417.enquire +++| SB6 X2
03260 M00S02418.enquire +++| RJ USB
03261 M00S02419.enquire +++| SB7 B7-WBUF2
03262 M00S02420.enquire +++| WRITES OUTPUT,WBUF2+1,B7
03263 M00S02421.enquire +++| EQ WMLX RETURN
03264 M00S02422.enquire +++| SPACE 4,10
03265 M00S02423.enquire +++|** COMMON DECK CONTROL.
03266 M00S02424.enquire +++|
03267 M00S02425.enquire +++|
03268 M00S02426.enquire +++|* CONTROL FOR COMCUSB.
03269 M00S02427.enquire +++|
03270 M00S02428.enquire +++| WBUF2 DATA 1R
03271 M00S02429.enquire +++| DATA 1R
03272 M00S02430.enquire +++| USBB BSS USBBL STRING BUFFER
03273 M00S02431.enquire +++|
03274 M00S02432.enquire +++| SPACE 4,10
03275 M00S02433.enquire +++|** COMMON DECKS.
03276 M00S02434.enquire +++|
03277 M00S02435.enquire +++|
| Line S02436 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03278 M01S02436.enqui9 ---|*CALL COMCCDD
03279 M01S02437.enqui9 ---|*CALL COMCCFD
03280 M01S02438.enqui9 ---|*CALL COMCCIO
03281 M01S02439.enqui9 ---|*CALL COMCCOD
| Line S00013 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03282 M01S00013.enqui9 +++|*CALL COMCCDD
03283 M01S00014.enqui9 +++|*CALL COMCCFD
03284 M01S00015.enqui9 +++|*CALL COMCCIO
03285 M01S00016.enqui9 +++|*CALL COMCCOD
03286 M00S02440.enquire +++|*CALL COMCCPM
| Line S00040 Modification History |
M01 (Added by) | enqui15 |
Seq # *Modification Id* Act
----------------------------+
03287 M01S00040.enqui15 +++| GMS$ EQU 1 FORCE USE OF MASK DURING SORT
03288 M01S00041.enqui15 +++|*CALL COMCGMS
| Line S02441 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03289 M01S02441.enqui9 ---|*CALL COMCLFM
| Line S00017 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03290 M01S00017.enqui9 +++|*CALL COMCLFM
03291 M00S02442.enquire +++|*CALL COMCMVE
03292 M00S02443.enquire +++|*CALL COMCPFM
| Line S02444 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03293 M01S02444.enqui9 ---|*CALL COMCSFN
03294 M01S02445.enqui9 ---|*CALL COMCSYS
03295 M00S02446.enquire ---|*CALL COMCRDC
03296 M00S02447.enquire ---|*CALL COMCRDW
03297 M01S02448.enqui9 ---|*CALL COMCUSB
| Line S00018 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03298 M01S00018.enqui9 +++|*CALL COMCSFN
03299 M01S00019.enqui9 +++|*CALL COMCSYS
03300 M01S00020.enqui9 +++|*CALL COMCUSB
| Line S00445 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03301 M01S00445.ns22000 +++|*CALL COMCVLC
| Line S02449 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03302 M01S02449.enqui9 ---|*CALL COMCWTC
03303 M01S02450.enqui9 ---|*CALL COMCWTH
03304 M01S02451.enqui9 ---|*CALL COMCWTS
03305 M01S02452.enqui9 ---|*CALL COMCWTW
| Line S00021 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03306 M01S00021.enqui9 +++|*CALL COMCWTC
03307 M01S00022.enqui9 +++|*CALL COMCWTH
03308 M01S00023.enqui9 +++|*CALL COMCWTS
03309 M01S00024.enqui9 +++|*CALL COMCWTW
03310 M00S02453.enquire +++| TITLE BUFFER.
03311 M00S02454.enquire +++|* BUFFERS.
03312 M00S02455.enquire +++|*
| Line S02456 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03313 M01S02456.ns22000 ---|* *MBUF*, *LBUF*, *RBUF* AND *WBUF* USE THE SAME BUFFER.
| Line S00446 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03314 M01S00446.ns22000 +++|* NOTE *LBUF*, *RBUF*, AND *WBUF* ARE OVERLAPPING BUFFERS.
03315 M00S02457.enquire +++|
03316 M00S02458.enquire +++| USE BUFFERS
03317 M00S02459.enquire +++|
03318 M00S02460.enquire +++| FBUF BSS 0 GETFNT BUFFER
03319 M00S02461.enquire +++| OBUF EQU FBUF+FBUFL OUTPUT BUFFER
03320 M00S02462.enquire +++| BUFF EQU OBUF+OBUFL CONTROL POINT AREA / FNT BUFFER
| Line S02463 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03321 M01S02463.ns22000 ---| EBUF EQU BUFF+200B
03322 M01S02464.ns22000 ---| MBUF EQU EBUF+EBUFL MST BUFFER
03323 M01S02465.ns22000 ---| LBUF EQU MBUF LIBRARY LIST BUFFER
03324 M01S02466.ns22000 ---| RBUF EQU MBUF REPLY BUFFER
03325 M01S02467.ns22000 ---| WBUF EQU MBUF WORKING BUFFER
03326 M01S02468.ns22000 ---| RFL= EQU MBUF+TBUFL+5 SET *ENQUIRE* FL
| Line S00447 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03327 M01S00447.ns22000 +++| LBUF EQU BUFF+200B LIBRARY LIST BUFFER
03328 M01S00448.ns22000 +++| RBUF EQU LBUF REPLY BUFFER
03329 M01S00449.ns22000 +++| WBUF EQU LBUF WORKING BUFFER
03330 M01S00450.ns22000 +++| RFL= EQU LBUF+TBUFL+5 FIELD LENGTH REQUIRED
03331 M00S02469.enquire +++| SSM= EQU 0 DECLARE *SSM=* ENTRY POINT
| Line S02470 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03332 M01S02470.enqui9 ---| TITLE PRS-PRESET SUBROUTINE.
| Line S00025 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03333 M01S00025.enqui9 +++| TITLE PRESET.
03334 M00S02471.enquire +++| PRS SPACE 4,10
03335 M00S02472.enquire +++|** ENTRY POINTS.
03336 M01S00026.enqui9 +++| ENQUIRE SPACE 4,10
03337 M01S00027.enqui9 +++|** ENQUIRE.
03338 M00S02473.enquire +++|
03339 M00S02474.enquire +++|
| Line S02475 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03340 M01S02475.enqui9 ---| ENQUIRE BSS 0
| Line S00028 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03341 M01S00028.enqui9 +++| ENQUIRE BSS 0 ENTRY
03342 M00S02476.enquire +++| EQ STATUS
03343 M01S00029.enqui9 +++| LENGTH SPACE 4,10
03344 M01S00030.enqui9 +++|** LENGTH.
03345 M00S02477.enquire +++|
| Line S02478 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03346 M01S02478.enqui9 ---| LENGTH SA1 ACTR ARGUMENT COUNT
| Line S00031 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03347 M01S00031.enqui9 +++|
03348 M01S00032.enqui9 +++| LENGTH BSS 0 ENTRY
03349 M01S00033.enqui9 +++| SA1 ACTR ARGUMENT COUNT
03350 M00S02479.enquire +++| SX1 X1-1
03351 M00S02480.enquire +++| NZ X1,PRS2 IF NOT 1 ARGUMENT
03352 M00S02481.enquire +++| SA1 ARGR CONSTRUCT *FN* KEYWORD FOR ARGUMENT
03353 M00S02482.enquire +++| SA2 DOFN
03354 M00S02483.enquire +++| BX6 X1
03355 M00S02484.enquire +++| SA6 A1+1
03356 M00S02485.enquire +++| BX7 X2
03357 M00S02486.enquire +++| SA7 A1
03358 M00S02487.enquire +++| SB4 2 SET ARGUMENT COUNT
03359 M00S02488.enquire +++| EQ PRS1
03360 M01S00034.enqui9 +++| STATUS SPACE 4,10
03361 M01S00035.enqui9 +++|** STATUS.
03362 M00S02489.enquire +++|
| Line S02490 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03363 M01S02490.enqui9 ---| STATUS SA2 =0LA DEFAULT OPTION
| Line S00036 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03364 M01S00036.enqui9 +++|
03365 M01S00037.enqui9 +++| STATUS BSS 0 ENTRY
03366 M01S00038.enqui9 +++| SA2 =0LA DEFAULT OPTION
| Line S02491 Modification History |
M01 (Removed by) | enqui12 |
Seq # *Modification Id* Act
----------------------------+
03367 M01S02491.enqui12 ---| EQ PRS
| Line S00039 Modification History |
M01 (Added by) | enqui9 |
M02 (Removed by) | enqui12 |
Seq # *Modification Id* Act
----------------------------+
03368 M02S00039.enqui12 ---| SUMMARY SPACE 4,10
03369 M02S00040.enqui12 ---|** SUMMARY.
| Line S02492 Modification History |
M01 (Removed by) | enqui12 |
Seq # *Modification Id* Act
----------------------------+
03370 M01S02492.enqui12 ---|
| Line S02493 Modification History |
M01 (Removed by) | enqui9 |
M02 (Removed by) | enqui12 |
Seq # *Modification Id* Act
----------------------------+
03371 M02S02493.enqui12 ---| SUMMARY BSS 0
| Line S00041 Modification History |
M01 (Added by) | enqui9 |
M02 (Removed by) | enqui12 |
Seq # *Modification Id* Act
----------------------------+
03372 M02S00041.enqui12 ---|
03373 M02S00042.enqui12 ---| SUMMARY BSS 0 ENTRY
| Line S02494 Modification History |
M01 (Removed by) | enqui12 |
Seq # *Modification Id* Act
----------------------------+
03374 M01S02494.enqui12 ---| SA2 =0LR DEFAULT OPTION
03375 M01S02495.enqui12 ---| SX6 1 SET *SUMMARY* CALLED FLAG
03376 M01S02496.enqui12 ---| SA6 SUMF
03377 M00S02497.enquire ---|* EQ PRS
| Line S02498 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03378 M01S02498.enqui9 ---|
03379 M01S02499.enqui9 ---|
| Line S00043 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03380 M01S00043.enqui9 +++| PRS SPACE 4,25
03381 M00S02500.enquire +++|** PRS - PRESET SUBROUTINE.
03382 M00S02501.enquire +++|*
03383 M00S02502.enquire +++|* EXIT (OPAL) = .LT. 0, IF ALL OPTIONS TO BE EXECUTED.
03384 M00S02503.enquire +++|* (BUFF) = CONTROL POINT ADDRESS TO BE READ
03385 M00S02504.enquire +++|* FOR FIRST *RSB* READ (FIRST 100B OF CPA).
03386 M00S02505.enquire +++|* (BUFF+100B) = CONTROL POINT ADDRESS TO BE READ
03387 M00S02506.enquire +++|* FOR SECOND *RSB* READ (SECOND 100B OF CPA).
| Line S02507 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03388 M01S02507.ns22000 ---|* (ESTPR) = STATUS WORD FOR *RSB* READ OF EST ENTRIES.
03389 M00S02508.enquire ---|* (FT) = FILE TYPE.
03390 M00S02509.enquire ---|* = 0, IF TERMINAL FILE.
| Line S00451 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03391 M01S00451.ns22000 +++|* (SSFL) .NE. 0, IF SECURE SYSTEM.
03392 M01S00452.ns22000 +++|* =0, IF NON-SECURE SYSTEM.
03393 M01S00453.ns22000 +++|* (ACAT) = JOB ACCESS CATEGORIES IF SECURE SYSTEM.
03394 M01S00454.ns22000 +++|* (ALVL) = JOB ACCESS LEVELS IF SECURE SYSTEM.
| Line S00007 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
03395 M01S00007.252l678 +++|* (UESC) = USER EM SHIFT COUNT FROM CMR.
03396 M00S02510.enquire +++|*
03397 M00S02511.enquire +++|* USES X - 0, 1, 2, 3, 4, 5, 6.
03398 M00S02512.enquire +++|* A - 1, 2, 3, 4, 6.
03399 M00S02513.enquire +++|* B - 1, 4, 5.
03400 M00S02514.enquire +++|*
03401 M00S02515.enquire +++|* CALLS ARG, SAL, STF.
03402 M00S02516.enquire +++|*
| Line S02517 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03403 M01S02517.ns22000 ---|* MACROS ABORT, MESSAGE, SYSTEM.
| Line S00455 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
03404 M02S00455.252l678 ---|* MACROS ABORT, MESSAGE.
| Line S00008 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
03405 M01S00008.252l678 +++|* MACROS ABORT, MESSAGE, SYSTEM.
03406 M00S02518.enquire +++|
03407 M00S02519.enquire +++|
03408 M00S02520.enquire +++| PRS SA1 ACTR ARGUMENT COUNT
03409 M00S02521.enquire +++| BX6 X2
03410 M00S02522.enquire +++| SB4 X1
03411 M00S02523.enquire +++| SA6 DFOP
03412 M00S02524.enquire +++|
| Line S02525 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03413 M01S02525.ns22000 ---|* CALL TO READ SYSTEM POINTERS.
03414 M01S02526.ns22000 ---|
03415 M01S02527.ns22000 ---| PRS1 SB1 1 INITIALIZE B1
03416 M01S02528.ns22000 ---| SYSTEM RSB,R,PTRS
03417 M01S02529.ns22000 ---| SA1 BUFF0 GET EST FWA
03418 M01S02530.ns22000 ---| MX4 12
03419 M01S02531.ns22000 ---| BX3 X4*X1
03420 M01S02532.ns22000 ---| BX5 X3
03421 M01S02533.ns22000 ---| LX3 30
03422 M01S02534.ns22000 ---| SA2 ESTPR
03423 M01S02535.ns22000 ---| BX6 X3+X2
03424 M01S02536.ns22000 ---| SA6 A2
03425 M01S02537.ns22000 ---| LX1 12 LWA OF EST
03426 M01S02538.ns22000 ---| BX2 X4*X1
03427 M01S02539.ns22000 ---| LX5 12
03428 M01S02540.ns22000 ---| LX2 12
03429 M01S02541.ns22000 ---| IX2 X2-X5 LENGTH OF EST TABLE
03430 M01S02542.ns22000 ---| LX2 36
03431 M01S02543.ns22000 ---| SA3 A2 EST STATUS WORD
03432 M01S02544.ns22000 ---| BX6 X3+X2
03433 M01S02545.ns22000 ---| SA6 A3+
03434 M01S02546.ns22000 ---|
03435 M01S02547.ns22000 ---|
03436 M01S02548.ns22000 ---|* PRESET AND STORE ARGUMENTS
03437 M01S02549.ns22000 ---|
03438 M01S02550.ns22000 ---| EQ B4,PRS3 IF NO ARGUMENTS
| Line S00456 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03439 M01S00456.ns22000 +++|* PROCESS ARGUMENTS.
03440 M01S00457.ns22000 +++|
03441 M01S00458.ns22000 +++| PRS1 SB1 1
03442 M01S00459.ns22000 +++| ZR B4,PRS3 IF NO ARGUMENTS
03443 M00S02551.enquire +++| SB5 ARGT PROCESS ARGUMENTS
03444 M00S02552.enquire +++| SA4 ARGR
03445 M00S02553.enquire +++| RJ ARG
03446 M00S02554.enquire +++| SA2 TAGS CHECK FOR ARGUMENTS NOT EQUIVALENCED
03447 M00S02555.enquire +++| LX2 6
03448 M00S02556.enquire +++| SB4 X2-1R9
03449 M00S02557.enquire +++| GT B4,PRS2 IF *OP* USED BUT NOT EQUIVALENCED
03450 M00S02558.enquire +++| SA2 A2+B1
03451 M00S02559.enquire +++| LX2 6
03452 M00S02560.enquire +++| SB4 X2-1R9
03453 M00S02561.enquire +++| GT B4,PRS2 IF *O* USED BUT NOT EQUIVALENCED
03454 M00S02562.enquire +++| SA2 A2+B1
03455 M00S02563.enquire +++| LX2 6
03456 M00S02564.enquire +++| SB4 X2-1R9
03457 M00S02565.enquire +++| GT B4,PRS2 IF *FN* USED BUT NOT EQUIVALENCED
03458 M00S02566.enquire +++| ZR X1,PRS3 IF NO ARGUMENT ERRORS
03459 M00S02567.enquire +++| SA1 ACTR
03460 M00S02568.enquire +++| SB4 X1-1
03461 M00S02569.enquire +++| NZ B4,PRS2 IF MORE THAN ONE ARGUMENT
03462 M00S02570.enquire +++| SA4 ARGR
03463 M00S02571.enquire +++| MX0 -6
03464 M00S02572.enquire +++| BX6 -X0*X4
03465 M00S02573.enquire +++| SX6 X6-1R=
03466 M00S02574.enquire +++| ZR X6,PRS2 IF SEPARATOR IS *=*
03467 M00S02575.enquire +++| BX6 X0*X4
03468 M00S02576.enquire +++| SA6 TAGS
03469 M00S02577.enquire +++| EQ PRS3 NO ARGUMENT ERRORS
03470 M00S02578.enquire +++|
03471 M00S02579.enquire +++| PRS2 MESSAGE MSGB * ARGUMENT ERRORS.*
03472 M00S02580.enquire +++| ABORT
03473 M00S02581.enquire +++|
| Line S02582 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03474 M01S02582.enqui9 ---|
03475 M01S02583.enqui9 ---|
03476 M00S02584.enquire ---| PRS3 SA2 TAGS+3
| Line S02585 Modification History |
M01 (Removed by) | enqui12 |
Seq # *Modification Id* Act
----------------------------+
03477 M01S02585.enqui12 ---| SA3 SUMF
03478 M00S02586.enquire ---| ZR X2,PRS3.0 IF NO JSN
03479 M01S02587.enqui12 ---| NZ X3,PRS2 IF *SUMMARY* CALLED WITH JSN PARAMETER
03480 M00S02588.enquire ---| SA1 ACTR
03481 M00S02589.enquire ---| MX0 54 ELIMINATE OPTION SELECTION CHARACTER
03482 M00S02590.enquire ---| BX2 X0*X2
03483 M00S02591.enquire ---| ZR X2,PRS3.1 IF JSN SPECIFIED BUT NOT EQUIVALENCED
03484 M00S02592.enquire ---| SX1 X1-1
03485 M00S02593.enquire ---| LX2 -18
03486 M00S02594.enquire ---| MX0 -18
03487 M00S02595.enquire ---| BX6 -X0*X2
03488 M00S02596.enquire ---| NZ X6,PRS2 IF JSN .GT. 4 CHARACTERS LONG
03489 M00S02597.enquire ---| EQ PRS3.1 CHECK ARGUMENT COUNT
03490 M00S02598.enquire ---|
03491 M00S02599.enquire ---| PRS3.0 SA2 A2+1
03492 M00S02600.enquire ---| ZR X2,PRS3.2 IF NO UJN
03493 M01S02601.enqui12 ---| NZ X3,PRS2 IF *SUMMARY* CALLED WITH UJN PARAMETER
03494 M00S02602.enquire ---| SA1 ACTR
03495 M00S02603.enquire ---| MX0 54 ELIMINATE OPTION SELECTION CHARACTER
03496 M00S02604.enquire ---| BX2 X0*X2
03497 M00S02605.enquire ---| ZR X2,PRS3.1 IF UJN SPECIFIED BUT NOT EQUIVALENCED
03498 M00S02606.enquire ---| SX1 X1-1
03499 M00S02607.enquire ---| PRS3.1 SB4 X1-1
03500 M00S02608.enquire ---|
03501 M00S02609.enquire ---|* CHECK FOR *O* SPECIFIED WITH UJN OR JSN. ANY OTHER PARAMETER
| Line S02610 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03502 M01S02610.v23l617 ---|* IS INVALID.
| Line S00100 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03503 M01S00100.v23l617 +++|* IS INCORRECT.
03504 M00S02611.enquire +++|
03505 M00S02612.enquire +++| ZR B4,PRS3.3 IF NO MORE PARAMETERS
03506 M00S02613.enquire +++| SB4 B4-2
03507 M00S02614.enquire +++| NZ B4,PRS2 IF TOO MANY PARAMETERS
03508 M00S02615.enquire +++| SA1 TAGS+B1
03509 M00S02616.enquire +++| ZR X1,PRS2 IF *O* NOT SPECIFIED
03510 M00S02617.enquire +++| EQ PRS3.3 CLEAR DEFAULT OPTION
03511 M00S02618.enquire +++|
03512 M00S02619.enquire +++| PRS3.2 SA1 TAGS+2
03513 M00S02620.enquire +++| ZR X1,PRS3.4 IF FILENAME NOT SPECIFIED
03514 M00S02621.enquire +++| PRS3.3 BX6 X6-X6 CLEAR DEFAULT OPTION
03515 M00S02622.enquire +++| SA6 DFOP
03516 M00S02623.enquire +++| PRS3.4 SA1 TAGS+B1 CHANGE OUTPUT FILE NAME
03517 M00S02624.enquire +++| ZR X1,PRS3.5 IF *O* NOT SPECIFIED
03518 M00S02625.enquire +++| SA2 OUTPUT
03519 M00S02626.enquire +++| MX0 -18
03520 M00S02627.enquire +++| BX6 -X0*X2
03521 M00S02628.enquire +++| BX6 X6+X1
03522 M00S02629.enquire +++| SA6 A2
| Line S02630 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03523 M01S02630.ns22000 ---| PRS3.5 SX2 OUTPUT
03524 M01S02631.ns22000 ---| RJ STF SET TERMINAL FILE
| Line S00460 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03525 M01S00460.ns22000 +++| PRS3.5 GETPP JPPW,LLM,PRSA
03526 M01S00461.ns22000 +++| SX2 OUTPUT
03527 M01S00462.ns22000 +++| RJ STF
03528 M01S00463.ns22000 +++| SA6 FT
| Line S02632 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03529 M01S02632.enqui9 ---| NZ X6,PRS4 IF NOT TERMINAL
| Line S00044 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03530 M01S00044.enqui9 +++| NZ X6,PRS3.6 IF NOT TERMINAL
| Line S02633 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03531 M01S02633.ns22000 ---| SA6 FT FILE TYPE
03532 M00S02634.enquire ---| SA2 =1L CLEAR PAGE EJECT
03533 M00S02635.enquire ---| BX6 X2
03534 M00S02636.enquire ---| SA6 PAGE
03535 M00S02637.enquire ---| MESSAGE ZERO,1 CLEAR LINE 1 OF CPA
| Line S00045 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03536 M01S00045.enqui9 +++| PRS3.6 SA1 FT
03537 M01S00046.enqui9 +++| WRITEW O,PRSA,X1 CONDITIONALLY WRITE FORMAT EFFECTOR
03538 M00S02638.enquire +++|
| Line S02639 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03539 M01S02639.enqui9 ---|* PRESETING OPTIONS TO BE EXECUTED
| Line S00047 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03540 M01S00047.enqui9 +++|* PRESET OPTIONS TO BE EXECUTED.
03541 M00S02640.enquire +++|
| Line S02641 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03542 M01S02641.ns22000 ---| PRS4 SA1 TAGS CHECK OPTIONS
| Line S00464 Modification History |
M01 (Added by) | ns22000 |
M02 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03543 M02S00464.enqui9 ---| PRS4 SA1 FT
03544 M02S00465.enqui9 ---| WRITEW O,PRSA,X1 CONDITIONALLY WRITE FORMAT EFFECTOR
03545 M02S00466.enqui9 ---| SA1 TAGS CHECK OPTIONS
| Line S00048 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03546 M01S00048.enqui9 +++| PRS4 SA1 TAGS CHECK OPTIONS
03547 M00S02642.enquire +++| NZ X1,PRS5 IF NOT DEFAULT OPTION
03548 M00S02643.enquire +++| SA2 DFOP
03549 M00S02644.enquire +++| BX6 X2
03550 M00S02645.enquire +++| SA6 A1
03551 M00S02646.enquire +++| BX1 X2
03552 M00S02647.enquire +++| PRS5 MX0 6
03553 M00S02648.enquire +++| BX2 X0*X1
03554 M00S02649.enquire +++| ZR X2,PRS10 IF THRU ALL SPECIFIED OPTIONS
03555 M00S02650.enquire +++| LX1 6 SHIFT OPTION TO BOTTON OF WORD
03556 M00S02651.enquire +++| BX6 X1 RESET OPTION WORD
03557 M00S02652.enquire +++| SA6 A1+
03558 M00S02653.enquire +++|
03559 M00S02654.enquire +++|* CHECK FOR LEGAL OPTION.
03560 M00S02655.enquire +++|
03561 M00S02656.enquire +++| SA4 OPNS
03562 M00S02657.enquire +++| PRS6 BX3 X0*X4 CHECK OPTION
03563 M00S02658.enquire +++| IX3 X3-X2
03564 M00S02659.enquire +++| ZR X3,PRS8 IF LEGAL OPTION
03565 M00S02660.enquire +++| SA4 A4+B1
03566 M00S02661.enquire +++| NZ X4,PRS6 IF MORE OPTIONS TO CHECK
03567 M00S02662.enquire +++|
03568 M00S02663.enquire +++|* SEND ERROR MESSAGE AND ABORT JOB.
03569 M00S02664.enquire +++|
03570 M00S02665.enquire +++| SA1 MSGA+1 PLACE OPTION IN MESSAGE
| Line S02666 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03571 M01S02666.v23l617 ---| LX2 18
| Line S00101 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03572 M01S00101.v23l617 +++| LX0 12
03573 M01S00102.v23l617 +++| LX2 12
03574 M01S00103.v23l617 +++| BX1 -X0*X1
03575 M00S02667.enquire +++| BX6 X1+X2
03576 M00S02668.enquire +++| SA6 A1
| Line S02669 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03577 M01S02669.v23l617 ---| MESSAGE MSGA *INVALID PARAMETER*
| Line S00104 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03578 M01S00104.v23l617 +++| MESSAGE MSGA * INCORRECT OPTION X.*
03579 M00S02670.enquire +++| ABORT
03580 M00S02671.enquire +++|
03581 M00S02672.enquire +++|* SET EXECUTION BITS IN OPTION TABLE.
03582 M00S02673.enquire +++|
03583 M00S02674.enquire +++| PRS8 SX6 B1
03584 M00S02675.enquire +++| LX6 18
03585 M00S02676.enquire +++| BX6 X6+X4
03586 M00S02677.enquire +++| SA6 A4
03587 M00S02678.enquire +++| LX2 6 RIGHT JUSTIFY OPTION
03588 M00S02679.enquire +++| SX6 X2-1RA
03589 M00S02680.enquire +++| NZ X6,PRS4 IF NOT *A* OPTION
| Line S02681 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03590 M01S02681.enqui9 ---| SX6 B1 SET EXECUTION FLAG WORD FOR EXECUTION OF
03591 M01S02682.enqui9 ---| SA6 OPAL ALL OPTIONS
03592 M01S02683.enqui9 ---| EQ PRS4 CHECKING REMAINDING OPTIONS
| Line S00049 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03593 M01S00049.enqui9 +++| SX6 B1+ SET EXECUTION FLAG WORD FOR ALL OPTIONS
03594 M01S00050.enqui9 +++| SA6 OPAL
03595 M01S00051.enqui9 +++| EQ PRS4 CHECK REMAINING OPTIONS
03596 M00S02684.enquire +++|
03597 M00S02685.enquire +++|* SET RSB BUFFER WORDS TO READ CONTROL POINT AREA.
03598 M00S02686.enquire +++|
03599 M00S02687.enquire +++| PRS10 SA2 STAT1+1
03600 M00S02688.enquire +++| BX6 X2
03601 M00S02689.enquire +++| SA6 BUFF
03602 M00S02690.enquire +++| SA2 STAT2+1
03603 M00S02691.enquire +++| BX6 X2
03604 M00S02692.enquire +++| SA6 BUFF+100B
03605 M00S02693.enquire +++| SA1 OPAL
| Line S02694 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03606 M01S02694.ns22000 ---| ZR X1,MAIN IF NOT ALL OPTIONS TO BE EXECUTED
| Line S00467 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03607 M01S00467.ns22000 +++| ZR X1,PRS11 IF NOT ALL OPTIONS TO BE EXECUTED
03608 M00S02695.enquire +++| RJ SAL ASSURE ALL OPTIONS ARE SET
03609 M01S00468.ns22000 +++|
03610 M01S00469.ns22000 +++|* CHECK IF SECURE SYSTEM.
03611 M01S00470.ns22000 +++|
03612 M01S00471.ns22000 +++| PRS11 GETSSL SSFL GET SYSTEM SECURITY MODE
03613 M01S00472.ns22000 +++| SA1 SSFL
03614 M01S00473.ns22000 +++| LX1 12
03615 M01S00474.ns22000 +++| MX0 -3
03616 M01S00475.ns22000 +++| BX6 -X0*X1
03617 M01S00476.ns22000 +++| SA6 SSFL SET SECURE SYSTEM FLAG
| Line S00009 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
03618 M01S00009.252l678 +++|
03619 M01S00010.252l678 +++|* GET USER EXTENDED MEMORY SHIFT COUNT FROM CMR.
03620 M01S00011.252l678 +++|
03621 M01S00012.252l678 +++| SYSTEM RSB,R,PRSB
03622 M01S00013.252l678 +++| SA1 UESC
03623 M01S00014.252l678 +++| LX1 0-33
03624 M01S00015.252l678 +++| MX0 -3
03625 M01S00016.252l678 +++| BX6 -X0*X1
03626 M01S00017.252l678 +++| SA6 A1
03627 M00S02696.enquire +++| EQ MAIN
| Line S00477 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03628 M01S00477.ns22000 +++|
03629 M01S00478.ns22000 +++|
03630 M01S00479.ns22000 +++| PRSA BSS 1 PRINT DENSITY
| Line S00018 Modification History |
M01 (Added by) | 252l678 |
Seq # *Modification Id* Act
----------------------------+
03631 M01S00018.252l678 +++| PRSB VFD 24/1,18/MEFL,18/UESC
03632 M00S02697.enquire +++| SAL SPACE 4,10
03633 M00S02698.enquire +++|** SAL - SET ALL OPTIONS.
03634 M00S02699.enquire +++|*
03635 M00S02700.enquire +++|* EXIT ALL OPTION BITS SET FOR EXECUTION.
03636 M00S02701.enquire +++|*
03637 M00S02702.enquire +++|* USES X - 3, 4, 5, 6.
03638 M00S02703.enquire +++|* A - 4, 5, 6.
03639 M00S02704.enquire +++|
03640 M00S02705.enquire +++|
03641 M00S02706.enquire +++| SAL SUBR ENTRY/EXIT
03642 M00S02707.enquire +++| SA4 OPNS+1 OPTION TABLE - SKIP *A* OPTION
03643 M00S02708.enquire +++| SA5 EBIT EXECUTION BIT MASK
03644 M00S02709.enquire +++| SAL1 ZR X4,SAL3 IF END OF OPTION TABLE
03645 M00S02710.enquire +++| BX3 X5*X4 CLEAR OPTION FROM OPTION TABLE
03646 M00S02711.enquire +++| NZ X3,SAL2 IF EXECUTION BIT SET
03647 M00S02712.enquire +++| SX6 1 SET EXECUTION BIT
03648 M00S02713.enquire +++| LX6 18
03649 M00S02714.enquire +++| BX6 X6+X4
03650 M00S02715.enquire +++| SA6 A4+
03651 M00S02716.enquire +++| SAL2 SA4 A4+1 CHECK NEXT OPTION
03652 M00S02717.enquire +++| EQ SAL1
03653 M00S02718.enquire +++|
03654 M00S02719.enquire +++| SAL3 BX6 X6-X6 RESET END OF OPTION TABLE - SINCE *S*
03655 M00S02720.enquire +++| SA6 A4-2 AND *T* OPTIONS ARE REDUNDANT
03656 M00S02721.enquire +++| EQ SALX
03657 M00S02722.enquire +++| SPACE 4,10
03658 M00S02723.enquire +++|** PRESET COMMON DECKS.
03659 M00S02724.enquire +++|
03660 M00S02725.enquire +++|
| Line S02726 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03661 M01S02726.enqui9 ---|*CALL COMCARG
03662 M01S02727.enqui9 ---|*CALL COMCSTF
| Line S00052 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03663 M01S00052.enqui9 +++|*CALL COMCARG
03664 M01S00053.enqui9 +++|*CALL COMCSTF
03665 M00S02728.enquire +++| SPACE 4,10
03666 M00S02729.enquire +++|** PRESET CONSTANTS.
03667 M00S02730.enquire +++|
03668 M00S02731.enquire +++|
03669 M00S02732.enquire +++|* ARGUMENT TABLE.
03670 M00S02733.enquire +++|
03671 M00S02734.enquire +++| ARGT BSS 0
03672 M00S02735.enquire +++| OP ARG NASV,TAGS+0 OPTIONS
03673 M00S02736.enquire +++| O ARG NASV,TAGS+1 OUTPUT FILE
03674 M00S02737.enquire +++| FN ARG NASV,TAGS+2 FILE NAME
03675 M00S02738.enquire +++| JSN ARG =1,TAGS+3 JSN
03676 M00S02739.enquire +++| UJN ARG =1,TAGS+4 UJN
03677 M00S02740.enquire +++| ARG
03678 M00S02741.enquire +++|
03679 M00S02742.enquire +++| ZERO CON 0
03680 M00S02743.enquire +++|
03681 M00S02744.enquire +++|* MESSAGES.
03682 M00S02745.enquire +++|
| Line S02746 Modification History |
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03683 M01S02746.v23l617 ---| MSGA DATA L* INVALID OPTION *
| Line S00105 Modification History |
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act
----------------------------+
03684 M01S00105.v23l617 +++| MSGA DATA C* INCORRECT OPTION X.*
03685 M00S02747.enquire +++| MSGB DATA L* ARGUMENT ERRORS.*
03686 M00S02748.enquire +++|
03687 M00S02749.enquire +++|* DEFAULT OPTIONS.
03688 M00S02750.enquire +++|
03689 M00S02751.enquire +++| DOFN VFD 42/0LFN,18/1R=
03690 M00S02752.enquire +++| DFOP CON 0
| Line S02753 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
03691 M01S02753.ns22000 ---|
03692 M01S02754.ns22000 ---|* CALL TO READ EST POINTER.
03693 M01S02755.ns22000 ---|
03694 M01S02756.ns22000 ---| PTRS VFD 12/0,12/1,18/ESTP,18/BUFF0
03695 M01S02757.ns22000 ---| BUFF0 CON -0
| Line S02758 Modification History |
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03696 M01S02758.enqui9 ---|
| Line S00054 Modification History |
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act
----------------------------+
03697 M01S00054.enqui9 +++| SPACE 4,10
| Line S02759 Modification History |
M01 (Removed by) | ns21000 |
Seq # *Modification Id* Act
----------------------------+
03698 M01S02759.ns21000 ---|* DEMAND FILE EQUATES.
03699 M01S02760.ns21000 ---|
03700 M01S02761.ns21000 ---|*CALL COMSRSX
03701 M00S02762.enquire ---| END