home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / vmsnet / sources / 359 next >
Encoding:
Internet Message Format  |  1992-09-10  |  24.1 KB
  1. Path: sparky!uunet!spool.mu.edu!sdd.hp.com!hamblin.math.byu.edu!arizona.edu!mvb.saic.com!vmsnet-sources
  2. Newsgroups: vmsnet.sources
  3. Subject: ENTER - Enter file by FID utility, part 01/01
  4. Message-ID: <8126953@MVB.SAIC.COM>
  5. From: sysop@primate.wisc.edu
  6. Date: Thu, 10 Sep 1992 22:50:20 GMT
  7. Organization: Department of Nuclear Engineering Sciences
  8. Approved: Mark.Berryman@Mvb.Saic.Com
  9. Lines: 672
  10.  
  11. Submitted-by: sysop@primate.wisc.edu
  12. Posting-number: Volume 3, Issue 164
  13. Archive-name: enter_by_fid/part01
  14.  
  15. ENTER - A utility that will allow you to creat file names for files who's 
  16.     FID is known.  May be used to create multiple links to a known file,
  17.     ala $ set file/enter=xxxx, OR to help when you have lost files that
  18.     need to be relinked someplace.
  19.  
  20. Interactive use.  Future mods will be released with CLI preprocessing for
  21. command line execution.
  22.  
  23. $! ------------------ CUT HERE -----------------------
  24. $ v='f$verify(f$trnlnm("SHARE_UNPACK_VERIFY"))'
  25. $!
  26. $! This archive created by VMS_SHARE Version 8.0
  27. $!   On 10-SEP-1992 15:44:26.09   By user BERRYMAN    
  28. $!
  29. $! The VMS_SHARE software that created this archive
  30. $!    was written by  Andy Harper, Kings College London UK
  31. $!    -- September 1992
  32. $!
  33. $! Credit is due to these people for their original ideas:
  34. $!    James Gray, Michael Bednarek 
  35. $!
  36. $! TO UNPACK THIS SHARE FILE, CONCATENATE ALL PARTS IN ORDER
  37. $! AND EXECUTE AS A COMMAND PROCEDURE  (  @name  )
  38. $!
  39. $! THE FOLLOWING FILE(S) WILL BE CREATED AFTER UNPACKING:
  40. $!       1. ENTER.FOR;1
  41. $!       2. FABDEF.SYM;1
  42. $!       3. MAKE.COM;1
  43. $!       4. NAMDEF.SYM;1
  44. $!
  45. $set="set"
  46. $set symbol/scope=(nolocal,noglobal)
  47. $f=f$parse("SHARE_TEMP","SYS$SCRATCH:.TMP_"+f$getjpi("","PID"))
  48. $e="write sys$error  ""%UNPACK"", "
  49. $w="write sys$output ""%UNPACK"", "
  50. $ if .not. f$trnlnm("SHARE_UNPACK_LOG") then $ w = "!"
  51. $ ve=f$getsyi("version")
  52. $ if ve-f$extract(0,1,ve) .ges. "4.4" then $ goto start
  53. $ e "-E-OLDVER, Must run at least VMS 4.4"
  54. $ v=f$verify(v)
  55. $ exit 44
  56. $unpack: subroutine ! P1=filename, P2=checksum, P3=attributes
  57. $ if f$search(P1) .eqs. "" then $ goto file_absent
  58. $ e "-W-EXISTS, File ''P1' exists. Skipped."
  59. $ delete 'f'*
  60. $ exit
  61. $file_absent:
  62. $ if f$parse(P1) .nes. "" then $ goto dirok
  63. $ dn=f$parse(P1,,,"DIRECTORY")
  64. $ w "-I-CREDIR, Creating directory ''dn'"
  65. $ create/dir 'dn'
  66. $ if $status then $ goto dirok
  67. $ e "-E-CREDIRFAIL, Unable to create ''dn' File skipped."
  68. $ delete 'f'*
  69. $ exit
  70. $dirok:
  71. $ w "-I-UNPACK, Unpacking file ''P1'"
  72. $ n=P1
  73. $ if P3 .nes. "" then $ n=f
  74. $ if .not. f$verify() then $ define/user sys$output nl:
  75. $ EDIT/TPU/NOSEC/NODIS/COM=SYS$INPUT 'f'/OUT='n'
  76. PROCEDURE GetHex LOCAL x1,x2;x1:=INDEX(t,ERASE_CHARACTER(1))-1;x2:=INDEX(t,
  77. ERASE_CHARACTER(1))-1;RETURN 16*x1+x2;ENDPROCEDURE;
  78. PROCEDURE SkipPartsep LOOP ERASE_LINE;EXITIF INDEX(CURRENT_LINE,
  79. "-+-+-+-+-+-+-+-+")=1;ENDLOOP;ERASE_LINE;ENDPROCEDURE PROCEDURE ProcessLine s:=
  80. ERASE_CHARACTER(1);LOOP EXITIF CURRENT_OFFSET>=LENGTH(CURRENT_LINE);
  81. CASE CURRENT_CHARACTER FROM ' ' TO 'z' ["`"]:ERASE_CHARACTER(1);COPY_TEXT(
  82. ASCII(GetHex));[" "]: ERASE_CHARACTER(1);[OUTRANGE,INRANGE]: MOVE_HORIZONTAL(1)
  83. ;ENDCASE;ENDLOOP;IF s="V" THEN APPEND_LINE;ENDIF;ENDPROCEDURE;
  84. PROCEDURE AdvanceLine MOVE_HORIZONTAL(-CURRENT_OFFSET);MOVE_VERTICAL(1);
  85. ENDPROCEDURE;PROCEDURE Decode POSITION(BEGINNING_OF(b));LOOP EXITIF MARK(NONE)=
  86. END_OF(b);IF INDEX(CURRENT_LINE,"+-+-+-+-+-+-+-+-")=1 THEN SkipPartSep;
  87. ELSE ProcessLine;AdvanceLine;ENDIF;ENDLOOP;ENDPROCEDURE;SET(FACILITY_NAME,
  88. "UNPACK");SET(SUCCESS,OFF);SET(INFORMATIONAL,OFF);t:="0123456789ABCDEF";f:=
  89. GET_INFO(COMMAND_LINE,"file_name");b:=CREATE_BUFFER(f,f);Decode;WRITE_FILE(b,
  90. GET_INFO(COMMAND_LINE,"output_file"));QUIT;
  91. $ if p3 .eqs. "" then $ goto ck
  92. $ open/write fdl &f
  93. $ write fdl "RECORD"
  94. $ write fdl P3
  95. $ close fdl
  96. $ w "-I-CONVRFM, Converting record format to ", P3
  97. $ convert/fdl=&f &f-1 &P1
  98. $ck: checksum 'P1'
  99. $ if checksum$checksum .eqs. P2 then $ exit
  100. $ e "-E-CHKSMFAIL, Checksum of ''P1' failed."
  101. $ delete/nolog 'f'*
  102. $ endsubroutine
  103. $start:
  104. $!
  105. $ create 'f'
  106. X`09program`20Enter
  107. X
  108. XC*`20Title:`09ENTER.FOR
  109. XC*`20Author:`09Shawn`20A.`20Clifford
  110. XC*`20Date:`0926-AUG-1992
  111. XC*`20Purpose:`09Enter`20a`20file`20by`20its'`20File`20ID`20into`20the`20curren
  112. Vt`20directory.
  113. X
  114. X`09implicit`20none
  115. X
  116. X`09include`20'($rmsdef)'
  117. X`09include`20'($ssdef)'
  118. Xc
  119. Xc`09Converted`20all`20the`20$EQU`20statements`20in`20the$NAMDEF.MAR`20and`20$F
  120. VABDEF.MAR
  121. Xc`09macros,`20stored`20in`20the`20SYS$LIBRARY:STARLET.MLB`20macro`20library,
  122. V`20into
  123. Xc`09FORTRAN`20PARAMETER`20statements`20for`20symbol`20definitions.`20`20Just
  124. V`20using:
  125. Xc`09`09include`20'($fabdef)'
  126. Xc`09would`20not`20allow`20me`20to`20use`20the`20symbol`20names`20the`20way`20I
  127. V`20needed.
  128. Xc`09The`20important`20point`20is`20that`20the`20FAB$x_`20(or`20NAM$x_)`20value
  129. Vs`20are`20OFFSETS
  130. Xc`09into`20the`20FAB/NAM`20blocks`20for`20the`20locations`20of`20the`20FAB/NAM
  131. V`20fields.
  132. Xc`09These`20offsets`20are`20BYTE`20offsets`20from`20the`20top`20of`20the`20blo
  133. Vck,`20therefore
  134. Xc`09we`20need`20to`20divide`20by`202`20or`204`20when`20accessing`20WORD`20or
  135. V`20LONGWORD`20cells.
  136. Xc
  137. X`09include`20'namdef.sym'
  138. X`09include`20'fabdef.sym'
  139. X
  140. X`09parameter`09naml_siz`20=`20(NAM$C_BLN/4),
  141. X`091`09`09namw_siz`20=`20(NAM$C_BLN/2),
  142. X`091`09`09fabl_siz`20=`20(FAB$C_BLN/4),
  143. X`091`09`09fabw_siz`20=`20(FAB$C_BLN/2)
  144. Xc
  145. Xc`09Define`20the`20access`20blocks.`20`20Put`20the`20byte`20definitions`20afte
  146. Vr`20INTEGER*4,
  147. Xc`09and`20before`20INTEGER*2`20definitions`20to`20keep`20the`20blocks`20longwo
  148. Vrd`20aligned.
  149. Xc`09The`20access`20blocks`20are`20define`20for`20BYTE,`20WORD,`20and`20LONGWOR
  150. VD`20arrays
  151. Xc`09so`20that`20we`20may`20access`20the`20different`20FAB/NAM`20cell`20locatio
  152. Vns`20according
  153. Xc`09to`20the`20cell`20sizes.
  154. Xc
  155. X`09integer*4`09naml`20(0:naml_siz-1)`09/naml_siz*0/
  156. X`09integer*4`09fabl`20(0:fabl_siz-1)`09/fabl_siz*0/
  157. X`09byte`09`09fabb`20(0:FAB$C_BLN-1)`09/FAB$C_BLN*0/
  158. X`09byte`09`09namb`20(0:NAM$C_BLN-1)`09/NAM$C_BLN*0/
  159. X`09integer*2`09nam`20`20(0:namw_siz-1)`09/namw_siz*0/
  160. X`09integer*2`09fab`20`20(0:fabw_siz-1)`09/fabw_siz*0/
  161. X
  162. X`09character*(NAM$C_MAXRSS)`20`20inp_str,`20esa_str,`09!`20Set`20aside`20space
  163. V`20...
  164. X`091`09res_str,`20dna_str`20/'.ENTERED'/`09!`20...`20for`20filenames.
  165. X`09character*37`09prompt/'Name`20of`20file`20entry`20(w/o`20wildcards):`20`20'
  166. V/
  167. X`09character*10`09num_buf`09!`20Read`20number`20data`20here,`20then`20convert.
  168. V
  169. X
  170. X`09integer*2`09fid_num,`20fid_seq,`20fid_rvn`09!`20FileID`20words.
  171. X
  172. Xc`09Various`20string`20lengths.
  173. X`09byte`09`09inp_str_len,`20res_str_len,`20esa_str_len,
  174. X`091`09`09dna_str_len`20`09/8/`09!`20Doesn't`20work`20anyway.
  175. X
  176. X`09integer*4`09stat,`20lib$get_input,`20sys$parse,`20lib$signal,
  177. X`091`09`09sys$enter,`20ots$cvt_tu_l
  178. X`09external`09lib$get_input,`20sys$parse,`20lib$signal,`20sys$exit,
  179. X`091`09`09sys$enter,`20ots$cvt_tu_l
  180. X
  181. Xc
  182. Xc`09Overlay`20common`20locations`20for`20easy`20access.
  183. Xc
  184. X`09equivalence`09(fabb,fab,fabl),`09!`20The`20FAB`20block.
  185. X`091`09(namb,nam,naml),`09`09!`20The`20NAM`20block.
  186. X`091`09(fid_num,`20nam(NAM$W_FID/2)),`20`09!`20The`20three`20...
  187. X`091`09(fid_seq,`20nam(NAM$W_FID_SEQ/2)),!`20...`20words`20in`20...
  188. X`091`09(fid_rvn,`20nam(NAM$W_FID_RVN/2)),!`20...`20the`20FID.
  189. X`091`09(inp_str_len,`20fabb(FAB$B_FNS)),`09!`20File`20name`20length.
  190. X`091`09(res_str_len,`20namb(NAM$B_RSL)),`09!`20Result`20str`20length.
  191. X`091`09(dna_str_len,`20fabb(FAB$B_DNS)),`09!`20Default`20str`20length.
  192. X`091`09(esa_str_len,`20namb(NAM$B_ESL))`09!`20Expanded`20str`20length.
  193. X
  194. Xc
  195. Xc`09Initialize`20access`20blocks.
  196. Xc`09Usually`20taken`20care`20of`20in`20MACRO`20by`20the`20$NAM`20and`20$FAB
  197. V`20macros.
  198. Xc
  199. Xc`09First`20the`20NAM`20block...
  200. Xc
  201. X`09namb(NAM$B_BLN)`20=`20NAM$C_BLN`09!`20Define`20the`20size`20of`20the`20bloc
  202. Vk.
  203. X`09namb(NAM$B_BID)`20=`20NAM$C_BID`09!`20Tell`20RMS`20that`20it`20is`20a`20NAM
  204. V`20block.
  205. X`09namb(NAM$B_RSS)`20=`20NAM$C_MAXRSS`09!`20Tell`20how`20big`20result`20can
  206. V`20be.
  207. X`09namb(NAM$B_ESS)`20=`20NAM$C_MAXRSS`09!`20Tell`20how`20big`20expanded`20str
  208. V`20may`20be.
  209. X`09naml(NAM$L_RSA/4)`20=`20%loc(res_str)`09!`20Point`20to`20result`20string.
  210. X`09naml(NAM$L_ESA/4)`20=`20%loc(esa_str)`09!`20Point`20to`20filespec`20to`20en
  211. Vter.
  212. Xc
  213. Xc`09...`20and`20now`20the`20FAB`20block.
  214. Xc
  215. X`09fabb(FAB$B_BLN)`20=`20FAB$C_BLN`09!`20Define`20size.
  216. X`09fabb(FAB$B_BID)`20=`20FAB$C_BID`09!`20This`20is`20a`20FAB`20block.
  217. X`09fabl(FAB$L_FOP/4)`20=`20FAB$M_NAM`09!`20Let`20RMS`20know`20to`20use`20NAM
  218. V`20block.
  219. X`09fabl(FAB$L_NAM/4)`20=`20%loc(nam)`09!`20Chain`20up`20the`20NAM`20block.
  220. X`09fabl(FAB$L_FNA/4)`20=`20%loc(inp_str)`09!`20Point`20to`20input`20filespec.
  221. X`09fabl(FAB$L_DNA/4)`20=`20%loc(dna_str)`09!`20Default`20file`20info.
  222. Xc`09
  223. Xc`09Prompt`20the`20user`20for`20the`20entered`20name`20of`20the`20file.
  224. Xc
  225. X`09print`20*
  226. X`09print`20*,`20'ENTER`20V8.92`20-`20`20Create`20a`20file`20name`20with`20asso
  227. Vciated`20File'//
  228. X`091`09`20'ID`20`20`20`20`20`20`20`20`20`20`20`20`20`20`20(by`20SAC)'
  229. X`09print`20*
  230. X`09stat=lib$get_input(%descr(inp_str),%descr(prompt),
  231. X`091`09%ref(inp_str_len))
  232. X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20lib$signal(%val(stat))
  233. Xc
  234. Xc`09Parse`20the`20input`20so`20that`20we`20may`20get`20the`20expanded`20string
  235. V`20length.
  236. Xc
  237. X`09stat`20=`20sys$parse(fab,,)
  238. X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20lib$signal(%val(stat))
  239. Xc
  240. Xc`09Get`20the`20FID.`20`20You`20don't`20usually`20use`20the`20revision`20numbe
  241. Vr.
  242. Xc`09Note:`20`20fid_xxx`20map`20directly`20into`20their`20NAM`20fields.`20`20We
  243. V`20set`20these
  244. Xc`09AFTER`20calling`20sys$parse`20because`20sys$parse`20apparently`20zeroes
  245. Xc`09these`20fields`20out.
  246. Xc`09Values`20are`20read`20into`20a`20character`20buffer,`20then`20converted
  247. V`20to
  248. Xc`09unsigned`20words,`20ignoring`20tabs`20and`20blanks.
  249. Xc
  250. X`09print`20*
  251. X`09print`20*,`20'The`20file`20ID`20(FID)`20is`20in`20the`20form:`20`20fild_num
  252. V,`20fid_seq,`20'//
  253. X`091`09`20'fid_rvn'
  254. X`09print`20*,`20'Use`20DIR/FILE`20`7Bfilename`7D`20to`20get`20a`20known`20file
  255. V''s`20FID.'
  256. X`09print`20*
  257. X
  258. X`09print`20'(''$'',A)',`20'`09Enter`20the`20file`20number:`20`20`20`20`20`20
  259. V`20'
  260. X`09read`20'(A)',`20num_buf
  261. X`09stat`20=`20ots$cvt_tu_l(%descr(num_buf),`20%ref(fid_num),
  262. X`091`09%val(2),`20%val('11'x))
  263. X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
  264. X
  265. X`09print`20'(''$'',A)',`20'`09Enter`20the`20file`20sequence:`20`20`20`20`20'
  266. X`09read`20'(A)',`20num_buf
  267. X`09stat`20=`20ots$cvt_tu_l(%descr(num_buf),`20%ref(fid_seq),
  268. X`091`09%val(2),`20%val('11'x))
  269. X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
  270. X
  271. X`09print`20'(''$'',A)',`20'`09Enter`20the`20file`20revision`20`5B0`5D:`20'
  272. X`09read`20'(A)',`20num_buf
  273. X`09stat`20=`20ots$cvt_tu_l(%descr(num_buf),`20%ref(fid_rvn),
  274. X`091`09%val(2),`20%val('11'x))
  275. X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
  276. X`09print`20*
  277. Xc
  278. Xc`09Enter`20the`20file`20in`20the`20current`20directory.
  279. Xc
  280. X`09stat`20=`20sys$enter(fab,,)
  281. X`09if`20(IAND(stat,'00000001'x).ne.1)`20call`20sys$exit(%val(stat))
  282. Xc
  283. Xc`09Print`20out`20the`20expanded`20or`20resultant`20string.
  284. Xc
  285. X`09if`20(res_str_len.gt.0)`20then
  286. X`09`20`20`20print`20*,`20'The`20file`20was`20entered`20as:`20`20',`20res_str(:
  287. Vres_str_len)
  288. X`09else`20if`20(esa_str_len.gt.0)`20then
  289. X`09`20`20`20print`20*,`20'The`20file`20was`20entered`20as:`20`20',`20esa_str(:
  290. Vesa_str_len)
  291. X`09endif
  292. X`09print`20*
  293. X`09if`20((res_str_len.eq.0)`20.and.`20(esa_str_len.eq.0))`20then
  294. X`09`20`20`20print`20*,`20'Sorry.`20`20Error`20with`20input.'
  295. X`09`20`20`20call`20sys$exit(%val(stat))
  296. X`09endif
  297. X
  298. X`09end
  299. $ call unpack ENTER.FOR;1 1448355409 ""
  300. $!
  301. $ create 'f'
  302. X`09PARAMETER`09FAB$C_BID`09=3
  303. X`09PARAMETER`09FAB$M_PPF_RAT`09=16320
  304. X`09PARAMETER`09FAB$M_PPF_IND`09=16384
  305. X`09PARAMETER`09FAB$M_PPIFI`09=32768
  306. X`09PARAMETER`09FAB$M_ASY`09=1
  307. X`09PARAMETER`09FAB$M_MXV`09=2
  308. X`09PARAMETER`09FAB$M_SUP`09=4
  309. X`09PARAMETER`09FAB$M_TMP`09=8
  310. X`09PARAMETER`09FAB$M_TMD`09=16
  311. X`09PARAMETER`09FAB$M_DFW`09=32
  312. X`09PARAMETER`09FAB$M_SQO`09=64
  313. X`09PARAMETER`09FAB$M_RWO`09=128
  314. X`09PARAMETER`09FAB$M_POS`09=256
  315. X`09PARAMETER`09FAB$M_WCK`09=512
  316. X`09PARAMETER`09FAB$M_NEF`09=1024
  317. X`09PARAMETER`09FAB$M_RWC`09=2048
  318. X`09PARAMETER`09FAB$M_DMO`09=4096
  319. X`09PARAMETER`09FAB$M_SPL`09=8192
  320. X`09PARAMETER`09FAB$M_SCF`09=16384
  321. X`09PARAMETER`09FAB$M_DLT`09=32768
  322. X`09PARAMETER`09FAB$M_NFS`09=65536
  323. X`09PARAMETER`09FAB$M_UFO`09=131072
  324. X`09PARAMETER`09FAB$M_PPF`09=262144
  325. X`09PARAMETER`09FAB$M_INP`09=524288
  326. X`09PARAMETER`09FAB$M_CTG`09=1048576
  327. X`09PARAMETER`09FAB$M_CBT`09=2097152
  328. X`09PARAMETER`09FAB$M_SYNCSTS`09=4194304
  329. X`09PARAMETER`09FAB$M_RCK`09=8388608
  330. X`09PARAMETER`09FAB$M_NAM`09=16777216
  331. X`09PARAMETER`09FAB$M_CIF`09=33554432
  332. X`09PARAMETER`09FAB$M_ESC`09=134217728
  333. X`09PARAMETER`09FAB$M_TEF`09=268435456
  334. X`09PARAMETER`09FAB$M_OFP`09=536870912
  335. X`09PARAMETER`09FAB$M_KFO`09=1073741824
  336. X`09PARAMETER`09FAB$M_PUT`09=1
  337. X`09PARAMETER`09FAB$M_GET`09=2
  338. X`09PARAMETER`09FAB$M_DEL`09=4
  339. X`09PARAMETER`09FAB$M_UPD`09=8
  340. X`09PARAMETER`09FAB$M_TRN`09=16
  341. X`09PARAMETER`09FAB$M_BIO`09=32
  342. X`09PARAMETER`09FAB$M_BRO`09=64
  343. X`09PARAMETER`09FAB$M_EXE`09=128
  344. X`09PARAMETER`09FAB$M_SHRPUT`09=1
  345. X`09PARAMETER`09FAB$M_SHRGET`09=2
  346. X`09PARAMETER`09FAB$M_SHRDEL`09=4
  347. X`09PARAMETER`09FAB$M_SHRUPD`09=8
  348. X`09PARAMETER`09FAB$M_MSE`09=16
  349. X`09PARAMETER`09FAB$M_NIL`09=32
  350. X`09PARAMETER`09FAB$M_UPI`09=64
  351. X`09PARAMETER`09FAB$M_ORG`09=240
  352. X`09PARAMETER`09FAB$C_SEQ`09=0
  353. X`09PARAMETER`09FAB$C_REL`09=16
  354. X`09PARAMETER`09FAB$C_IDX`09=32
  355. X`09PARAMETER`09FAB$C_HSH`09=48
  356. X`09PARAMETER`09FAB$M_FTN`09=1
  357. X`09PARAMETER`09FAB$M_CR`09=2
  358. X`09PARAMETER`09FAB$M_PRN`09=4
  359. X`09PARAMETER`09FAB$M_BLK`09=8
  360. X`09PARAMETER`09FAB$C_RFM_DFLT`09=2
  361. X`09PARAMETER`09FAB$C_UDF`09=0
  362. X`09PARAMETER`09FAB$C_FIX`09=1
  363. X`09PARAMETER`09FAB$C_VAR`09=2
  364. X`09PARAMETER`09FAB$C_VFC`09=3
  365. X`09PARAMETER`09FAB$C_STM`09=4
  366. X`09PARAMETER`09FAB$C_STMLF`09=5
  367. X`09PARAMETER`09FAB$C_STMCR`09=6
  368. X`09PARAMETER`09FAB$C_MAXRFM`09=6
  369. X`09PARAMETER`09FAB$M_ONLY_RU`09=1
  370. X`09PARAMETER`09FAB$M_RU`09=2
  371. X`09PARAMETER`09FAB$M_BI`09=4
  372. X`09PARAMETER`09FAB$M_AI`09=8
  373. X`09PARAMETER`09FAB$M_AT`09=16
  374. X`09PARAMETER`09FAB$M_NEVER_RU`09=32
  375. X`09PARAMETER`09FAB$M_JOURNAL_FILE`09=64
  376. X`09PARAMETER`09FAB$M_RCF_RU`09=1
  377. X`09PARAMETER`09FAB$M_RCF_AI`09=2
  378. X`09PARAMETER`09FAB$M_RCF_BI`09=4
  379. X`09PARAMETER`09FAB$K_BLN`09=80
  380. X`09PARAMETER`09FAB$C_BLN`09=80
  381. X`09PARAMETER`09FAB$S_FABDEF`09=80
  382. X`09PARAMETER`09FAB$B_BID`09=0
  383. X`09PARAMETER`09FAB$B_BLN`09=1
  384. X`09PARAMETER`09FAB$R_IFI_OVERLAY`09=2
  385. X`09PARAMETER`09FAB$W_IFI`09=2
  386. X`09PARAMETER`09FAB$R_IFI_BITS`09=2
  387. X`09PARAMETER`09FAB$S_PPF_RAT`09=8
  388. X`09PARAMETER`09FAB$V_PPF_RAT`09=6
  389. X`09PARAMETER`09FAB$V_PPF_IND`09=14
  390. X`09PARAMETER`09FAB$V_PPIFI`09=15
  391. X`09PARAMETER`09FAB$R_FOP_OVERLAY`09=4
  392. X`09PARAMETER`09FAB$L_FOP`09=4
  393. X`09PARAMETER`09FAB$R_FOP_BITS`09=4
  394. X`09PARAMETER`09FAB$V_ASY`09=0
  395. X`09PARAMETER`09FAB$V_MXV`09=1
  396. X`09PARAMETER`09FAB$V_SUP`09=2
  397. X`09PARAMETER`09FAB$V_TMP`09=3
  398. X`09PARAMETER`09FAB$V_TMD`09=4
  399. X`09PARAMETER`09FAB$V_DFW`09=5
  400. X`09PARAMETER`09FAB$V_SQO`09=6
  401. X`09PARAMETER`09FAB$V_RWO`09=7
  402. X`09PARAMETER`09FAB$V_POS`09=8
  403. X`09PARAMETER`09FAB$V_WCK`09=9
  404. X`09PARAMETER`09FAB$V_NEF`09=10
  405. X`09PARAMETER`09FAB$V_RWC`09=11
  406. X`09PARAMETER`09FAB$V_DMO`09=12
  407. X`09PARAMETER`09FAB$V_SPL`09=13
  408. X`09PARAMETER`09FAB$V_SCF`09=14
  409. X`09PARAMETER`09FAB$V_DLT`09=15
  410. X`09PARAMETER`09FAB$V_NFS`09=16
  411. X`09PARAMETER`09FAB$V_UFO`09=17
  412. X`09PARAMETER`09FAB$V_PPF`09=18
  413. X`09PARAMETER`09FAB$V_INP`09=19
  414. X`09PARAMETER`09FAB$V_CTG`09=20
  415. X`09PARAMETER`09FAB$V_CBT`09=21
  416. X`09PARAMETER`09FAB$V_SYNCSTS`09=22
  417. X`09PARAMETER`09FAB$V_RCK`09=23
  418. X`09PARAMETER`09FAB$V_NAM`09=24
  419. X`09PARAMETER`09FAB$V_CIF`09=25
  420. X`09PARAMETER`09FAB$V_ESC`09=27
  421. X`09PARAMETER`09FAB$V_TEF`09=28
  422. X`09PARAMETER`09FAB$V_OFP`09=29
  423. X`09PARAMETER`09FAB$V_KFO`09=30
  424. X`09PARAMETER`09FAB$L_STS`09=8
  425. X`09PARAMETER`09FAB$L_STV`09=12
  426. X`09PARAMETER`09FAB$L_ALQ`09=16
  427. X`09PARAMETER`09FAB$W_DEQ`09=20
  428. X`09PARAMETER`09FAB$R_FAC_OVERLAY`09=22
  429. X`09PARAMETER`09FAB$B_FAC`09=22
  430. X`09PARAMETER`09FAB$R_FAC_BITS`09=22
  431. X`09PARAMETER`09FAB$V_PUT`09=0
  432. X`09PARAMETER`09FAB$V_GET`09=1
  433. X`09PARAMETER`09FAB$V_DEL`09=2
  434. X`09PARAMETER`09FAB$V_UPD`09=3
  435. X`09PARAMETER`09FAB$V_TRN`09=4
  436. X`09PARAMETER`09FAB$V_BIO`09=5
  437. X`09PARAMETER`09FAB$V_BRO`09=6
  438. X`09PARAMETER`09FAB$V_EXE`09=7
  439. X`09PARAMETER`09FAB$R_SHR_OVERLAY`09=23
  440. X`09PARAMETER`09FAB$B_SHR`09=23
  441. X`09PARAMETER`09FAB$R_SHR_BITS`09=23
  442. X`09PARAMETER`09FAB$V_SHRPUT`09=0
  443. X`09PARAMETER`09FAB$V_SHRGET`09=1
  444. X`09PARAMETER`09FAB$V_SHRDEL`09=2
  445. X`09PARAMETER`09FAB$V_SHRUPD`09=3
  446. X`09PARAMETER`09FAB$V_MSE`09=4
  447. X`09PARAMETER`09FAB$V_NIL`09=5
  448. X`09PARAMETER`09FAB$V_UPI`09=6
  449. X`09PARAMETER`09FAB$L_CTX`09=24
  450. X`09PARAMETER`09FAB$B_RTV`09=28
  451. X`09PARAMETER`09FAB$R_ORG_OVERLAY`09=29
  452. X`09PARAMETER`09FAB$B_ORG`09=29
  453. X`09PARAMETER`09FAB$R_ORG_BITS`09=29
  454. X`09PARAMETER`09FAB$S_ORG`09=4
  455. X`09PARAMETER`09FAB$V_ORG`09=4
  456. X`09PARAMETER`09FAB$R_RAT_OVERLAY`09=30
  457. X`09PARAMETER`09FAB$B_RAT`09=30
  458. X`09PARAMETER`09FAB$R_RAT_BITS`09=30
  459. X`09PARAMETER`09FAB$V_FTN`09=0
  460. X`09PARAMETER`09FAB$V_CR`09=1
  461. X`09PARAMETER`09FAB$V_PRN`09=2
  462. X`09PARAMETER`09FAB$V_BLK`09=3
  463. X`09PARAMETER`09FAB$B_RFM`09=31
  464. X`09PARAMETER`09FAB$R_JOURNAL_OVERLAY`09=32
  465. X`09PARAMETER`09FAB$B_JOURNAL`09=32
  466. X`09PARAMETER`09FAB$R_JOURNAL_BITS`09=32
  467. X`09PARAMETER`09FAB$V_ONLY_RU`09=0
  468. X`09PARAMETER`09FAB$V_RU`09=1
  469. X`09PARAMETER`09FAB$V_BI`09=2
  470. X`09PARAMETER`09FAB$V_AI`09=3
  471. X`09PARAMETER`09FAB$V_AT`09=4
  472. X`09PARAMETER`09FAB$V_NEVER_RU`09=5
  473. X`09PARAMETER`09FAB$V_JOURNAL_FILE`09=6
  474. X`09PARAMETER`09FAB$B_RU_FACILITY`09=33
  475. X`09PARAMETER`09FAB$L_XAB`09=36
  476. X`09PARAMETER`09FAB$L_NAM`09=40
  477. X`09PARAMETER`09FAB$L_FNA`09=44
  478. X`09PARAMETER`09FAB$L_DNA`09=48
  479. X`09PARAMETER`09FAB$B_FNS`09=52
  480. X`09PARAMETER`09FAB$B_DNS`09=53
  481. X`09PARAMETER`09FAB$W_MRS`09=54
  482. X`09PARAMETER`09FAB$L_MRN`09=56
  483. X`09PARAMETER`09FAB$W_BLS`09=60
  484. X`09PARAMETER`09FAB$B_BKS`09=62
  485. X`09PARAMETER`09FAB$B_FSZ`09=63
  486. X`09PARAMETER`09FAB$L_DEV`09=64
  487. X`09PARAMETER`09FAB$L_SDC`09=68
  488. X`09PARAMETER`09FAB$W_GBC`09=72
  489. X`09PARAMETER`09FAB$R_ACMODES_OVERLAY`09=74
  490. X`09PARAMETER`09FAB$B_ACMODES`09=74
  491. X`09PARAMETER`09FAB$R_ACMODES_BITS`09=74
  492. X`09PARAMETER`09FAB$S_LNM_MODE`09=2
  493. X`09PARAMETER`09FAB$V_LNM_MODE`09=0
  494. X`09PARAMETER`09FAB$S_CHAN_MODE`09=2
  495. X`09PARAMETER`09FAB$V_CHAN_MODE`09=2
  496. X`09PARAMETER`09FAB$S_FILE_MODE`09=2
  497. X`09PARAMETER`09FAB$V_FILE_MODE`09=4
  498. X`09PARAMETER`09FAB$S_CALLERS_MODE`09=2
  499. X`09PARAMETER`09FAB$V_CALLERS_MODE`09=6`20`20`20`20!`20`20ACMODE`20for`20user
  500. V`20structure`20probing
  501. X`09PARAMETER`09FAB$R_RCF_OVERLAY`09=75
  502. X`09PARAMETER`09FAB$B_RCF`09=75
  503. X`09PARAMETER`09FAB$R_RCF_BITS`09=75
  504. X`09PARAMETER`09FAB$V_RCF_RU`09=0
  505. X`09PARAMETER`09FAB$V_RCF_AI`09=1
  506. X`09PARAMETER`09FAB$V_RCF_BI`09=2
  507. $ call unpack FABDEF.SYM;1 356255002 ""
  508. $!
  509. $ create 'f'
  510. X$!`20@MAKE`20to`20build`20ENTER.EXE
  511. X$`20fortran/nodeb/opt`20enter
  512. X$`20link/nodeb/notrace/contig`20enter
  513. $ call unpack MAKE.COM;1 2100576717 ""
  514. $!
  515. $ create 'f'
  516. X`09PARAMETER`09NAM$C_BID`09=2
  517. X`09PARAMETER`09NAM$C_MAXRSS`09=255
  518. X`09PARAMETER`09NAM$C_MAXRSSLCL`09=255
  519. X`09PARAMETER`09NAM$M_PWD`09=1
  520. X`09PARAMETER`09NAM$M_FILL_1`09=2
  521. X`09PARAMETER`09NAM$M_FILL_2`09=4
  522. X`09PARAMETER`09NAM$M_SYNCHK`09=8
  523. X`09PARAMETER`09NAM$M_NOCONCEAL`09=16
  524. X`09PARAMETER`09NAM$M_SLPARSE`09=32
  525. X`09PARAMETER`09NAM$M_SRCHXABS`09=64
  526. X`09PARAMETER`09NAM$C_UFS`09=0
  527. X`09PARAMETER`09NAM$C_NO_RFS`09=0
  528. X`09PARAMETER`09NAM$C_RMS11`09=1
  529. X`09PARAMETER`09NAM$C_RMS20`09=2
  530. X`09PARAMETER`09NAM$C_RMS32`09=3
  531. X`09PARAMETER`09NAM$C_FCS11`09=4
  532. X`09PARAMETER`09NAM$C_RT11FS`09=5
  533. X`09PARAMETER`09NAM$C_TOPS20FS`09=7
  534. X`09PARAMETER`09NAM$C_TOPS10FS`09=8
  535. X`09PARAMETER`09NAM$C_RMS32S`09=10
  536. X`09PARAMETER`09NAM$C_CPMFS`09=11
  537. X`09PARAMETER`09NAM$C_MS_DOSFS`09=12
  538. X`09PARAMETER`09NAM$C_ULTRIX32_FS`09=13
  539. X`09PARAMETER`09NAM$C_ULTRIX11_FS`09=14
  540. X`09PARAMETER`09DAP$K_SNADTF_FS`09=15
  541. X`09PARAMETER`09NAM$C_DVI`09=16
  542. X`09PARAMETER`09NAM$M_IFI`09=65536
  543. X`09PARAMETER`09NAM$M_SRCHNMF`09=1073741824
  544. X`09PARAMETER`09NAM$M_SVCTX`09=-2147483648
  545. X`09PARAMETER`09NAM$K_BLN_V2`09=56
  546. X`09PARAMETER`09NAM$C_BLN_V2`09=56
  547. X`09PARAMETER`09NAM$M_EXP_VER`09=1
  548. X`09PARAMETER`09NAM$M_EXP_TYPE`09=2
  549. X`09PARAMETER`09NAM$M_EXP_NAME`09=4
  550. X`09PARAMETER`09NAM$M_WILD_VER`09=8
  551. X`09PARAMETER`09NAM$M_WILD_TYPE`09=16
  552. X`09PARAMETER`09NAM$M_WILD_NAME`09=32
  553. X`09PARAMETER`09NAM$M_EXP_DIR`09=64
  554. X`09PARAMETER`09NAM$M_EXP_DEV`09=128
  555. X`09PARAMETER`09NAM$M_WILDCARD`09=256
  556. X`09PARAMETER`09NAM$M_SEARCH_LIST`09=2048
  557. X`09PARAMETER`09NAM$M_CNCL_DEV`09=4096
  558. X`09PARAMETER`09NAM$M_ROOT_DIR`09=8192
  559. X`09PARAMETER`09NAM$M_LOWVER`09=16384
  560. X`09PARAMETER`09NAM$M_HIGHVER`09=32768
  561. X`09PARAMETER`09NAM$M_PPF`09=65536
  562. X`09PARAMETER`09NAM$M_NODE`09=131072
  563. X`09PARAMETER`09NAM$M_QUOTED`09=262144
  564. X`09PARAMETER`09NAM$M_GRP_MBR`09=524288
  565. X`09PARAMETER`09NAM$M_WILD_DIR`09=1048576
  566. X`09PARAMETER`09NAM$M_DIR_LVLS`09=14680064
  567. X`09PARAMETER`09NAM$M_WILD_UFD`09=16777216
  568. X`09PARAMETER`09NAM$M_WILD_SFD1`09=33554432
  569. X`09PARAMETER`09NAM$M_WILD_SFD2`09=67108864
  570. X`09PARAMETER`09NAM$M_WILD_SFD3`09=134217728
  571. X`09PARAMETER`09NAM$M_WILD_SFD4`09=268435456
  572. X`09PARAMETER`09NAM$M_WILD_SFD5`09=536870912
  573. X`09PARAMETER`09NAM$M_WILD_SFD6`09=1073741824
  574. X`09PARAMETER`09NAM$M_WILD_SFD7`09=-2147483648
  575. X`09PARAMETER`09NAM$M_WILD_GRP`09=16777216
  576. X`09PARAMETER`09NAM$M_WILD_MBR`09=33554432
  577. X`09PARAMETER`09NAM$K_BLN_DIRWC`09=96
  578. X`09PARAMETER`09NAM$C_BLN_DIRWC`09=96
  579. X`09PARAMETER`09NAM$K_BLN`09=96
  580. X`09PARAMETER`09NAM$C_BLN`09=96
  581. X`09PARAMETER`09NAM$S_NAMDEF`09=96
  582. X`09PARAMETER`09NAM$B_BID`09=0
  583. X`09PARAMETER`09NAM$B_BLN`09=1
  584. X`09PARAMETER`09NAM$B_RSS`09=2
  585. X`09PARAMETER`09NAM$B_RSL`09=3
  586. X`09PARAMETER`09NAM$L_RSA`09=4
  587. X`09PARAMETER`09NAM$R_NOP_OVERLAY`09=8
  588. X`09PARAMETER`09NAM$B_NOP`09=8
  589. X`09PARAMETER`09NAM$R_NOP_BITS`09=8
  590. X`09PARAMETER`09NAM$V_PWD`09=0
  591. X`09PARAMETER`09NAM$V_FILL_1`09=1
  592. X`09PARAMETER`09NAM$V_FILL_2`09=2
  593. X`09PARAMETER`09NAM$V_SYNCHK`09=3
  594. X`09PARAMETER`09NAM$V_NOCONCEAL`09=4
  595. X`09PARAMETER`09NAM$V_SLPARSE`09=5
  596. X`09PARAMETER`09NAM$V_SRCHXABS`09=6
  597. X`09PARAMETER`09NAM$B_RFS`09=9
  598. X`09PARAMETER`09NAM$B_ESS`09=10
  599. X`09PARAMETER`09NAM$B_ESL`09=11
  600. X`09PARAMETER`09NAM$L_ESA`09=12
  601. X`09PARAMETER`09NAM$L_RLF`09=16
  602. X`09PARAMETER`09NAM$S_DVI`09=16
  603. X`09PARAMETER`09NAM$T_DVI`09=20
  604. X`09PARAMETER`09NAM$R_FID_OVERLAY`09=36
  605. X`09PARAMETER`09NAM$S_FID`09=6
  606. X`09PARAMETER`09NAM$W_FID`09=36
  607. X`09PARAMETER`09NAM$R_FID_FIELDS`09=36
  608. X`09PARAMETER`09NAM$W_FID_NUM`09=36
  609. X`09PARAMETER`09NAM$W_FID_SEQ`09=38
  610. X`09PARAMETER`09NAM$R_FID_RVN_OVERLAY`09=40
  611. X`09PARAMETER`09NAM$W_FID_RVN`09=40
  612. X`09PARAMETER`09NAM$R_FID_RVN_FIELDS`09=40
  613. X`09PARAMETER`09NAM$B_FID_RVN`09=40
  614. X`09PARAMETER`09NAM$B_FID_NMX`09=41
  615. X`09PARAMETER`09NAM$R_DID_OVERLAY`09=42
  616. X`09PARAMETER`09NAM$S_DID`09=6
  617. X`09PARAMETER`09NAM$W_DID`09=42
  618. X`09PARAMETER`09NAM$R_DID_FIELDS`09=42
  619. X`09PARAMETER`09NAM$W_DID_NUM`09=42
  620. X`09PARAMETER`09NAM$W_DID_SEQ`09=44
  621. X`09PARAMETER`09NAM$R_DID_RVN_OVERLAY`09=46
  622. X`09PARAMETER`09NAM$W_DID_RVN`09=46
  623. X`09PARAMETER`09NAM$R_DID_RVN_FIELDS`09=46
  624. X`09PARAMETER`09NAM$B_DID_RVN`09=46
  625. X`09PARAMETER`09NAM$B_DID_NMX`09=47
  626. X`09PARAMETER`09NAM$R_WCC_OVERLAY`09=48
  627. X`09PARAMETER`09NAM$L_WCC`09=48
  628. X`09PARAMETER`09NAM$R_WCC_BITS`09=48
  629. X`09PARAMETER`09NAM$V_IFI`09=16
  630. X`09PARAMETER`09NAM$V_SRCHNMF`09=30
  631. X`09PARAMETER`09NAM$V_SVCTX`09=31
  632. X`09PARAMETER`09NAM$R_FNB_OVERLAY`09=52
  633. X`09PARAMETER`09NAM$L_FNB`09=52
  634. X`09PARAMETER`09NAM$R_FNB_BITS0`09=52
  635. X`09PARAMETER`09NAM$V_EXP_VER`09=0
  636. X`09PARAMETER`09NAM$V_EXP_TYPE`09=1
  637. X`09PARAMETER`09NAM$V_EXP_NAME`09=2
  638. X`09PARAMETER`09NAM$V_WILD_VER`09=3
  639. X`09PARAMETER`09NAM$V_WILD_TYPE`09=4
  640. X`09PARAMETER`09NAM$V_WILD_NAME`09=5
  641. X`09PARAMETER`09NAM$V_EXP_DIR`09=6
  642. X`09PARAMETER`09NAM$V_EXP_DEV`09=7
  643. X`09PARAMETER`09NAM$V_WILDCARD`09=8
  644. X`09PARAMETER`09NAM$V_SEARCH_LIST`09=11
  645. X`09PARAMETER`09NAM$V_CNCL_DEV`09=12
  646. X`09PARAMETER`09NAM$V_ROOT_DIR`09=13
  647. X`09PARAMETER`09NAM$V_LOWVER`09=14
  648. X`09PARAMETER`09NAM$V_HIGHVER`09=15
  649. X`09PARAMETER`09NAM$V_PPF`09=16
  650. X`09PARAMETER`09NAM$V_NODE`09=17
  651. X`09PARAMETER`09NAM$V_QUOTED`09=18
  652. X`09PARAMETER`09NAM$V_GRP_MBR`09=19
  653. X`09PARAMETER`09NAM$V_WILD_DIR`09=20
  654. X`09PARAMETER`09NAM$S_DIR_LVLS`09=3
  655. X`09PARAMETER`09NAM$V_DIR_LVLS`09=21
  656. X`09PARAMETER`09NAM$R_FNB_BITS1`09=52
  657. X`09PARAMETER`09NAM$V_WILD_UFD`09=24
  658. X`09PARAMETER`09NAM$V_WILD_SFD1`09=25
  659. X`09PARAMETER`09NAM$V_WILD_SFD2`09=26
  660. X`09PARAMETER`09NAM$V_WILD_SFD3`09=27
  661. X`09PARAMETER`09NAM$V_WILD_SFD4`09=28
  662. X`09PARAMETER`09NAM$V_WILD_SFD5`09=29
  663. X`09PARAMETER`09NAM$V_WILD_SFD6`09=30
  664. X`09PARAMETER`09NAM$V_WILD_SFD7`09=31
  665. X`09PARAMETER`09NAM$R_FNB_BITS2`09=52
  666. X`09PARAMETER`09NAM$V_WILD_GRP`09=24
  667. X`09PARAMETER`09NAM$V_WILD_MBR`09=25
  668. X`09PARAMETER`09NAM$B_NODE`09=56
  669. X`09PARAMETER`09NAM$B_DEV`09=57
  670. X`09PARAMETER`09NAM$B_DIR`09=58
  671. X`09PARAMETER`09NAM$B_NAME`09=59
  672. X`09PARAMETER`09NAM$B_TYPE`09=60
  673. X`09PARAMETER`09NAM$B_VER`09=61
  674. X`09PARAMETER`09NAM$L_NODE`09=64
  675. X`09PARAMETER`09NAM$L_DEV`09=68
  676. X`09PARAMETER`09NAM$L_DIR`09=72
  677. X`09PARAMETER`09NAM$L_NAME`09=76
  678. X`09PARAMETER`09NAM$L_TYPE`09=80
  679. X`09PARAMETER`09NAM$L_VER`09=84
  680. $ call unpack NAMDEF.SYM;1 923084111 ""
  681. $ v=f$verify(v)
  682. $ exit
  683.