cdc:nos2.source:opl.opl871:deck:enquire.002
Deck ENQUIRE Part 002
28 Modifications
Listing Sections
- Deck ENQUIRE Start
- Deck ENQUIRE Part 1 (Line 1267)
- Deck ENQUIRE Part 2 (Line 2774)
Source
Seq # *Modification Id* Act ----------------------------+ 02774 M00S02028.enquire +++|* (X6) = FIRST WORD OF STATUS DESCRIPTOR. 02775 M00S02029.enquire +++|*
| Line S02030 Modification History | |
|---|---|
M01 (Removed by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02776 M01S02030.v23l617 ---|* ERROR TO *PSE*, IF INVALID QUEUE TYPE.
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02777 M01S00098.v23l617 +++|* ERROR TO *PSE*, IF INCORRECT QUEUE TYPE. 02778 M00S02031.enquire +++|* 02779 M00S02032.enquire +++|* USES X - 0, 1, 2, 3, 4, 6. 02780 M00S02033.enquire +++|* A - 1, 2, 3.
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | enqui14 |
Seq # *Modification Id* Act ----------------------------+ 02781 M01S00042.enqui14 +++|* 02782 M01S00043.enqui14 +++|* CALLS DTT. 02783 M00S02034.enquire +++| 02784 M00S02035.enquire +++| 02785 M00S02036.enquire +++| GJS SUBR ENTRY/EXIT 02786 M00S02037.enquire +++| SA1 B6+ GET QUEUE TYPE 02787 M00S02038.enquire +++| MX0 -12 02788 M00S02039.enquire +++| LX1 -12 02789 M00S02040.enquire +++| BX1 -X0*X1 02790 M00S02041.enquire +++| SA2 QTST SEARCH FOR MATCHING QUEUE TYPE 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
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S02448 Modification History | |
|---|---|
M01 (Removed by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 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.
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S02587 Modification History | |
|---|---|
M01 (Removed by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S02601 Modification History | |
|---|---|
M01 (Removed by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00468 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 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
cdc/nos2.source/opl.opl871/deck/enquire.002.txt · Last modified: by 127.0.0.1