Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.gettasv +++| IDENT GETTASV,FWA
00002 M00S00002.gettasv +++| ABS
00003 M00S00003.gettasv +++| SST
00004 M00S00004.gettasv +++| ENTRY GETTASV
00005 M00S00005.gettasv +++| ENTRY RFL=
00006 M00S00006.gettasv +++| SYSCOM B1
00007 M00S00007.gettasv +++| TITLE GETTASV - GET VSNS FOR TAPE ALTERNATE STORAGE.
00008 M00S00008.gettasv +++|*COMMENT GETTASV - GET TAPE ALTERNATE STORAGE VSN(S).
00009 M00S00009.gettasv +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1993.
00010 M00S00010.gettasv +++| GETTASV SPACE 4,10
00011 M00S00011.gettasv +++|*** GETTASV - GET TAPE ALTERNATE STORAGE VSN(S).
00012 M00S00012.gettasv +++|*
00013 M00S00013.gettasv +++|* R. E. DUNBAR. 93/10/11.
00014 M00S00014.gettasv +++| SPACE 4,10
00015 M00S00015.gettasv +++|*** *GETTASV* IS A UTILITY TO SELECT ONE OR TWO SYSTEM VSNS FOR
00016 M00S00016.gettasv +++|* USE AS TAPE ALTERNATE STORAGE (*TAS*) ARCHIVE VOLUMES IN A
00017 M00S00017.gettasv +++|* TAPE MANAGEMENT SYSTEM (*TMS*) ENVIRONMENT.
00018 M00S00018.gettasv +++| SPACE 4,20
00019 M00S00019.gettasv +++|*** COMMAND FORMAT.
00020 M00S00020.gettasv +++|*
00021 M00S00021.gettasv +++|*
00022 M00S00022.gettasv +++|* GETTASV(P1,P2,...,PN)
00023 M00S00023.gettasv +++|*
00024 M00S00024.gettasv +++|*
00025 M00S00025.gettasv +++|* *PN* MAY BE ONE OF THE FOLLOWING -
00026 M00S00026.gettasv +++|*
00027 M00S00027.gettasv +++|* PARAMETER DESCRIPTION
00028 M00S00028.gettasv +++|* --------- -----------
00029 M00S00029.gettasv +++|*
00030 M00S00030.gettasv +++|* SS=FILE LOCAL FILE NAME OF THE *TFSP* MACHINE-
00031 M00S00031.gettasv +++|* READABLE AUDIT FILE. FILE MUST BE IN THE
00032 M00S00032.gettasv +++|* FORMAT CREATED BY THE *TFSP* *MREADVS*
00033 M00S00033.gettasv +++|* DIRECTIVE. THE DEFAULT LFN IS *MREADVS*.
00034 M00S00034.gettasv +++|*
00035 M00S00035.gettasv +++|* P=PREFIX TWO-CHARACTER ALPHANUMERIC PREFIX FOR THE
00036 M00S00036.gettasv +++|* ARCHIVE VSNS. DEFAULT IS *AA*.
00037 M00S00037.gettasv +++|*
00038 M00S00038.gettasv +++|* N=VSNS NUMBER OF VOLUMES. THE DEFAULT IS *1*.
00039 M00S00039.gettasv +++|*
00040 M00S00040.gettasv +++|* N=1 ONE VOLUME IS SELECTED, WITH A VSN
00041 M00S00041.gettasv +++|* IN THE RANGE XX0000-XX4095, WHERE
00042 M00S00042.gettasv +++|* *XX* IS THE PREFIX SPECIFIED BY THE
00043 M00S00043.gettasv +++|* *P* PARAMETER.
00044 M00S00044.gettasv +++|*
00045 M00S00045.gettasv +++|* N=2 TWO VOLUMES ARE SELECTED, THE FIRST
00046 M00S00046.gettasv +++|* VSN IN THE RANGE XX0000-XX4095, AND
00047 M00S00047.gettasv +++|* A SECOND IN THE RANGE XX5000-XX9095.
00048 M00S00048.gettasv +++|* *XX* IS THE PREFIX SPECIFIED BY THE
00049 M00S00049.gettasv +++|* *P* PARAMETER. THE NUMERIC PORTION
00050 M00S00050.gettasv +++|* OF THE SECONDARY VSN IS EXACTLY 5000
00051 M00S00051.gettasv +++|* HIGHER THAN THAT OF THE PRIMARY VSN.
00052 M00S00052.gettasv +++|*
00053 M00S00053.gettasv +++|* D=DENSITY DUMP TAPE DENSITY. DEFAULT IS *GE*.
00054 M00S00054.gettasv +++|*
00055 M00S00055.gettasv +++|* D=HD/PE/GE, SELECT 9-TRACK MAGNETIC TAPE.
00056 M00S00056.gettasv +++|* D=CE, SELECT CARTRIDGE TAPE.
00057 M00S00057.gettasv +++|* D=AE, SELECT ACS CARTRIDGE TAPE.
00058 M00S00058.gettasv +++|*
00059 M00S00059.gettasv +++|* F=FORMAT DUMP TAPE FORMAT. DEFAULT IS *I*.
00060 M00S00060.gettasv +++|*
00061 M00S00061.gettasv +++|* F=I - INTERNAL FORMAT.
00062 M00S00062.gettasv +++|* F=LI - LONG BLOCK INTERNAL FORMAT.
00063 M00S00063.gettasv +++|*
00064 M00S00064.gettasv +++|* T=LFN1 DESTAGE TAPE LFN. THE DEFAULT IS *TAPE*.
00065 M00S00065.gettasv +++|* THE LOCAL FILE NAME FOR THE PRIMARY TAPE
00066 M00S00066.gettasv +++|* TO RECEIVE THE DESTAGED PERMANENT FILES.
00067 M00S00067.gettasv +++|*
00068 M00S00068.gettasv +++|* VF=LFN2 VERIFY TAPE LFN. THE DEFAULT IS *PFVER*.
00069 M00S00069.gettasv +++|* THE LOCAL FILE NAME FOR THE SECONDARY
00070 M00S00070.gettasv +++|* TAPE TO RECEIVE BACKUP COPIES OF THE
00071 M00S00071.gettasv +++|* DESTAGED PERMANENT FILES.
00072 M00S00072.gettasv +++|*
00073 M00S00073.gettasv +++|* C=ALTCMD ALTERNATE COMMAND. DEFAULT IS *SETTASV*.
00074 M00S00074.gettasv +++|* THE COMMAND NAME TO BE USED IN AN *EXCST*
00075 M00S00075.gettasv +++|* CALL TO PASS THE TAPE DENSITY, FORMAT AND
00076 M00S00076.gettasv +++|* SELECTED VSN(S) ON FOR FURTHER PROCESSING.
00077 M00S00077.gettasv +++|* *ALTCMD* MUST BE A PROGRAM OR PROCEDURE ON
00078 M00S00078.gettasv +++|* THE SYSTEM LIBRARY OR AVAILABLE TO THE JOB
00079 M00S00079.gettasv +++|* AS A LOCAL FILE OR IN A GLOBAL LIBRARY. IT
00080 M00S00080.gettasv +++|* IS EXECUTED VIA *EXCST* AS FOLLOWS.
00081 M00S00081.gettasv +++|*
00082 M00S00082.gettasv +++|* ALTCMD(DENSITY,FORMAT,VSN1,,LFN1)
00083 M00S00083.gettasv +++|*
00084 M00S00084.gettasv +++|* OR
00085 M00S00085.gettasv +++|*
00086 M00S00086.gettasv +++|* ALTCMD(DENSITY,FORMAT,VSN1,VSN2,LFN1,LFN2)
00087 M00S00087.gettasv +++|*
00088 M00S00088.gettasv +++|* THE PROGRAM OR PROCEDURE CALLED MUST BE
00089 M00S00089.gettasv +++|* ABLE TO ACCEPT SIX POSITIONAL PARAMETERS
00090 M00S00090.gettasv +++|* AS SHOWN IN THE ORDER SHOWN.
00091 M00S00091.gettasv +++| TITLE DAYFILE MESSAGES.
00092 M00S00092.gettasv +++| SPACE 4,20
00093 M00S00093.gettasv +++|*** DAYFILE MESSAGES.
00094 M00S00094.gettasv +++|*
00095 M00S00095.gettasv +++|* * ALTERNATE COMMAND INCORRECT.* - THE ALTERNATE COMMAND
00096 M00S00096.gettasv +++|* SPECIFIED WITH THE *C* PARAMETER DOES NOT MEET THE
00097 M00S00097.gettasv +++|* REQUIREMENTS FOR A *NOS* COMMAND NAME. IT MUST BE
00098 M00S00098.gettasv +++|* SEVEN OR FEWER ALPHANUMERIC CHARACTERS.
00099 M00S00099.gettasv +++|*
00100 M00S00100.gettasv +++|* * AUDIT FILE IS EMPTY OR MISPOSITIONED.* - END OF
00101 M00S00101.gettasv +++|* FILE OR END OF RECORD WAS DETECTED ON THE FIRST READ
00102 M00S00102.gettasv +++|* OF THE *TFSP* MACHINE-READABLE AUDIT FILE.
00103 M00S00103.gettasv +++|*
00104 M00S00104.gettasv +++|* * AUDIT FILE IS WRONG VERSION OR MISPOSITIONED.* - THE AUDIT
00105 M00S00105.gettasv +++|* FILE FILE VERSION NUMBER DOES NOT MATCH THE VERSION
00106 M00S00106.gettasv +++|* NUMBER *GETTASV* IS PREPARED TO PROCESS.
00107 M00S00107.gettasv +++|*
00108 M00S00108.gettasv +++|* * GETTASV ABORTED.* - *GETTASV* HAS DETECTED AN ERROR OR
00109 M00S00109.gettasv +++|* THE USER HAS INITIATED AN ABORT.
00110 M00S00110.gettasv +++|*
00111 M00S00111.gettasv +++|* * GETTASV ARGUMENT ERROR.* - AN INCORRECT ARGUMENT WAS
00112 M00S00112.gettasv +++|* DETECTED ON THE *GETTASV* COMMAND. THE ARGUMENT WAS
00113 M00S00113.gettasv +++|* EITHER TOO LARGE OR NOT AN ACCEPTABLE *NOS* FORMAT.
00114 M00S00114.gettasv +++|*
00115 M00S00115.gettasv +++|* * GETTASV COMPLETE.* - NORMAL COMPLETION. THE REQUESTED
00116 M00S00116.gettasv +++|* VOLUMES HAVE BEEN SELECTED.
00117 M00S00117.gettasv +++|*
00118 M00S00118.gettasv +++|* * NO PRIMARY OR SECONDARY VSNS AVAILABLE.* - *GETTASV*
00119 M00S00119.gettasv +++|* FOUND NEITHER PRIMARY NOR SECONDARY VSNS AVAILABLE
00120 M00S00120.gettasv +++|* WITH THE PREFIX SPECIFIED.
00121 M00S00121.gettasv +++|*
00122 M00S00122.gettasv +++|* * PRIMARY LFN INCORRECT.* - THE PRIMARY DESTAGE TAPE LFN
00123 M00S00123.gettasv +++|* SPECIFIED WITH THE *T* PARAMETER DOES NOT MEET THE
00124 M00S00124.gettasv +++|* REQUIREMENTS FOR A *NOS* LOCAL FILE NAME. IT MUST
00125 M00S00125.gettasv +++|* BE SEVEN OR FEWER ALPHANUMERIC CHARACTERS.
00126 M00S00126.gettasv +++|*
00127 M00S00127.gettasv +++|* * PRIMARY VSN NOT AVAILABLE.* - *GETTASV* COULD NOT FIND AN
00128 M00S00128.gettasv +++|* AVAILABLE PRIMARY VSN WITH THE PREFIX SPECIFIED.
00129 M00S00129.gettasv +++|*
00130 M00S00130.gettasv +++|* * PRIMARY/SECONDARY VSN SET NOT AVAILABLE.* - *GETTASV* FOUND
00131 M00S00131.gettasv +++|* AVAILABLE PRIMARY AND SECONDARY VSNS WITH THE PREFIX
00132 M00S00132.gettasv +++|* SPECIFIED, BUT NO MATCHING PAIR.
00133 M00S00133.gettasv +++|*
00134 M00S00134.gettasv +++|* * SECONDARY LFN INCORRECT.* - THE SECONDARY DESTAGE TAPE LFN
00135 M00S00135.gettasv +++|* SPECIFIED WITH THE *VF* PARAMETER DOES NOT MEET THE
00136 M00S00136.gettasv +++|* REQUIREMENTS FOR A *NOS* LOCAL FILE NAME. IT MUST
00137 M00S00137.gettasv +++|* BE SEVEN OR FEWER ALPHANUMERIC CHARACTERS.
00138 M00S00138.gettasv +++|*
00139 M00S00139.gettasv +++|* * SECONDARY VSN NOT AVAILABLE.* - *GETTASV* COULD NOT FIND AN
00140 M00S00140.gettasv +++|* AVAILABLE SECONDARY VSN WITH THE PREFIX SPECIFIED.
00141 M00S00141.gettasv +++|*
00142 M00S00142.gettasv +++|* * TAPE DENSITY NOT RECOGNIZED.* - THE VALUE SPECIFIED FOR THE
00143 M00S00143.gettasv +++|* *D* PARAMETER DOES NOT MATCH ANY KNOWN TAPE DENSITY.
00144 M00S00144.gettasv +++|*
00145 M00S00145.gettasv +++|* * TAPE FORMAT NOT RECOGNIZED.* - THE VALUE SPECIFIIED FOR
00146 M00S00146.gettasv +++|* THE *F* PARAMETER IS NOT ONE OF THE TAPE FORMATS
00147 M00S00147.gettasv +++|* ALLOWED FOR TAPE ALTERNATE STORAGE PURPOSES.
00148 M00S00148.gettasv +++|*
00149 M00S00149.gettasv +++|* * VSN PREFIX INCORRECT.* - THE VALUE SPECIFIED ON THE *P*
00150 M00S00150.gettasv +++|* PARAMETER IS NOT TWO ALPHANUMERIC CHARACTERS.
00151 M00S00151.gettasv +++| TITLE COMMON DECKS.
00152 M00S00152.gettasv +++| SPACE 4,10
00153 M00S00153.gettasv +++|* COMMON DECKS.
00154 M00S00154.gettasv +++|
00155 M00S00155.gettasv +++|
00156 M00S00156.gettasv +++|*CALL COMCCMD
00157 M00S00157.gettasv +++|*CALL COMCMAC
00158 M00S00158.gettasv +++|
00159 M00S00159.gettasv +++|* BUFFER SIZE DEFINITIONS.
00160 M00S00160.gettasv +++|
00161 M00S00161.gettasv +++| OBUFL EQU 1001B OUTPUT FILE BUFFER LENGTH
00162 M00S00162.gettasv +++| ABUFL EQU 1001B AUDIT FILE BUFFER LENGTH
00163 M00S00163.gettasv +++| ARECL EQU 24 AUDIT FILE RECORD LENGTH
00164 M00S00164.gettasv +++| TITLE TABLES.
00165 M00S00165.gettasv +++| FWA SPACE 4,10
00166 M00S00166.gettasv +++| ORG 110B
00167 M00S00167.gettasv +++| FWA EQU * PROGRAM ORIGIN
00168 M00S00168.gettasv +++| TITLE COMMAND ARGUMENT VARIABLES.
00169 M00S00169.gettasv +++|* COMMAND ARGUMENT VARIABLES.
00170 M00S00170.gettasv +++| ARGS SPACE 4,10
00171 M00S00171.gettasv +++| ACMD DATA C*SETTASV* ALTERNATE COMMAND PARAMETER
00172 M00S00172.gettasv +++| DENS DATA C*GE* DENSITY PARAMETER
00173 M00S00173.gettasv +++| ERFL CON 0 ERROR FLAG IF NONZERO
00174 M00S00174.gettasv +++| FRMT DATA C*I* TAPE FORMAT PARAMETER
00175 M00S00175.gettasv +++| LFN1 DATA C*TAPE* PRIMARY DESTAGE TAPE LFN
00176 M00S00176.gettasv +++| LFN2 DATA C*PFVER* SECONDARY DESTAGE TAPE LFN
00177 M00S00177.gettasv +++| MAXV VFD 12/0,24/4L4095,24/0 HIGHEST ALLOWABLE PRIMARY VSN
00178 M00S00178.gettasv +++| NVSN DATA C*1* NUMBER OF VSNS PARAMETER
00179 M00S00179.gettasv +++| PRFX DATA C*AA* PREFIX PARAMETER
00180 M00S00180.gettasv +++| TTYP DATA C*MTNT* *TMS* TAPE TYPE
00181 M00S00181.gettasv +++| VSEC CON 0 SECONDARY VSN FOUND IF NON-ZERO
00182 M00S00182.gettasv +++| TITLE ERROR MESSAGES.
00183 M00S00183.gettasv +++|* ERROR MESSAGES.
00184 M00S00184.gettasv +++| SPACE 4,10
00185 M00S00185.gettasv +++| ERAE DATA C* AUDIT FILE IS EMPTY OR MISPOSITIONED.*
00186 M00S00186.gettasv +++| ERAV DATA C* AUDIT FILE IS WRONG VERSION OR MISPOSITIONED.*
00187 M00S00187.gettasv +++| ERVE DATA C* NO PRIMARY OR SECONDARY VSNS AVAILABLE.*
00188 M00S00188.gettasv +++| ERVF DATA C* SECONDARY LFN INCORRECT.*
00189 M00S00189.gettasv +++| ERVM DATA C* PRIMARY/SECONDARY VSN SET NOT AVAILABLE.*
00190 M00S00190.gettasv +++| ERVP DATA C* PRIMARY VSN NOT AVAILABLE.*
00191 M00S00191.gettasv +++| ERVS DATA C* SECONDARY VSN NOT AVAILABLE.*
00192 M00S00192.gettasv +++| TITLE MAIN PROGRAM.
00193 M00S00193.gettasv +++| GETTASV SPACE 4,15
00194 M00S00194.gettasv +++|** GETTASV - MAIN PROGRAM.
00195 M00S00195.gettasv +++|*
00196 M00S00196.gettasv +++|* CALLS CAP, PRS, SNM.
00197 M00S00197.gettasv +++|*
00198 M00S00198.gettasv +++|* MACROS MESSAGE, READ, READC.
00199 M00S00199.gettasv +++|
00200 M00S00200.gettasv +++|
00201 M00S00201.gettasv +++| GETTASV BSS 0 ENTRY
00202 M00S00202.gettasv +++| RJ PRS PRESET
00203 M00S00203.gettasv +++| READ SS,R READ FIRST AUDIT RECORD
00204 M00S00204.gettasv +++| READC SS,AREC,ARECL
00205 M00S00205.gettasv +++| SX5 ERAE * AUDIT FILE IS EMPTY OR MISPOSITIONED.*
00206 M00S00206.gettasv +++| NZ X1,ABT IF EOR/EOF/EOI ON FIRST READ
00207 M00S00207.gettasv +++| SA1 AREC
00208 M00S00208.gettasv +++| MX6 -6
00209 M00S00209.gettasv +++| LX1 6
00210 M00S00210.gettasv +++| BX6 -X6*X1
00211 M00S00211.gettasv +++| SX6 X6-1R2 CHECK FOR CORRECT AUDIT FILE VERSION
00212 M00S00212.gettasv +++| ZR X6,GET2 IF CORRECT VERSION
00213 M00S00213.gettasv +++| SX5 ERAV * AUDIT FILE IS WRONG VERSION OR MISPOS..*
00214 M00S00214.gettasv +++| EQ ABT ABORT JOB
00215 M00S00215.gettasv +++|
00216 M00S00216.gettasv +++|* READ AN AUDIT RECORD.
00217 M00S00217.gettasv +++|
00218 M00S00218.gettasv +++| GET1 READC SS,AREC,ARECL READ AUDIT RECORD
00219 M00S00219.gettasv +++| NZ X1,GET6 IF EOR/EOF/EOI
00220 M00S00220.gettasv +++|
00221 M00S00221.gettasv +++|* CHECK FOR A USER NAME ASSOCIATED WITH THIS VSN.
00222 M00S00222.gettasv +++|
00223 M00S00223.gettasv +++| GET2 SA1 AREC
00224 M00S00224.gettasv +++| MX0 -12
00225 M00S00225.gettasv +++| SA2 A1+1
00226 M00S00226.gettasv +++| BX6 -X0*X1
00227 M00S00227.gettasv +++| BX2 X0*X2
00228 M00S00228.gettasv +++| BX6 X2+X6
00229 M00S00229.gettasv +++| SA3 =10H
00230 M00S00230.gettasv +++| BX6 X3-X6
00231 M00S00231.gettasv +++| NZ X6,GET1 IF ASSIGNED TO A USER
00232 M00S00232.gettasv +++|
00233 M00S00233.gettasv +++|* CHECK FOR AVAILABLE, ON-SITE, CENTER-OWNED SYSTEM VSN.
00234 M00S00234.gettasv +++|
00235 M00S00235.gettasv +++| SA1 AREC+18
00236 M00S00236.gettasv +++| SA2 =6LVAILON
00237 M00S00237.gettasv +++| BX6 X1-X2
00238 M00S00238.gettasv +++| AX6 24
00239 M00S00239.gettasv +++| NZ X6,GET1 IF NOT AVAILABLE OR OFF SITE
00240 M00S00240.gettasv +++| SX6 X1-3RCEN
00241 M00S00241.gettasv +++| NZ X6,GET1 IF NOT CENTER-OWNED TAPE
00242 M00S00242.gettasv +++| SA1 AREC+22
00243 M00S00243.gettasv +++| LX1 -6
00244 M00S00244.gettasv +++| SX6 X1-3RYES
00245 M00S00245.gettasv +++| NZ X6,GET1 IF NOT SYSTEM TAPE
00246 M00S00246.gettasv +++|
00247 M00S00247.gettasv +++|* CHECK FOR NON-RESERVED TAPE.
00248 M00S00248.gettasv +++|
00249 M00S00249.gettasv +++| SA2 =1LN
00250 M00S00250.gettasv +++| MX0 6
00251 M00S00251.gettasv +++| LX1 24
00252 M00S00252.gettasv +++| BX2 X1-X2
00253 M00S00253.gettasv +++| BX6 X0*X2
00254 M00S00254.gettasv +++| NZ X6,GET1 IF TAPE IS RESERVED
00255 M00S00255.gettasv +++|
00256 M00S00256.gettasv +++|* CHECK FOR CORRECT TAPE TYPE (AT, CT, MTNT).
00257 M00S00257.gettasv +++|
00258 M00S00258.gettasv +++| LX1 -18
00259 M00S00259.gettasv +++| MX0 -6
00260 M00S00260.gettasv +++| BX2 -X0*X1
00261 M00S00261.gettasv +++| SA1 A1+1
00262 M00S00262.gettasv +++| MX0 18
00263 M00S00263.gettasv +++| BX1 X0*X1
00264 M00S00264.gettasv +++| BX1 X1+X2
00265 M00S00265.gettasv +++| LX1 54
00266 M00S00266.gettasv +++| SA2 TTYP
00267 M00S00267.gettasv +++| BX6 X1-X2
00268 M00S00268.gettasv +++| NZ X6,GET1 IF NOT CORRECT TAPE TYPE
00269 M00S00269.gettasv +++|
00270 M00S00270.gettasv +++|* CHECK THAT *VSN* AND *PRN* MATCH.
00271 M00S00271.gettasv +++|
00272 M00S00272.gettasv +++| SA1 AREC+15
00273 M00S00273.gettasv +++| MX0 -6*5
00274 M00S00274.gettasv +++| BX6 -X0*X1 UPPER 5 OF *VSN*
00275 M00S00275.gettasv +++| SA1 A1+1
00276 M00S00276.gettasv +++| MX0 6
00277 M00S00277.gettasv +++| BX7 X0*X1 LOWER 1 OF *VSN*
00278 M00S00278.gettasv +++| BX1 X1-X7 REMOVE UPPER CHARACTER
00279 M00S00279.gettasv +++| BX6 X6+X7 MERGE UPPER 5 AND LOWER 1 OF *VSN*
00280 M00S00280.gettasv +++| MX0 6*7
00281 M00S00281.gettasv +++| LX6 6*5 LEFT JUSTIFY *VSN*
00282 M00S00282.gettasv +++| BX5 X0*X1 ISOLATE *PRN*
00283 M00S00283.gettasv +++| LX5 6 LEFT JUSTIFY *PRN*
00284 M00S00284.gettasv +++| BX7 X5-X6
00285 M00S00285.gettasv +++| NZ X7,GET1 IF *VSN* AND *PRN* DO NOT AGREE
00286 M00S00286.gettasv +++|
00287 M00S00287.gettasv +++|* (X5) = (X6) = VSN.
00288 M00S00288.gettasv +++|
00289 M00S00289.gettasv +++| SA2 PRFX
00290 M00S00290.gettasv +++| BX7 X2-X6
00291 M00S00291.gettasv +++| AX7 48
00292 M00S00292.gettasv +++| NZ X7,GET1 IF PREFIX DOES NOT MATCH
00293 M00S00293.gettasv +++| SA2 GETA PATTERN FOR PRIMARY VSN
00294 M00S00294.gettasv +++| SB2 6 MUST BE 6 CHARACTERS
00295 M00S00295.gettasv +++| RJ CAP CHECK FOR ALLOWED PATTERN
00296 M00S00296.gettasv +++| BX5 X6 RESTORE VSN
00297 M00S00297.gettasv +++| NZ X1,GET3 IF WRONG PATTERN FOR PRIMARY VSN
00298 M00S00298.gettasv +++| SA1 MAXV
00299 M00S00299.gettasv +++| LX6 6*6
00300 M00S00300.gettasv +++| IX1 X1-X6
00301 M00S00301.gettasv +++| NG X1,GET1 IF NUMERIC PORTION EXCEEDS 4095
00302 M00S00302.gettasv +++| SB5 GETC POINT TO COMMAND TO BE EXECUTED
00303 M00S00303.gettasv +++| SA1 NVSN
00304 M00S00304.gettasv +++| ZR X1,GET5 IF ONLY ONE VSN NEEDED
00305 M00S00305.gettasv +++| SA1 TVSN
00306 M00S00306.gettasv +++| SX7 X1+1 INCREMENT VSN COUNT
00307 M00S00307.gettasv +++| SA6 TVSN+X7 SAVE VSN IN TABLE
00308 M00S00308.gettasv +++| SA7 A1
00309 M00S00309.gettasv +++| MX6 0 SET TABLE TERMINATE
00310 M00S00310.gettasv +++| SA6 A6+B1
00311 M00S00311.gettasv +++| EQ GET1 PROCESS NEXT AUDIT RECORD
00312 M00S00312.gettasv +++|
00313 M00S00313.gettasv +++| GET3 SA2 GETB PATTERN FOR SECONDARY VSN
00314 M00S00314.gettasv +++| SB2 6 MUST BE 6 CHARACTERS
00315 M00S00315.gettasv +++| RJ CAP CHECK FOR ALLOWED PATTERN
00316 M00S00316.gettasv +++| NZ X1,GET1 IF WRONG PATTERN FOR SECONDARY VSN
00317 M00S00317.gettasv +++| SA1 NVSN
00318 M00S00318.gettasv +++| SX5 ERVP * PRIMARY VSN NOT AVAILABLE.*
00319 M00S00319.gettasv +++| ZR X1,ABT IF PRIMARY VSN NEEDED AND NOT FOUND
00320 M00S00320.gettasv +++| LX6 6*6 RIGHT JUSTIFY SECONDARY VSN
00321 M00S00321.gettasv +++| SX0 5
00322 M00S00322.gettasv +++| LX0 18
00323 M00S00323.gettasv +++| IX0 X6-X0 PRIMARY VSN TO LOOK FOR
00324 M00S00324.gettasv +++| SA2 MAXV
00325 M00S00325.gettasv +++| IX2 X2-X0
00326 M00S00326.gettasv +++| NG X2,GET1 IF NUMERIC PORTION EXCEEDS 9095
00327 M00S00327.gettasv +++| SA6 VSEC FLAG QUALIFYING SECONDARY VSN FOUND
00328 M00S00328.gettasv +++| SA1 TVSN
00329 M00S00329.gettasv +++| ZR X1,ABT IF NO ENTRIES IN VSN TABLE
00330 M00S00330.gettasv +++| GET4 SA1 A1+B1
00331 M00S00331.gettasv +++| ZR X1,GET1 IF NO MORE ENTRIES
00332 M00S00332.gettasv +++| BX7 X0-X1
00333 M00S00333.gettasv +++| NZ X7,GET4 IF NO MATCH
00334 M00S00334.gettasv +++|
00335 M00S00335.gettasv +++|* (X1) = PRIMARY VSN, (X6) = SECONDARY VSN.
00336 M00S00336.gettasv +++|
00337 M00S00337.gettasv +++| SB2 4*6
00338 M00S00338.gettasv +++| LX5 X1,B2 SAVE AND LEFT JUSTIFY PRIMARY VSN
00339 M00S00339.gettasv +++| LX1 X6,B2 LEFT JUSTIFY SECONDARY VSN
00340 M00S00340.gettasv +++| SB2 1R#
00341 M00S00341.gettasv +++| SB5 GETD
00342 M00S00342.gettasv +++| RJ SNM SET SECONDARY VSN INTO COMMAND
00343 M00S00343.gettasv +++| SA1 LFN2
00344 M00S00344.gettasv +++| SB2 1R>
00345 M00S00345.gettasv +++| RJ SNM SET SECONDARY LFN INTO COMMAND
00346 M00S00346.gettasv +++|
00347 M00S00347.gettasv +++|* (X5) = PRIMARY VSN.
00348 M00S00348.gettasv +++|
00349 M00S00349.gettasv +++| GET5 SB2 1R+
00350 M00S00350.gettasv +++| BX1 X5
00351 M00S00351.gettasv +++| RJ SNM SET PRIMARY VSN INTO COMMAND
00352 M00S00352.gettasv +++| SA1 LFN1
00353 M00S00353.gettasv +++| SB2 1R<
00354 M00S00354.gettasv +++| RJ SNM SET PRIMARY LFN INTO COMMAND
00355 M00S00355.gettasv +++| SA1 FRMT
00356 M00S00356.gettasv +++| SB2 1R&
00357 M00S00357.gettasv +++| RJ SNM SET TAPE FORMAT INTO COMMAND
00358 M00S00358.gettasv +++| SA1 DENS
00359 M00S00359.gettasv +++| SB2 1R/
00360 M00S00360.gettasv +++| RJ SNM SET TAPE DENSITY INTO COMMAND
00361 M00S00361.gettasv +++| SA1 ACMD
00362 M00S00362.gettasv +++| SB2 1R-
00363 M00S00363.gettasv +++| RJ SNM SET COMMAND NAME INTO COMMAND
00364 M00S00364.gettasv +++| MESSAGE GETE,3,R * GETTASV COMPLETE.*
00365 M00S00365.gettasv +++| EXCST B5 EXECUTE CONTROL STATEMENT
00366 M00S00366.gettasv +++| ENDRUN
00367 M00S00367.gettasv +++|
00368 M00S00368.gettasv +++|* AUDIT FILE IS EXHAUSTED AND NO SELECTION HAS BEEN MADE.
00369 M00S00369.gettasv +++|* DETERMINE WHY AND ABORT WITH APPROPRIATE ERROR MESSAGE.
00370 M00S00370.gettasv +++|
00371 M00S00371.gettasv +++| GET6 SA1 NVSN
00372 M00S00372.gettasv +++| SX5 ERVP * PRIMARY VSN NOT AVAILABLE.*
00373 M00S00373.gettasv +++| ZR X1,ABT IF NO PRIMARY VSN FOUND
00374 M00S00374.gettasv +++| SA1 TVSN
00375 M00S00375.gettasv +++| SX5 ERVE * NO PRIMARY OR SECONDARY VSNS AVAILABLE.*
00376 M00S00376.gettasv +++| ZR X1,ABT IF NEITHER TYPE OF VSN FOUND
00377 M00S00377.gettasv +++| SA1 VSEC
00378 M00S00378.gettasv +++| SX5 ERVS * SECONDARY VSN NOT AVAILABLE.*
00379 M00S00379.gettasv +++| ZR X1,ABT IF NO SECONDARY VSN FOUND
00380 M00S00380.gettasv +++| SX5 ERVM * PRIMARY/SECONDARY VSN SET NOT AVAILABLE*
00381 M00S00381.gettasv +++| EQ ABT
00382 M00S00382.gettasv +++|
00383 M00S00383.gettasv +++|
00384 M00S00384.gettasv +++| GETA VFD 18/442333B,42/0 PRIMARY VSN PATTERN
00385 M00S00385.gettasv +++| GETB VFD 18/443333B,42/0 SECONDARY VSN PATTERN
00386 M00S00386.gettasv +++| GETC DATA C*-------(////,&&,++++++,,<<<<<<<)*
00387 M00S00387.gettasv +++| GETD DATA C*-------(////,&&,++++++,######,<<<<<<<,>>>>>>>)*
00388 M00S00388.gettasv +++| GETE DATA C* GETTASV COMPLETE.*
00389 M00S00389.gettasv +++| TITLE SUBROUTINES.
00390 M00S00390.gettasv +++| ABT SPACE 4,10
00391 M00S00391.gettasv +++|** ABT - ABORT PROCESSING.
00392 M00S00392.gettasv +++|*
00393 M00S00393.gettasv +++|* ENTRY (X5) = ADDRESS OF ERROR MESSAGE.
00394 M00S00394.gettasv +++|*
00395 M00S00395.gettasv +++|* EXIT ALL FILES RETURNED.
00396 M00S00396.gettasv +++|* ERROR MESSAGES ISSUED.
00397 M00S00397.gettasv +++|* *GETTASV* ABORTED.
00398 M00S00398.gettasv +++|*
00399 M00S00399.gettasv +++|* MACROS ABORT, MESSAGE, WRITEC, WRITER.
00400 M00S00400.gettasv +++|
00401 M00S00401.gettasv +++|
00402 M00S00402.gettasv +++| ABT BSS 0 ENTRY
00403 M00S00403.gettasv +++| MESSAGE X5,,R ISSUE ERROR MESSAGE
00404 M00S00404.gettasv +++| WRITEC O,X5
00405 M00S00405.gettasv +++|
00406 M00S00406.gettasv +++|* ENTER HERE FROM PRESET IF ERRORS DETECTED.
00407 M00S00407.gettasv +++|
00408 M00S00408.gettasv +++| ABT1 WRITER OUTPUT,R
00409 M00S00409.gettasv +++| MESSAGE ABTA,,R * GETTASV ABORTED.*
00410 M00S00410.gettasv +++| ABORT ABORT
00411 M00S00411.gettasv +++|
00412 M00S00412.gettasv +++|
00413 M00S00413.gettasv +++| ABTA DATA C* GETTASV ABORTED.*
00414 M00S00414.gettasv +++| CAP SPACE 4,30
00415 M00S00415.gettasv +++|** CAP - CHECK FOR ALLOWABLE PATTERNS.
00416 M00S00416.gettasv +++|*
00417 M00S00417.gettasv +++|* CHECK PARAMETERS FOR ALLOWABLE CHARACTER PATTERNS.
00418 M00S00418.gettasv +++|*
00419 M00S00419.gettasv +++|* ENTRY (X5) = PARAMETER, LEFT JUSTIFIED ZERO FILLED.
00420 M00S00420.gettasv +++|* (X2) = PATTERN, LEFT JUSTIFIED ZERO FILLED. PATTERN
00421 M00S00421.gettasv +++|* CONSISTS OF ONE OCTAL DIGIT FOR EACH CHARACTER
00422 M00S00422.gettasv +++|* POSITION OF THE PARAMETER. EACH OCTAL DIGIT
00423 M00S00423.gettasv +++|* INDICATES THE CHARACTERS THAT ARE VALID FOR
00424 M00S00424.gettasv +++|* THAT CHARACTER POSITION, AS FOLLOWS.
00425 M00S00425.gettasv +++|*
00426 M00S00426.gettasv +++|* 0 - ANY CHARACTER.
00427 M00S00427.gettasv +++|* 1 - CHARACTERS A THROUGH Z.
00428 M00S00428.gettasv +++|* 2 - DIGITS 0 THROUGH 4.
00429 M00S00429.gettasv +++|* 3 - DIGITS 0 THROUGH 9.
00430 M00S00430.gettasv +++|* 4 - CHARACTERS A THROUGH Z, DIGITS 0 THROUGH 9.
00431 M00S00431.gettasv +++|* 5 - NO CHARACTER IS VALID.
00432 M00S00432.gettasv +++|*
00433 M00S00433.gettasv +++|* (B2) = MINIMUM NUMBER OF 6-BIT CHARACTERS.
00434 M00S00434.gettasv +++|*
00435 M00S00435.gettasv +++|* EXIT (X1) = 0 IF PARAMETER MATCHES PATTERN.
00436 M00S00436.gettasv +++|* (X1) .NE. 0 IF PARAMETER DOES NOT MATCH PATTERN.
00437 M00S00437.gettasv +++|*
00438 M00S00438.gettasv +++|* USES X - 1, 2, 4, 5.
00439 M00S00439.gettasv +++|* A - 1.
00440 M00S00440.gettasv +++|* B - 2, 3, 4.
00441 M00S00441.gettasv +++|
00442 M00S00442.gettasv +++|
00443 M00S00443.gettasv +++| CAP3 SX1 B2+ CHECK MINIMUM CHARACTER COUNT
00444 M00S00444.gettasv +++|
00445 M00S00445.gettasv +++|
00446 M00S00446.gettasv +++| CAP SUBR ENTRY/EXIT
00447 M00S00447.gettasv +++| CAP1 LX5 6
00448 M00S00448.gettasv +++| MX1 -6
00449 M00S00449.gettasv +++| BX1 -X1*X5
00450 M00S00450.gettasv +++| BX5 X5-X1
00451 M00S00451.gettasv +++| ZR X1,CAP3 IF ALL CHARACTERS CHECKED
00452 M00S00452.gettasv +++| SB4 X1
00453 M00S00453.gettasv +++| LX2 3
00454 M00S00454.gettasv +++| SX1 X2 INDEX TO PATTERNS
00455 M00S00455.gettasv +++| ZR X1,CAP2 IF NO RESTRICTION ON THIS CHARACTER
00456 M00S00456.gettasv +++| BX2 X2-X1
00457 M00S00457.gettasv +++| LX1 2 PATTERN INDEX * 4
00458 M00S00458.gettasv +++| SB3 X1
00459 M00S00459.gettasv +++| LX1 1 PATTERN INDEX * 8
00460 M00S00460.gettasv +++| SB3 B3+X1 PATTERN INDEX * 12
00461 M00S00461.gettasv +++| SA1 CAPA
00462 M00S00462.gettasv +++| MX4 -6
00463 M00S00463.gettasv +++| LX1 X1,B3
00464 M00S00464.gettasv +++| BX4 -X4*X1
00465 M00S00465.gettasv +++| SB3 X4
00466 M00S00466.gettasv +++| GT B4,B3,CAPX IF CHARACTER OUT OF RANGE
00467 M00S00467.gettasv +++| MX4 -6
00468 M00S00468.gettasv +++| LX1 -6
00469 M00S00469.gettasv +++| BX4 -X4*X1
00470 M00S00470.gettasv +++| SB3 X4
00471 M00S00471.gettasv +++| LT B4,B3,CAPX IF CHARACTER OUT OF RANGE
00472 M00S00472.gettasv +++| CAP2 ZR B2,CAP1 IF MINIMUM SIZE REACHED
00473 M00S00473.gettasv +++| SB2 B2-1
00474 M00S00474.gettasv +++| EQ CAP1 CONTINUE WITH NEXT CHARACTER
00475 M00S00475.gettasv +++|
00476 M00S00476.gettasv +++|
00477 M00S00477.gettasv +++| CAPA VFD 12/2LAZ,12/2L04,12/2L09,12/2LA9,12/2L10
00478 M00S00478.gettasv +++| TITLE COMMON DECKS.
00479 M00S00479.gettasv +++| SPACE 4,10
00480 M00S00480.gettasv +++|* COMMON DECKS.
00481 M00S00481.gettasv +++|
00482 M00S00482.gettasv +++|
00483 M00S00483.gettasv +++|*CALL COMCCIO
00484 M00S00484.gettasv +++|*CALL COMCCPM
00485 M00S00485.gettasv +++|*CALL COMCRDC
00486 M00S00486.gettasv +++|*CALL COMCRDW
00487 M00S00487.gettasv +++|*CALL COMCSNM
00488 M00S00488.gettasv +++|*CALL COMCSYS
00489 M00S00489.gettasv +++|*CALL COMCWTC
00490 M00S00490.gettasv +++|*CALL COMCWTW
00491 M00S00491.gettasv +++| TITLE FILE ENVIRONMENT TABLES.
00492 M00S00492.gettasv +++| FETS SPACE 4,10
00493 M00S00493.gettasv +++|* FETS.
00494 M00S00494.gettasv +++|
00495 M00S00495.gettasv +++|
00496 M00S00496.gettasv +++| O BSS 0 OUTPUT FILE
00497 M00S00497.gettasv +++| OUTPUT FILEB OBUF,OBUFL
00498 M00S00498.gettasv +++| SS BSS 0 AUDIT FILE
00499 M00S00499.gettasv +++| MREADVS FILEB ABUF,ABUFL
00500 M00S00500.gettasv +++| SPACE 4,10
00501 M00S00501.gettasv +++|* BUFFERS AND LARGE TABLES.
00502 M00S00502.gettasv +++|
00503 M00S00503.gettasv +++| TVSN CON 0 TVSN TABLE - FIRST WORD IS COUNT
00504 M00S00504.gettasv +++| AREC EQU TVSN+4098 AUDIT FILE RECORD BUFFER
00505 M00S00505.gettasv +++| ABUF EQU AREC+ARECL AUDIT FILE BUFFER
00506 M00S00506.gettasv +++| OBUF EQU ABUF+ABUFL OUTPUT FILE BUFFER
00507 M00S00507.gettasv +++|
00508 M00S00508.gettasv +++| RFL= EQU OBUF+OBUFL SET INITIAL FIELD LENGTH
00509 M00S00509.gettasv +++| TITLE PRS - PRESET ROUTINES.
00510 M00S00510.gettasv +++| ORG TVSN+1
00511 M00S00511.gettasv +++| PRS SPACE 4,20
00512 M00S00512.gettasv +++|** PRS - PRESET PROGRAM.
00513 M00S00513.gettasv +++|*
00514 M00S00514.gettasv +++|* CALLS ARG, CAP.
00515 M00S00515.gettasv +++|*
00516 M00S00516.gettasv +++|* MACROS MESSAGE.
00517 M00S00517.gettasv +++|
00518 M00S00518.gettasv +++|
00519 M00S00519.gettasv +++| PRS SUBR ENTRY/EXIT
00520 M00S00520.gettasv +++| SB1 1
00521 M00S00521.gettasv +++|
00522 M00S00522.gettasv +++|* CRACK PARAMETERS FROM COMMAND.
00523 M00S00523.gettasv +++|
00524 M00S00524.gettasv +++| SA1 ACTR GET NUMBER OF ARGUMENTS
00525 M00S00525.gettasv +++| SB4 X1+
00526 M00S00526.gettasv +++| SA4 ARGR GET FIRST ARGUMENT
00527 M00S00527.gettasv +++| SB5 TCAT COMMAND ARGUMENT TABLE ADDRESS
00528 M00S00528.gettasv +++| RJ ARG PROCESS ARGUMENTS
00529 M00S00529.gettasv +++| SX5 PRSA * GETTASV ARGUMENT ERROR.*
00530 M00S00530.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0)
00531 M00S00531.gettasv +++|
00532 M00S00532.gettasv +++|* CHECK ALTERNATE COMMAND PARAMETER.
00533 M00S00533.gettasv +++|
00534 M00S00534.gettasv +++| SA5 ACMD
00535 M00S00535.gettasv +++| SA2 PRSC
00536 M00S00536.gettasv +++| SB2 1 MUST BE AT LEAST 1 CHARACTER
00537 M00S00537.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN
00538 M00S00538.gettasv +++| SX5 PRSD * ALTERNATE COMMAND INCORRECT.*
00539 M00S00539.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0)
00540 M00S00540.gettasv +++|
00541 M00S00541.gettasv +++|* CHECK PRIMARY LFN PARAMETER.
00542 M00S00542.gettasv +++|
00543 M00S00543.gettasv +++| SA5 LFN1
00544 M00S00544.gettasv +++| SA2 PRSC
00545 M00S00545.gettasv +++| SB2 1 MUST BE AT LEAST 1 CHARACTER
00546 M00S00546.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN
00547 M00S00547.gettasv +++| SX5 PRSI * PRIMARY LFN INCORRECT.*
00548 M00S00548.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0)
00549 M00S00549.gettasv +++|
00550 M00S00550.gettasv +++|* CHECK SECONDARY LFN PARAMETER.
00551 M00S00551.gettasv +++|
00552 M00S00552.gettasv +++| SA5 LFN2
00553 M00S00553.gettasv +++| SA2 PRSC
00554 M00S00554.gettasv +++| SB2 1 MUST BE AT LEAST 1 CHARACTER
00555 M00S00555.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN
00556 M00S00556.gettasv +++| SX5 ERVF * SECONDARY LFN INCORRECT.*
00557 M00S00557.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0)
00558 M00S00558.gettasv +++|
00559 M00S00559.gettasv +++|* CHECK PREFIX PARAMETER.
00560 M00S00560.gettasv +++|
00561 M00S00561.gettasv +++| SA5 PRFX
00562 M00S00562.gettasv +++| SA2 PRSB
00563 M00S00563.gettasv +++| SB2 2 PREFIX MUST BE 2 CHARACTERS
00564 M00S00564.gettasv +++| RJ CAP CHECK FOR ALLOWABLE PATTERN
00565 M00S00565.gettasv +++| SX5 PRSH * VSN PREFIX INCORRECT.*
00566 M00S00566.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0)
00567 M00S00567.gettasv +++| SA1 PRFX COMBINE PREFIX WITH MAXIMUM DIGIT VALUE
00568 M00S00568.gettasv +++| SA2 MAXV
00569 M00S00569.gettasv +++| BX6 X1+X2
00570 M00S00570.gettasv +++| SA6 A2+
00571 M00S00571.gettasv +++|
00572 M00S00572.gettasv +++|* CHECK DENSITY PARAMETER.
00573 M00S00573.gettasv +++|
00574 M00S00574.gettasv +++| MX0 30
00575 M00S00575.gettasv +++| SA1 DENS
00576 M00S00576.gettasv +++| SA2 TDEN
00577 M00S00577.gettasv +++| PRS1 BX6 X1-X2
00578 M00S00578.gettasv +++| SA2 A2+1
00579 M00S00579.gettasv +++| BX7 X0*X6
00580 M00S00580.gettasv +++| ZR X7,PRS2 IF CORRECT DENSITY
00581 M00S00581.gettasv +++| NZ X2,PRS1 IF MORE DENSITIES TO CHECK
00582 M00S00582.gettasv +++| SX1 B1+ FORCE ERROR INDICATION
00583 M00S00583.gettasv +++| SX5 PRSE * TAPE DENSITY NOT RECOGNIZED.*
00584 M00S00584.gettasv +++| RJ IME ISSUE MESSAGE FOR ERROR
00585 M00S00585.gettasv +++|
00586 M00S00586.gettasv +++| PRS2 LX6 30
00587 M00S00587.gettasv +++| SA6 TTYP SAVE *TMS* TAPE TYPE
00588 M00S00588.gettasv +++|
00589 M00S00589.gettasv +++|* CHECK TAPE FORMAT PARAMETER.
00590 M00S00590.gettasv +++|
00591 M00S00591.gettasv +++| SA1 FRMT VALIDATE TAPE FORMAT
00592 M00S00592.gettasv +++| SA2 TATF
00593 M00S00593.gettasv +++| PRS3 BX6 X1-X2
00594 M00S00594.gettasv +++| SA2 A2+1
00595 M00S00595.gettasv +++| BX7 X0*X6
00596 M00S00596.gettasv +++| ZR X7,PRS4 IF CORRECT FORMAT
00597 M00S00597.gettasv +++| NZ X2,PRS3 IF MORE FORMATS TO CHECK
00598 M00S00598.gettasv +++| SX1 B1+ FORCE ERROR INDICATION
00599 M00S00599.gettasv +++| SX5 PRSF * TAPE FORMAT NOT RECOGNIZED.*
00600 M00S00600.gettasv +++| RJ IME ISSUE MESSAGE FOR ERROR
00601 M00S00601.gettasv +++|
00602 M00S00602.gettasv +++|* CHECK AND CONVERT NUMBER OF VSNS PARAMETER.
00603 M00S00603.gettasv +++|
00604 M00S00604.gettasv +++| PRS4 SA1 NVSN
00605 M00S00605.gettasv +++| SX2 1R1
00606 M00S00606.gettasv +++| LX1 6
00607 M00S00607.gettasv +++| IX6 X1-X2
00608 M00S00608.gettasv +++| SX1 X6-1
00609 M00S00609.gettasv +++| SA6 NVSN STORE CONVERTED *NV* PARAMETER
00610 M00S00610.gettasv +++| ZR X6,PRS5 IF NV=1
00611 M00S00611.gettasv +++| SX5 PRSG * NUMBER OF VOLUMES MUST BE 1 OR 2.*
00612 M00S00612.gettasv +++| RJ IME ISSUE MESSAGE IF ERROR ((X1).NE.0)
00613 M00S00613.gettasv +++|
00614 M00S00614.gettasv +++|* SEE IF ANY PARAMETER ERRORS OCCURRED.
00615 M00S00615.gettasv +++|
00616 M00S00616.gettasv +++| PRS5 SA1 ERFL
00617 M00S00617.gettasv +++| ZR X1,PRSX IF NO ERRORS
00618 M00S00618.gettasv +++| EQ ABT1 ABORT
00619 M00S00619.gettasv +++|
00620 M00S00620.gettasv +++|
00621 M00S00621.gettasv +++| PRSA DATA C* GETTASV ARGUMENT ERROR.*
00622 M00S00622.gettasv +++| PRSB VFD 6/44B,24/55555555B,30/0 PREFIX VALIDATION MASK
00623 M00S00623.gettasv +++| PRSC VFD 21/4444444B,9/555B,30/0 COMMAND/LFN VALIDATION MASK
00624 M00S00624.gettasv +++|
00625 M00S00625.gettasv +++|* PRESET ERROR MESSAGES.
00626 M00S00626.gettasv +++|
00627 M00S00627.gettasv +++| PRSD DATA C* ALTERNATE COMMAND INCORRECT.*
00628 M00S00628.gettasv +++| PRSE DATA C* TAPE DENSITY NOT RECOGNIZED.*
00629 M00S00629.gettasv +++| PRSF DATA C* TAPE FORMAT NOT RECOGNIZED.*
00630 M00S00630.gettasv +++| PRSG DATA C* NUMBER OF VOLUMES MUST BE 1 OR 2.*
00631 M00S00631.gettasv +++| PRSH DATA C* VSN PREFIX INCORRECT.*
00632 M00S00632.gettasv +++| PRSI DATA C* PRIMARY LFN INCORRECT.*
00633 M00S00633.gettasv +++| TCAT SPACE 4,10
00634 M00S00634.gettasv +++|* COMMAND ARGUMENT TABLE.
00635 M00S00635.gettasv +++|
00636 M00S00636.gettasv +++| TCAT BSS 0 COMMAND ARGUMENT TABLE
00637 M00S00637.gettasv +++| SS ARG SS,SS AUDIT FILE NAME
00638 M00S00638.gettasv +++| P ARG PRFX,PRFX PREFIX CHARACTERS
00639 M00S00639.gettasv +++| N ARG NVSN,NVSN NUMBER OF VSNS
00640 M00S00640.gettasv +++| D ARG DENS,DENS TAPE DENSITY
00641 M00S00641.gettasv +++| F ARG FRMT,FRMT TAPE FORMAT
00642 M00S00642.gettasv +++| T ARG LFN1,LFN1 PRIMARY TAPE LFN
00643 M00S00643.gettasv +++| VF ARG LFN2,LFN2 SECONDARY TAPE LFN
00644 M00S00644.gettasv +++| C ARG ACMD,ACMD ALTERNATE COMMAND
00645 M00S00645.gettasv +++| CON 0 ARGUMENT LIST TERMINATOR
00646 M00S00646.gettasv +++| TDEN SPACE 4,15
00647 M00S00647.gettasv +++|** TDEN - TABLE OF TAPE DENSITIES.
00648 M00S00648.gettasv +++|*
| Line S00649 Modification History |
M01 (Removed by) | getta1 |
Seq # *Modification Id* Act
----------------------------+
00649 M01S00649.getta1 ---|* *TDEN* CONTAINS THE TAPE DENSITIS RECOGNIZED BY *GETTASV*
| Line S00001 Modification History |
M01 (Added by) | getta1 |
Seq # *Modification Id* Act
----------------------------+
00650 M01S00001.getta1 +++|* *TDEN* CONTAINS THE TAPE DENSITIES RECOGNIZED BY *GETTASV*
00651 M00S00650.gettasv +++|* AND THE CORRESPONDING *TMS* TAPE TYPES.
00652 M00S00651.gettasv +++|*
00653 M00S00652.gettasv +++|*T 30/ DEN, 30/ TTYP
00654 M00S00653.gettasv +++|*
00655 M00S00654.gettasv +++|* DEN THE DISPLAY CODE SYMBOL FOR THE DENSITY.
00656 M00S00655.gettasv +++|* TTYP THE DISPLAY CODE SYMBOL FOR THE *TMS* TAPE TYPE.
00657 M00S00656.gettasv +++|
00658 M00S00657.gettasv +++|
00659 M00S00658.gettasv +++| TDEN BSS 0 TABLE OF TAPE DENSITIES VS DEVICE TYPES
00660 M00S00659.gettasv +++| VFD 30/2LLO,30/4LMTNT
00661 M00S00660.gettasv +++| VFD 30/2LHI,30/4LMTNT
00662 M00S00661.gettasv +++| VFD 30/2LHY,30/4LMTNT
00663 M00S00662.gettasv +++| VFD 30/2LHD,30/4LMTNT
00664 M00S00663.gettasv +++| VFD 30/2LPE,30/4LMTNT
00665 M00S00664.gettasv +++| VFD 30/2LGE,30/4LMTNT
| Line S00665 Modification History |
M01 (Removed by) | getta1 |
Seq # *Modification Id* Act
----------------------------+
00666 M01S00665.getta1 ---| VFD 30/2LCE,30/2LCT
00667 M01S00666.getta1 ---| VFD 30/2LAE,30/2LAT
| Line S00002 Modification History |
M01 (Added by) | getta1 |
Seq # *Modification Id* Act
----------------------------+
00668 M01S00002.getta1 +++| VFD 30/2LCE,30/4LCT
00669 M01S00003.getta1 +++| VFD 30/2LAE,30/4LAT
00670 M00S00667.gettasv +++| VFD 30/3L200,30/4LMTNT
00671 M00S00668.gettasv +++| VFD 30/3L556,30/4LMTNT
00672 M00S00669.gettasv +++| VFD 30/3L800,30/4LMTNT
00673 M00S00670.gettasv +++| VFD 30/4L1600,30/4LMTNT
00674 M00S00671.gettasv +++| VFD 30/4L6250,30/4LMTNT
00675 M00S00672.gettasv +++| CON 0
00676 M00S00673.gettasv +++| TATF SPACE 4,15
00677 M00S00674.gettasv +++|** TATF - TABLE OF ALLOWABLE TAPE FORMATS.
00678 M00S00675.gettasv +++|*
00679 M00S00676.gettasv +++|* *TATF* CONTAINS THE TAPE FORMATS ALLOWED BY *GETTASV*.
00680 M00S00677.gettasv +++|*
00681 M00S00678.gettasv +++|*T 30/ FMT, 30/ 0
00682 M00S00679.gettasv +++|*
00683 M00S00680.gettasv +++|* FMT THE DISPLAY CODE TAPE FORMAT.
00684 M00S00681.gettasv +++|
00685 M00S00682.gettasv +++|
00686 M00S00683.gettasv +++| TATF BSS 0 TABLE OF ALLOWABLE TAPE FORMATS
00687 M00S00684.gettasv +++| VFD 30/1LI,30/0
00688 M00S00685.gettasv +++| VFD 30/2LLI,30/0
00689 M00S00686.gettasv +++| CON 0
00690 M00S00687.gettasv +++| SPACE 4,10
00691 M00S00688.gettasv +++|* PRESET SUBROUTINES.
00692 M00S00689.gettasv +++| IME SPACE 4,10
00693 M00S00690.gettasv +++|** IME - ISSUE MESSAGE IF ERROR.
00694 M00S00691.gettasv +++|*
00695 M00S00692.gettasv +++|* ENTRY (X1) = ERROR INDICATOR (NONZERO = ERROR).
00696 M00S00693.gettasv +++|* (X5) = ADDRESS OF ERROR MESSAGE.
00697 M00S00694.gettasv +++|*
00698 M00S00695.gettasv +++|*
00699 M00S00696.gettasv +++|* EXIT ERROR MESSAGE ISSUED IF (X1) NONZERO.
00700 M00S00697.gettasv +++|* ERROR FLAG SET IF (X1) NONZERO.
00701 M00S00698.gettasv +++|*
00702 M00S00699.gettasv +++|* MACROS MESSAGE, WRITEC.
00703 M00S00700.gettasv +++|
00704 M00S00701.gettasv +++|
00705 M00S00702.gettasv +++| IME SUBR ENTRY/EXIT
00706 M00S00703.gettasv +++| ZR X1,IMEX IF NO ERROR INDICATED
00707 M00S00704.gettasv +++| BX6 X1 SET ERROR FLAG
00708 M00S00705.gettasv +++| SA6 ERFL
00709 M00S00706.gettasv +++| MESSAGE X5,,R ISSUE ERROR MESSAGE
00710 M00S00707.gettasv +++| WRITEC O,X5
00711 M00S00708.gettasv +++| EQ IMEX RETURN
00712 M00S00709.gettasv +++| SPACE 4,10
00713 M00S00710.gettasv +++|* PRESET COMMON DECKS.
00714 M00S00711.gettasv +++|
00715 M00S00712.gettasv +++|
00716 M00S00713.gettasv +++|*CALL COMCARG
00717 M00S00714.gettasv +++| SPACE 4,10
00718 M00S00715.gettasv +++|* OVERFLOW CHECK.
00719 M00S00716.gettasv +++|
00720 M00S00717.gettasv +++|
00721 M00S00718.gettasv +++| ERRPL *-OBUF PRESET OVERFLOWS INTO OUTPUT BUFFER
00722 M00S00719.gettasv +++| SPACE 4
00723 M00S00720.gettasv +++| END