Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.symserv +++|PROC BZFILL(CHAR,(TYP),(NUM));
| Line S00002 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00002 M01S00002.ns2676 ---|# TITLE BZFILL - BLANK OR ZERO FILLS A CHARACTER ITEM. #
| Line S00001 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00003 M01S00001.ns2676 +++|#
00004 M01S00002.ns2676 +++| IDENT BZFILL
00005 M01S00003.ns2676 +++| TITLE BZFILL - BLANK OR ZERO FILLS A CHARACTER ITEM.
00006 M01S00004.ns2676 +++|#
00007 M00S00003.symserv +++|
00008 M00S00004.symserv +++| BEGIN # BZFILL #
00009 M00S00005.symserv +++|
00010 M00S00006.symserv +++|#
| Line S00007 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00011 M01S00007.ns2676 ---|** BZFILL - BLANK OR ZERO FILLS A CHARACTER ITEM.
| Line S00005 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00012 M01S00005.ns2676 +++|*** BZFILL - BLANK OR ZERO FILLS A CHARACTER ITEM.
00013 M00S00008.symserv +++|*
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00014 M01S00001.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00015 M01S00002.281l803 +++|*
00016 M00S00009.symserv +++|* PROC BZFILL(CHAR,(TYP),(NUM))
00017 M00S00010.symserv +++|*
00018 M00S00011.symserv +++|* ENTRY (TYP) = TYPE OF FILLING REQUIRED.
| Line S00012 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00019 M01S00012.ns2676 ---|* = S"BFILL", BLANK FILLING.
00020 M01S00013.ns2676 ---|* = S"ZFILL", ZERO FILLING.
| Line S00006 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00021 M01S00006.ns2676 +++|* = 0 (S"BFILL"), BLANK FILLING.
00022 M01S00007.ns2676 +++|* = 1 (S"ZFILL"), ZERO FILLING.
00023 M00S00014.symserv +++|* (NUM) = LENGTH OF CHARACTER ITEM IN NUMBER
00024 M00S00015.symserv +++|* OF CHARACTERS.
00025 M00S00016.symserv +++|*
00026 M00S00017.symserv +++|* EXIT (CHAR) = BLANK OR ZERO FILLED CHARACTER.
00027 M00S00018.symserv +++|*
00028 M00S00019.symserv +++|* NOTES DEPENDING ON THE TYPE OF CONVERSION, ZEROES
00029 M00S00020.symserv +++|* ARE REPLACED BY BLANKS OR BLANKS BY ZEROES.
00030 M00S00021.symserv +++|#
00031 M00S00022.symserv +++|
00032 M00S00023.symserv +++| ITEM CHAR C(240); # ITEM TO BE BLANK/ZERO FILLED #
00033 M00S00024.symserv +++| ITEM TYP U; # TYPE OF FILLING REQUIRED #
00034 M00S00025.symserv +++| ITEM NUM I; # LENGTH OF *CHAR* IN NUMBER OF
00035 M00S00026.symserv +++| CHARACTERS #
00036 M00S00027.symserv +++|
00037 M00S00028.symserv +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00038 M00S00029.symserv +++|*CALL COMAMSS
00039 M00S00030.symserv +++|*CALL COMABZF
00040 M00S00031.symserv +++|
00041 M00S00032.symserv +++| ITEM I I; # LOOP INDUCTION VARIABLE #
00042 M00S00033.symserv +++|
00043 M00S00034.symserv +++|CONTROL EJECT;
00044 M00S00035.symserv +++|
00045 M00S00036.symserv +++|#
00046 M00S00037.symserv +++|* START OF EXECUTABLE CODE.
00047 M00S00038.symserv +++|#
00048 M00S00039.symserv +++|
00049 M00S00040.symserv +++| IF TYP EQ TYPFILL"BFILL"
00050 M00S00041.symserv +++| THEN
00051 M00S00042.symserv +++| BEGIN # BLANK FILL #
00052 M00S00043.symserv +++| FASTFOR I = 0 STEP 1 UNTIL NUM-1
00053 M00S00044.symserv +++| DO
00054 M00S00045.symserv +++| BEGIN
00055 M00S00046.symserv +++| IF C<I,1>CHAR EQ 0 # REPLACE ZEROES BY BLANKS #
00056 M00S00047.symserv +++| THEN
00057 M00S00048.symserv +++| BEGIN
00058 M00S00049.symserv +++| C<I,1>CHAR = " ";
00059 M00S00050.symserv +++| END
00060 M00S00051.symserv +++|
00061 M00S00052.symserv +++| END
00062 M00S00053.symserv +++|
00063 M00S00054.symserv +++| RETURN;
00064 M00S00055.symserv +++| END # BLANK FILL #
00065 M00S00056.symserv +++|
00066 M00S00057.symserv +++| IF TYP EQ TYPFILL"ZFILL"
00067 M00S00058.symserv +++| THEN
00068 M00S00059.symserv +++| BEGIN # ZERO FILL #
00069 M00S00060.symserv +++| FASTFOR I = 0 STEP 1 UNTIL NUM-1
00070 M00S00061.symserv +++| DO
00071 M00S00062.symserv +++| BEGIN
00072 M00S00063.symserv +++| IF B<I*6,6>CHAR EQ O"55" # REPLACE BLANKS BY ZEROES #
00073 M00S00064.symserv +++| THEN
00074 M00S00065.symserv +++| BEGIN
00075 M00S00066.symserv +++| B<I*6,6>CHAR = 0;
00076 M00S00067.symserv +++| END
00077 M00S00068.symserv +++|
00078 M00S00069.symserv +++| END
00079 M00S00070.symserv +++|
00080 M00S00071.symserv +++| RETURN;
00081 M00S00072.symserv +++|
00082 M00S00073.symserv +++| END # ZERO FILL #
00083 M00S00074.symserv +++|
00084 M00S00075.symserv +++| END # BZFILL #
00085 M00S00076.symserv +++|
| Line S00008 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00086 M01S00008.ns2676 +++|#
00087 M01S00009.ns2676 +++| END
00088 M01S00010.ns2676 +++|#
00089 M00S00077.symserv +++| TERM
00090 M00S00078.symserv +++|PROC LOFPROC((LFN));
| Line S00079 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00091 M01S00079.ns2676 ---|# TITLE LOFPROC - LIST OF FILES PROCESSOR. #
| Line S00011 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00092 M01S00011.ns2676 +++|#
00093 M01S00012.ns2676 +++| IDENT LOFPROC
00094 M01S00013.ns2676 +++| TITLE LOFPROC - LIST OF FILES PROCESSOR.
00095 M01S00014.ns2676 +++|#
00096 M00S00080.symserv +++|
00097 M00S00081.symserv +++| BEGIN # LOFPROC #
00098 M00S00082.symserv +++|
00099 M00S00083.symserv +++|#
| Line S00084 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00100 M01S00084.ns2676 ---|** LOFPROC - LIST OF FILES PROCESSOR.
| Line S00015 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00101 M01S00015.ns2676 +++|*** LOFPROC - LIST OF FILES PROCESSOR.
00102 M00S00085.symserv +++|*
00103 M00S00086.symserv +++|* *LOFPROC* IS USED TO CREATE A LIST OF LOCAL FILE NAMES, AND ALSO
00104 M00S00087.symserv +++|* TO RETURN THE FILES NAMED IN THIS LIST.
00105 M00S00088.symserv +++|*
00106 M00S00089.symserv +++|* PROC LOFPROC((LFN))
00107 M00S00090.symserv +++|*
00108 M00S00091.symserv +++|* ENTRY (LFN) = NONZERO, LOCAL FILE NAME TO BE ADDED TO THE
00109 M00S00092.symserv +++|* LIST OF FILES.
00110 M00S00093.symserv +++|* = 0, ALL FILES IN THE LIST ARE TO BE RETURNED.
00111 M00S00094.symserv +++|*
00112 M00S00095.symserv +++|* EXIT THE SPECIFIED FILE HAS BEEN ADDED TO THE LIST, OR ALL
00113 M00S00096.symserv +++|* FILES IN THE LIST HAVE BEEN RETURNED.
00114 M00S00097.symserv +++|#
00115 M00S00098.symserv +++|
00116 M00S00099.symserv +++| ITEM LFN I; # FILE NAME TO BE ADDED TO LIST #
00117 M00S00100.symserv +++|
00118 M00S00101.symserv +++|#
00119 M00S00102.symserv +++|**** PROC LOFPROC - XREF LIST BEGIN.
00120 M00S00103.symserv +++|#
00121 M00S00104.symserv +++|
00122 M00S00105.symserv +++| XREF
00123 M00S00106.symserv +++| BEGIN
00124 M00S00107.symserv +++| PROC BZFILL; # BLANK OR ZERO FILL ITEM #
00125 M00S00108.symserv +++| PROC RETERN; # RETURN FILE #
00126 M00S00109.symserv +++| PROC ZSETFET; # INITIALIZE FET #
00127 M00S00110.symserv +++| END
00128 M00S00111.symserv +++|
00129 M00S00112.symserv +++|#
00130 M00S00113.symserv +++|**** PROC LOFPROC - XREF LIST END.
00131 M00S00114.symserv +++|#
00132 M00S00115.symserv +++|
00133 M00S00116.symserv +++| DEF LOFMAX #15#; # MAXIMUM LENGTH OF FILE LIST #
00134 M00S00117.symserv +++|
00135 M00S00118.symserv +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00136 M00S00119.symserv +++|*CALL COMAMSS
00137 M00S00120.symserv +++|*CALL COMAFET
00138 M00S00121.symserv +++|
00139 M00S00122.symserv +++| ITEM I I; # INDUCTION VARIABLE #
00140 M00S00123.symserv +++| ITEM ORD U = 0; # CURRENT TABLE ORDINAL #
00141 M00S00124.symserv +++|
00142 M00S00125.symserv +++| ARRAY LFET [0:0] S(SFETL); ; # FET USED FOR *RETURN* REQUEST #
00143 M00S00126.symserv +++| ARRAY LOF [0:LOFMAX] S(1); # LIST OF FILES TABLE #
00144 M00S00127.symserv +++| BEGIN
00145 M00S00128.symserv +++| ITEM LOF$WRD U(00,00,60); # FULL WORD DEFINITION #
00146 M00S00129.symserv +++| ITEM LOF$LFN C(00,00,07); # LOCAL FILE NAME #
00147 M00S00130.symserv +++| END
00148 M00S00131.symserv +++|
00149 M00S00132.symserv +++| CONTROL EJECT;
00150 M00S00133.symserv +++|
00151 M00S00134.symserv +++| IF LFN NQ 0 AND ORD LQ LOFMAX
00152 M00S00135.symserv +++| THEN # ADD LFN TO LIST OF FILES #
00153 M00S00136.symserv +++| BEGIN
00154 M00S00137.symserv +++| BZFILL(LFN,1,7);
00155 M00S00138.symserv +++| LOF$WRD[ORD] = LFN;
00156 M00S00139.symserv +++| ORD = ORD + 1;
00157 M00S00140.symserv +++| RETURN;
00158 M00S00141.symserv +++| END
00159 M00S00142.symserv +++|
00160 M00S00143.symserv +++| IF LFN EQ 0
00161 M00S00144.symserv +++| THEN # RETURN ALL FILES LISTED #
00162 M00S00145.symserv +++| BEGIN # RETURN FILES #
00163 M00S00146.symserv +++| ZSETFET(LOC(LFET[0]),"",0,0,SFETL);
00164 M00S00147.symserv +++|
00165 M00S00148.symserv +++| SLOWFOR I = 0 STEP 1 WHILE I LS ORD
00166 M00S00149.symserv +++| DO
00167 M00S00150.symserv +++| BEGIN
00168 M00S00151.symserv +++| FET$LFN[0] = LOF$LFN[I];
00169 M00S00152.symserv +++| RETERN(LFET[0],RCL);
00170 M00S00153.symserv +++| END
00171 M00S00154.symserv +++|
00172 M00S00155.symserv +++| END # RETURN FILES #
00173 M00S00156.symserv +++|
00174 M00S00157.symserv +++| RETURN;
00175 M00S00158.symserv +++| END # LOFPROC #
00176 M00S00159.symserv +++|
| Line S00016 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00177 M01S00016.ns2676 +++|#
00178 M01S00017.ns2676 +++| END
00179 M01S00018.ns2676 +++|#
00180 M00S00160.symserv +++| TERM
| Line S00001 Modification History |
M01 (Added by) | ns2022 |
Seq # *Modification Id* Act
----------------------------+
00181 M01S00001.ns2022 +++|PROC MSG((DFMSG),(OP));
| Line S00002 Modification History |
M01 (Added by) | ns2022 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00182 M02S00002.ns2676 ---|# TITLE MSG - DISPLAY DAYFILE MESSAGE. #
| Line S00019 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00183 M01S00019.ns2676 +++|#
00184 M01S00020.ns2676 +++| IDENT MSG
00185 M01S00021.ns2676 +++| TITLE MSG - DISPLAY DAYFILE MESSAGE.
00186 M01S00022.ns2676 +++|#
| Line S00003 Modification History |
M01 (Added by) | ns2022 |
Seq # *Modification Id* Act
----------------------------+
00187 M01S00003.ns2022 +++|
00188 M01S00004.ns2022 +++| BEGIN # MSG #
00189 M01S00005.ns2022 +++|
00190 M01S00006.ns2022 +++|#
| Line S00007 Modification History |
M01 (Added by) | ns2022 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00191 M02S00007.ns2676 ---|** MSG - DISPLAY DAYFILE MESSAGE.
| Line S00023 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00192 M01S00023.ns2676 +++|*** MSG - DISPLAY DAYFILE MESSAGE.
| Line S00008 Modification History |
M01 (Added by) | ns2022 |
Seq # *Modification Id* Act
----------------------------+
00193 M01S00008.ns2022 +++|*
00194 M01S00009.ns2022 +++|* *MSG* SEARCHES A MESSAGE FOR A TERMINATING CHARACTER AND
00195 M01S00010.ns2022 +++|* ZERO FILLS THE MESSAGE FROM THE TERMINATOR TO THE END
00196 M01S00011.ns2022 +++|* OF THE MESSAGE.
00197 M01S00012.ns2022 +++|*
00198 M01S00013.ns2022 +++|* PROC MSG((DFMSG),(OP))
00199 M01S00014.ns2022 +++|*
00200 M01S00015.ns2022 +++|* ENTRY (DFMSG) - MESSAGE TO BE DISPLAYED, 80 CHARACTER
00201 M01S00016.ns2022 +++|* MAXIMUM.
00202 M01S00017.ns2022 +++|* (OP) - MESSAGE ROUTING OPTION.
| Line S00018 Modification History |
M01 (Added by) | ns2022 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00203 M02S00018.ns2676 ---|* (VALUES DEFINED IN *COMAMSS*)
| Line S00024 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00204 M01S00024.ns2676 +++|* (VALUES DEFINED IN *MESSAGE* MACRO ROUTINE)
| Line S00019 Modification History |
M01 (Added by) | ns2022 |
Seq # *Modification Id* Act
----------------------------+
00205 M01S00019.ns2022 +++|*
00206 M01S00020.ns2022 +++|* EXIT THE MESSAGE HAS BEEN DISPLAYED AT THE LOCATION
00207 M01S00021.ns2022 +++|* SPECIFIED BY (OP).
00208 M01S00022.ns2022 +++|#
00209 M01S00023.ns2022 +++|
00210 M01S00024.ns2022 +++| ITEM DFMSG C(80); # MESSAGE TEXT #
00211 M01S00025.ns2022 +++| ITEM OP I; # MESSAGE ROUTING OPTION #
00212 M01S00026.ns2022 +++|
00213 M01S00027.ns2022 +++|#
00214 M01S00028.ns2022 +++|**** PROC MSG - XREF LIST BEGIN.
00215 M01S00029.ns2022 +++|#
00216 M01S00030.ns2022 +++|
00217 M01S00031.ns2022 +++| XREF
00218 M01S00032.ns2022 +++| BEGIN
00219 M01S00033.ns2022 +++| PROC MESSAGE; # ISSUE MESSAGE #
00220 M01S00034.ns2022 +++| END
00221 M01S00035.ns2022 +++|
00222 M01S00036.ns2022 +++|#
00223 M01S00037.ns2022 +++|**** PROC MSG - XREF LIST END.
00224 M01S00038.ns2022 +++|#
00225 M01S00039.ns2022 +++|
00226 M01S00040.ns2022 +++| DEF BLANK #" "#; # BLANK CHARACTER #
00227 M01S00041.ns2022 +++| DEF TERMCHAR #";"#; # TERMINATOR CHARACTER #
00228 M01S00042.ns2022 +++|
00229 M01S00043.ns2022 +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00230 M01S00044.ns2022 +++|*CALL COMAMSS
00231 M01S00045.ns2022 +++|
00232 M01S00046.ns2022 +++| ITEM I I; # LOOP COUNTER #
00233 M01S00047.ns2022 +++| ITEM CP I; # CHARACTER POSITION #
00234 M01S00048.ns2022 +++|
00235 M01S00049.ns2022 +++|CONTROL EJECT;
00236 M01S00050.ns2022 +++|
00237 M01S00051.ns2022 +++| CP = 0;
00238 M01S00052.ns2022 +++| FASTFOR I = 0 STEP 1 WHILE I LS 80 AND CP EQ 0
00239 M01S00053.ns2022 +++| DO # FIND TERMINATOR #
00240 M01S00054.ns2022 +++| BEGIN
00241 M01S00055.ns2022 +++| IF C<I,1>DFMSG EQ TERMCHAR
00242 M01S00056.ns2022 +++| THEN
00243 M01S00057.ns2022 +++| BEGIN
00244 M01S00058.ns2022 +++| CP = I;
00245 M01S00059.ns2022 +++| END
00246 M01S00060.ns2022 +++|
00247 M01S00061.ns2022 +++| END
00248 M01S00062.ns2022 +++|
00249 M01S00063.ns2022 +++| IF CP NQ 0
00250 M01S00064.ns2022 +++| THEN # ZERO FILL END OF MESSAGE #
00251 M01S00065.ns2022 +++| BEGIN
00252 M01S00066.ns2022 +++| B<CP*6,(80-CP)*6>DFMSG = 0;
00253 M01S00067.ns2022 +++| END
00254 M01S00068.ns2022 +++|
00255 M01S00069.ns2022 +++| MESSAGE(DFMSG,OP); # ISSUE MESSAGE #
00256 M01S00070.ns2022 +++| RETURN;
00257 M01S00071.ns2022 +++| END # MSG #
00258 M01S00072.ns2022 +++|
| Line S00025 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00259 M01S00025.ns2676 +++|#
00260 M01S00026.ns2676 +++| END
00261 M01S00027.ns2676 +++|#
| Line S00073 Modification History |
M01 (Added by) | ns2022 |
Seq # *Modification Id* Act
----------------------------+
00262 M01S00073.ns2022 +++| TERM
00263 M00S00161.symserv +++|PROC RESTPFP((OPTION));
| Line S00162 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00264 M01S00162.ns2676 ---|# TITLE RESTPFP - RESTORE USER *PFP* AND ABORT OR RETURN. #
| Line S00028 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00265 M01S00028.ns2676 +++|#
00266 M01S00029.ns2676 +++| IDENT RESTPFP
00267 M01S00030.ns2676 +++| TITLE RESTPFP - RESTORE USER *PFP* AND ABORT OR RETURN.
00268 M01S00031.ns2676 +++|#
00269 M00S00163.symserv +++|
00270 M00S00164.symserv +++| BEGIN # RESTPFP #
00271 M00S00165.symserv +++|
00272 M00S00166.symserv +++|#
00273 M00S00167.symserv +++|** RESTPFP - RESTORE USER *PFP* AND ABORT OR RETURN.
00274 M00S00168.symserv +++|*
00275 M00S00169.symserv +++|* *RESTPFP* RESTORES THE USER-S FAMILY AND USER INDEX, AND
00276 M00S00170.symserv +++|* OPTIONALLY CALLS *LOFPROC* TO RETURN ANY LISTED FILES.
00277 M00S00171.symserv +++|*
00278 M00S00172.symserv +++|* PROC RESTPFP((OPTION))
00279 M00S00173.symserv +++|*
00280 M00S00174.symserv +++|* ENTRY (OPTION) - PROCESSING OPTION (VALUES DEFINED IN
00281 M00S00175.symserv +++|* *COMAMSS*).
00282 M00S00176.symserv +++|* = *PFP$ABORT*, RESTORE *PFP*, RETURN ANY
00283 M00S00177.symserv +++|* LISTED FILES, AND ABORT PROCESSING.
00284 M00S00178.symserv +++|* = *PFP$END*, RESTORE *PFP*, RETURN ANY LISTED
00285 M00S00179.symserv +++|* FILES, AND RETURN TO CALLING PROGRAM.
00286 M00S00180.symserv +++|* = *PFP$RESUME*, RESTORE *PFP* AND RETURN TO
00287 M00S00181.symserv +++|* CALLING PROGRAM (NO FILES RETURNED).
00288 M00S00182.symserv +++|* (USER$FAM) = USER-S CURRENT FAMILY (IN *APFPCOM*).
00289 M00S00183.symserv +++|* (USER$UI) = USER-S CURRENT USER INDEX (IN *APFPCOM*).
00290 M00S00184.symserv +++|*
00291 M00S00185.symserv +++|* EXIT THE USER INDEX AND FAMILY OF THE USER HAVE BEEN
00292 M00S00186.symserv +++|* RESTORED. DEPENDING ON THE VALUE OF *OPTION*,
00293 M00S00187.symserv +++|* LISTED FILES MAY HAVE BEEN RETURNED, AND/OR
00294 M00S00188.symserv +++|* PROCESSING MAY HAVE BEEN ABORTED.
00295 M00S00189.symserv +++|*
00296 M00S00190.symserv +++|* MESSAGE * PROGRAM ABNORMAL, RESTPFP.*.
00297 M00S00191.symserv +++|#
00298 M00S00192.symserv +++|
00299 M00S00193.symserv +++| ITEM OPTION I; # PROCESSING OPTION #
00300 M00S00194.symserv +++|
00301 M00S00195.symserv +++|#
00302 M00S00196.symserv +++|**** PROC RESTPFP - XREF LIST BEGIN.
00303 M00S00197.symserv +++|#
00304 M00S00198.symserv +++|
00305 M00S00199.symserv +++| XREF
00306 M00S00200.symserv +++| BEGIN
00307 M00S00201.symserv +++| PROC ABORT; # ISSUE ABORT #
00308 M00S00202.symserv +++| PROC LOFPROC; # LIST OF FILES PROCESSOR #
00309 M00S00203.symserv +++| PROC MESSAGE; # ISSUE MESSAGE #
00310 M00S00204.symserv +++| PROC SETPFP; # SET FAMILY AND USER INDEX #
00311 M00S00205.symserv +++| END
00312 M00S00206.symserv +++|
00313 M00S00207.symserv +++|#
00314 M00S00208.symserv +++|**** PROC RESTPFP - XREF LIST BEGIN.
00315 M00S00209.symserv +++|#
00316 M00S00210.symserv +++|
00317 M00S00211.symserv +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00318 M00S00212.symserv +++|
00319 M00S00213.symserv +++|*CALL COMAMSS
00320 M00S00214.symserv +++|*CALL COMAPFP
00321 M00S00215.symserv +++|
00322 M00S00216.symserv +++| ARRAY PFPMSG [0:0] S(3); # ABNORMAL CONDITION MESSAGE #
00323 M00S00217.symserv +++| BEGIN
00324 M00S00218.symserv +++| ITEM PFPLINE C(00,00,28) =[ # MESSAGE LINE #
00325 M00S00219.symserv +++| " PROGRAM ABNORMAL, RESTPFP."];
00326 M00S00220.symserv +++| ITEM PFPZERO U(02,48,12)=[0]; # ZERO BYTE TERMINATOR #
00327 M00S00221.symserv +++| END
00328 M00S00222.symserv +++|
00329 M00S00223.symserv +++| CONTROL EJECT;
00330 M00S00224.symserv +++|
00331 M00S00225.symserv +++|#
| Line S00226 Modification History |
M01 (Removed by) | ns2054 |
Seq # *Modification Id* Act
----------------------------+
00332 M01S00226.ns2054 ---|* RESTORE FAMILY AND USER INDEX TO USER VALUES.
| Line S00001 Modification History |
M01 (Added by) | ns2054 |
Seq # *Modification Id* Act
----------------------------+
00333 M01S00001.ns2054 +++|* RESTORE THE PERMANENT FILE PARAMETERS TO THE USER VALUES.
00334 M00S00227.symserv +++|#
00335 M00S00228.symserv +++|
00336 M00S00229.symserv +++| PFP$WRD0[0] = 0;
00337 M00S00230.symserv +++| PFP$FAM[0] = USER$FAM[0];
00338 M00S00231.symserv +++| PFP$UI[0] = USER$UI[0];
| Line S00002 Modification History |
M01 (Added by) | ns2054 |
Seq # *Modification Id* Act
----------------------------+
00339 M01S00002.ns2054 +++| PFP$PACK[0] = USER$PACK[0];
00340 M00S00232.symserv +++| PFP$FG1[0] = TRUE;
| Line S00003 Modification History |
M01 (Added by) | ns2054 |
Seq # *Modification Id* Act
----------------------------+
00341 M01S00003.ns2054 +++| PFP$FG2[0] = TRUE;
00342 M00S00233.symserv +++| PFP$FG4[0] = TRUE;
00343 M00S00234.symserv +++| SETPFP(PFP[0]);
00344 M00S00235.symserv +++| IF PFP$STAT[0] NQ OK
00345 M00S00236.symserv +++| THEN
00346 M00S00237.symserv +++| BEGIN
00347 M00S00238.symserv +++| MESSAGE(PFPMSG[0],UDFL1);
00348 M00S00239.symserv +++| ABORT;
00349 M00S00240.symserv +++| END
00350 M00S00241.symserv +++|
00351 M00S00242.symserv +++|#
00352 M00S00243.symserv +++|* OPTIONALLY RETURN LISTED FILES.
00353 M00S00244.symserv +++|#
00354 M00S00245.symserv +++|
00355 M00S00246.symserv +++| IF OPTION NQ PFP$RESUME
00356 M00S00247.symserv +++| THEN
00357 M00S00248.symserv +++| BEGIN
00358 M00S00249.symserv +++| LOFPROC(0);
00359 M00S00250.symserv +++| END
00360 M00S00251.symserv +++|
00361 M00S00252.symserv +++|#
00362 M00S00253.symserv +++|* OPTIONALLY ABORT PROCESSING.
00363 M00S00254.symserv +++|#
00364 M00S00255.symserv +++|
00365 M00S00256.symserv +++| IF OPTION EQ PFP$ABORT
00366 M00S00257.symserv +++| THEN # ABORT REQUESTED #
00367 M00S00258.symserv +++| BEGIN
00368 M00S00259.symserv +++| ABORT;
00369 M00S00260.symserv +++| END
00370 M00S00261.symserv +++|
00371 M00S00262.symserv +++| RETURN;
00372 M00S00263.symserv +++| END # RESTPFP #
00373 M00S00264.symserv +++|
| Line S00032 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00374 M01S00032.ns2676 +++|#
00375 M01S00033.ns2676 +++| END
00376 M01S00034.ns2676 +++|#
00377 M00S00265.symserv +++| TERM
| Line S00001 Modification History |
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00378 M01S00001.ns2118 +++|PROC SETNM((NAME),(SRCHCHAR),(TERMCHAR),(MSGBUF),ASMBUF);
| Line S00002 Modification History |
M01 (Added by) | ns2118 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00379 M02S00002.ns2676 ---|# TITLE SETNM - SET NAME IN MESSAGE. #
| Line S00035 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00380 M01S00035.ns2676 +++|#
00381 M01S00036.ns2676 +++| IDENT SETNM
00382 M01S00037.ns2676 +++| TITLE SETNM - SET NAME IN MESSAGE.
00383 M01S00038.ns2676 +++|#
| Line S00003 Modification History |
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00384 M01S00003.ns2118 +++| BEGIN # SETNM #
00385 M01S00004.ns2118 +++|
00386 M01S00005.ns2118 +++|#
| Line S00006 Modification History |
M01 (Added by) | ns2118 |
M02 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00387 M02S00006.ns2676 ---|** SETNM - SET NAME IN MESSAGE.
| Line S00039 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00388 M01S00039.ns2676 +++|*** SETNM - SET NAME IN MESSAGE.
| Line S00007 Modification History |
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00389 M01S00007.ns2118 +++|*
00390 M01S00008.ns2118 +++|* *SETNM* REPLACES OCCURENCES OF THE SEARCH CHARACTER WITHIN A
00391 M01S00009.ns2118 +++|* MESSAGE OR LINE WITH THE CHARACTERS OF THE GIVEN NAME OR
00392 M01S00010.ns2118 +++|* NUMBER, ELIMINATING ALL EXCESS OCCURENCES OF THE SEARCH
00393 M01S00011.ns2118 +++|* CHARACTER. THE TERMINATOR CHARACTER IS REPLACED BY AN END OF
00394 M01S00012.ns2118 +++|* LINE IN THE NEW MESSAGE. THE ORIGINAL MESSAGE MUST CONTAIN A
00395 M01S00013.ns2118 +++|* SUFFICIENT NUMBER OF SEARCH CHARACTERS (USUALLY CONSECUTIVE)
00396 M01S00014.ns2118 +++|* TO ALLOW FOR REPLACEMENT BY THE NAME OR NUMBER (UP TO 10
00397 M01S00015.ns2118 +++|* CHARACTERS). THE MESSAGE MUST NOT CONTAIN COLONS (00B)
00398 M01S00016.ns2118 +++|* SINCE THEY WILL BE INTERPRETED AS EOL.
00399 M01S00017.ns2118 +++|*
00400 M01S00018.ns2118 +++|* PROC SETNM((NAME),(SRCHCHAR),(TERMCHAR),(MSGBUF),ASMBUF)
00401 M01S00019.ns2118 +++|*
00402 M01S00020.ns2118 +++|* ENTRY (NAME) - DISPLAY CODE NAME OR NUMBER TO BE SET IN
00403 M01S00021.ns2118 +++|* THE MESSAGE, LEFT JUSTIFIED, BLANK OR BINARY
00404 M01S00022.ns2118 +++|* ZERO FILLED. IF (NAME) .EQ. 0, ALL SEARCH
00405 M01S00023.ns2118 +++|* CHARACTER OCCURENCES WILL BE DELETED.
00406 M01S00024.ns2118 +++|* (SRCHCHAR) - DISPLAY CODE SEARCH CHARACTER, LEFT
00407 M01S00025.ns2118 +++|* JUSTIFIED.
00408 M01S00026.ns2118 +++|* (TERMCHAR) - DISPLAY CODE MESSAGE TERMINATION CHARACTER,
00409 M01S00027.ns2118 +++|* LEFT JUSTIFIED. IF (TERMCHAR) .EQ. 0, THE
00410 M01S00028.ns2118 +++|* MESSAGE IS TERMINATED BY EOL.
00411 M01S00029.ns2118 +++|* (MSGBUF) - MESSAGE OR LINE (MAXIMUM OF 80 CHARACTERS).
00412 M01S00030.ns2118 +++|*
00413 M01S00031.ns2118 +++|* EXIT (ASMBUF) - MESSAGE WITH THE GIVEN NAME OR NUMBER
00414 M01S00032.ns2118 +++|* ENTERED IN PLACE OF THE SEARCH CHARACTERS
00415 M01S00033.ns2118 +++|* END TERMINATED BY EOL.
00416 M01S00034.ns2118 +++|#
00417 M01S00035.ns2118 +++|
00418 M01S00036.ns2118 +++| ITEM NAME C(10); # REPLACEMENT NAME OR NUMBER #
00419 M01S00037.ns2118 +++| ITEM SRCHCHAR C(1); # SEARCH CHARACTER #
00420 M01S00038.ns2118 +++| ITEM TERMCHAR C(1); # TERMINATING CHARACTER #
00421 M01S00039.ns2118 +++| ITEM MSGBUF C(80); # MESSAGE OR LINE #
00422 M01S00040.ns2118 +++| ITEM ASMBUF C(80); # ASSEMBLY BUFFER #
00423 M01S00041.ns2118 +++|
00424 M01S00042.ns2118 +++|#
00425 M01S00043.ns2118 +++|**** PROC SETNM - XREF LIST BEGIN.
00426 M01S00044.ns2118 +++|#
00427 M01S00045.ns2118 +++|
00428 M01S00046.ns2118 +++| XREF
00429 M01S00047.ns2118 +++| BEGIN
00430 M01S00048.ns2118 +++| PROC BZFILL; # BLANK/ZERO FILL ITEM #
00431 M01S00049.ns2118 +++| END
00432 M01S00050.ns2118 +++|
00433 M01S00051.ns2118 +++|#
00434 M01S00052.ns2118 +++|**** PROC SETNM - XREF LIST END.
00435 M01S00053.ns2118 +++|#
00436 M01S00054.ns2118 +++|
00437 M01S00055.ns2118 +++| DEF BLANK #" "#; # BLANK CHARACTER #
00438 M01S00056.ns2118 +++| DEF ODDNUM(I) #(((I)/2)*2) NQ (I)#; # ODD NUMBER TEST #
00439 M01S00057.ns2118 +++|
00440 M01S00058.ns2118 +++| DEF LISTCON #0#; # COMDECK LIST CONTROL #
00441 M01S00059.ns2118 +++|*CALL COMAMSS
00442 M01S00060.ns2118 +++|*CALL COMABZF
00443 M01S00061.ns2118 +++|
00444 M01S00062.ns2118 +++| ITEM APOS I; # ASSEMBLY BUFFER POSITION #
00445 M01S00063.ns2118 +++| ITEM I I; # LOOP VARIABLE #
00446 M01S00064.ns2118 +++| ITEM NPOS I; # *NAME* POSITION #
00447 M01S00065.ns2118 +++| CONTROL EJECT;
00448 M01S00066.ns2118 +++|
00449 M01S00067.ns2118 +++| APOS = 0;
00450 M01S00068.ns2118 +++| NPOS = 0;
00451 M01S00069.ns2118 +++| BZFILL(NAME,TYPFILL"ZFILL",10);
00452 M01S00070.ns2118 +++|
00453 M01S00071.ns2118 +++| SLOWFOR I = 0 STEP 1 WHILE I LS 80 ##
00454 M01S00072.ns2118 +++| AND C<I,1>MSGBUF NQ TERMCHAR
00455 M01S00073.ns2118 +++| DO
00456 M01S00074.ns2118 +++| BEGIN # ASSEMBLE MESSAGE #
00457 M01S00075.ns2118 +++| IF C<I,1>MSGBUF EQ SRCHCHAR
00458 M01S00076.ns2118 +++| THEN
00459 M01S00077.ns2118 +++| BEGIN # TRANSFER *NAME* #
00460 M01S00078.ns2118 +++| IF B<NPOS*6,6>NAME NQ 0 AND NPOS LS 10
00461 M01S00079.ns2118 +++| THEN # REPLACE SEARCH CHARACTER #
00462 M01S00080.ns2118 +++| BEGIN
00463 M01S00081.ns2118 +++| C<APOS,1>ASMBUF = C<NPOS,1>NAME;
00464 M01S00082.ns2118 +++| NPOS = NPOS + 1;
00465 M01S00083.ns2118 +++| END
00466 M01S00084.ns2118 +++|
00467 M01S00085.ns2118 +++| ELSE # SKIP SEARCH CHARACTER #
00468 M01S00086.ns2118 +++| BEGIN
00469 M01S00087.ns2118 +++| TEST I;
00470 M01S00088.ns2118 +++| END
00471 M01S00089.ns2118 +++|
00472 M01S00090.ns2118 +++| END # TRANSFER *NAME* #
00473 M01S00091.ns2118 +++|
00474 M01S00092.ns2118 +++| ELSE # TRANSFER MESSAGE #
00475 M01S00093.ns2118 +++| BEGIN
00476 M01S00094.ns2118 +++| C<APOS,1>ASMBUF = C<I,1>MSGBUF;
00477 M01S00095.ns2118 +++| END
00478 M01S00096.ns2118 +++|
00479 M01S00097.ns2118 +++| APOS = APOS + 1; # ADVANCE *ASMBUF* POSITION #
00480 M01S00098.ns2118 +++| END # ASSEMBLE MESSAGE #
00481 M01S00099.ns2118 +++|
00482 M01S00100.ns2118 +++| IF ODDNUM(APOS)
00483 M01S00101.ns2118 +++| THEN
00484 M01S00102.ns2118 +++| BEGIN # ODD NUMBER OF CHARACTERS #
00485 M01S00103.ns2118 +++| IF C<APOS-1,1>ASMBUF EQ BLANK
00486 M01S00104.ns2118 +++| THEN # DELETE TRAILING BLANK #
00487 M01S00105.ns2118 +++| BEGIN
00488 M01S00106.ns2118 +++| APOS = APOS - 1;
00489 M01S00107.ns2118 +++| END
00490 M01S00108.ns2118 +++|
00491 M01S00109.ns2118 +++| ELSE # ADD TRAILING BLANK #
00492 M01S00110.ns2118 +++| BEGIN
00493 M01S00111.ns2118 +++| C<APOS,1>ASMBUF = " ";
00494 M01S00112.ns2118 +++| APOS = APOS + 1;
00495 M01S00113.ns2118 +++| END
00496 M01S00114.ns2118 +++|
00497 M01S00115.ns2118 +++| END # ODD NUMBER OF CHARACTERS #
00498 M01S00116.ns2118 +++|
00499 M01S00117.ns2118 +++| B<APOS*6,12>ASMBUF = 0; # ADD MESSAGE TERMINATOR #
00500 M01S00118.ns2118 +++|
00501 M01S00119.ns2118 +++| END # SETNM #
00502 M01S00120.ns2118 +++|
| Line S00040 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00503 M01S00040.ns2676 +++|#
00504 M01S00041.ns2676 +++| END
00505 M01S00042.ns2676 +++|#
| Line S00121 Modification History |
M01 (Added by) | ns2118 |
Seq # *Modification Id* Act
----------------------------+
00506 M01S00121.ns2118 +++| TERM
00507 M00S00266.symserv +++|PROC ZFILL(ZBUF,(WDLEN));
| Line S00267 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00508 M01S00267.ns2676 ---|# TITLE ZFILL - ZERO FILLS A BUFFER. #
| Line S00043 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00509 M01S00043.ns2676 +++|#
00510 M01S00044.ns2676 +++| IDENT ZFILL
00511 M01S00045.ns2676 +++| TITLE ZFILL - ZERO FILLS A BUFFER.
00512 M01S00046.ns2676 +++|#
00513 M00S00268.symserv +++|
00514 M00S00269.symserv +++| BEGIN # ZFILL #
00515 M00S00270.symserv +++|
00516 M00S00271.symserv +++|#
| Line S00272 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00517 M01S00272.ns2676 ---|** ZFILL - ZERO FILLS A BUFFER.
| Line S00047 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00518 M01S00047.ns2676 +++|*** ZFILL - ZERO FILLS A BUFFER.
00519 M00S00273.symserv +++|*
00520 M00S00274.symserv +++|* PROC ZFILL(ZBUF,(WDLEN))
00521 M00S00275.symserv +++|*
00522 M00S00276.symserv +++|* ENTRY (WDLEN) = NUMBER OF WORDS TO BE ZERO FILLED.
00523 M00S00277.symserv +++|*
00524 M00S00278.symserv +++|* EXIT (ZBUF) = ZERO FILLED BUFFER.
00525 M00S00279.symserv +++|#
00526 M00S00280.symserv +++|
00527 M00S00281.symserv +++| ARRAY ZBUF [0:0] ; # ARRAY TO BE ZERO FILLED #
00528 M00S00282.symserv +++| BEGIN
00529 M00S00283.symserv +++| ITEM ZWORD U(00,00,60);
00530 M00S00284.symserv +++| END
00531 M00S00285.symserv +++|
00532 M00S00286.symserv +++| ITEM WDLEN I; # NUMBER OF WORDS TO BE ZEROED #
00533 M00S00287.symserv +++|
00534 M00S00288.symserv +++| DEF LISTCON #0#; # DO NOT LIST COMDECKS #
00535 M00S00289.symserv +++|*CALL COMAMSS
00536 M00S00290.symserv +++|
00537 M00S00291.symserv +++| ITEM I I; # LOOP INDUCTION VARIABLE #
00538 M00S00292.symserv +++|
00539 M00S00293.symserv +++|CONTROL EJECT;
00540 M00S00294.symserv +++|
00541 M00S00295.symserv +++|#
00542 M00S00296.symserv +++|* ZERO FILL THE SPECIFIED NUMBER OF
00543 M00S00297.symserv +++|* WORDS IN THE BUFFER.
00544 M00S00298.symserv +++|#
00545 M00S00299.symserv +++|
00546 M00S00300.symserv +++| FASTFOR I = 0 STEP 1 UNTIL WDLEN-1
00547 M00S00301.symserv +++| DO
00548 M00S00302.symserv +++| BEGIN
00549 M00S00303.symserv +++| ZWORD[I] = 0;
00550 M00S00304.symserv +++| END
00551 M00S00305.symserv +++|
00552 M00S00306.symserv +++| END # ZFILL #
00553 M00S00307.symserv +++|
| Line S00048 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00554 M01S00048.ns2676 +++|#
00555 M01S00049.ns2676 +++| END
00556 M01S00050.ns2676 +++|#
00557 M00S00308.symserv +++| TERM
00558 M00S00309.symserv +++|PROC ZSETFET((ADDR),(LFN),(FWA),(LEN),(FETL));
| Line S00310 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00559 M01S00310.ns2676 ---|# TITLE ZSETFET - INITIALIZES A *FET*. #
| Line S00051 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00560 M01S00051.ns2676 +++|#
00561 M01S00052.ns2676 +++| IDENT ZSETFET
00562 M01S00053.ns2676 +++| TITLE ZSETFET - INITIALIZES A *FET*.
00563 M01S00054.ns2676 +++|#
00564 M00S00311.symserv +++|
00565 M00S00312.symserv +++| BEGIN # ZSETFET #
00566 M00S00313.symserv +++|
00567 M00S00314.symserv +++|#
| Line S00315 Modification History |
M01 (Removed by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00568 M01S00315.ns2676 ---|** ZSETFET - INITIALIZES A FILE ENVIRONMENT TABLE.
| Line S00055 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00569 M01S00055.ns2676 +++|*** ZSETFET - INITIALIZES A FILE ENVIRONMENT TABLE.
00570 M00S00316.symserv +++|*
00571 M00S00317.symserv +++|* THIS PROCEDURE CREATES A *FET* AT THE SPECIFIED
00572 M00S00318.symserv +++|* ADDRESS AND SETS STANDARD FIELDS. OTHER FIELDS MUST BE SET
00573 M00S00319.symserv +++|* BY THE USER.
00574 M00S00320.symserv +++|*
00575 M00S00321.symserv +++|* PROC ZSETFET((ADDR),(LFN),(FWA),(LEN),(FETL)).
00576 M00S00322.symserv +++|*
00577 M00S00323.symserv +++|* ENTRY (ADDR) - ADDRESS *FET* IS TO START AT.
00578 M00S00324.symserv +++|* (LFN) - NAME OF FILE TO BE ACCESSED.
00579 M00S00325.symserv +++|* (FWA) - FIRST WORD ADDRESS OF *CIO* BUFFER.
00580 M00S00326.symserv +++|* (LEN) - LENGTH OF THE *CIO* BUFFER.
00581 M00S00327.symserv +++|* (FETL) - LENGTH OF THE *FET*.
00582 M00S00328.symserv +++|*
00583 M00S00329.symserv +++|* EXIT *FET* IS INITIALIZED (I.E. *FIRST*, *IN*, *OUT*, AND
00584 M00S00330.symserv +++|* *LIMIT* POINTERS , AND *FET* LENGTH FIELDS ARE SET
00585 M00S00331.symserv +++|* AND THE *LFN* FIELD IS ZERO FILLED).
| Line S00056 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00586 M01S00056.ns2676 +++|
00587 M01S00057.ns2676 +++|**
00588 M00S00332.symserv +++|*
00589 M00S00333.symserv +++|* NOTES VALUES SPECIFIED BY PARAMETERS ARE PLACED IN THE
00590 M00S00334.symserv +++|* APPROPRIATE ARRAY FIELDS, AND THE POINTER OF BASED
00591 M00S00335.symserv +++|* ARRAY *FETSET* IS SET TO *ADDR*.
00592 M00S00336.symserv +++|#
00593 M00S00337.symserv +++|
00594 M00S00338.symserv +++|
00595 M00S00339.symserv +++| ITEM ADDR U; # ADDRESS OF *FET* #
00596 M00S00340.symserv +++| ITEM LFN C(7); # FILE NAME #
00597 M00S00341.symserv +++| ITEM FWA U; # *FWA* OF *CIO* BUFFER #
00598 M00S00342.symserv +++| ITEM LEN U; # LENGTH OF *CIO* BUFFER #
00599 M00S00343.symserv +++| ITEM FETL U; # LENGTH OF *FET* #
00600 M00S00344.symserv +++|
00601 M00S00345.symserv +++|#
00602 M00S00346.symserv +++|**** PROC ZSETFET - XREF LIST BEGIN.
00603 M00S00347.symserv +++|#
00604 M00S00348.symserv +++|
00605 M00S00349.symserv +++| XREF
00606 M00S00350.symserv +++| BEGIN
00607 M00S00351.symserv +++| PROC BZFILL; # ZERO OR BLANK FILLS ITEM #
00608 M00S00352.symserv +++| PROC ZFILL; # ZERO FILLS AN ARRAY #
00609 M00S00353.symserv +++| END
00610 M00S00354.symserv +++|
00611 M00S00355.symserv +++|#
00612 M00S00356.symserv +++|**** PROC ZSETFET - XREF LIST END.
00613 M00S00357.symserv +++|#
00614 M00S00358.symserv +++|
00615 M00S00359.symserv +++| DEF MINFETL #5#; # MINIMUM *FET* LENGTH #
00616 M00S00360.symserv +++|
00617 M00S00361.symserv +++| DEF LISTCON #0#; # CONTROLS LISTING OF COMDECKS #
00618 M00S00362.symserv +++|
00619 M00S00363.symserv +++|*CALL COMAMSS
00620 M00S00364.symserv +++|*CALL COMABZF
00621 M00S00365.symserv +++|*CALL COMAFET
00622 M00S00366.symserv +++|CONTROL EJECT;
00623 M00S00367.symserv +++|
00624 M00S00368.symserv +++|#
00625 M00S00369.symserv +++|* ZERO FILL *FET* AND SET STANDARD FIELDS.
00626 M00S00370.symserv +++|#
00627 M00S00371.symserv +++|
00628 M00S00372.symserv +++| P<FETSET> = ADDR;
00629 M00S00373.symserv +++| ZFILL(FETSET[0],FETL);
00630 M00S00374.symserv +++| BZFILL(LFN,TYPFILL"ZFILL",7); # ZERO-FILL FILE NAME #
00631 M00S00375.symserv +++| FET$LFN[0] = LFN;
00632 M00S00376.symserv +++| FET$LOCK[0] = TRUE;
00633 M00S00377.symserv +++| FET$FRST[0] = FWA;
00634 M00S00378.symserv +++| FET$IN[0] = FWA;
00635 M00S00379.symserv +++| FET$OUT[0] = FWA;
00636 M00S00380.symserv +++| FET$LIM[0] = FWA + LEN;
00637 M00S00381.symserv +++| FET$L[0] = FETL - MINFETL; # SET LENGTH OF *FET* #
00638 M00S00382.symserv +++| RETURN;
00639 M00S00383.symserv +++| END # ZSETFET #
00640 M00S00384.symserv +++|
| Line S00058 Modification History |
M01 (Added by) | ns2676 |
Seq # *Modification Id* Act
----------------------------+
00641 M01S00058.ns2676 +++|#
00642 M01S00059.ns2676 +++| END
00643 M01S00060.ns2676 +++|#
00644 M00S00385.symserv +++| TERM