mim/mim/mimlib/jcl.msubr

   1 <PACKAGE "JCL">
   2 <ENTRY JCLARGS? READARGS>
   3
   4 <SETG \1ahndlr-IMSUBR #IMSUBR [|AAAADMCKFZA`H`H`HIDHAECOFYABBYCOFYAAFUBMHMAAAQBMHMAAAUDQABBADMAAA]COFYAAF[COHYAAFOAAAABMH]AAAAACCHCCE_CCE_CCE_BMH[H`HUCCE_CKFZA`H`H`HIDHAECOFYABBYBADMAAAUBCCQBOAJDHAWBCARBCDJAAAECKCBDHAMBADMAABEBAAYBACQCOHYAAFOBPB]AAAAAAAMDQABCOFYAAGMFQD]ABCBDHDOBLCIAAAEBKEABLCIAAAMBLCAAAAICKFZA`H`H`HIDHAECOFYABBYCKCVDPB]BADNAAAEBAAVCOFYAAFUBMGQBMHIAAAEBMHMAABIBMHMAABMBLCIAAAUBLCAAAAQDQACBADMAABUCOFYAAF[BCDNAAAUBCEABDCIAAAECTCVCQFNAAAEDAFUBADMAABEBAHNAAAIBAFNAAAMBADNAAAMBABNAAAICOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYBMH]AAAAAICCBMH]AAAAABAYBMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAH`ASFQD]ABCBDHA[COFYAAFUBMGABMGIDQABBADMAAB]COFYAAF[FRH]AAAAAAACDMAOBQD]AAAABAB]AAAAABCBCOHYAAFOBADMAABMBABMAABICOHYAAFOAAAACKFZA`H`H`HIDHAECOFYABBYBMH[H`EYBMH]AAAAABD_BMGNBMHNH`H]DMAEBNCNH`H]CLGWDQAADAAAH_FMFQD]ABCBDHBCBOAACCCHCICHF_F]AAAAAAABDOAMBQD]AAAABAB[H`FGCOHYAAFOGQF]H`H`AAAACQEICOHYAAFOAAAAAAAA| hndlr-IMSUBR SAVED-JCL GUNASSIGN %<GBIND
   5 SAVED-JCL T>  T I$STD-STRING!-INTERNAL LENGTH ]>
   6 <SETG \1aHNDLR #MSUBR [hndlr-IMSUBR HNDLR ("VALUE" ATOM ANY) 0]>
   7 <COND (<AND <NOT <GASSIGNED? JCL-HANDLER>> <GASSIGNED? HNDLR> <LOOKUP
   8 "INTERRUPT" <ROOT>> <GASSIGNED? <LOOKUP "INTERRUPT" <ROOT>>> <==? <TYPEPRIM FIX
   9 > FIX>> <ON <SETG JCL-HANDLER <HANDLER "SAVE" ,HNDLR>>>)>
  10 <SETG \1aGETJCL #MSUBR [hndlr-IMSUBR GETJCL ("VALUE" ANY) 40]>
  11 <SETG \1aJCLARGS? #MSUBR [hndlr-IMSUBR JCLARGS? ("VALUE" <OR ATOM !<FALSE!>>)
  12 236]>
  13 <SETG \1aREADARGS #MSUBR [hndlr-IMSUBR READARGS ("VALUE" <OR FALSE <VECTOR [REST
  14 STRING]>>) 340]>
  15 <ENDPACKAGE>