% VAX-11 Librarian V04-00_ƢkƢ78 (BOX DCLUSTER_LAYOUT DISK_SPACEDTR""EVE#pFMS_DESC_TO_FORM#FMS_FORM_TO_DESC#&HEADER-"LINES4 LUG_TOPICS  Yۼ.literal )0ElqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqkEx xEtqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquEx xEtqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquEx xEx  xEx xEx xEx xEx xEx xEx xEx  xEx xEx xEx xEx xEx xEx xEx  xEx xEx xEx xEx xEx xEx xEx  xEx xEx xEx xEx xEx xEx xEx  xEx xEx xEx xEx xEx xEx xEx  xEx xEx xEx xEx xEx xEx xEx  xEx xEx xKmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj>.end literal ww@Lk )0 x x x lqqqqqqqqqqqqqqqk x x x- x x x CI@ tqqqqqqqqu  L U K E tqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqk@ x x x x@ x x x x@ x mqqqqqqqqqqqwqqqj x@ x x x@ x x x@ x lqqqvqqqqqk x@ x x x x @ E x x $1$DUA8:x x@ x x x xF T x mqqqqqqqqqj lqqqqqvqqqqqkF x x STAR xs H x x COUPLER tqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqqqqqks x x x x  xs E x lqqqqqqqqqk mqqqqqwqqqqqj x xs x x x x x x{ R x x $1$DUA9:x x lqqqqqqvqqqqqqk lqqqqqqvqqqqqqk z x x x x x HSC70 x x HSC70 xz N x  mqqqwqqqqqj x x C3PO x x R2D2 xz x x x mqqqqqqwqqqqqqj mqqqqqqwqqqqqqjs E x x x x xs x lqqqqqqqqqqqvqqqk x x lqqqqqqqqqk xs T x x x  CI x tqqqqqqqu $1$MUA1:tqqqqqqus tqqqqqqqqu L E I A tqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj x tqqqqqqqqqu xs x x x xqqqqqqqu $1$MUA2:tqqqqqqus x x x x mqqqqqqqqqj xs x mqqqqqqqqqqqqqqqj  x xs x x lqqqqqqqqqqqqqk xs x tqqqqqu $1$DUA0: tqqqqus x x tqqqqqqqqqqqqqu xs x tqqqqqu $1$DUA1: tqqqqus x x tqqqqqqqqqqqqqu xs x tqqqqqu $1$DUA2: tqqqqus x x tqqqqqqqqqqqqqu xs x tqqqqqu $1$DUA3: tqqqqus x  x tqqqqqqqqqqqqqu xs x tqqqqqu $1$DUA4: tqqqqus x x tqqqqqqqqqqqqqu xs x tqqqqqu $1$DUA5: tqqqqus x  x tqqqqqqqqqqqqqu xs x tqqqqqu $1$DUA6: tqqqqus x x tqqqqqqqqqqqqqu xs x mqqqqqu $1$DUA7: tqqqqjn x  mqqqqqqqqqqqqqj x x x PORT 1 x REMOTE$PRINT8 x LTA2010: PORT 2g x lqqqqqqqqqk lqqqqqqqqqk PORT 3 PORT 4i x x LA210 x x x lqqqqqqqqqk lqqqqqqqqqki x mqqqqwqqqqj mqqqqwqqqqj x x x xi x  x x mqqqqwqqqqj mqqqqwqqqqjd x x lqqqqqqqqqqk x x xd x mqqqqqqqqqu TERMINAL tqqqqqqqqj x xd tqqqqqqqqqqqqqqqqqqqqqqqqqu SERVER tqqqqqqqqqqqqqqqqqqqqqqqqqqqnqqqqqqqqqqqqqqqqqqqqqqqqqqqud x lqqqqqqqqqu OBI1 tqqqqqqqqk x xd x  x mqqqqqqqqqqj x x xi x x x lqqqqvqqqqk lqqqqvqqqqki x lqqqqvqqqqk lqqqqvqqqqk x x x xi x x x x x mqqqqqqqqqj mqqqqqqqqqjg x mqqqqqqqqqj mqqqqqqqqqj PORT 7  PORT 88 x PORT 5 PORT 6 x x x x x x x x8 x PORT 1 PORT 2g x lqqqqqqqqqk lqqqqqqqqqk PORT 3 PORT 4i x x x x x lqqqqqqqqqk lqqqqqqqqqki x mqqqqwqqqqj mqqqqwqqqqj x x  x xi x x x mqqqqwqqqqj mqqqqwqqqqjd x x lqqqqqqqqqqk x x xd x mqqqqqqqqqu TERMINAL tqqqqqqqqj x xd tqqqqqqqqqqqqqqqqqqqqqqqqqu SERVER tqqqqqqqqqqqqqqqqqqqqqqqqqqqnqqqqqqqqqqqqqqqqqqqqqqqqqqqud x lqqqqqqqqqu OBI2 tqqqqqqqqk  x xd x x mqqqqqqqqqqj x x xi x x x lqqqqvqqqqk lqqqqvqqqqki x lqqqqvqqqqk lqqqqvqqqqk x x x xi x x x x x mqqqqqqqqqj mqqqqqqqqqjg x mqqqqqqqqqj  mqqqqqqqqqj PORT 7 PORT 88 x PORT 5 PORT 6 x x x x x x x x x x xwwIkDISK SPACE PROBLEMSeq# K870701-1099. COPY/ALLOCATE=x NL: $2$DUA0:[dir]filename.ext' where 'x' is larger than free blocks,. but less than total # of blocks on the disk.ww`w*******>***** DATATRIVE EXAMPLES USING A PROMPT FOR USER TO ENTER ***** SELECTION CRITERION.*******Subject: DTR PROMPTINGFHERE IS AN EXAMPLE OF A PROMPTING REQUEST IN A REPORT PROCEDURE. THIS LPROCEDURE ASKS THE USER TO ENTER A FULL OR PARTIAL KEY TO BEGIN THE DISPLAY GWITH. IT ALSO PROMPTS THEM TO CONTINUE OR QUIT AFTER EVERY 15 LINES OF GDATA, NOT INCLUDING THE HEADER INFO. THE FINAL PROMPT KEEPS THE SCREEN ADISPLAYED UNTIL THEY ENTER SOMETHING (ANY CHARACTER PLUS RETURN).#DEFINE PROCEDURE DATA_ELMNT_SUMMARY!READY DATA_ELMNT_DCTNR FOR SHAREDDECLARE CONT PIC X.DECLARE REQUEST PIC X(21).DECLARE LINECNT PIC 99. CONT = "Y" LINECNT = 1EREQUEST = *."FULL OR PARTIAL ELEMENT NAME " !!!! REQUEST THE KEYPRINT "",+ "", COL 40, "MOSTEK CORPORATION",= SKIP 2, COL 22, "DATA ELEMENT SUMMARY BY ELEMENT NAME",C SKIP 2, COL 5, "DATA ELEMENT", COL 36, "COMMON NAME", COL 62,# "STATUS", COL 72, "REV DATE", SKIP 2-FOR DATA_ELMNT_DCTNR WITH NM_ELMNT GE REQUEST BEGIN@ PRINT NM_ELMNT(-),NM_ELMNT_CMN(-), COL 64, FLG_STS_ELMNT(-),' COL 72, DT_UPDT_LAST(-) USING 99/99/99 IF LINECNT < 15 THEN! LINECNT = LINECNT + 1 ELSEJ IF *."Y TO CONTINUE, N TO QUIT" CONT "Y" THEN !!!! ENTER Y OR N  LINECNT = 1 ELSE& ABORT " LIST TERMINATED BY OPERATOR" IF LINECNT = 1 THEN PRINT "", "",& COL 40, "MOSTEK CORPORATION",@ SKIP 2, COL 22, "DATA ELEMENT SUMMARY BY ELEMENT NAME",F SKIP 2, COL 5, "DATA ELEMENT", COL 36, "COMMON NAME", COL 62,& "STATUS", COL 72, "REV DATE", SKIP 2 END'PRINT COL 28, "**** END OF LIST ****"7CONT = *."ANY CHARACTER TO CONTINUE " !!!!! WAIT END-PROCEDURE8--------------------------------------------------------DELETE DTRPDSHP_PROC;DEFINE PROCEDURE DTRPDSHP_PROCREADY SHIPCUST SHARED READFIND ALL SHIPCUST WITHJ (PS_STAT = " " OR PS_STAT = "C" OR PS_STAT = "R" OR PS_STAT = "S") AND" PS_S_YR = *."REPORT YEAR" AND' PS_S_WW > *."START REPORT WW " AND$ PS_S_WW < *."END REPORT WW ";]SORT BY PS_INV, PS_STYPEA, PS_STYPEB, PS_S_SER, DESC PS_PTYPEA, ASC PS_PTYPEB, PS_P_SER;REPORT ON DTRPDSHP.LISISET REPORT_NAME = "PRODUCT SHIPMENT LOG BY INVOICE ", COLUMNS_PAGE = 132;:PRINT COL 1, PS_INV, COL 10, PS_PTYPEA, COL 17, PS_PTYPEB,C COL 27, PS_P_SER, COL 37, PS_STAT, COL 43, PS_PRC USING $$$,$$$,' COL 51, PS_S_DAT, COL 58, PS_W_EXPR,? COL 65, PS_SO!LD, COL 74, ALL CS_NAME USING X(30) OF CS_REC ,# COL 105, PS_REPL_RMA USING X(8), COL 115, PS_C_PO;KAT BOTTOM OF PS_INV PRINT COL 34, COUNT, COL 43, TOTAL PS_PRC USING $$$,$$$NAT BOTTOM OF REPORT PRINT COL 34, COUNT, COL 40, TOTAL PS_PRC USING $$,$$$,$$$ END_REPORT; END-PROCEDURE . IF YOU TYPE IN 'DECLARE name = *.'NAME' YOU WILL GET FROM DTR= enter NAME: _____ WITH THE CURSOR WAITING FOR A RESPONSE.> YOU CAN ALSO JUST PUT THE *.___ IN THE FIND STMT (LIKE I DID); I"T WILL PROMPT YOU WHEN IT GETS TO THE STMT. PRETTY NEAT!C THE LAYERED DOMAINS...YOU JUST READY THE TOP LEVEL ONE WHICH LOOKS SOMETHING LIKE THIS:3 DEFINE DOMAIN name USING record-name ON file-name; 01 REC. 05 FIELD-1 FROM DOMAIN2 05 FIELD-34 FROM DOMAIN2D 05 ALTERNATE FIELDS OCCURS FOR DOMAIN3 WITH FIELD-1 = DOMAIN3-NBR! 10 DOMAIN3-NBR FROM DOMAIN3.E ANYWAY....IT'S PRETTY INTERESTING, BUT PROBABLY DOESN'T MAKE A WHOLE8 LOT OF SENSE UNLESS YOU SEE THE W #HOLE DEFINITION SETUP.ww0kkA THE HELP LIBRARY IN XEVE IS INVOKED WITHIN OUR XEVE.TPU FILE.%THE NEXT LINE IS AN EXCERPT FROM IT. ?help_text ("mk$utility_lib:xeve.hlb", topic, off, help_buffer);@YOU CAN COPY MK$UTILITY_LIB:XEVE.HLB ONTO YOUR SYSTEM, AS IT HASBWORLD=READ PROTECTION. YOU COULD ASSIGN MK$UTILITY_LIB TO WHATEVER<DIRECTORY YOU WANT TO KEEP IT IN, OR RECOMPILE XEVE.TPU AND DSPECIFY WHATEVER DIRECTORY YOU'D LIKE. THE ONLY CHANGE TO THE EDITORDIS THE "TWO WIND$OW" KEY. IT HAS BEEN MODIFIED TO ENLARGE THE CURRENT.WINDOW IF YOU ARE ALREADY IN TWO WINDOW MODE. wwhxk=$ FMS/TRANS FILE.FIL/LIST=FILE.LIS/OUT=ROFF_PRINT_DOCSCRN.FRM$ EXITwwq~k4$ FMS/DESCR/FULL/OUT=FILE.FIL ROFF_PRINT_DOCSCRN.FRM$ EXITww@߉k.paper size 58, 82.justify.no autojustify.autoparagraph.left margin 0 .send toc .left margin 2.right margin 82).tab stops 13, 21, 29, 37, 45, 53, 61, 69.no hyphenation .enable ba%r.control characters.flag substitute .flag accept.flags subindex !.style headers 7,1,6,7,7,2,1,10,4.literal )0HlqqqqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqkHx APPLICATION x REVISIONS xHtqqqqqqqqqqqqwqqqqqqqqqnqqqqqwqqqqqqqqqqqqqqqqqqqqqqqwqqqqqqwqqqqqqqqqquHx NEXT ASSY x USED ON x LTR x DESCRIPTION x DATE x APPROVED xHtqqqqqqqqqqqqnqqqqqqqqqnqqqqqvqqqqqqqqqqqqqqqqqqqqqqqvqqqqqqvqqqqqqqqqquH&x x86-17001 x xHtqqqqqqqqqqqqvqqqqqqqqqj xHx xHx 1.PREPARED IN ACCORDANCE xHx WITH MIL-STD-100, xHx 2.UNLESS OTHERWISE xHx SPECIFIED, DIMENSIONS ' xHx ARE IN INCHES. xHx xHx xHx xHx xHx xHx ( xHx xHx COMPUTER PROGRAM SPECIFICATION xHx FOR THE xHx TIME SPACE POSTION INFORMATION INTERFACE SYSTEM (TIS) xHx xHx xHx (B??)?) xHx xHx xHtqqqqqqqqqqqqwqqqqqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqqquHx REV STATUS x REV x x x x x x x x x x x x xHx tqqqqqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqqquHx OF SHEETS x SHEET x x x x x x x x x x x x xHtqqqqqqqqqqqqvqqqqqqqvqqqv*qqqnqqqvqqqvqqqvqqqvqqqvqqqvqqqvqqqvqqqvqqqqquHx CONTRACT NO. x ELECTROSPACE SYSTEMS, INC xHx x xHx F04611-86-C-0037 x RICHARDSON, TEXAS 75080 xHtqqqqqqqwqqqqqqqqqqqqqqqqwqqqvqqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquHx APVD xB. BILLINGSLEY x x DRAWING TITLE xHtqqqqqqqnqqqqqqqqqqqqqqqqnqqqqqqqu xHx ENGR x-----+-----------x-------x xHtqqqqqqqnqqqqqqqqqqqqqqqqnqqqqqqqu COMPUTER PROGRAM xHx ENGR xC. SWANSON x x SPECIFICATION FOR THE TIME xHtqqqqqqqnqqqqqqqqqqqqqqqqnqqqqqqqu SPACE POSTION INFORMATION xHx CHECK xC. REID x x INTERFACE SYSTEM (TIS) xHtqqqqqqqnqqqqqqqqqqqqqqqqnqqqqqqqu (B???) xHx DRAWN xR. GLASSEN x x xHtq,qqqqqqvqqqqqqqqqqqqqqqqvqqqwqqqvqqwqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqquHx x SIZE x CODE IDENT x DRAWING NO. xHxPROJECT DRAFTSMAN: J. EPPES x x x xHtqqqqqqqqqqqqqqqqqqqqqqqqqqqqu A x 33875 x 86-17014-000 xHx tqqqqqqvqqqqqqqqqqqqnqqqqqqqqqwqqqqqqqqqqquHx x SCALE NONE x REV. xSHEET 1 xHtqqqqqqqqqqqqqqqqqqqqqqqqqqqqvqqqqqqqqqqqqqqqqqqqvqqqqqqqqqvqqqq-qqqqqqquNmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj>.end literal 4.title _ Computer Program Specification For TIS .no flags substitute .autosubtitle.left margin 5.right margin 85.page.require "header.rnt".page.require "part1.req".page.require "part2.req".page.require "part3.req".page.require "part4.req".page.require "part5.req".page.require "part6cpu.req".page.r .equire "part6scp.req"ww@4~.literal )0ElqqqqqqqqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqkEx APPLICATION x REVISIONS xEtqqqqqqqqqqwqqqqqqqqqqqnqqqqqwqqqqqqqqqqqqqqqqqqqqwqqqqqqwqqqqqqqqqquEx NEXT ASSYxUSED ON x LTR x DESCRIPTION x DATE x APPROVED xEtqqqqqqqqqqnqqqqqqqqqqqnqqqqqvqqqqqqqqqqqqqqqqqqqqvqqqqqqvqqqqqqqqqquEx 86-25001 x BAREBOAT x xEtqqq/qqqqqqqnqqqqqqqqqqqu xEx 86-25002 x BAYMAN x xEtqqqqqqqqqqvqqqqqqqqqqqj xEx xEx 1.PREPARED IN ACCORDANCE xEx WITH MIL-STD-100, xEx 2.UNLESS OTHERWISE xEx SP0ECIFIED, DIMENSIONS xEx ARE IN INCHES. xEx xEx xEx xEx PRELIMINARY xEx BAREBOAT/BAYMAN xEx 1 ANTENNA CONTROL PROCESSOR xEx SOFTWARE PROGRAM xEx SPECIFICATION xEx xEx (B010) xEx xEx xEtqqqqqqqqq2qqqwqqqqqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqwqqqqqquEx REV STATUS x REV x x x x x x x x x x x xEx tqqqqqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqnqqqqqquEx OF SHEETS x SHEET x x x x x x x x x x x xEtqqqqqqqqqqqqvqqqqqqqvqqqvqqqnqqqvqqqvqqqvqqqvqqqvqqqvqqqvqqqvqqqqqquEx CONTRACT NO. x ELECTROSPACE SYSTEMS, INC xEx x xEx RESTRICT3ED x RICHARDSON, TEXAS 75080 xEtqqqqqqqwqqqqqqqqqqqqqqqqwqqqvqqqwqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqquEx APVD xT. BRATTON x x DRAWING TITLE xEtqqqqqqqnqqqqqqqqqqqqqqqqnqqqqqqqu xEx ENGR xR. PATRICK x x xEtqqqqqqqnqqqqqqqqqqqqqqqqnqqqqqqqu BAREBOAT/BAYMAN xEx ENGR xL. STOCKTON x x ANTENNA CONTROL PROCESSOR xEtqqqqqqqnqqqqq4qqqqqqqqqqqnqqqqqqqu SOFTWARE PROGRAM xEx CHECK xC. REID x x SPECIFICATION xEtqqqqqqqnqqqqqqqqqqqqqqqqnqqqqqqqu (B010) xEx DRAWN xR. GLASSEN x x xEtqqqqqqqvqqqqqqqqqqqqqqqqvqqqwqqqvqqwqqqqqqqqqqqqwqqqqqqqqqqqqqqqqqquEx PROJECT DRAFTSMAN: x SIZE x CODE IDENT x DRAWING NO. xEx R. SHAW x x x xEtqqqqqqqqqqqqqqq 5qqqqqqqqqqqqqu A x 33875 x 86-25802-000 xEx SYSTEM ENGINEER: tqqqqqqvqqwqqqqqqqqqnqqqqqqqqqqqqqqqqqquEx J. HOLYOAK x SCALE - xREV. x SHEET 1 OF xEtqqqqqqqqqqqqqqqqqqqqqqqqqqqqvqqqqqqqqqvqqqqqqqqqvqqqqqqqqqqqqqqqqqquKmqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqj>.end literal wwXoՕ,.PAGE SIZE 55,68 .! PAGE SIZE lines, columns.LEFT MARGIN 4.RIGHT6 MARGIN 68 .NONUMBER.BLANK 2.LIST .LE;DCL Magic$.LE;SMG Support of non-DEC Terminals.LE;Proper Use of AUTOGEN.LE;Using the Debugger#.LE;Introduction To C (Let's C Now)..LE;Application Security Via Password At Login=.LE;DEC Architecture and Peripherals (or DEC Terms Explained).LE;Writing a Program Generator!.LE;System Management War Stories.LE;UNIX Tape from DECUSN.LE;DEC Layered Product Overview (includes LSE, TDMS, DTR, RDB,DBMS,RALLY,...)!.LE;DCL Tables and Help Librarie7s5.LE;HOST/PC Integration (Workstations For Management).LE;VMS For the Beginner.LE;RUNOFF Tutorial.LE;Computer Room Design.LE;Introduction To OPS5-.LE;Grace Hopper Keynote Address (DECUS tape) .LE;DECtalk>.LE;VMS Roundtable Question and Answer (If Enough Participate).LE;Message Facility.LE;RMS Tuning.LE;System Dump Analyzer .LE;Graphics.LE;VAXsim and SPEAR.LE;Introduction to EVE*.LE;A selected topic for the Rainbow Users .LE;VAXmate3.LE;System Services from 2 or 3 diff erent languages.LE;Building a Run-Time Library .LE;VIKING .LE;KERMIT.LE;Introduction to ALL-IN-1.LE;Disk Tuning .LE;VAXELN0.LE;VAX Magic Video Tape (Useless Product Group).LE;SPM (Performance).LE;Disaster Recovery .END LISTww