% VAX-11 Librarian V04-00Dmˏ\mˏ! !  UIF310UIF3201dؗ600UIF310030-Oct-1984 14:2330-Oct-1984 14:23VAX COBOL V3.0-32]/CHECK=ALL/COPY_LIST/CROSS_REFERENCE/LIST/WARNINGS=(INFORMATION,OTHER) UIF300,UIF310,UIF320 UIF310l PD P `   `l l  COB$AB_NAML QQ@D P @ `   COB$AB_NAMLQQUIF310-1CQ  'QNNMNNNQ '  '  'Q  'Q P' '  'QQ00Q  '  <' 'Q  '  'Q00QUIF200UIFLIB_RLB:QUIF310QNQPG F QDISKUIF_MASTER:QD P `    `l l  COB$AB_NAML UIF_SECURITYD P @\  `   COB$AB_NAMLUIF310 - F - INTERNAL STACK OVERFLOW. CONTACT DP.Q2           ,`X820QInvalid choiceQ02QUIF320QSymbol in .JOB not found in symbol tableIllegal symbol type in symbol table (must be 9 or X)Undefined subroutine return status of Q       l  l l l l  l  l   )l Master record not foundQl  l Master file is corruptQ01PP UIF310|~ COB$HANDLERm^[Z COB$ERRORYLIB$AB_CVTTP_UXCOB$IOEXCEPTIONW,ntx F2ː ix x ˔ ː 1N 008 NN,n X ab,n N 43ʰgʼ SYS$CONNECTPg2 ge (@ F SYS$OPENPg@M g2     g SYS$CONNECTPg|TSS$OPENPY Y TSS$SIGNALPY ʌ TSS$OPEN_RLBPY Y TSS$SIGNALPY Yl ː P˔ x ː `|il Y1<4  SYS$CLOSE Pg <t ʐ SYS$CLOSEP(g) ʘ TSS$CLOSE_RLBPY Y TSS$SIGNALPY ʠ TSS$CLOSEPY Y TSS$SIGNALPY Nl ˘ P˜ x ˘ `|i,n ,n ,n | ix t t t 1 t JP@˼P00` t JP @˾ t JP,n <@˿ t JP @ t JP,n @ t JP @1r| x ,n ,n ˸| ix t t t  t P @| x (d( ˬ00P˴L2L˰ #˨ ix x ˬ ˨ ˰ ˠ Pˤ x ˠ `|i&Phn c$cLIB$AB_CVTPT_UP&cha6cP PPW@&Phn6cP P P( @˭  ȏ SYS$FINDʏ P4gYY,D PY SYS$GETP\g1&Phn6cP PJP@˼PP`&Phn6cP PJP)@˾M"&Phn6cP PJP(<@˿1&Phn6cP PJP(<@˿&Phn6nP PJP@˿R&hn6cP PJP( @ ix x  n P x  `|iYGYMTEY P x  `|i( l˔| ix  Z| ix TTT)TP PP@PTQ Q QAQ`å| x | x ( ˠ˔\ ` ʼSYS$GETPlgYYNNYT(  P x  `|i&hn6cP P P( @˭ ix x   *Y( P x  `|iML  SYS$GETP|gYY,ʌ PY P x  `|i)8 ʤ˘ ix x ˜ ˘ 1P P Q8\ PQ$Q  Q  fP>QQR QHQ " QQfQ:QQ Qn Q,@ Q 5 Q%Q ! Q] Qo QQQ" Q,)QxQQQ*Q Q UIF310'  :?PUIF310Ql  P:$CODE$LOCAL&$PDATACOB$NAMES_____2COB$NAMES_____4 DBM$SSC_B COB$AB_NAM COB$HANDLER COB$ERRORLIB$AB_CVTTP_ULIB$AB_CVTPT_U COB$DISPLAYUIF310UIF320COB$IOEXCEPTIONSYS$OPEN SYS$CREATE SYS$CONNECTTSS$OPEN TSS$SIGNAL TSS$OPEN_RLB SYS$CLOSE TSS$CLOSE_RLB TSS$CLOSESYS$FINDSYS$GET TSS$REQUEST COB$AB_SPANCww1vٗ600UIF320030UIF310UIF320-Oct-1984 14:2530-Oct-1984 14:25VAX COBOL V3.0-32]/CHECK=ALL/COPY_LIST/CROSS_REFERENCE/LIST/WARNINGS=(INFORMATION,OTHER) UIF300,UIF310,UIF320 UIF320hPDP `hh COB$AB_NAMQQ 'QD P  `\\ COB$AB_NAMQQ Q ' 'Q 'Q 'Q  'Q~Q  TSS$_NORMALTSS$_REQNOTFOUUIFLIB_RLB: 'Q  'PGD.F QUIF_TRANSACTION_DEFAULTS:QDP  `hh COB$AB_NAMUIF_COMMAND_DEFAULTS:QD P  `\\ COB$AB_NAM< XTRANSACTION_MENUTRANSACTION_ABORTQhhhh\  \ \ \ h\  h\ TRANSACTION_MODE$ @UQINTERACTIVEQ$ SUBMIT P!PP UIF320|~ COB$HANDLERm^[Z COB$ERRORYCOB$IOEXCEPTIONXUTL565W,nhˀH<H( tˈiˀˀˌˈV<K9FC˨iˀˀˬ˨1<iˀˀ1<PʨTSS$OPENP<<1ːiˀˀ˔ː-<ʰ TSS$CLOSEP<ˈPˌˀˈ`i TSS$OPEN_RLBP<<˘iˀˀ˜˘V9T ˀT<<L ˁH<< TSS$CLOSE_RLBP<ːP˔ˀː`i ˀˁ˄iˀˀTC<>9T68T. TSS$REQUESTP<ˠiˀˀˤˠ%˄ˀ˘P˜ˀ˘`iF9˄iˀDD2ˁPDP&2ˁP PdP DP?P-@D ʊ˄ˀ2ˁPDP%2ˁP PdP DP?P-@d FT9F8˄iˀDD2ˁPDP&2ˁP PdP DP?P-@D ʊ˄ˀ2ˁPDP%2ˁP PdP DP?P-@d FT8ˠPˤˀˠ`i.(hD(ЏB4SYS$OPENP<hH SYS$CONNECTPPh" \hV,n (ʴЏ6 $ h SYS$CREATEPph| SYS$CONNECTPʄh˄iˀ:Tg˰iˀˀ˴˰1:F>˸iˀˀ˼˸1iˀˀ1˄ˀ<04 SYS$CLOSEPʐh<$ h SYS$CLOSEPʜh˨Pˬˀ˨`iF:,n HSYS$GETPʨh2 HT:˰P˴ˀ˰`i40˄iˀ81<<148nV4PPP1@Pff7ff ԦԦ:fQ Pf pQl, Ц æPP48}ff*l, Ц@æPP48}f D0PPP4@ˀQPP R RRRVVPPV(VaV08iˀˀ11˄ˀ0˄iˀ0((( (((((P PP@P` Ҋ ˄ˀ˸P˼ˀ˸`i(|SYS$PUTPʸhPˀ`i˄iˀDD2ˁPDP22ˁP PdP DP?P@Q QQ-@D Q@ˡˀ2ˁPDP ˀ<12ˁP PdP DP?P@cXiˀˀeI2ˁP PdP DP?P@c9!iˀˀ1˄<Pˀ`i2ˁP PdP DP?P(@dL˄iˀ$$$P PP@KP` $ފ˄ˀ0PPP0@ˀQPP$R RRRVVPPV(VLaV0Pˀ`i2ˁP PdP DP?P&@dLIB$AB_CVTTP_Un8ck,kPPQPnPQ` Pn ,nPP˅iˀ<<,   n"  c! c a< c7 c 7< ٮ, n  c6 cRi RRBjPRQ-Q`0n˅ˀ<0PPP#@ˀQPPVVPPV(V0aV0T0PPPD@ˀQPR,P<S SSÃST PTP@jPSVVRRV(V`aV0Pˀ`i˅iˀDD2ˁPDP&2ˁP PdP DP?P-@D ʊ˅ˀ2ˁPDP,n ˈˈV(fSV: PPP||P(Pf gP<12ˁP PdP DP?P-@d ,n ˈˈV(fSV: PPP||P(Pf gP<v,n ˈˈV( fSV2P PdP DP?P(@dfSV( fSV: PPPVVP(Pf gP<Pˀ`i<PP Q4PDgPQ/ Q"! QvZQQtQQQkQQAQ,Q! Q(QEQ5QNQLQ%M UIF320   毝   ?PUIF320Qh\ Pt! $CODEt!$LOCALu$PDATACOB$NAMES_____2COB$NAMES_____4 DBM$SSC_B TSS$_NORMALTSS$_REQNOTFOU COB$AB_NAM COB$HANDLER COB$ERRORTSS$OPEN TSS$CLOSE TSS$OPEN_RLB TSS$CLOSE_RLB TSS$REQUESTCOB$IOEXCEPTIONSYS$OPEN SYS$CREATE SYS$CONNECT SYS$CLOSESYS$GETSYS$PUTLIB$AB_CVTTP_UUTL565ww