cdc:nos2.source:opl.opl871:deck:enquire.002
Deck ENQUIRE Part 002
28 Modifications
Listing Sections
- Deck ENQUIRE Start
- Deck ENQUIRE Part 1 (Line 1182)
- Deck ENQUIRE Part 2 (Line 2786)
Source
Seq # *Modification Id* Act ----------------------------+ 02786 M01S02037.enquire +++| SA1 B6+ GET QUEUE TYPE 02787 M01S02038.enquire +++| MX0 -12 02788 M01S02039.enquire +++| LX1 -12 02789 M01S02040.enquire +++| BX1 -X0*X1 02790 M01S02041.enquire +++| SA2 QTST SEARCH FOR MATCHING QUEUE TYPE 02791 M01S02042.enquire +++| MX0 18 02792 M01S02043.enquire +++| GJS1 ZR X2,GJS3 IF END OF TABLE 02793 M01S02044.enquire +++| BX3 X0*X2 02794 M01S02045.enquire +++| LX3 18 02795 M01S02046.enquire +++| IX4 X1-X3 02796 M01S02047.enquire +++| SX3 X2 ADDRESS OF STATUS DESCRIPTOR 02797 M01S02048.enquire +++| SA2 A2+1 02798 M01S02049.enquire +++| NZ X4,GJS1 IF NO MATCH 02799 M01S02050.enquire +++| NZ X3,GJS2 IF NOT EXECUTING JOB 02800 M01S02051.enquire +++| SA1 B6+B4 GET EJT STATUS 02801 M01S02052.enquire +++| MX0 -5 02802 M01S02053.enquire +++| LX1 11
| Line S02054 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui14 |
Seq # *Modification Id* Act ----------------------------+ 02803 M02S02054.enqui14 ---| BX1 -X0*X1
| Line S02055 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui14 |
Seq # *Modification Id* Act ----------------------------+ 02804 M02S02055.enqui14 ---| SA3 X1+EJST (X3) = ADDRESS OF STATUS DESCRIPTOR 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 M01S02056.enquire +++| GJS2 SA1 X3 02813 M01S02057.enquire +++| BX6 X1 02814 M01S02058.enquire +++| EQ GJSX RETURN 02815 M01S02059.enquire +++|
| Line S02060 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 02816 M02S02060.v23l617 ---| GJS3 SX1 EMSB * INVALID QUEUE TYPE.* 02817 M01S00099.v23l617 +++| GJS3 SX1 EMSB * INCORRECT QUEUE TYPE.* 02818 M01S02061.enquire +++| EQ PSE ISSUE ERROR MESSAGE AND ABORT 02819 M01S02062.enquire +++| GSC SPACE 4,10 02820 M01S02063.enquire +++|** GSC - GET SERVICE CLASS. 02821 M01S02064.enquire +++|* 02822 M01S02065.enquire +++|* ENTRY (B6) = PEEK REPLY ENTRY ADDRESS. 02823 M01S02066.enquire +++|* 02824 M01S02067.enquire +++|* EXIT (X6) = SERVICE CLASS CHARACTER, LEFT JUSTIFIED. 02825 M01S02068.enquire +++|* 02826 M01S02069.enquire +++|* USES X - 0, 1, 2, 3, 4, 6. 02827 M01S02070.enquire +++|* A - 1, 2. 02828 M01S02071.enquire +++|* B - 2. 02829 M01S02072.enquire +++| 02830 M01S02073.enquire +++| 02831 M01S02074.enquire +++| GSC SUBR ENTRY/EXIT 02832 M01S02075.enquire +++| MX0 6 GET SERVICE CLASS 02833 M01S02076.enquire +++| SA1 B6+B1 02834 M01S02077.enquire +++| SX3 10 CALCULATE WORD ORDINAL 02835 M01S02078.enquire +++| BX1 X0*X1 02836 M01S02079.enquire +++| LX1 6 02837 M01S02080.enquire +++| BX4 X1 02838 M01S02081.enquire +++| SX6 X3 02839 M01S02082.enquire +++| IX3 X1/X3 02840 M01S02083.enquire +++| SA2 GSCA+X3 02841 M01S02084.enquire +++| IX3 X3*X6 02842 M01S02085.enquire +++| IX4 X4-X3 02843 M01S02086.enquire +++| SX3 6 CALCULATE SHIFT COUNT 02844 M01S02087.enquire +++| IX4 X3*X4 02845 M01S02088.enquire +++| SB2 X4 02846 M01S02089.enquire +++| LX2 X2,B2 02847 M01S02090.enquire +++| BX6 X0*X2 SERVICE CLASS CHARACTER 02848 M01S02091.enquire +++| EQ GSCX RETURN 02849 M01S02092.enquire +++| 02850 M01S02093.enquire +++| 02851 M01S02094.enquire +++| GSCA DATA L+"NMDS"+ SERVICE CLASS CHARACTER STRING 02852 M01S02095.enquire +++| IPR SPACE 4,15 02853 M01S02096.enquire +++|** IPR - ISSUE PEEK REQUEST. 02854 M01S02097.enquire +++|* 02855 M01S02098.enquire +++|* ENTRY (BQAC) = *QAC* PEEK REQUEST. 02856 M01S02099.enquire +++|* 02857 M01S02100.enquire +++|* EXIT (X1) = 0, IF REQUEST SUCCESSFUL. 02858 M01S02101.enquire +++|* = 1, IF NO JOBS FOUND. 02859 M01S02102.enquire +++|* 02860 M01S02103.enquire +++|* ERROR TO *PSE*, IF *QAC* ERROR ENCOUNTERED. 02861 M01S02104.enquire +++|* 02862 M01S02105.enquire +++|* USES X - 0, 1, 2, 6. 02863 M01S02106.enquire +++|* A - 1, 2, 6. 02864 M01S02107.enquire +++|* 02865 M01S02108.enquire +++|* CALLS ISM. 02866 M01S02109.enquire +++|* 02867 M01S02110.enquire +++|* MACROS SYSTEM. 02868 M01S02111.enquire +++| 02869 M01S02112.enquire +++| 02870 M01S02113.enquire +++| IPR SUBR ENTRY/EXIT 02871 M01S02114.enquire +++| SYSTEM QAC,R,BQAC ISSUE PEEK REQUEST 02872 M01S02115.enquire +++| SA1 BQAC CHECK ERROR STATUS 02873 M01S02116.enquire +++| MX0 -8 02874 M01S02117.enquire +++| LX1 -10 02875 M01S02118.enquire +++| BX1 -X0*X1 02876 M01S02119.enquire +++| ZR X1,IPR3 IF NO ERRORS 02877 M01S02120.enquire +++| SX2 X1-ER07 02878 M01S02121.enquire +++| ZR X2,IPR1 IF NO JOBS FOUND
| Line S02122 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui5 |
Seq # *Modification Id* Act ----------------------------+ 02879 M02S02122.enqui5 ---| SA1 EMSE * QAC ERROR ENCOUNTERED.* 02880 M01S00001.enqui5 +++| SX1 EMSE * QAC ERROR ENCOUNTERED.* 02881 M01S02123.enquire +++| EQ PSE ISSUE ERROR MESSAGE AND ABORT 02882 M01S02124.enquire +++| 02883 M01S02125.enquire +++|* PROCESS NO JOBS FOUND. 02884 M01S02126.enquire +++| 02885 M01S02127.enquire +++| IPR1 SA1 JSNM GET JSN 02886 M01S02128.enquire +++| SA2 EMSD 02887 M01S02129.enquire +++| NZ X1,IPR2 IF JSN SPECIFIED 02888 M01S02130.enquire +++| SA1 IPRA 02889 M01S02131.enquire +++| NZ X1,IPRX IF NOT FIRST REQUEST 02890 M01S02132.enquire +++| SA2 EMSC 02891 M01S02133.enquire +++| IPR2 RJ ISM 02892 M01S02134.enquire +++| SX1 B1+ SET NO JOBS FOUND FLAG 02893 M01S02135.enquire +++| IPR3 SX6 B1+ FIRST REQUEST ISSUED 02894 M01S02136.enquire +++| SA6 IPRA 02895 M01S02137.enquire +++| EQ IPRX RETURN 02896 M01S02138.enquire +++| 02897 M01S02139.enquire +++| 02898 M01S02140.enquire +++| IPRA CON 0 FIRST REQUEST FLAG 02899 M01S02141.enquire +++| ISM SPACE 4,20 02900 M01S02142.enquire +++|** ISM - ISSUE MESSAGE. 02901 M01S02143.enquire +++|* 02902 M01S02144.enquire +++|* ENTRY (X1) = JSN OR UJN. 02903 M01S02145.enquire +++|* = 0, IF JSN OR UJN NOT TO BE ADDED TO MESSAGE. 02904 M01S02146.enquire +++|* (X2) = FIRST WORD OF MESSAGE. 02905 M01S02147.enquire +++|* (A2) = BEGINNING ADDRESS OF MESSAGE. 02906 M01S02148.enquire +++|* 02907 M01S02149.enquire +++|* USES X - 1, 2, 3, 6. 02908 M01S02150.enquire +++|* A - 3, 6. 02909 M01S02151.enquire +++|* 02910 M01S02152.enquire +++|* CALLS SFN. 02911 M01S02153.enquire +++|* 02912 M01S02154.enquire +++|* MACROS MESSAGE, WRITEC. 02913 M01S02155.enquire +++|* 02914 M01S02156.enquire +++|* NOTES *ISM* ISSUES A SPECIFIED MESSAGE TO THE 02915 M01S02157.enquire +++|* OUTPUT FILE IF IT IS A TERMINAL FILE, OR TO 02916 M01S02158.enquire +++|* THE USER-S DAYFILE IF IT IS NOT. IF A JSN OR 02917 M01S02159.enquire +++|* UJN IS SPECIFIED, IT IS ADDED TO THE MESSAGE. 02918 M01S02160.enquire +++| 02919 M01S02161.enquire +++| 02920 M01S02162.enquire +++| ISM SUBR ENTRY/EXIT 02921 M01S02163.enquire +++| ZR X1,ISM1 IF NO JSN/UJN 02922 M01S02164.enquire +++| RJ SFN SPACE FILL JSN/UJN 02923 M01S02165.enquire +++| MX3 42 ADD JSN/UJN TO MESSAGE 02924 M01S02166.enquire +++| LX3 -6 PUT JSN/UJN IN CHARACTER POSITIONS 2-8 02925 M01S02167.enquire +++| BX2 -X3*X2 02926 M01S02168.enquire +++| LX6 -6 02927 M01S02169.enquire +++| BX1 X3*X6 02928 M01S02170.enquire +++| BX6 X2+X1 02929 M01S02171.enquire +++| SA6 A2+ 02930 M01S02172.enquire +++| ISM1 SA3 FT 02931 M01S02173.enquire +++| ZR X3,ISM2 IF TERMINAL FILE 02932 M01S02174.enquire +++| MESSAGE A2,3 02933 M01S02175.enquire +++| EQ ISMX EXIT 02934 M01S02176.enquire +++| 02935 M01S02177.enquire +++| ISM2 WRITEC O,A2 02936 M01S02178.enquire +++| EQ ISMX EXIT 02937 M01S02179.enquire +++| LST SPACE 4,20 02938 M01S02180.enquire +++|** LST - PROCESS FILE LENGTH, STATUS AND TYPE. 02939 M01S02181.enquire +++|* 02940 M01S02182.enquire +++|* ENTRY (A5)= FNT ENTRY ADDRESS. 02941 M01S02183.enquire +++|* (X5)= FNT ENTRY. 02942 M01S02184.enquire +++|* 02943 M01S02185.enquire +++|* EXIT (A5) = FST WORD ADDRESS. 02944 M01S02186.enquire +++|* FILE LENGTH IN FOPB+1.
| Line S02187 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02945 M02S02187.ns22000 ---|* 02946 M01S02188.enquire +++|* FILE TYPE IN FOPB+2. 02947 M01S02189.enquire +++|* FILE STATUS IN FOPB+3. 02948 M01S00407.ns22000 +++|* FILE ACCESS LEVEL IN FOPB+4, FOPB+5. 02949 M01S02190.enquire +++|*
| Line S02191 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02950 M02S02191.ns22000 ---|* USES X - 0, 1, 2, 5, 6.
| Line S00408 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02951 M02S00408.enqui11 ---|* USES X - 0, 1, 2, 3, 4, 5, 6.
| Line S02192 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02952 M02S02192.enqui11 ---|* A - 1, 2, 5, 6. 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 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02955 M02S02193.ns22000 ---|* B - 5. 02956 M01S00409.ns22000 +++|* B - 2, 5. 02957 M01S02194.enquire +++|* 02958 M01S02195.enquire +++|* CALLS CDD, SFN. 02959 M01S02196.enquire +++|* 02960 M01S02197.enquire +++|* MACROS WRITEW. 02961 M01S02198.enquire +++|* 02962 M01S02199.enquire +++| 02963 M01S02200.enquire +++| 02964 M01S02201.enquire +++| LST SUBR 02965 M01S02202.enquire +++| MX0 42 PROCESS NAME 02966 M01S02203.enquire +++| BX1 X0*X5 02967 M01S02204.enquire +++| RJ SFN SPACE FILL NAME 02968 M01S02205.enquire +++| LX6 42 RIGHT JUSTIFY NAME 02969 M01S02206.enquire +++| SA6 FOPB 02970 M01S02207.enquire +++| MX0 -6 SET FILE STATUS 02971 M01S02208.enquire +++| BX1 -X0*X5
| Line S02209 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02972 M02S02209.ns22000 ---| SA2 FSTT+X1 FILE STATUS
| Line S02210 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02973 M02S02210.ns22000 ---| BX6 X2
| Line S02211 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 02974 M02S02211.ns22000 ---| SA6 FOPB+4 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 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02990 M02S00425.enqui11 ---| BX6 X0*X6
| Line S00426 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02991 M02S00426.enqui11 ---| SA3 TALV+X3 FILE ACCESS LEVEL
| Line S00427 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02992 M02S00427.enqui11 ---| LX3 30
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02993 M02S00428.enqui11 ---| MX0 -30
| Line S00429 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02994 M02S00429.enqui11 ---| BX4 -X0*X3
| Line S00430 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02995 M02S00430.enqui11 ---| BX6 X4+X6
| Line S00431 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02996 M02S00431.enqui11 ---| SA6 FOPB+4
| Line S00432 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02997 M02S00432.enqui11 ---| MX0 12
| Line S00433 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui11 |
Seq # *Modification Id* Act ----------------------------+ 02998 M02S00433.enqui11 ---| BX6 X0*X3 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 03008 M01S00434.ns22000 +++| SA6 FOPB+5 03009 M01S00435.ns22000 +++| LST2 MX0 -6 03010 M01S02212.enquire +++| AX5 6 FILE TYPE 03011 M01S02213.enquire +++| BX2 -X0*X5 03012 M01S02214.enquire +++| SA1 FLTY+X2 FILE TYPE 03013 M01S02215.enquire +++| MX0 18 03014 M01S02216.enquire +++| BX1 X0*X1 03015 M01S02217.enquire +++| RJ SFN SPACE FILL NAME 03016 M01S02218.enquire +++| LX6 24 03017 M01S02219.enquire +++| LX5 6+59-12 CHECK WRITE LOCKOUT BIT
| Line S02220 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03018 M02S02220.ns22000 ---| PL X5,LST0.1 IF NOT WRITE LOCKOUT 03019 M01S00436.ns22000 +++| PL X5,LST3 IF NOT WRITE LOCKOUT 03020 M01S02221.enquire +++| SA1 =1R* DISPLAY * AFTER FILE TYPE 03021 M01S02222.enquire +++| MX0 -6 03022 M01S02223.enquire +++| BX6 X0*X6 03023 M01S02224.enquire +++| BX6 X1+X6
| Line S02225 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03024 M02S02225.ns22000 ---| LST0.1 LX6 6 03025 M01S00437.ns22000 +++| LST3 LX6 6 03026 M01S02226.enquire +++| SA6 FOPB+2 03027 M01S02227.enquire +++| MX0 -2 GET FILE TYPE 03028 M01S02228.enquire +++| BX5 -X0*X5 03029 M01S02229.enquire +++| SB5 X5 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 M01S02230.enquire +++| 03044 M01S02231.enquire +++|* PROCESSING FST ENTRY. 03045 M01S02232.enquire +++|
| Line S02233 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui8 |
Seq # *Modification Id* Act ----------------------------+ 03046 M02S02233.enqui8 ---| SA5 A5+1 FST ENTRY 03047 M01S00014.enqui8 +++| LST3.2 SA5 A5+1 FST ENTRY 03048 M01S02234.enquire +++| SA2 =10H
| Line S02235 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui8 |
Seq # *Modification Id* Act ----------------------------+ 03049 M02S02235.enqui8 ---| MX0 24 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 M01S02236.enquire +++| BX1 X0*X5 FILE LENGTH 03054 M01S02237.enquire +++| LX1 24 03055 M01S02238.enquire +++| BX6 X2
| Line S02239 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03056 M02S02239.ns22000 ---| ZR X1,LST1 IF ZERO LENGTH 03057 M01S00438.ns22000 +++| ZR X1,LST4 IF ZERO LENGTH 03058 M01S02240.enquire +++| RJ CDD CONVERT TO DECIMAL
| Line S02241 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03059 M02S02241.ns22000 ---| LST1 SA6 FOPB+1
| Line S02242 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03060 M02S02242.ns22000 ---| LE B5,B1,LST1.1 IF MS OR TAPE FILE 03061 M01S00439.ns22000 +++| LST4 SA6 FOPB+1 03062 M01S00440.ns22000 +++| LE B5,B1,LST5 IF MS OR TAPE FILE 03063 M01S02243.enquire +++| SA1 =10H SET BLANKS FOR STATUS
| Line S02244 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03064 M02S02244.ns22000 ---| EQ LST2 STORE STATUS 03065 M01S00441.ns22000 +++| EQ LST6 STORE STATUS 03066 M01S02245.enquire +++|
| Line S02246 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03067 M02S02246.ns22000 ---| LST1.1 MX0 -3 SET STATUS FIELD 03068 M01S00442.ns22000 +++| LST5 MX0 -3 SET STATUS FIELD 03069 M01S00018.enqui8 +++| SA5 A5 FST ENTRY
| Line S02247 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | 242l642 |
Seq # *Modification Id* Act ----------------------------+ 03070 M02S02247.242l642 ---| LX5 59-0 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 M01S02248.enquire +++| BX2 -X0*X5 03076 M01S02249.enquire +++| SA1 FLST+X2
| Line S02250 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03077 M02S02250.ns22000 ---| PL X5,LST2 IF LAST OPERATION READ 03078 M01S00443.ns22000 +++| PL X5,LST6 IF LAST OPERATION READ 03079 M01S02251.enquire +++| MX0 30 UPDATE LAST OPERATION WITH *WRITE* 03080 M01S02252.enquire +++| BX1 X0*X1 03081 M01S02253.enquire +++| SA2 =R*WRITE* 03082 M01S02254.enquire +++| BX1 X1+X2
| Line S02255 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03083 M02S02255.ns22000 ---| LST2 BX6 X1 03084 M01S00444.ns22000 +++| LST6 BX6 X1 03085 M01S02256.enquire +++| SA6 FOPB+3 03086 M01S02257.enquire +++| WRITEW OUTPUT,FOPB,FOPL 03087 M01S02258.enquire +++| EQ LSTX EXIT 03088 M01S00019.enqui8 +++| 03089 M01S00020.enqui8 +++| 03090 M01S00021.enqui8 +++| LSTA DATA 2LTP 03091 M01S00022.enqui8 +++| DATA 2LTT 03092 M01S02259.enquire +++| PSE SPACE 4,10 03093 M01S02260.enquire +++|** PSE - PROCESS SYSTEM ERROR. 03094 M01S02261.enquire +++|* 03095 M01S02262.enquire +++|* ENTRY (X1) = FWA OF ERROR MESSAGE. 03096 M01S02263.enquire +++|* 03097 M01S02264.enquire +++|* EXIT JOB ABORTED. 03098 M01S02265.enquire +++|* 03099 M01S02266.enquire +++|* MACROS ABORT, MESSAGE. 03100 M01S02267.enquire +++| 03101 M01S02268.enquire +++| 03102 M01S02269.enquire +++| PSE BSS 0 ENTRY 03103 M01S02270.enquire +++| MESSAGE X1 ISSUE DESCRIPTIVE MESSAGE 03104 M01S02271.enquire +++| MESSAGE EMSA * ENQUIRE ABORTED.* 03105 M01S02272.enquire +++| ABORT 03106 M01S02273.enquire +++| RRB SPACE 4,10 03107 M01S02274.enquire +++|** RRB - RESET *QAC* REQUEST BUFFER. 03108 M01S02275.enquire +++|* 03109 M01S02276.enquire +++|* EXIT (X1) .EQ. 0, IF QUEUE SCAN IS COMPLETE. 03110 M01S02277.enquire +++|* .NE. 0, IF REQUEST IS TO BE REISSUED. 03111 M01S02278.enquire +++|* 03112 M01S02279.enquire +++|* USES X - 0, 1, 2, 3, 6. 03113 M01S02280.enquire +++|* A - 1, 2, 3, 6. 03114 M01S02281.enquire +++|* B - 2, 3. 03115 M01S02282.enquire +++| 03116 M01S02283.enquire +++| 03117 M01S02284.enquire +++| RRB SUBR ENTRY/EXIT 03118 M01S02285.enquire +++| SA1 BQAC+4 CHECK QUEUE SELECTION BITS 03119 M01S02286.enquire +++| MX0 -12 03120 M01S02287.enquire +++| LX1 -24 03121 M01S02288.enquire +++| BX1 -X0*X1 03122 M01S02289.enquire +++| ZR X1,RRBX IF QUEUE SEARCH COMPLETE 03123 M01S02290.enquire +++| MX0 -1 CLEAR COMPLETION BIT 03124 M01S02291.enquire +++| SA3 BQAC 03125 M01S02292.enquire +++| BX6 X0*X3 03126 M01S02293.enquire +++| SA6 A3 03127 M01S02294.enquire +++| SA2 A3+B1 RESET BUFFER POINTERS 03128 M01S02295.enquire +++| SX6 X2 03129 M01S02296.enquire +++| SA6 A2+1 SET *IN* = *FIRST* 03130 M01S02297.enquire +++| SB3 NUMQ 03131 M01S02298.enquire +++| SA2 RRBA 03132 M01S02299.enquire +++| SA6 A6+B1 SET *OUT* = *FIRST* 03133 M01S02300.enquire +++| SB2 5 NUMBER OF QUEUE COUNTS PER WORD 03134 M01S02301.enquire +++| BX6 X6-X6 03135 M01S02302.enquire +++| SA3 BQPF 03136 M01S02303.enquire +++| RRB1 ZR B3,RRB3 IF END OF QUEUES 03137 M01S02304.enquire +++| NZ B2,RRB2 IF NOT END OF WORD 03138 M01S02305.enquire +++| SA6 A3 03139 M01S02306.enquire +++| SB2 4 ADVANCE TO NEXT WORD 03140 M01S02307.enquire +++| SA3 A3+B1 03141 M01S02308.enquire +++| SX6 B0+ 03142 M01S02309.enquire +++| RRB2 LX1 -1 03143 M01S02310.enquire +++| SB2 B2-B1 03144 M01S02311.enquire +++| LX2 -12 03145 M01S02312.enquire +++| SB3 B3-B1 03146 M01S02313.enquire +++| PL X1,RRB1 IF QUEUE SCANNED 03147 M01S02314.enquire +++| BX6 X2+X6 03148 M01S02315.enquire +++| EQ RRB1 CHECK NEXT QUEUE 03149 M01S02316.enquire +++| 03150 M01S02317.enquire +++| RRB3 SA6 A3+ 03151 M01S02318.enquire +++| EQ RRBX RETURN 03152 M01S02319.enquire +++| 03153 M01S02320.enquire +++| 03154 M01S02321.enquire +++| RRBA CON 7777B MAXIMUM QUEUE COUNT 03155 M01S02322.enquire +++| WCL SPACE 4,15 03156 M01S02323.enquire +++|** WCL - WRITE DISPLAY CODED LINES. 03157 M01S02324.enquire +++|* 03158 M01S02325.enquire +++|* ENTRY (B6) = FWA OF DATA IN *QAC* REPLY UNIT BUFFER. 03159 M01S02326.enquire +++|* (B7) = SEARCH FLAG. 03160 M01S02327.enquire +++|* .EQ. 0, SEARCH FROM LWA TO FWA. 03161 M01S02328.enquire +++|* .NE. 0, SEARCH FROM FWA TO LWA. 03162 M01S02329.enquire +++|* (X5) = DATA WORD COUNT. 03163 M01S02330.enquire +++|* 03164 M01S02331.enquire +++|* USES X - 1, 5, 6, 7. 03165 M01S02332.enquire +++|* A - 1, 6. 03166 M01S02333.enquire +++|* B - 2, 3, 4, 5, 6, 7. 03167 M01S02334.enquire +++|* 03168 M01S02335.enquire +++|* CALLS USB. 03169 M01S02336.enquire +++|* 03170 M01S02337.enquire +++|* MACROS WRITES. 03171 M01S02338.enquire +++|* 03172 M01S02339.enquire +++|* NOTES *WCL* SEARCHES A *QAC* REPLY UNIT BUFFER 03173 M01S02340.enquire +++|* CHECKING FOR THE FWA OF DATA TO WRITE. 03174 M01S02341.enquire +++|* IF LESS THAN *MXLC* LINES ARE IN THE REPLY UNIT 03175 M01S02342.enquire +++|* BUFFER, ALL DATA WILL BE WRITTEN. OTHERWISE 03176 M01S02343.enquire +++|* THE FIRST ((B7) .NE. 0) OR LAST ((B7) .EQ. 0) *MXLC* 03177 M01S02344.enquire +++|* LINES WILL BE WRITTEN. LINES ARE TRUNCATED TO *MXLL* 03178 M01S02345.enquire +++|* CHARACTERS. 03179 M01S02346.enquire +++| 03180 M01S02347.enquire +++| 03181 M01S02348.enquire +++| WCL SUBR ENTRY/EXIT
| Line S02349 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 03182 M02S02349.enqui2 ---| MX7 -12 03183 M01S00001.enqui2 +++| ZR X5,WCLX IF NO DATA 03184 M01S02350.enquire +++| SB5 MXLC SET MAXIMUM NUMBER OF LINES TO WRITE
| Line S02351 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 03185 M02S02351.enqui2 ---| SB4 B0 INITIALIZE LINE COUNT 03186 M01S00002.enqui2 +++| MX7 -12 03187 M01S02352.enquire +++| SB2 B6+X5 (B2) = LWA+1 OF DATA 03188 M01S02353.enquire +++| NZ B7,WCL5 IF SEARCH FROM FWA TO LWA 03189 M01S00003.enqui2 +++| SB4 B0 INITIALIZE LINE COUNT 03190 M01S02354.enquire +++| WCL1 EQ B2,B6,WCL2 IF BEGINNING OF BUFFER 03191 M01S02355.enquire +++| SB2 B2-B1 GET PREVIOUS WORD
| Line S02356 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 03192 M02S02356.enqui2 ---| SA1 B2+ 03193 M01S00004.enqui2 +++| SA1 B2 03194 M01S02357.enquire +++| BX1 -X7*X1 03195 M01S02358.enquire +++| NZ X1,WCL1 IF NO ZERO BYTE TERMINATOR 03196 M01S02359.enquire +++| SB4 B4+B1 INCREMENT LINE COUNT 03197 M01S02360.enquire +++| LE B4,B5,WCL1 IF LINE LIMIT NOT REACHED 03198 M01S02361.enquire +++| SB2 B2+B1 SET FWA OF PREVIOUS LINE 03199 M01S02362.enquire +++| SB4 B4-B1 03200 M01S02363.enquire +++| WCL2 SX6 B4+ SAVE LINE COUNT 03201 M01S02364.enquire +++| SA6 WCLA 03202 M01S02365.enquire +++| WCL3 SB6 USBBL 03203 M01S02366.enquire +++| RJ USB 03204 M01S02367.enquire +++| SB7 B7-WBUF2+1 03205 M01S02368.enquire +++| SB6 MXLL 03206 M01S02369.enquire +++| SX5 A1+B1 SAVE POSITION IN PACKED BUFFER 03207 M01S02370.enquire +++| LE B7,B6,WCL4 IF LINE NOT TOO LONG 03208 M01S02371.enquire +++| SB7 B6 03209 M01S02372.enquire +++| WCL4 WRITES OUTPUT,WBUF2,B7 03210 M01S02373.enquire +++| SA1 WCLA DECREMENT LINE COUNT 03211 M01S02374.enquire +++| SX6 X1-1 03212 M01S02375.enquire +++| SA6 A1 03213 M01S02376.enquire +++| SB2 X5 ADDRESS OF NEXT LINE 03214 M01S02377.enquire +++| NZ X6,WCL3 IF MAXIMUM LINES NOT WRITTEN 03215 M01S02378.enquire +++| EQ WCLX RETURN 03216 M01S02379.enquire +++|
| Line S02380 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 03217 M02S02380.enqui2 ---| WCL5 SB3 B6-1
| Line S02381 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 03218 M02S02381.enqui2 ---| WCL6 SB3 B3+1
| Line S02382 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 03219 M02S02382.enqui2 ---| SA1 B3 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 M01S02383.enquire +++| BX1 -X7*X1 03225 M01S02384.enquire +++| EQ B2,B3,WCL7 IF END OF BUFFER 03226 M01S02385.enquire +++| NZ X1,WCL6 IF NO ZERO BYTE TERMINATOR 03227 M01S02386.enquire +++| SB4 B4+1
| Line S02387 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui2 |
Seq # *Modification Id* Act ----------------------------+ 03228 M02S02387.enqui2 ---| LE B4,B5,WCL6 IF LINE LIMIT NOT REACHED 03229 M01S00009.enqui2 +++| LT B4,B5,WCL6 IF LINE LIMIT NOT REACHED 03230 M01S02388.enquire +++| WCL7 SB2 B6 SET FWA OF FIRST LINE 03231 M01S02389.enquire +++| EQ WCL2 WRITE LINES TO OUTPUT 03232 M01S02390.enquire +++| 03233 M01S02391.enquire +++| 03234 M01S02392.enquire +++| WCLA CON 0 LINE COUNT 03235 M01S02393.enquire +++| WML SPACE 4,10 03236 M01S02394.enquire +++|** WML - WRITE MESSAGE LINE. 03237 M01S02395.enquire +++|* 03238 M01S02396.enquire +++|* ENTRY (A2) = FWA OF *QAC* REPLY UNIT CONTAINING MESSAGE. 03239 M01S02397.enquire +++|* (X2) = FIRST WORD OF *QAC* REPLY UNIT. 03240 M01S02398.enquire +++|* 03241 M01S02399.enquire +++|* USES X - 0, 1, 2, 3. 03242 M01S02400.enquire +++|* A - 3. 03243 M01S02401.enquire +++|* B - 2, 6, 7. 03244 M01S02402.enquire +++|* 03245 M01S02403.enquire +++|* CALLS USB. 03246 M01S02404.enquire +++|* 03247 M01S02405.enquire +++|* MACROS WRITES. 03248 M01S02406.enquire +++| 03249 M01S02407.enquire +++| 03250 M01S02408.enquire +++| WML SUBR ENTRY/EXIT 03251 M01S02409.enquire +++| SA3 A2+1 03252 M01S02410.enquire +++| ZR X3,WMLX IF NO MESSAGE PRESENT 03253 M01S02411.enquire +++| LX2 -12 GET MESSAGE LENGTH 03254 M01S02412.enquire +++| MX0 -12 03255 M01S02413.enquire +++| BX2 -X0*X2 03256 M01S02414.enquire +++| SB2 A3 03257 M01S02415.enquire +++| SX1 10 03258 M01S02416.enquire +++| IX2 X1*X2 MESSAGE LENGTH (CHARACTERS) 03259 M01S02417.enquire +++| SB6 X2 03260 M01S02418.enquire +++| RJ USB 03261 M01S02419.enquire +++| SB7 B7-WBUF2 03262 M01S02420.enquire +++| WRITES OUTPUT,WBUF2+1,B7 03263 M01S02421.enquire +++| EQ WMLX RETURN 03264 M01S02422.enquire +++| SPACE 4,10 03265 M01S02423.enquire +++|** COMMON DECK CONTROL. 03266 M01S02424.enquire +++| 03267 M01S02425.enquire +++| 03268 M01S02426.enquire +++|* CONTROL FOR COMCUSB. 03269 M01S02427.enquire +++| 03270 M01S02428.enquire +++| WBUF2 DATA 1R 03271 M01S02429.enquire +++| DATA 1R 03272 M01S02430.enquire +++| USBB BSS USBBL STRING BUFFER 03273 M01S02431.enquire +++| 03274 M01S02432.enquire +++| SPACE 4,10 03275 M01S02433.enquire +++|** COMMON DECKS. 03276 M01S02434.enquire +++| 03277 M01S02435.enquire +++|
| Line S02436 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03278 M02S02436.enqui9 ---|*CALL COMCCDD
| Line S02437 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03279 M02S02437.enqui9 ---|*CALL COMCCFD
| Line S02438 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03280 M02S02438.enqui9 ---|*CALL COMCCIO
| Line S02439 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03281 M02S02439.enqui9 ---|*CALL COMCCOD 03282 M01S00013.enqui9 +++|*CALL COMCCDD 03283 M01S00014.enqui9 +++|*CALL COMCCFD 03284 M01S00015.enqui9 +++|*CALL COMCCIO 03285 M01S00016.enqui9 +++|*CALL COMCCOD 03286 M01S02440.enquire +++|*CALL COMCCPM 03287 M01S00040.enqui15 +++| GMS$ EQU 1 FORCE USE OF MASK DURING SORT 03288 M01S00041.enqui15 +++|*CALL COMCGMS
| Line S02441 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03289 M02S02441.enqui9 ---|*CALL COMCLFM 03290 M01S00017.enqui9 +++|*CALL COMCLFM 03291 M01S02442.enquire +++|*CALL COMCMVE 03292 M01S02443.enquire +++|*CALL COMCPFM
| Line S02444 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03293 M02S02444.enqui9 ---|*CALL COMCSFN
| Line S02445 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03294 M02S02445.enqui9 ---|*CALL COMCSYS 03295 M01S02446.enquire +++|*CALL COMCRDC 03296 M01S02447.enquire +++|*CALL COMCRDW
| Line S02448 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03297 M02S02448.enqui9 ---|*CALL COMCUSB 03298 M01S00018.enqui9 +++|*CALL COMCSFN 03299 M01S00019.enqui9 +++|*CALL COMCSYS 03300 M01S00020.enqui9 +++|*CALL COMCUSB 03301 M01S00445.ns22000 +++|*CALL COMCVLC
| Line S02449 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03302 M02S02449.enqui9 ---|*CALL COMCWTC
| Line S02450 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03303 M02S02450.enqui9 ---|*CALL COMCWTH
| Line S02451 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03304 M02S02451.enqui9 ---|*CALL COMCWTS
| Line S02452 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03305 M02S02452.enqui9 ---|*CALL COMCWTW 03306 M01S00021.enqui9 +++|*CALL COMCWTC 03307 M01S00022.enqui9 +++|*CALL COMCWTH 03308 M01S00023.enqui9 +++|*CALL COMCWTS 03309 M01S00024.enqui9 +++|*CALL COMCWTW 03310 M01S02453.enquire +++| TITLE BUFFER. 03311 M01S02454.enquire +++|* BUFFERS. 03312 M01S02455.enquire +++|*
| Line S02456 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03313 M02S02456.ns22000 ---|* *MBUF*, *LBUF*, *RBUF* AND *WBUF* USE THE SAME BUFFER. 03314 M01S00446.ns22000 +++|* NOTE *LBUF*, *RBUF*, AND *WBUF* ARE OVERLAPPING BUFFERS. 03315 M01S02457.enquire +++| 03316 M01S02458.enquire +++| USE BUFFERS 03317 M01S02459.enquire +++| 03318 M01S02460.enquire +++| FBUF BSS 0 GETFNT BUFFER 03319 M01S02461.enquire +++| OBUF EQU FBUF+FBUFL OUTPUT BUFFER 03320 M01S02462.enquire +++| BUFF EQU OBUF+OBUFL CONTROL POINT AREA / FNT BUFFER
| Line S02463 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03321 M02S02463.ns22000 ---| EBUF EQU BUFF+200B
| Line S02464 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03322 M02S02464.ns22000 ---| MBUF EQU EBUF+EBUFL MST BUFFER
| Line S02465 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03323 M02S02465.ns22000 ---| LBUF EQU MBUF LIBRARY LIST BUFFER
| Line S02466 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03324 M02S02466.ns22000 ---| RBUF EQU MBUF REPLY BUFFER
| Line S02467 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03325 M02S02467.ns22000 ---| WBUF EQU MBUF WORKING BUFFER
| Line S02468 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03326 M02S02468.ns22000 ---| RFL= EQU MBUF+TBUFL+5 SET *ENQUIRE* FL 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 M01S02469.enquire +++| SSM= EQU 0 DECLARE *SSM=* ENTRY POINT
| Line S02470 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03332 M02S02470.enqui9 ---| TITLE PRS-PRESET SUBROUTINE. 03333 M01S00025.enqui9 +++| TITLE PRESET. 03334 M01S02471.enquire +++| PRS SPACE 4,10 03335 M01S02472.enquire +++|** ENTRY POINTS. 03336 M01S00026.enqui9 +++| ENQUIRE SPACE 4,10 03337 M01S00027.enqui9 +++|** ENQUIRE. 03338 M01S02473.enquire +++| 03339 M01S02474.enquire +++|
| Line S02475 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03340 M02S02475.enqui9 ---| ENQUIRE BSS 0 03341 M01S00028.enqui9 +++| ENQUIRE BSS 0 ENTRY 03342 M01S02476.enquire +++| EQ STATUS 03343 M01S00029.enqui9 +++| LENGTH SPACE 4,10 03344 M01S00030.enqui9 +++|** LENGTH. 03345 M01S02477.enquire +++|
| Line S02478 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03346 M02S02478.enqui9 ---| LENGTH SA1 ACTR ARGUMENT COUNT 03347 M01S00031.enqui9 +++| 03348 M01S00032.enqui9 +++| LENGTH BSS 0 ENTRY 03349 M01S00033.enqui9 +++| SA1 ACTR ARGUMENT COUNT 03350 M01S02479.enquire +++| SX1 X1-1 03351 M01S02480.enquire +++| NZ X1,PRS2 IF NOT 1 ARGUMENT 03352 M01S02481.enquire +++| SA1 ARGR CONSTRUCT *FN* KEYWORD FOR ARGUMENT 03353 M01S02482.enquire +++| SA2 DOFN 03354 M01S02483.enquire +++| BX6 X1 03355 M01S02484.enquire +++| SA6 A1+1 03356 M01S02485.enquire +++| BX7 X2 03357 M01S02486.enquire +++| SA7 A1 03358 M01S02487.enquire +++| SB4 2 SET ARGUMENT COUNT 03359 M01S02488.enquire +++| EQ PRS1 03360 M01S00034.enqui9 +++| STATUS SPACE 4,10 03361 M01S00035.enqui9 +++|** STATUS. 03362 M01S02489.enquire +++|
| Line S02490 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03363 M02S02490.enqui9 ---| STATUS SA2 =0LA DEFAULT OPTION 03364 M01S00036.enqui9 +++| 03365 M01S00037.enqui9 +++| STATUS BSS 0 ENTRY 03366 M01S00038.enqui9 +++| SA2 =0LA DEFAULT OPTION
| Line S02491 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03367 M02S02491.enqui12 ---| EQ PRS
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03368 M02S00039.enqui12 ---| SUMMARY SPACE 4,10
| Line S00040 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03369 M02S00040.enqui12 ---|** SUMMARY.
| Line S02492 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03370 M02S02492.enqui12 ---|
| Line S02493 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
M03 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03371 M03S02493.enqui12 ---| SUMMARY BSS 0
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03372 M02S00041.enqui12 ---|
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | enqui9 |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03373 M02S00042.enqui12 ---| SUMMARY BSS 0 ENTRY
| Line S02494 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03374 M02S02494.enqui12 ---| SA2 =0LR DEFAULT OPTION
| Line S02495 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03375 M02S02495.enqui12 ---| SX6 1 SET *SUMMARY* CALLED FLAG
| Line S02496 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03376 M02S02496.enqui12 ---| SA6 SUMF 03377 M01S02497.enquire +++|* EQ PRS
| Line S02498 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03378 M02S02498.enqui9 ---|
| Line S02499 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03379 M02S02499.enqui9 ---| 03380 M01S00043.enqui9 +++| PRS SPACE 4,25 03381 M01S02500.enquire +++|** PRS - PRESET SUBROUTINE. 03382 M01S02501.enquire +++|* 03383 M01S02502.enquire +++|* EXIT (OPAL) = .LT. 0, IF ALL OPTIONS TO BE EXECUTED. 03384 M01S02503.enquire +++|* (BUFF) = CONTROL POINT ADDRESS TO BE READ 03385 M01S02504.enquire +++|* FOR FIRST *RSB* READ (FIRST 100B OF CPA). 03386 M01S02505.enquire +++|* (BUFF+100B) = CONTROL POINT ADDRESS TO BE READ 03387 M01S02506.enquire +++|* FOR SECOND *RSB* READ (SECOND 100B OF CPA).
| Line S02507 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03388 M02S02507.ns22000 ---|* (ESTPR) = STATUS WORD FOR *RSB* READ OF EST ENTRIES. 03389 M01S02508.enquire +++|* (FT) = FILE TYPE. 03390 M01S02509.enquire +++|* = 0, IF TERMINAL FILE. 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. 03395 M01S00007.252l678 +++|* (UESC) = USER EM SHIFT COUNT FROM CMR. 03396 M01S02510.enquire +++|* 03397 M01S02511.enquire +++|* USES X - 0, 1, 2, 3, 4, 5, 6. 03398 M01S02512.enquire +++|* A - 1, 2, 3, 4, 6. 03399 M01S02513.enquire +++|* B - 1, 4, 5. 03400 M01S02514.enquire +++|* 03401 M01S02515.enquire +++|* CALLS ARG, SAL, STF. 03402 M01S02516.enquire +++|*
| Line S02517 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03403 M02S02517.ns22000 ---|* MACROS ABORT, MESSAGE, SYSTEM.
| Line S00455 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | 252l678 |
Seq # *Modification Id* Act ----------------------------+ 03404 M02S00455.252l678 ---|* MACROS ABORT, MESSAGE. 03405 M01S00008.252l678 +++|* MACROS ABORT, MESSAGE, SYSTEM. 03406 M01S02518.enquire +++| 03407 M01S02519.enquire +++| 03408 M01S02520.enquire +++| PRS SA1 ACTR ARGUMENT COUNT 03409 M01S02521.enquire +++| BX6 X2 03410 M01S02522.enquire +++| SB4 X1 03411 M01S02523.enquire +++| SA6 DFOP 03412 M01S02524.enquire +++|
| Line S02525 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03413 M02S02525.ns22000 ---|* CALL TO READ SYSTEM POINTERS.
| Line S02526 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03414 M02S02526.ns22000 ---|
| Line S02527 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03415 M02S02527.ns22000 ---| PRS1 SB1 1 INITIALIZE B1
| Line S02528 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03416 M02S02528.ns22000 ---| SYSTEM RSB,R,PTRS
| Line S02529 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03417 M02S02529.ns22000 ---| SA1 BUFF0 GET EST FWA
| Line S02530 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03418 M02S02530.ns22000 ---| MX4 12
| Line S02531 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03419 M02S02531.ns22000 ---| BX3 X4*X1
| Line S02532 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03420 M02S02532.ns22000 ---| BX5 X3
| Line S02533 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03421 M02S02533.ns22000 ---| LX3 30
| Line S02534 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03422 M02S02534.ns22000 ---| SA2 ESTPR
| Line S02535 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03423 M02S02535.ns22000 ---| BX6 X3+X2
| Line S02536 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03424 M02S02536.ns22000 ---| SA6 A2
| Line S02537 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03425 M02S02537.ns22000 ---| LX1 12 LWA OF EST
| Line S02538 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03426 M02S02538.ns22000 ---| BX2 X4*X1
| Line S02539 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03427 M02S02539.ns22000 ---| LX5 12
| Line S02540 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03428 M02S02540.ns22000 ---| LX2 12
| Line S02541 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03429 M02S02541.ns22000 ---| IX2 X2-X5 LENGTH OF EST TABLE
| Line S02542 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03430 M02S02542.ns22000 ---| LX2 36
| Line S02543 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03431 M02S02543.ns22000 ---| SA3 A2 EST STATUS WORD
| Line S02544 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03432 M02S02544.ns22000 ---| BX6 X3+X2
| Line S02545 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03433 M02S02545.ns22000 ---| SA6 A3+
| Line S02546 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03434 M02S02546.ns22000 ---|
| Line S02547 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03435 M02S02547.ns22000 ---|
| Line S02548 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03436 M02S02548.ns22000 ---|* PRESET AND STORE ARGUMENTS
| Line S02549 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03437 M02S02549.ns22000 ---|
| Line S02550 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03438 M02S02550.ns22000 ---| EQ B4,PRS3 IF NO ARGUMENTS 03439 M01S00456.ns22000 +++|* PROCESS ARGUMENTS. 03440 M01S00457.ns22000 +++| 03441 M01S00458.ns22000 +++| PRS1 SB1 1 03442 M01S00459.ns22000 +++| ZR B4,PRS3 IF NO ARGUMENTS 03443 M01S02551.enquire +++| SB5 ARGT PROCESS ARGUMENTS 03444 M01S02552.enquire +++| SA4 ARGR 03445 M01S02553.enquire +++| RJ ARG 03446 M01S02554.enquire +++| SA2 TAGS CHECK FOR ARGUMENTS NOT EQUIVALENCED 03447 M01S02555.enquire +++| LX2 6 03448 M01S02556.enquire +++| SB4 X2-1R9 03449 M01S02557.enquire +++| GT B4,PRS2 IF *OP* USED BUT NOT EQUIVALENCED 03450 M01S02558.enquire +++| SA2 A2+B1 03451 M01S02559.enquire +++| LX2 6 03452 M01S02560.enquire +++| SB4 X2-1R9 03453 M01S02561.enquire +++| GT B4,PRS2 IF *O* USED BUT NOT EQUIVALENCED 03454 M01S02562.enquire +++| SA2 A2+B1 03455 M01S02563.enquire +++| LX2 6 03456 M01S02564.enquire +++| SB4 X2-1R9 03457 M01S02565.enquire +++| GT B4,PRS2 IF *FN* USED BUT NOT EQUIVALENCED 03458 M01S02566.enquire +++| ZR X1,PRS3 IF NO ARGUMENT ERRORS 03459 M01S02567.enquire +++| SA1 ACTR 03460 M01S02568.enquire +++| SB4 X1-1 03461 M01S02569.enquire +++| NZ B4,PRS2 IF MORE THAN ONE ARGUMENT 03462 M01S02570.enquire +++| SA4 ARGR 03463 M01S02571.enquire +++| MX0 -6 03464 M01S02572.enquire +++| BX6 -X0*X4 03465 M01S02573.enquire +++| SX6 X6-1R= 03466 M01S02574.enquire +++| ZR X6,PRS2 IF SEPARATOR IS *=* 03467 M01S02575.enquire +++| BX6 X0*X4 03468 M01S02576.enquire +++| SA6 TAGS 03469 M01S02577.enquire +++| EQ PRS3 NO ARGUMENT ERRORS 03470 M01S02578.enquire +++| 03471 M01S02579.enquire +++| PRS2 MESSAGE MSGB * ARGUMENT ERRORS.* 03472 M01S02580.enquire +++| ABORT 03473 M01S02581.enquire +++|
| Line S02582 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03474 M02S02582.enqui9 ---|
| Line S02583 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03475 M02S02583.enqui9 ---| 03476 M01S02584.enquire +++| PRS3 SA2 TAGS+3
| Line S02585 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03477 M02S02585.enqui12 ---| SA3 SUMF 03478 M01S02586.enquire +++| ZR X2,PRS3.0 IF NO JSN
| Line S02587 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03479 M02S02587.enqui12 ---| NZ X3,PRS2 IF *SUMMARY* CALLED WITH JSN PARAMETER 03480 M01S02588.enquire +++| SA1 ACTR 03481 M01S02589.enquire +++| MX0 54 ELIMINATE OPTION SELECTION CHARACTER 03482 M01S02590.enquire +++| BX2 X0*X2 03483 M01S02591.enquire +++| ZR X2,PRS3.1 IF JSN SPECIFIED BUT NOT EQUIVALENCED 03484 M01S02592.enquire +++| SX1 X1-1 03485 M01S02593.enquire +++| LX2 -18 03486 M01S02594.enquire +++| MX0 -18 03487 M01S02595.enquire +++| BX6 -X0*X2 03488 M01S02596.enquire +++| NZ X6,PRS2 IF JSN .GT. 4 CHARACTERS LONG 03489 M01S02597.enquire +++| EQ PRS3.1 CHECK ARGUMENT COUNT 03490 M01S02598.enquire +++| 03491 M01S02599.enquire +++| PRS3.0 SA2 A2+1 03492 M01S02600.enquire +++| ZR X2,PRS3.2 IF NO UJN
| Line S02601 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui12 |
Seq # *Modification Id* Act ----------------------------+ 03493 M02S02601.enqui12 ---| NZ X3,PRS2 IF *SUMMARY* CALLED WITH UJN PARAMETER 03494 M01S02602.enquire +++| SA1 ACTR 03495 M01S02603.enquire +++| MX0 54 ELIMINATE OPTION SELECTION CHARACTER 03496 M01S02604.enquire +++| BX2 X0*X2 03497 M01S02605.enquire +++| ZR X2,PRS3.1 IF UJN SPECIFIED BUT NOT EQUIVALENCED 03498 M01S02606.enquire +++| SX1 X1-1 03499 M01S02607.enquire +++| PRS3.1 SB4 X1-1 03500 M01S02608.enquire +++| 03501 M01S02609.enquire +++|* CHECK FOR *O* SPECIFIED WITH UJN OR JSN. ANY OTHER PARAMETER
| Line S02610 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03502 M02S02610.v23l617 ---|* IS INVALID. 03503 M01S00100.v23l617 +++|* IS INCORRECT. 03504 M01S02611.enquire +++| 03505 M01S02612.enquire +++| ZR B4,PRS3.3 IF NO MORE PARAMETERS 03506 M01S02613.enquire +++| SB4 B4-2 03507 M01S02614.enquire +++| NZ B4,PRS2 IF TOO MANY PARAMETERS 03508 M01S02615.enquire +++| SA1 TAGS+B1 03509 M01S02616.enquire +++| ZR X1,PRS2 IF *O* NOT SPECIFIED 03510 M01S02617.enquire +++| EQ PRS3.3 CLEAR DEFAULT OPTION 03511 M01S02618.enquire +++| 03512 M01S02619.enquire +++| PRS3.2 SA1 TAGS+2 03513 M01S02620.enquire +++| ZR X1,PRS3.4 IF FILENAME NOT SPECIFIED 03514 M01S02621.enquire +++| PRS3.3 BX6 X6-X6 CLEAR DEFAULT OPTION 03515 M01S02622.enquire +++| SA6 DFOP 03516 M01S02623.enquire +++| PRS3.4 SA1 TAGS+B1 CHANGE OUTPUT FILE NAME 03517 M01S02624.enquire +++| ZR X1,PRS3.5 IF *O* NOT SPECIFIED 03518 M01S02625.enquire +++| SA2 OUTPUT 03519 M01S02626.enquire +++| MX0 -18 03520 M01S02627.enquire +++| BX6 -X0*X2 03521 M01S02628.enquire +++| BX6 X6+X1 03522 M01S02629.enquire +++| SA6 A2
| Line S02630 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03523 M02S02630.ns22000 ---| PRS3.5 SX2 OUTPUT
| Line S02631 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03524 M02S02631.ns22000 ---| RJ STF SET TERMINAL FILE 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 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03529 M02S02632.enqui9 ---| NZ X6,PRS4 IF NOT TERMINAL 03530 M01S00044.enqui9 +++| NZ X6,PRS3.6 IF NOT TERMINAL
| Line S02633 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03531 M02S02633.ns22000 ---| SA6 FT FILE TYPE 03532 M01S02634.enquire +++| SA2 =1L CLEAR PAGE EJECT 03533 M01S02635.enquire +++| BX6 X2 03534 M01S02636.enquire +++| SA6 PAGE 03535 M01S02637.enquire +++| MESSAGE ZERO,1 CLEAR LINE 1 OF CPA 03536 M01S00045.enqui9 +++| PRS3.6 SA1 FT 03537 M01S00046.enqui9 +++| WRITEW O,PRSA,X1 CONDITIONALLY WRITE FORMAT EFFECTOR 03538 M01S02638.enquire +++|
| Line S02639 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03539 M02S02639.enqui9 ---|* PRESETING OPTIONS TO BE EXECUTED 03540 M01S00047.enqui9 +++|* PRESET OPTIONS TO BE EXECUTED. 03541 M01S02640.enquire +++|
| Line S02641 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03542 M02S02641.ns22000 ---| PRS4 SA1 TAGS CHECK OPTIONS
| Line S00464 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03543 M02S00464.enqui9 ---| PRS4 SA1 FT
| Line S00465 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03544 M02S00465.enqui9 ---| WRITEW O,PRSA,X1 CONDITIONALLY WRITE FORMAT EFFECTOR
| Line S00466 Modification History | |
|---|---|
M01 (Added by) | ns22000 |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03545 M02S00466.enqui9 ---| SA1 TAGS CHECK OPTIONS 03546 M01S00048.enqui9 +++| PRS4 SA1 TAGS CHECK OPTIONS 03547 M01S02642.enquire +++| NZ X1,PRS5 IF NOT DEFAULT OPTION 03548 M01S02643.enquire +++| SA2 DFOP 03549 M01S02644.enquire +++| BX6 X2 03550 M01S02645.enquire +++| SA6 A1 03551 M01S02646.enquire +++| BX1 X2 03552 M01S02647.enquire +++| PRS5 MX0 6 03553 M01S02648.enquire +++| BX2 X0*X1 03554 M01S02649.enquire +++| ZR X2,PRS10 IF THRU ALL SPECIFIED OPTIONS 03555 M01S02650.enquire +++| LX1 6 SHIFT OPTION TO BOTTON OF WORD 03556 M01S02651.enquire +++| BX6 X1 RESET OPTION WORD 03557 M01S02652.enquire +++| SA6 A1+ 03558 M01S02653.enquire +++| 03559 M01S02654.enquire +++|* CHECK FOR LEGAL OPTION. 03560 M01S02655.enquire +++| 03561 M01S02656.enquire +++| SA4 OPNS 03562 M01S02657.enquire +++| PRS6 BX3 X0*X4 CHECK OPTION 03563 M01S02658.enquire +++| IX3 X3-X2 03564 M01S02659.enquire +++| ZR X3,PRS8 IF LEGAL OPTION 03565 M01S02660.enquire +++| SA4 A4+B1 03566 M01S02661.enquire +++| NZ X4,PRS6 IF MORE OPTIONS TO CHECK 03567 M01S02662.enquire +++| 03568 M01S02663.enquire +++|* SEND ERROR MESSAGE AND ABORT JOB. 03569 M01S02664.enquire +++| 03570 M01S02665.enquire +++| SA1 MSGA+1 PLACE OPTION IN MESSAGE
| Line S02666 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03571 M02S02666.v23l617 ---| LX2 18 03572 M01S00101.v23l617 +++| LX0 12 03573 M01S00102.v23l617 +++| LX2 12 03574 M01S00103.v23l617 +++| BX1 -X0*X1 03575 M01S02667.enquire +++| BX6 X1+X2 03576 M01S02668.enquire +++| SA6 A1
| Line S02669 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03577 M02S02669.v23l617 ---| MESSAGE MSGA *INVALID PARAMETER* 03578 M01S00104.v23l617 +++| MESSAGE MSGA * INCORRECT OPTION X.* 03579 M01S02670.enquire +++| ABORT 03580 M01S02671.enquire +++| 03581 M01S02672.enquire +++|* SET EXECUTION BITS IN OPTION TABLE. 03582 M01S02673.enquire +++| 03583 M01S02674.enquire +++| PRS8 SX6 B1 03584 M01S02675.enquire +++| LX6 18 03585 M01S02676.enquire +++| BX6 X6+X4 03586 M01S02677.enquire +++| SA6 A4 03587 M01S02678.enquire +++| LX2 6 RIGHT JUSTIFY OPTION 03588 M01S02679.enquire +++| SX6 X2-1RA 03589 M01S02680.enquire +++| NZ X6,PRS4 IF NOT *A* OPTION
| Line S02681 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03590 M02S02681.enqui9 ---| SX6 B1 SET EXECUTION FLAG WORD FOR EXECUTION OF
| Line S02682 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03591 M02S02682.enqui9 ---| SA6 OPAL ALL OPTIONS
| Line S02683 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03592 M02S02683.enqui9 ---| EQ PRS4 CHECKING REMAINDING OPTIONS 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 M01S02684.enquire +++| 03597 M01S02685.enquire +++|* SET RSB BUFFER WORDS TO READ CONTROL POINT AREA. 03598 M01S02686.enquire +++| 03599 M01S02687.enquire +++| PRS10 SA2 STAT1+1 03600 M01S02688.enquire +++| BX6 X2 03601 M01S02689.enquire +++| SA6 BUFF 03602 M01S02690.enquire +++| SA2 STAT2+1 03603 M01S02691.enquire +++| BX6 X2 03604 M01S02692.enquire +++| SA6 BUFF+100B 03605 M01S02693.enquire +++| SA1 OPAL
| Line S02694 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03606 M02S02694.ns22000 ---| ZR X1,MAIN IF NOT ALL OPTIONS TO BE EXECUTED 03607 M01S00467.ns22000 +++| ZR X1,PRS11 IF NOT ALL OPTIONS TO BE EXECUTED 03608 M01S02695.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 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 M01S02696.enquire +++| EQ MAIN 03628 M01S00477.ns22000 +++| 03629 M01S00478.ns22000 +++| 03630 M01S00479.ns22000 +++| PRSA BSS 1 PRINT DENSITY 03631 M01S00018.252l678 +++| PRSB VFD 24/1,18/MEFL,18/UESC 03632 M01S02697.enquire +++| SAL SPACE 4,10 03633 M01S02698.enquire +++|** SAL - SET ALL OPTIONS. 03634 M01S02699.enquire +++|* 03635 M01S02700.enquire +++|* EXIT ALL OPTION BITS SET FOR EXECUTION. 03636 M01S02701.enquire +++|* 03637 M01S02702.enquire +++|* USES X - 3, 4, 5, 6. 03638 M01S02703.enquire +++|* A - 4, 5, 6. 03639 M01S02704.enquire +++| 03640 M01S02705.enquire +++| 03641 M01S02706.enquire +++| SAL SUBR ENTRY/EXIT 03642 M01S02707.enquire +++| SA4 OPNS+1 OPTION TABLE - SKIP *A* OPTION 03643 M01S02708.enquire +++| SA5 EBIT EXECUTION BIT MASK 03644 M01S02709.enquire +++| SAL1 ZR X4,SAL3 IF END OF OPTION TABLE 03645 M01S02710.enquire +++| BX3 X5*X4 CLEAR OPTION FROM OPTION TABLE 03646 M01S02711.enquire +++| NZ X3,SAL2 IF EXECUTION BIT SET 03647 M01S02712.enquire +++| SX6 1 SET EXECUTION BIT 03648 M01S02713.enquire +++| LX6 18 03649 M01S02714.enquire +++| BX6 X6+X4 03650 M01S02715.enquire +++| SA6 A4+ 03651 M01S02716.enquire +++| SAL2 SA4 A4+1 CHECK NEXT OPTION 03652 M01S02717.enquire +++| EQ SAL1 03653 M01S02718.enquire +++| 03654 M01S02719.enquire +++| SAL3 BX6 X6-X6 RESET END OF OPTION TABLE - SINCE *S* 03655 M01S02720.enquire +++| SA6 A4-2 AND *T* OPTIONS ARE REDUNDANT 03656 M01S02721.enquire +++| EQ SALX 03657 M01S02722.enquire +++| SPACE 4,10 03658 M01S02723.enquire +++|** PRESET COMMON DECKS. 03659 M01S02724.enquire +++| 03660 M01S02725.enquire +++|
| Line S02726 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03661 M02S02726.enqui9 ---|*CALL COMCARG
| Line S02727 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03662 M02S02727.enqui9 ---|*CALL COMCSTF 03663 M01S00052.enqui9 +++|*CALL COMCARG 03664 M01S00053.enqui9 +++|*CALL COMCSTF 03665 M01S02728.enquire +++| SPACE 4,10 03666 M01S02729.enquire +++|** PRESET CONSTANTS. 03667 M01S02730.enquire +++| 03668 M01S02731.enquire +++| 03669 M01S02732.enquire +++|* ARGUMENT TABLE. 03670 M01S02733.enquire +++| 03671 M01S02734.enquire +++| ARGT BSS 0 03672 M01S02735.enquire +++| OP ARG NASV,TAGS+0 OPTIONS 03673 M01S02736.enquire +++| O ARG NASV,TAGS+1 OUTPUT FILE 03674 M01S02737.enquire +++| FN ARG NASV,TAGS+2 FILE NAME 03675 M01S02738.enquire +++| JSN ARG =1,TAGS+3 JSN 03676 M01S02739.enquire +++| UJN ARG =1,TAGS+4 UJN 03677 M01S02740.enquire +++| ARG 03678 M01S02741.enquire +++| 03679 M01S02742.enquire +++| ZERO CON 0 03680 M01S02743.enquire +++| 03681 M01S02744.enquire +++|* MESSAGES. 03682 M01S02745.enquire +++|
| Line S02746 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | v23l617 |
Seq # *Modification Id* Act ----------------------------+ 03683 M02S02746.v23l617 ---| MSGA DATA L* INVALID OPTION * 03684 M01S00105.v23l617 +++| MSGA DATA C* INCORRECT OPTION X.* 03685 M01S02747.enquire +++| MSGB DATA L* ARGUMENT ERRORS.* 03686 M01S02748.enquire +++| 03687 M01S02749.enquire +++|* DEFAULT OPTIONS. 03688 M01S02750.enquire +++| 03689 M01S02751.enquire +++| DOFN VFD 42/0LFN,18/1R= 03690 M01S02752.enquire +++| DFOP CON 0
| Line S02753 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03691 M02S02753.ns22000 ---|
| Line S02754 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03692 M02S02754.ns22000 ---|* CALL TO READ EST POINTER.
| Line S02755 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03693 M02S02755.ns22000 ---|
| Line S02756 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03694 M02S02756.ns22000 ---| PTRS VFD 12/0,12/1,18/ESTP,18/BUFF0
| Line S02757 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act ----------------------------+ 03695 M02S02757.ns22000 ---| BUFF0 CON -0
| Line S02758 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | enqui9 |
Seq # *Modification Id* Act ----------------------------+ 03696 M02S02758.enqui9 ---| 03697 M01S00054.enqui9 +++| SPACE 4,10
| Line S02759 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 03698 M02S02759.ns21000 ---|* DEMAND FILE EQUATES.
| Line S02760 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 03699 M02S02760.ns21000 ---|
| Line S02761 Modification History | |
|---|---|
M01 (Added by) | enquire |
M02 (Updated by) | ns21000 |
Seq # *Modification Id* Act ----------------------------+ 03700 M02S02761.ns21000 ---|*CALL COMSRSX 03701 M01S02762.enquire +++| END
cdc/nos2.source/opl.opl871/deck/enquire.002.txt · Last modified: by 127.0.0.1