Seq # *Modification Id* Act
----------------------------+
02042 M00S01940.sxstge +++| END
02043 M00S01941.sxstge +++|
02044 M00S01942.sxstge +++| ELSE
02045 M00S01943.sxstge +++| BEGIN
02046 M00S01944.sxstge +++| FCT = HLR$ASAFCT[0];
02047 M00S01945.sxstge +++| END
02048 M00S01946.sxstge +++|
02049 M00S01947.sxstge +++| IF ASAFCT[0] EQ FCT ##
02050 M00S01948.sxstge +++| AND TDAMFAM[0] EQ HLR$FAM[0] ##
02051 M00S01949.sxstge +++| AND TDAMSBF[0] EQ HLR$SBF[0]
02052 M00S01950.sxstge +++| THEN
02053 M00S01951.sxstge +++| BEGIN # DUPLICATE REQUEST #
02054 M00S01952.sxstge +++| IF SM$DSFLAG1[I]
02055 M00S01953.sxstge +++| THEN
02056 M00S01954.sxstge +++| BEGIN # DESTAGING *HLRQ* #
02057 M00S01955.sxstge +++| HLR$DOSTG[0] = TRUE;
02058 M00S01956.sxstge +++| TEST DUMMY;
02059 M00S01957.sxstge +++| END
02060 M00S01958.sxstge +++|
02061 M00S01959.sxstge +++| ELSE
02062 M00S01960.sxstge +++| BEGIN # STAGE *HLRQ* #
02063 M00S01961.sxstge +++| TEST DUMMY;
02064 M00S01962.sxstge +++| END
02065 M00S01963.sxstge +++| END # END DUPLICATE REQUEST #
02066 M00S01964.sxstge +++|
02067 M00S01965.sxstge +++| IF FULL AND SM$DSFLAG1[I]
02068 M00S01966.sxstge +++| THEN # CLEAR *DRD* ON END OF SUB FAMILY #
02069 M00S01967.sxstge +++| BEGIN
02070 M00S01968.sxstge +++| HLR$DOSTG[0] = TRUE;
02071 M00S01969.sxstge +++| END
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];
| Line S00074 Modification History |
M01 (Added by) | sxstge3 |
Seq # *Modification Id* Act
----------------------------+
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]) ##
| Line S00090 Modification History |
M01 (Added by) | sxstge3 |
Seq # *Modification Id* Act
----------------------------+
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