cdc:nos2.source:opl.opl871:deck:sxstge.001
Deck SXSTGE Part 001
8 Modifications
Listing Sections
- Deck SXSTGE Start
- Deck SXSTGE Part 1 (Line 2072)
Source
Seq # *Modification Id* Act ----------------------------+ 02072 M00S01970.sxstge +++| 02073 M00S01971.sxstge +++| END # RESERVED *HLRQ* # 02074 M00S01972.sxstge +++| END # END CHECK FOR FIRST RESERVATION # 02075 M00S01973.sxstge +++| IF SM$REQRES2[I] NQ 0 02076 M00S01974.sxstge +++| THEN 02077 M00S01975.sxstge +++| BEGIN # CHECK SECOND RESERVE AREA # 02078 M00S01976.sxstge +++| IF NOT SM$LLRQ2[I] 02079 M00S01977.sxstge +++| THEN 02080 M00S01978.sxstge +++| BEGIN # RESERVED BY *HLRQ* # 02081 M00S01979.sxstge +++| P<HLRQ> = SM$REQRES2[I]; 02082 M01S00074.sxstge3 +++| IF HLR$HPN[0] EQ HLRPN"STAGE" 02083 M01S00075.sxstge3 +++| THEN 02084 M01S00076.sxstge3 +++| BEGIN 02085 M01S00077.sxstge3 +++| IF STDRDCT NQ 0 02086 M01S00078.sxstge3 +++| THEN 02087 M01S00079.sxstge3 +++| BEGIN 02088 M01S00080.sxstge3 +++| STDRDCT = STDRDCT - 1; 02089 M01S00081.sxstge3 +++| END 02090 M01S00082.sxstge3 +++| END 02091 M01S00083.sxstge3 +++| 02092 M01S00084.sxstge3 +++| IF STDRDCT EQ 0 02093 M01S00085.sxstge3 +++| THEN 02094 M01S00086.sxstge3 +++| BEGIN 02095 M01S00087.sxstge3 +++| FULL = TRUE; 02096 M01S00088.sxstge3 +++| END 02097 M01S00089.sxstge3 +++| 02098 M00S01980.sxstge +++| IF HLR$FCTX[0] NQ 0 02099 M00S01981.sxstge +++| THEN 02100 M00S01982.sxstge +++| BEGIN 02101 M00S01983.sxstge +++| FCT = HLR$FCTX[0]; 02102 M00S01984.sxstge +++| END 02103 M00S01985.sxstge +++| 02104 M00S01986.sxstge +++| ELSE 02105 M00S01987.sxstge +++| BEGIN 02106 M00S01988.sxstge +++| FCT = HLR$ASAFCT[0]; 02107 M00S01989.sxstge +++| END 02108 M00S01990.sxstge +++| 02109 M00S01991.sxstge +++| IF ASAFCT EQ FCT ## 02110 M00S01992.sxstge +++| AND TDAMFAM[0] EQ HLR$FAM[0] ## 02111 M00S01993.sxstge +++| AND TDAMSBF[0] EQ HLR$SBF[0] 02112 M00S01994.sxstge +++| THEN 02113 M00S01995.sxstge +++| BEGIN # DUPLICATE REQUEST # 02114 M00S01996.sxstge +++| IF SM$DSFLAG2[I] 02115 M00S01997.sxstge +++| THEN 02116 M00S01998.sxstge +++| BEGIN # DESTAGING *HLRQ* # 02117 M00S01999.sxstge +++| HLR$DOSTG[0] = TRUE; 02118 M00S02000.sxstge +++| TEST DUMMY; 02119 M00S02001.sxstge +++| END 02120 M00S02002.sxstge +++| 02121 M00S02003.sxstge +++| ELSE 02122 M00S02004.sxstge +++| BEGIN # STAGE *HLRQ* # 02123 M00S02005.sxstge +++| TEST DUMMY; 02124 M00S02006.sxstge +++| END 02125 M00S02007.sxstge +++| END # END DUPLICATE REQUEST # 02126 M00S02008.sxstge +++| 02127 M00S02009.sxstge +++| IF FULL AND SM$DSFLAG2[I] 02128 M00S02010.sxstge +++| THEN # CLEAR *DRD* ON END OF SUB FAMILY # 02129 M00S02011.sxstge +++| BEGIN 02130 M00S02012.sxstge +++| HLR$DOSTG[0] = TRUE; 02131 M00S02013.sxstge +++| END 02132 M00S02014.sxstge +++| 02133 M00S02015.sxstge +++| END # RESERVED *HLRQ* # 02134 M00S02016.sxstge +++| END # END CHECK FOR SECOND RESERVATION # 02135 M00S02017.sxstge +++| GOTO TDAM$CONT; # *SM* FOUND # 02136 M00S02018.sxstge +++| END # END *FCT* IN USE # 02137 M00S02019.sxstge +++| END # END *SM* SEARCH # 02138 M00S02020.sxstge +++| 02139 M00S02021.sxstge +++| 02140 M00S02022.sxstge +++|TDAM$CONT: 02141 M00S02023.sxstge +++| 02142 M00S02024.sxstge +++| IF(SM$HWOFF[I] OR NOT SM$ON[I]) ## 02143 M00S02025.sxstge +++| OR (NOT D0$ON[I] AND NOT D1$ON[I]) ## 02144 M01S00090.sxstge3 +++| OR (SM$STNUM[I] EQ 0) 02145 M00S02026.sxstge +++| THEN # *SM* /*DRD* NOT USABLE # 02146 M00S02027.sxstge +++| BEGIN 02147 M00S02028.sxstge +++| STAT = STGERRC"SMOFF";
| Line S02029 Modification History | |
|---|---|
M01 (Removed by) | sxstge3 |
Seq # *Modification Id* Act
----------------------------+
02148 M01S02029.sxstge3 ---| MSGAFDF("E","ES",STAT,P<TDAM>);
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | sxstge3 |
Seq # *Modification Id* Act ----------------------------+ 02149 M01S00091.sxstge3 +++| TYPE = "S"; # SET MESSAGE TYPE # 02150 M01S00092.sxstge3 +++| MSGAFDF(TYPE,"ES",STAT,RTDADR + 1); 02151 M00S02030.sxstge +++| REMOVE = TRUE; 02152 M00S02031.sxstge +++| GOTO TDAM$CONT1; 02153 M00S02032.sxstge +++| END 02154 M00S02033.sxstge +++| 02155 M00S02034.sxstge +++| 02156 M00S02035.sxstge +++| IF FULL 02157 M00S02036.sxstge +++| THEN # NO *DRD* AVAILABLE # 02158 M00S02037.sxstge +++| BEGIN 02159 M00S02038.sxstge +++| TEST DUMMY; 02160 M00S02039.sxstge +++| END 02161 M00S02040.sxstge +++| 02162 M00S02041.sxstge +++| 02163 M00S02042.sxstge +++|# 02164 M00S02043.sxstge +++|* IF SPACE IS AVAILABLE, PUT ENTRY INTO *HLRQ* AND UPDATE THE 02165 M00S02044.sxstge +++|* *SM* STATUS LIST. 02166 M00S02045.sxstge +++|# 02167 M00S02046.sxstge +++| 02168 M00S02047.sxstge +++| HLRADR = CHN$BOC[LCHN"HL$FRSPC"]; 02169 M00S02048.sxstge +++| 02170 M00S02049.sxstge +++| IF HLRADR NQ 0 02171 M00S02050.sxstge +++| THEN 02172 M00S02051.sxstge +++| BEGIN # BUILD *HLRQ* ENTRY # 02173 M00S02052.sxstge +++| RTRQ$CT = RTRQ$CT - 1; 02174 M00S02053.sxstge +++| HLRQENQ(HLRADR); 02175 M00S02054.sxstge +++| P<HLRQ> = HLRADR; 02176 M00S02055.sxstge +++| IF SM$REQRES1[I] EQ 0 02177 M00S02056.sxstge +++| THEN 02178 M00S02057.sxstge +++| BEGIN 02179 M00S02058.sxstge +++| SM$REQRES1[I] = HLRADR; 02180 M00S02059.sxstge +++| HLR$DRDRA[0] = LOC(SM$REQRES1[I]); 02181 M00S02060.sxstge +++| END 02182 M00S02061.sxstge +++| 02183 M00S02062.sxstge +++| ELSE 02184 M00S02063.sxstge +++| BEGIN 02185 M00S02064.sxstge +++| SM$REQRES2[I] = HLRADR; 02186 M00S02065.sxstge +++| HLR$DRDRA[0] = LOC(SM$REQRES2[I]); 02187 M00S02066.sxstge +++| END 02188 M00S02067.sxstge +++| 02189 M00S02068.sxstge +++| HLR$HPN[0] = HLRPN"STAGE"; 02190 M00S02069.sxstge +++| HLR$TDAM[0] = TDAMREQST[0]; 02191 M00S02070.sxstge +++| HLR$SM[0] = SM; 02192 M00S02071.sxstge +++| REMOVE = TRUE; 02193 M00S02072.sxstge +++| 02194 M00S02073.sxstge +++| 02195 M00S02074.sxstge +++| END # BUILD *HLRQ* ENTRY # 02196 M00S02075.sxstge +++| 02197 M00S02076.sxstge +++| END 02198 M00S02077.sxstge +++| 02199 M00S02078.sxstge +++| 02200 M00S02079.sxstge +++|TDAM$CONT1: 02201 M00S02080.sxstge +++| IF REMOVE 02202 M00S02081.sxstge +++| THEN # REMOVE ENTRY FROM *RTRQ* # 02203 M00S02082.sxstge +++| BEGIN 02204 M00S02083.sxstge +++| DEL$LNK(RTDADR,LCHN"RTD$ACT",0); 02205 M00S02084.sxstge +++| ZFILL(TDAM,TDAMLEN); 02206 M00S02085.sxstge +++| ADD$LNK(RTDADR,LCHN"RTD$FRSPC",0); 02207 M00S02086.sxstge +++| END 02208 M00S02087.sxstge +++| 02209 M00S02088.sxstge +++|# 02210 M00S02089.sxstge +++|* GET NEXT *TDAM* ENTRY. 02211 M00S02090.sxstge +++|# 02212 M00S02091.sxstge +++| 02213 M00S02092.sxstge +++| 02214 M00S02093.sxstge +++| END # SCAN *RTRQ* # 02215 M00S02094.sxstge +++| 02216 M00S02095.sxstge +++| STG$MSK = 1; # STOP NEWWORK REQUESTS # 02217 M00S02096.sxstge +++| 02218 M00S02097.sxstge +++| END # TDAM$RP # 02219 M00S02098.sxstge +++| 02220 M00S02099.sxstge +++| TERM
cdc/nos2.source/opl.opl871/deck/sxstge.001.txt · Last modified: by 127.0.0.1