RECSIZE=256;BLOCKFACTOR=1;CODE=1029;EXTENTS=1;FILESIZE=165;FORMAT=F  }y1CPFH@L@BHF$f|u sl.pub.sys wX  T/ Nrv5a !1A1SRBhfUT.+10/,('&%$#@<82(6@1SRBhfUT.+10/,('&%$#@<82(6@*S *S C gÊ ݆$ C S GS *S GS J ݆$ C S *S C S C $HGS *S S*S4CG  C 34C C 34CG ( C 34C$ DC SCgÑ݆‹ "s  3GS4C$ DEC SN݆ˆC 3*S4C?>3S*SCg˩CS݆#C$"„C$']CS C c  ݆#PC  3C sSC SC S ݆…݆74C:SSC%SC SCc ݆#CC$"„C$'SCSCc ݆#ECSC SCCCsS#.4CSSC SCc ݆S݆$ KCc *S 0/*C݆#C$"„C$'^CS C c  ݆#QCC  3C sSC SC S C£E4C/S*SCg˞Cݳ݆#C$"„C$'SCS C c ݆#EC SC S  ݆C)4*SCc Å4C SCgÅ4CSC SCc CgSC S݆C%S4CSC?G 30SC SCc ݆J݆#"a"z " C& S#톡݆#"A"ZC% S#톳݆DCc 14CC SCgÓ݆MCC  3" GS4CC SCgÓ݆MC#C  3 GS4::SG:S:S:#C%SC%SG$*S% JR JL JC SL ST SA SS DS US DN UP NR NS RP RS FL FT NL EX AD AN SF ML "G #*SC*SSS " #*S݄$!H݄݄$,D*S݄$;F*S*S݄CCC$E " "G 3,C"GC"2(SC"ˇx4SGNRZv*S*S"AS" S*S"aS* Su"AS" Sm"aS* Sea*S[&SU*SSMKSGPSAC $C WWS5I1S_+*SY%SSnqtwz}CCG 33 AS *S C S C $HGS *S S*S4CG  C 34C C 34CG ( C 34C$ DC SCgÑ݆‹ "s  3GS4C$ DEC SN݆CC2‚2C$ISC @3Hit any key to continue, / to stop: "$ ""2‚2C*2D$/B2C @AM" ""2@ W#C( S4 :S:CSS:)CSS :2C S S :SCSn @!ACCTDUP is a utility that can be used to 'duplicate' the account"@ "sS @" structure of MPE accounts/'Account Sets' from one HP3000 host to"B "sSɳ @ another. (Private volumes work ONLY in MPE/iX)."2 "sS @ " "sS @"Only users with 'SM' capability can specify 'Account sets', while "A "sSԳ @" users with AM capability are restricted to generate the structure"B "sS @ of their specific MPE account. " "sS @ " "sSx @The utility is executed as follows: "# "sSX @ RUN ACCTDUP[;parm=n][;info='val1;val2;val3;...'] "5 "sS/ @ " "sS  @ Parm <> 0 AND 'SM' capability invokes the 'CLEANUP' option."< "sS @ (It is retained for backward compatibility reasons)."8 "sSʳ @ " "sS @The different 'info' string values are: "' "sS @!AUTO - Eliminates some prompts and assigns the default values:"@ "sSk @ Assign Jobname of [GENACCTS]"& "sSJ @ Replace old version [Y]"& "sS) @ Submit stream file [N]. "' "sS @ " "sS @CLEANUP - Directs the utility to create two additional jobs."< "sS̳ @" 'JGENALL' to stream the generated jobs for ALL selected accounts"B "sS @ and 'JCLEANUP' to 'cleanup' the mess."( "sS{ @ " "sSl @#CMUDCSTYLE - Directs the utility to create the UDC related commands "C "sS< @" in the MPE/V format (without using the 'append parameter of the "A "sS  @" 'setcatalog' command). This provides a method for generating a "A "sS޳ @" 'compact' list of all the UDC files 'set' in a specific account "A "sS @ " "sS @HELP - Prints this information AND terminates. "1 "sSy @ " "sSj @!HPSECURITY - Valid on MPE/V machines. Indicates the presence of"@ "sS< @ the Security Monitor software and alters the [new/alt]user"< "sS @ command to include 'USERPASS=REQ' if set. "+ "sS @ 'SETJCW HPSECURITY=1' has the same effect.", "sSȳ @ " "sS @#NEWACCOUNT='MpeAcctName' - Directs the utility to create a jobstream"D "sS @# where the account name is replaced by the value of 'MpeAcctName'. "C "sSY @! Can be used to 'clone' an account's structure with a new name."@ "sS+ @ " "sS @"NODEFAULTS- Directs the utility NOT to include the FILES, CPU, and"B "sS @" CONNECT parameters in the job stream, if set to default values. "A "sS @ " "sS @#NODIRS - Directs the utility NOT to include any 'posix' directories "C "sS @ that may be defined below each selected MPE account "5 "sSV @ (Moving from MPE/iX to MPE/V ?) "! "sS7 @ " "sS( @!ROOTDIR - Directs the utility to create an additional job-stream"@ "sS @" ('ROOTDIRJ') containing all the commands needed to re-create ANY"B "sS˳ @" 'posix' directories that are defined below the 'root' directory."B "sS @ It is acted upon, when the requestor has 'SM' capability. "; "sSp @ " "sSa @"UDCJOB - Directs the utility to create the file 'JSETUDCS' which "A "sS2 @" contains a job for each account with set UDCs. Used to set the "A "sS @" UDCs after the files are restored. Have used it to 'fix/clean' a"B "sSԳ @ corrupted COMMAND.PUB.SYS file. "! "sS @ " "sS @"UDCJOBONLY - Directs the utility to ONLY create the JSETUDCS file "A "sSw @ for the purpose of 'fixing' 'command.pub.sys' "/ "sSQ @ " "sSB @#DS=HostName - Used to identify a 'remote' machine from which the MPE"D "sS @" accounts will be extracted. The user MUST know the MANAGER.SYS "A "sS @ passwords for the remote machine. "# "sSó @ " "sS @#GETHVS - Include any private volume information currently associated"D "sS @" with the account, so that they can be used to rebuild it in the "A "sSU @ destination machine." "sS< @ " "sS- @#SYSFILES=nn - For accounts without any 'objects' on the '$SYS' set, "C "sS @ reserve 'nn' sectors to allow building posix directories. "; "sSѳ @ (MPE/iX requirement). Default = 0 "# "sS @ " "sS @"STAGEGROUP='MpeGroupName' - The utility will place its streamfiles"B "sSs @" in the indicated group. Said group MUST already exist, the user"B "sSD @! MUST have SM capability, AND the group will NOT be included in"@ "sS @ the account structure." "sS @ " "sS @!STAGEINCLUDE - Overrides the default behavior of the utility and"@ "sS @" will include the 'STAGEGROUP' in the job stream to recreate the "A "sS @ account structure." "sSx @ " "sSi @!VS=NewVolSet- Generate the needed commands for creating/updating"@ "sS; @ the specified account on the indicated 'NewVolSet'. "7 "sS @ " "sS @#NOPM - Do NOT use 'Privileged Mode' routine to extract the correct "C "sSҳ @! user 'local attributes'. Accept the values as reported by the"@ "sS @ LISTUSER command. " "sS @ " "sS} @#:NOTE: The additional CV & UV capabilities required with the GETHVS "C "sSM @" & 'VS=' parameters will be 'included/added' in the stream file."B "sS @ " "sS @# If NONE of the account's groups reside in the '$SYS' Volume Set "C "sS߳ @# AND 'sysfiles=nn' has NOT been specified then a 'files=0' parameter"D "sS @" will be issued for the '$SYS' volume set's entry for the account."B "sS @ " "sSq @# If no user with AM & BA capabilities is found, the user XZMGRZX "C "sSA @" will be created to allow account re-creation. Said user should be"B "sS @ removed after ALL duplication tasks are done.". "sS @ " "sS޳ @# ALL stream files generated by this utility are saved with their "C "sS @ 'access matrix' set to 'Creator Only' for added security.": "sS @ " "sSt @# The 'POSIX' directory related parameters will work correctly as "C "sSD @" long as the 'absolute directory name' does NOT excceed 254 chars."B "sS @ " "sSG4 @ *** WARNING *** " "sS @# A problem exists on how 'User Local Attributes' are reported by "C "sS @! the LISTUSER command. 'PM' mode is required to get the correct"@ "sS @" value. If your site uses 'User Local Attributes', make sure that"B "sS` @# the 'PM' capability is added to this utility. The added capability"D "sS0 @" will NOT help when using the 'DS=remotehost' option. That option"B "sS @ MUST rely on the LISTUSER's command output.", "sSݳ @ " "sSγ @!Paul H. Christidis Raytheon Systems Company "? "sS @ (310) 952-4666 Christidis@raytheon.com"> "sSs @ " "sSd311R @# AND 'sysfiles=nn' has NOT been specified then a 'files=0' parameter"D "sS @" will be issued for the '$SYS' volume set's entry for the account."B "sS(S,S)(S,S,S)(S,S,S,S,S,S)G: c* SS:*S*SS:S:S:PS:$ {  CGet_Posix" ""2SS SSGSC comment --- Posix directories for: "& #: @j" C 2C"2C" 22;F-;: @{" C 2C"2C"&2$/A"2B/"F.*22/ FROM: 99"2;C"GC222;: @" C2C"2C"&2C"GC222;: @" C 2C"2C" 22 @" C2C"2 setvar HpAutoCont true+ I"2; 2;G‚ZGACTZ 99"": @2 S;W‚G"2G"2G2 C  LISTFILE^" ""2C"GC"C2CG%,-2;seleq=[object=hfsdir]>*xyzyL""2 #GC REMOTE^=" #"PS SA ,RP^ ,NL;999C 2 ;C"s " ""2 #C 2"S ZGACTZ 99"": A2 S;W‚vG: : 82‚ŁC " #C"C C""2GC*2S „řC …8C " BC"s S CC C""2 AC""2 @S C S ļC" PATH= " ‚@SCCC" " 2"2F-C"F.B/""2CF.%CF0% ""2 AC""2 @S Crepacd=(" ""2" S p : o9C"C *2"2 AB^C"'  " BSCCC C"' ""2 AC""2 @S *SCC "C" ""2C"s ":""2 #C"s "C" ""2"#s S SA ,NL;o99C 2 ;C"s " ;""2 # C C"S : @" C2C"2  newdir &999" 2;2;C&" #CC " i""2 # "S"NC "Msc CC 6" #: @ " C2C"2CC"N*22C"22;U(C"s ";&""2 # : @" C2C"2  altsec &6999" 2;2;C&" #"S"NC "Msc CC 6" #: @" C2C"2CC"N*22C"22;U( CC "a)""2 #C&" #"S"NC "Msc CC 6" #: @" C2C"2CC"N*22C"22;U(SC repacd=(" ""2" S SCCDG*23GSGSC2" 2 2:  c* SS:(S :S :S :$ {  C GetRootDir" ""2CROOTDIRJ" #C" C" 2">2C""*P"8" @@2 S-‚CSC"2C"P22C ! comment Date: " ""<2C" 2C"1 C" 3C"2C" 22C"2C"P22C" --- Processing ROOT DIRECTORIES:" ""#2C"2C"P22G‚ZGACTZ 99"": @2 S;W‚G"2G"2G2 S C 7!\" #C LISTFILE^/@,6;seleq=[object=hfsdir]>*xyzy"0 "" 2GC REMOTE^e" #"PSA ,RP^ ;OA99C2 ;C";  " #C2ZGACTZ 99"": Ar2 S;W‚c""*P"8@2 S(‚GC*P2S„ CCC2ʂC2CC*P2S„ŖOCBJSA ,NL;99C2 ;C/L" ‚4C C"C" "P2"2--- Processing ROOT DIRECTORY: +I"2;C " 22C C 2 XC2 C ‚ WG@C"2 !EOJ A9"2;2C PURGE ROOTDIRJ E" ""A2C" C" 3C"  " #C2CC:82C" "2 3 CSGSCSC2" 2 2  ( 1 *P"8" @@S-‚CSC"C"PC ! comment Date: " ""<7C" C: c* S:S:S:$ {  CSort_File*" ""2"SG#_#_G#_G#_#_G2CCGCC: @223 QQ8" @@S-‚CSC"C"PC ! comment Date: " ""<7C" C:  c* SS:SSSSS :$ {  C Get_UdcUsers" #SS COMMAND; A99"": @2S;V+‚\UDCUSERS A99""*("8@2S;V*(‚@F+C"2S„3G$‚CC" „G CWF*C"2‚ #C P)C $ÂF*"2"""(*2;3F+2F*2" 22 ( 1  A99"": @S;V‚\UDCUSERS A99""*("8@S;V(‚@F%C"S„3G$‚CC" „G CWF ("comment CONTINUE",/,S): c* SS:C UN" ‚ J(AC " "2@SC C2]C "2 SCVe6 ˏH 4Rp}B%CCC""2B$C" 3ŇC UN" ‚ œ( AC " "2@SC C2ŦC UN" ‚ Ų( AC " "2@SC C2C UN" ‚ (AC " "2@SC C2F C YES" B V F B C " 3"S"" N‚"^C" B C " 3;C" B C " ‚"~^;U"C$ Vųij6ˈH% J B%CCC""2CB%" 3CC"s""2BC " 3B!C" 3B%C2#F 2 "CCCC22 #C" 2#C "2 SCCFSCVJB" C "J 3G$…F F T"PSNL;9B2UVAB"P"2F‚B"s",UV"P"2 #"sSAMAB"P"2FBCVAB"P"2F‚B"s",CV"P"2 #Ŭ"SSA ,NL;99C2;CBſC$ B BC";"P"2 #CE " CCX" #BC"C"P"2B"s":"P"2 #B"sCC"P"2B"ss"); &"P"2 #Cs%S;#"""@2 S3: c* SS: S:S:$ {  CGet_NextAcct" #CA =" ""2 "S"SCACCOUNT:" #"S" SGC" 2S„.C"CC"C""2‚ CCC"""23C****" B5(WG2#"""@2 S3G2" 22 : c* S" @S:)S:$ {  CSM_Acct_ReqX" ""2 CREMOTE _" #"QC  " #?AC""2F‚ @#AC""2F‚ #AC""2F‚ uWGFG‚qCFBUILD ZGACTSM;REC=-80,16,F,ASCII;DISC=90000;TEMP"P"02 #C2CFFILE XYZYSM=ZGACTSM,OLDTEMP;TEMP;ACC=OUT P"P")2 #C2F#CFFILE ZGACTSM"P" 2 #C" v"B"P"2CF"P22CF^LISTACCT^XXXXXXXX,*XYZYSM M"P"2 #C" v"C"P"2": @ " C!2%!PURGE 99"2/;CO"2/2$ @ " CC2%!STREAM 99"2/;CO"2/2$; C[CZ" 3CnCEnter^JOBNAME^for^XXXXXXXX^account^[XXXXXXXX]^?S"/ ""!2*C" B/" 3C"$ CZ" 3"2CCb2"2%C"?AC"P"2@*P2+2/2$C[CZ" 3" C%"2C%C*2SCBC[C "C""2)C[ " B:C  " #C " C " " 3: @" C:"2%C "2/2$; !GUA*9"C "2A6ˈHD;"2%"* * Something is wrong here (A/G/U =)+I"&2/;C "2/2$C@STOP : @" *2-2,"2C'B,2*S'~C'"C 2$"S>"S"""": @" C:" 2%C>S""s>Cr 2.U2$;"s>S>UC(C' 5SB,@SYS " ‚"B,2"B,2C8C CGC42‚C C! comment Date: " ""<2*C" 2C"1 CR" 3C8CCGC42C" --- Processing the ACCOUNT --->>" ""#2*C". B/" 3F-C"9 FROM: " #C"? B," 3C8CCGC42C8C"C42: @" C)2%B/"2/2$;HF F ?: @<" C) 2%B/"2/L2"2$; @+" C) 2%B/"2/B " 2/2$: @" C) 2%B/"2/H2"B " 2/2$;C!ALTACCT^XXXXXXXX;pass =XXXXXXXX;files=XXXXXXXXXX;"2 ""2*C"2 maxpri=XX;^&" #C" B/" 3C" B " 3CT ;" ""2*B  " BCT/" #CT" B " 3:C"' "" 2" 3;C EC"!  " ""2*F F C"!  #" ""2*C"9 CfF-y(2'""" 2)"ACCb2C8CCGC42C!^cpu=XXXXXXXXXX;connect=XXXXXXXXXX;locattr =XXXXXXXXXX;^&": ""2*:C" "" 2" 3;C EC"  " ""2*:C" "" 2" 3;C EC"  " ""2*:C"- """ 2" 3;""S"""": @" C:" 2%C>S""s>Cr 2.U2$;"s>S>UC CDB%CQ" " CC+ comment --- Processing the GROUP --->>"- ""#2*C". B%" 3B%PUB " ‚ C$ CA 7 SEC8C"C42C8CCGC42C8C"C42CE: @" C)2%2$; : @" C)2%B%"2/2$;CE: @" C)2%2$;*SAF C: @@" C) 2%B%"2/L2"B " 2/2$; @+" C) 2%B%"2/B " 2/2$; @" C) 2%B%"2/2"B " 2/2$;C+ALTGROUP^XXXXXXXX;pass=XXXXXXXX;files=XXXXXXXXXX;"2 ""2*C"2 cpu=XXXXXXXXXX;^&X " #C" B%" 3C" B$" 3B%PUB " ‚ CX " ""2*B$ " BCX/" #CX" B$" 3:C"' "" 2" 3;F C EC"!  " ""2*C*F @S*:C"6 "" 2" 3;C EC"2  " ""2*"FCCb2C8CCGC42C B.C +^connect=XXXXXXXXXX;^&; " ""92*:C" "" 2" 3;"CCb2C8CCGC42C'CB"P 3C8CCGC42CB"P 3C8CCGC42ěC+^cap=" ""J2*"S$FW"S""P8!yDCC$"CVC'""P" 2&C"s$","P"2' #"s$S$9!yU+CC$";^&f"P"2' #"PCCb2C8CCGC42C+^access=(" ""F2*#N-.N.^#N-#N.^" S$"S"""""NW"S""CC$"C"" C C""P"2&C"s$"g:"P"2' #$$C$S"S""P9!yBCC$"CWC'""P"2&C"s$","P"2' #"s$S$9!yU)CC$";f"P"2' #C$cC$$U^UgCC$") f"P"2' #"PCCb2C8CCGC42.C'"C 2$"S>"S"""": @" C:" 2%C>S""s>Cr 2.U2$;"s>S>UC=*S=F F : @" C)2%2$;"B%2Co+ comment --- Processing the USER --->>"- ""#2*C". B%" 3C8C"C42C8CCGC42C8C"C42: @" C)2%B%"2/2$;CH+ALTUSER^XXXXXXXX;pass =XXXXXXXX;maxpri="( ""(2*C"( XX;locattr=XXXXXXXXXX;home=XXXXXXXX;^&"& #C" B%" 3C" B!" 3C"( CfF-y(2'""" 2):C"3 #"" 2" 3;C"C B" 3"PCCb2C8CCGC42C'CB"P 3C8CCGC42AMAC"P"2F‚ #N-BXC0S7CB% MGR " ‚CBAAC"P"2F‚ #N-q$B C' 7 @S0C0C7S0$CPB%" 3CY Z" ""2*B! " BCY/" #CY" B!" 3C']C+^cap=" ""J2*"S$"S"""""NW"S""P8!yD"CC$"C"" C C'""P" 2&C"s$","P"2' #"s$S$9"!yU/U8$CC$" "P"2' #F-1ƒC#6CC$"; "P"2' #C$$EÂCC$"; & "P"2' #C8CCGC42"S$C"s$userpass=REQ"P" 2' #C8CCGC42CP " ‚ C0 SC+C'4C\+*" #C/6" #C" B," 3C" /6" #" SSA ,NL;699C2;CC\82CCP xzMGRzx " #CU+JOB^JJJJJJJJ,UUUUUUUU/PPPPPPPP." #CU" AAAAAAAA/PPPPPPPP,PUB/PPPPPPPP" ""2*CU" C[" 3CU" CP" 3CU" CY" 3CU" B/" 3CU"( CT" 3CU"5 CX" 3"FCUCb2CCU"P 3SF'yF("42F(2C7CF"2%!continue*A99" 2/;2$CF"2%!STREAM ,+A99" 2/;2$CCU"P 3CCCGC42F(C"(2S„LC8CCGC42C$C>C" +" #C$C"  " ʈCF"2% 0+CONTINUEA99" 2/;2$CF" 2%C" "H2/2$UC)"2% +EOD9"2/2$C)"2%+ SETCATALOG UDCALERT.PUB+ I"2/; 2$C)"2% +ENDIFA9"2/;2$F(82CfC+TELLOP^^UDCs^for^the^XXXXXXXX^account^were^set..E"1 ""2*C" B/" 3"FCCb2CCCGC42C?}CF"2% )+COMMENT Use FCOPY and FEQs ';DEL' to purge 'UDCALERT' fileF+I";2/;2$: @ " CF2%+FILE X=UDCALERT.PUB,OLD;DEL+I"2/;2$ @ " CF2%l+FCOPY FROM=*X;TO=;SUBSET=,1+I"2/;2$; CF"2% +EOJ9"2/2$C"42C+TELLOP^account^structure^for^XXXXXXXX^was^revised"2 ""2*C" B/" 3"FCCb2C8CCGC42CC!+TELLOP ** Account lacked 'AM' user OR the 'AM' user did NOT ** "@ ""2*C8CCGC42C!+TELLOP ** have 'BA' capability. The user 'xzMGRzx' was added ** "@ ""2*C8CCGC42C!+TELLOP ** to facilitate re-creation of account. Investigate ** "@ ""2*C8CCGC42C!+TELLOP ** and remove after ALL tasks (UDCs, etc.) are done. ** "@ ""2*C8CCGC42C'xzMGRzx.n" ""2*C" B/" 3C" 'n" #"S1SA ,NL;99C12;:& @" " 2%C"C1*P2+2/2$;C[+EOJ" ""L2*C8CCGC42C!" #C8CCGC42CCU"P 38JF F F C88 2"S1"S,F "S"" NC; Nc,NS,CS1UB C1" B " 3: @" C) 2%B/"2/H2"B " 2/2$;8 JC8CCGJ2C N!NEWACCT^xxxxxxxx, " "">2*C" B/" 3C" CP" 3"CB2C8CCG82F F C !^newacct^xxxxxxxx,, " ""=2*C" B/" 3C" CP" 3C" ;onvs=" #C"" B " 3"FCCb2C8CCG82C !^altuser^xxxxxxxx., " ""=2*C" CP" 3C" B/" 3C" ;cap=+CV,UV " #"FCCb2C8CCG92C*2C !^altacct^xxxxxxxx " "">2*C" B/" 3C" ;cap=+CV,UV " #"FCCb2C8CCG82C"42‚C"42‚*S C? C8"2ʂ"2% Account name: + I"2/; B,"2/2$"2% Groups found: A999" 2/;2.2$"2% Users found: A999" 2/;.2.2$"2% Will save Jobfile as: + I"2/; CN" 2/2$C8" "2‚CFzCOK^to^Stream^xxxxxxxx^(Y/[N])^?" ""12*C" CN" 3"!CCb2"2%C"?AC"P"2@*P2+2/2$" C%"2C%C*2SCBCg"C "26ˈHBACSTREAM " #C" CO" 2".2*C62 C6B"2% STREAM ERROR =A999"2/;62.2.2$qC86"2C6$dƒC`CCan^old^XXXXXXXX^file^be^purged^(Y/[N])^?^"* ""&2*C" CN" 3"*S9SA ,NL,RP^ ;999C92;" 2%C"C9*P2+2/2$" C%"2C%C*2SCBCg"C "26ˈH32C[^XXXXXXXX^]^Is^NOT^a^valid^filename*"% ""+2*C" CN" 3"&CCb2"2%C"&2/2$"2%Enter NEW name to use ? + I"2/; 2$" C%"2C%C* 2SCB+CNC "C" "2)C "s";""2' #CDC "s" CQ"" 2(C8C 2!BQCPURGE " #C" CO" 2"/2*C62 YF-HF|C5F?"2%#--- Generating jobstream for 'ROOT' directories +I"/2/;2$C C`CQCR2 "2% A"2/2$F+2C"2CRESET XYZY" ""F2*C62 C" COMMANDE" #C62 F("2C<$C" XYZYSM " #C62 C PURGE ZGACTSM,TEMP " #C62 C/C: @ " CC2%M!STREAM 99"2/;C`"2/2$; CC"2% !EOJ9"2/2$C PURGE JGENALL " ""A2*CDC" CQ" 3C62 C: @ " C!2%!PURGE 99"2/;C`"2/2$; C!"2% !EOJ9"2/2$C" JCLEANUP " #CDC" CQ" 3C62 C2" "2C3" "2C2CF"2% !EOJ9"2/2$C PURGE JSETUDCS " ""@2*CDC" CQ" 3C62 C" "2FDCRESET ZGACTZ" ""D2*C62 C" ZGACTSM " #C62 CREMOTE BYE " #C62 CDSLINE;CLOSE" #C62 STOP : @" *2-2,CS6F(S6 C8S6 C2S6C3S6CS6C62"22, 1  1 (   ''11 1 y/--- GeneIIO'.PRINT'5- F'SYSTRAP#DIO'@"FRENAME! FINDJCW  FCHECK FWRITEDIR GETINFO WHO STR'CCHRLL' SOFTERROR'DBINARY  DIRECFIND GETPRIVMODE  GETUSERMODE  BINARY  CCHRLS'CCHRLPB'FUNLOCK FLOCKFREADDIR SORTINITSORTENDACHRSL')FPOINTDATELINE FWRITE SIO'/ TERMINATE'  ,SUBSTR'+ BLANKFILL' *ACHRLS' (ACHRLPB' 'ACHRLL'&FMTINIT' %TFORM' $FCLOSE QUIT FOPEN FREAD FSPACECOMMAND    PRINTFILEINFOFGETINFOFCONTROL PRINT TERMINATEREADXINDEX' QUIT ACCTJOByEN FREAD FSPACECOMMAND    PRINTFILEINFOFGETINFOFCONTROL PRINT TERMINATEREADXINDEX' QUIT QQQQQRRRa ESS'REFORMATREFORMATEAGP'HELPDOHELPUR POSIXDIRSHGETPOSIXGETROOTDIR&SORTFILELSORTFILEF GETUDCUSERS GETUDCUSERS GETUDCINFOHUDCINFO4 GENACCT$GETUDCPNTR{GETXLINFO{r{GETNEXTACCTSMACCTREQllSYSTEMTRAPACCTJOB0&|ACCTJOB&KyCUSERS GETUDCUSERS