/*********************************************************/ /* MVSBATCH.CFG -- configuration file for MVSBATCH. */ /* This file consists of three sections */ /* (Globals, Models, and Defaults), all */ /* of which are required. */ /*********************************************************/ [Globals] /*********************************************************/ /* Globals: Place settings which do not belong in the */ /* user .INI file in this section, such as */ /* sensitive values or values which may be */ /* specified as a command line parameter. */ /* */ /* NOTE: Many of the variables defined in this section */ /* do not have default values. Therefore, do */ /* not delete any lines from this section! */ /*********************************************************/ /***********************************************************************/ /* Installation-specific settings. You will *probably* need to change */ /* these to suit your particular MVS installation. */ /***********************************************************************/ CfgHostName=mvs.cso.niu.edu. CfgPortNbr=2021 /* MVS logonid and password settings */ CfgLidPattern=ACCCCC9 /* A=letter; C=letter/digit; 9=digit */ CfgMinLidLen=7 CfgMaxLidLen=7 CfgPasswordPattern=XXXXXXXX /* X=any character */ CfgMinPswdLen=5 CfgMaxPswdLen=8 CfgDefaultRegion =2048K /* REGION value for macro // JOB card */ CfgFetchMsgClass =U CfgPrintMsgClass =A CfgDefaultPrintRoute=LOCAL CfgDefaultPagedef =L2DN CfgValidPagedefs ="L1DL L1DN L1SL L1SN L2DL L2DN L2SL L2SN P1DL P1DN P1SL \ P1SN P2DL P2DN P2SL P2SN" /******************************************************/ /* Printer definitions. Please obtain this */ /* information from an MVS systems programmer. */ /* */ /* For Pagedef, "none": don't use a PAGEDEF for this */ /* printer */ /* "*": use CfgDefaultPagedef or */ /* UsrCurPagedef (if set) */ /* */ /******************************************************/ VPSPC = "U900" /* route code for VPS/PC */ CfgMvsPrinters = 13 /* <=== number of MVS printers */ /* Printer Remote Writer Pagedef */ /* -------- -------- -------- --------*/ CfgMvsPrinter1 = "CSL RMT5 none L1DN " CfgMvsPrinter2 = "CSL2 RMT5 none * " CfgMvsPrinter3 = "HEEC RMT14 none L1DN " CfgMvsPrinter4 = "LOCAL LOCAL none * " CfgMvsPrinter5 = "MUC RMT15 none L1DN " CfgMvsPrinter6 = "SCL RMT24 none L1DN " CfgMvsPrinter7 = "UCL RMT7 none L1DN " CfgMvsPrinter8 = "FRL RMT57 none L1DN " CfgMvsPrinter9 = "*FETCH U999 none * " CfgMvsPrinter10 = "*SP113 RMT42 none none " CfgMvsPrinter11 = "*SP113X RMT46 none P2DN " CfgMvsPrinter12 = "*TEST RMT48 none * " CfgMvsPrinter13 = "*WYLBUR U999 none * " /******************************************************/ /* End of printer definitions */ /******************************************************/ CfgMvsVolList ="ACA301 ACA302 ACA201 ACA101 ACA102 ACA103 ACA104 ACA105" CfgTestMvsVolList="SYS121 SYS301 SYS302 SYS303 SYS304 SYSRES" CfgJobNameStartPattern ="$HASP373 " /* Text immediately preceding job */ /* name in sysout */ CfgJobNameEndPattern =" " /* Text immediately following job */ /* name in sysout */ /*********************************************************************/ /* Installation-independent settings. You may change these settings */ /* if you wish, but they will probably work for your installation. */ /*********************************************************************/ CfgIniFileName=mvsbtch2.ini CfgNews=NEWS /* file name of local news file */ CfgTitle="MVS Batch Facility" CfgSecondsBetweenUpdates=15 CfgDirectoryCommand=dir /* using ls will cause certain */ /* MVSBATCH functionality to be */ /* disabled. */ CfgJesRecfm=F /* JES record format (F or V) */ CfgJesLrecl=80 /* JES logical record length (1-254) */ /* PC settings */ CfgDefaultJclFileExt=JCL /* added to file name when user */ /* creates a new MVS job */ CfgDefaultJclFileMask=*.JC? CfgDispCmd=C:\windows\system32\edit.com /* X:\public\L.COM */ /* name of file viewer program */ CfgEditCmd=c:\windows\system32\edit.com /* X:\VEDIT\VEDIT.EXE */ /* name of editor */ CfgMaxFileNames=400 CfgMinFreeSpace=50000 /* minimum disk free space (user */ /* is informed of "low disk space"*/ /* if this threshold is reached) */ /* Global defaults which do not belong in .DEF/.INI */ /* UsrUseEms=0 /* allow/prevent swapping to EMS */ [Models] /***********************************************************/ /* Models: MVSBATCH FTP model definitions. These */ /* entries define the commands to be issued to */ /* invoke an FTP client along with the FTP */ /* subcommands necessary for the FTP session. */ /* */ /* :default DOS|OS2 model-name */ /* */ /* defines the default model for an operating system. */ /* These values are assigned to the global variables */ /* CfgDOS.DefaultModel and CfgOS2.DefaultModel. */ /* */ /* :model model-name DOS|OS2 command-template */ /* */ /* defines the model's name, operating system, and FTP */ /* command template. The names of required files may */ /* be preceded with a "/". At initialization, MVSBATCH */ /* will search its directory, along with the DOS path, */ /* to find each such file. If any file cannot be */ /* found, the user will not be allowed to use that FTP */ /* model. */ /* */ /* :body */ /* */ /* identifies the point in the FTP subcommand sequence */ /* at which MVSBATCH is to insert the appropriate FTP */ /* subcommands for the user-requested function. */ /* */ /* The remaining lines of this section which are not */ /* comments or blank will be interpreted as FTP */ /* subcommands for the current FTP model. */ /***********************************************************/ /* Defaults */ /* tiger */ /* :default OS2 OS2TCP /* :default DOS OS2TCPDOSWAIT /* :default DOS OS2TCPDOS :default DOS WIN95 /* Model definitions */ :model WIN95 DOS /C:\windows\system32\FTP.EXE -nv <&FtpInputFile >&FtpOutputFile open &HostName user &Lid &Password debug dir lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model LWPDOS DOS /FTP.EXE -XV <&FtpInputFile >&FtpOutputFile open &HostName user &Lid &Password debug remotedir lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model OS2TCPDOS DOS /RUNOS2.EXE /RUNFTP.CMD &FtpInputFile &FtpOutputFile open &HostName user &Lid &Password debug lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model OS2TCPDOSWAIT DOS /OS2EXEC.EXE /RUNFTP.CMD &FtpInputFile &FtpOutputFile open &HostName user &Lid &Password debug lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model OS2TCPDOSX DOS /RUNOS2.EXE /RUNFTPX.CMD &FtpInputFile &FtpOutputFile open &HostName user &Lid &Password debug lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model LISTDOS DOS /LIST &FtpInputFile open &HostName user &Lid debug lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model OS2TCP OS2 /FTP -nv <&FtpInputFile >&FtpOutputFile open &HostName user &Lid &Password debug lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model OS2TCPX OS2 /FTPX -nv <&FtpInputFile >&FtpOutputFile open &HostName user &Lid &Password debug lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit :model LISTOS2 OS2 /LIST &FtpInputFile open &HostName user &Lid debug lcd &LocalDir quote site filetype=jes jesrecfm=&JesRecfm jeslrecl=&JesLrecl :body quit [Defaults] /*********************************************************/ /* Defaults: default .INI values for MVSBATCH. This */ /* section determines which values may be */ /* placed in the user .INI file, as well as */ /* which default values those values are to */ /* have. Edit this section to suit your */ /* installation's needs. */ /*********************************************************/ /* "Remembered" settings for various commonly-used */ /* pieces of information */ UsrCurJobNbr="" UsrCurFileName="" UsrCurMvsDsn="" UsrCurMvsMember="" UsrCurMvsPrefix="" UsrCurMvsVol=ACA105 UsrCurPagedef="none" UsrCurPrintRoute=CSL /* Default colors */ UsrInfoForeground=1 /* blue */ UsrMenuForeground=7 /* light gray */ UsrMsgForeground=15 /* white */ UsrNormForeground=1 /* blue */ UsrPanelForeground=15 /* white */ UsrTitleForeground=15 /* white */ UsrInfoBackground=7 /* light gray */ UsrMenuBackground=1 /* blue */ UsrMsgBackground=4 /* red */ UsrNormBackground=3 /* cyan */ UsrPanelBackground=1 /* blue */ UsrTitleBackground=4 /* red */ /* Default values for "remembered" menu item numbers */ UsrMenu-ADMINMENU-PreviousItemNbr=1 UsrMenu-MACMENU-PreviousItemNbr=1 UsrMenu-MAINMENU-PreviousItemNbr=1 UsrMenu-TESTMENU-PreviousItemNbr=1 UsrMenu-MISCMENU-PreviousItemNbr=1 UsrMenu-OPTMENU-PreviousItemNbr=1 /* Default values for "remembered" panel field numbers */ UsrMenu-COLOROPTS-PreviousItemNbr=1 UsrMenu-DISPOPTS-PreviousItemNbr=1 UsrMenu-MISCOPTS-PreviousItemNbr=1 UsrMenu-MVSOPTS-PreviousItemNbr=1 UsrMenu-TESTOPTS-PreviousItemNbr=1 UsrMenu-VALUEOPTS-PreviousItemNbr=1 /* Display settings */ UsrClearScreenBeforeEdit=1 UsrClearScreenBeforeView=0 UsrCondensedVarDump=0 /* activate for debugging purposes */ UsrCursorAlwaysOn=0 UsrDispDosMem=0 /* display free heap space */ UsrDisplayFreeSpace=1 /* display free disk space */ UsrDisplayFileInfo=0 UsrDisplayFtpOutput=0 UsrDisplayHelpRow=1 UsrDisplayInformation=1 /* display information area (work */ /* directory, logonid, etc.) on each */ /* screen */ UsrDisplayInsertStatus=0 UsrDisplayKeys=0 /* activate for debugging purposes */ UsrDisplayMenuEntryNbr=0 /* activate for debugging purposes */ UsrDisplayOptionalMsgs=1 UsrEnableHelpRow=1 UsrFileMenuOrientation=Vertical UsrPauseAfterDisplay=0 UsrPauseAfterEdit=0 UsrSortFileNames=1 /* Miscellaneous settings */ UsrAllowCatalogedDsns=1 UsrAllowPagedefSelection=0 UsrBellIsOn=1 UsrAllowMsgClassAddition=1 UsrCatalogedDsn=0 UsrConfirmOnExit=1 /* enable/disable "Are you sure?" dialog */ /* at exit */ UsrDeleteAfterPurge=0 /* delete fetched output file after a */ /* job's MVS sysout is purged? */ UsrGetJobName=1 /* get job name from fetched output file?*/ UsrInitInsertMode=0 /* 0=overwrite; 1=insert */ UsrJclEditMethod=none /* none, pad, or strip */ UsrJclFileMask=*.JC? UsrRegion=&CfgDefaultRegion /* REGION value for macro // JOB card */ UsrNewsDateAndTime='0000/00/00 00:00:00' UsrProgramLauncher='OS2EXEC -sy' /* Program launcher command line */ UsrPurgeAfterFetch=1 /* purge MVS job sysout after it is */ /* fetched */ UsrRepeatMenuOptions=0 /* redisplay certain screens until Esc */ /* is pressed? */ UsrRunFtpClient=1 /* set to 0 to disable FTP client */ UsrSaveFtpLog=0 UsrUseFullPathNames=0 /* when launching editor or viewer */ UsrUserEditCmd="" UsrUserDispCmd="" UsrUserPrintMsgClass=A UsrUseTestFtpOutput=0 /* activated for debugging purposes */ UsrVerbose=1 /* activated for debugging purposes */ /**********/ /* Macros */ /**********/ [Macro ACFRULES] //&Logonid.A JOB ,REGION=&Region /*JOBPARM L=10 //* JCL generated by &MacName macro of &PgmName //* //* Compile ACF2 rules //* Rules file: &Rules //* //ACFRULES EXEC PGM=ACFBCOMP //SYSPRINT DD SYSOUT=* //RULES DD * #include &Rules #end [Macro ARCHIVE] //&Logonid.A JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* Archive MVS dataset &Prefix..&Dsn on &Volume //* //ARCHIVE EXEC ABRUT //SYSIN DD * ARCHIVE DSN=&Prefix..&Dsn, VOL=&Volume #end [Macro ARCLIST] //&Logonid.A JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* Print archive list for &Prefix //* //ARCLIST EXEC ABRPRT //SYSIN DD * PRINT ARCHIVE,DSG=&Prefix.. #end [Macro BACKLIST] //&Logonid.B JOB ,REGION=&Region,TIME=(0,10) /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* Print backup list for &Prefix //* //BACKLIST EXEC ABRPRT //SYSIN DD * PRINT VTOC,XREF,DSG=&Prefix.., OLDBACKUP=ALL, FORMAT=CRT, VOLG=&Volume(1,3) #ifdef Scratch PRINT SCRATCH,XREF,DSG=&Prefix.., FORMAT=CRT, VOLG=&Volume(1,3) #endif #end [Macro COMPRESS] //&Logonid.C JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* #ifndef Cataloged //* Compress MVS PDS &Prefix..&Dsn on &Volume #else //* Compress cataloged MVS PDS &Prefix..&Dsn #endif //* //STEP1 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSUT3 DD UNIT=PUB,SPACE=(TRK,1) //SYSUT4 DD UNIT=PUB,SPACE=(TRK,1) //BACKUP DD DSN=&Prefix..&Dsn, // UNIT=DISK,SPACE=(CYL,(1,1,40),RLSE), // DISP=(NEW,KEEP) //INPUT DD DSN=&Prefix..&Dsn, #ifndef Cataloged // UNIT=DISK,VOL=SER=&Volume, #endif // DISP=OLD //SYSIN DD * COPY INDD=INPUT,OUTDD=BACKUP //* //STEP2 EXEC PGM=IEBCOPY,COND=(0,NE,STEP1) //SYSPRINT DD SYSOUT=* //SYSUT3 DD UNIT=PUB,SPACE=(TRK,1) //SYSUT4 DD UNIT=PUB,SPACE=(TRK,1) //INPUT DD DSN=&Prefix..&Dsn, #ifndef Cataloged // UNIT=DISK,VOL=SER=&Volume, #endif // DISP=OLD, // SPACE=(TRK,(0,0),RLSE) //SYSIN DD * COPY INDD=INPUT,OUTDD=INPUT //STEP3 EXEC PGM=IEFBR14,COND=(0,NE) //BACKUP DD DSN=&Prefix..&Dsn, // UNIT=DISK,VOL=REF=*.STEP1.BACKUP, // DISP=(OLD,DELETE) #end [Macro DELMEMS] //&Logonid.D JOB ,REGION=&Region //* JCL generated by &MacName macro of &PgmName //* //* Delete member &Member from MVS PDS &Prefix..&Dsn //* //DELMEM EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //DD1 DD DSN=&Prefix..&Dsn, #ifndef Cataloged // UNIT=DISK,VOL=SER=&Volume, #endif // DISP=OLD //SYSIN DD * DELETE - &Prefix..&Dsn(&Member) - FILE(DD1) #end [Macro MVSLIST] //&Logonid.L JOB ,REGION=&Region /*JOBPARM C=9999,L=9 //* JCL generated by &MacName macro of &PgmName //* #if ListType=AllVolumes //* List the MVS datasets on all MVS &Volume(1,3).xxx volumes for //* logonid &Prefix #else //* List the MVS datasets on &Volume for logonid &Prefix #endif //* //VTOCMAP EXEC ABRPRT //ABRMAP DD SYSOUT=* //SYSIN DD * #if ListType=AllVolumes PRINT VTOC,VOLG=&Volume(1,3),DSG=&Prefix.. #else PRINT VTOC,VOL=&Volume,DSG=&Prefix.. #endif #end [Macro REMOVE] //&Logonid.R JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* Scratch MVS dataset &Prefix..&Dsn #ifndef Cataloged //* on &Volume #endif //* #ifdef Cataloged //REMOVE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE &Prefix..&Dsn #else //REMOVE EXEC PGM=IEHPROGM //DISK DD UNIT=DISK,VOL=SER=&Volume,DISP=OLD //SYSPRINT DD SYSOUT=* //SYSIN DD * SCRATCH DSNAME=&Prefix..&Dsn, VOL=DISK=&Volume #endif #end [Macro RENDSNS] //&Logonid.R JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* Rename MVS dataset //* Old name: &Prefix..&OldDsn //* New name: &Prefix..&NewDsn #ifndef Cataloged //* Volume: &Volume #endif //* #ifdef Cataloged //RENDSNS EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * ALTER &Prefix..&OldDsn - NEWNAME(&Prefix..&NewDsn) #else //RENDSNS EXEC PGM=IEHPROGM //DD1 DD UNIT=DISK,VOL=SER=&Volume,DISP=OLD //SYSPRINT DD SYSOUT=* //SYSIN DD * RENAME DSNAME=&Prefix..&OldDsn, VOL=DISK=&Volume, NEWNAME=&Prefix..&NewDsn #endif #end [Macro RENMEMS] //&Logonid.R JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* Rename member of MVS PDS //* PDS: &Prefix..&Dsn #ifndef Cataloged //* Volume: &Volume #endif //* Old member name: &OldMem //* New member name: &NewMem //* #ifdef Cataloged //RENMEMS EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * ALTER &Prefix..&Dsn(&OldMem) - NEWNAME(&Prefix..&Dsn(&NewMem)) #else //RENMEMS EXEC PGM=IEHPROGM //DD1 DD UNIT=DISK,VOL=SER=&Volume,DISP=OLD //SYSPRINT DD SYSOUT=* //SYSIN DD * RENAME DSNAME=&Prefix..&Dsn, VOL=DISK=&Volume, MEMBER=&OldMem,NEWNAME=&NewMem #endif #end [Macro RESTORE] //&Logonid.R JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* &System MVS dataset &Prefix..&Dsn on &Volume //* //RESTORE EXEC ABRUT //SYSIN DD * #if System=Archive RESTORE ARCHIVE,DSN=&Prefix..&Dsn, #if JDate="" VOL=&Volume #else VOL=&Volume, ADATE=&JDate #endif /* Jdate="" */ #else RESTORE BACKUP,DSN=&Prefix..&Dsn, #if Backup=0 VOL=&Volume #else #if Backup="" VOL=&Volume #else VOL=&Volume, OLDBACKUP=&Backup #endif /* Backup="" */ #endif /* Backup=0 */ #endif /* System=Archive */ #end [Macro SHOWMEMS] //&Logonid.S JOB ,REGION=&Region /*JOBPARM L=9 //* JCL generated by &MacName macro of &PgmName //* //* Show member names //* PDS: &Prefix..&Dsn #ifndef Cataloged //* Volume: &Volume #endif //* //SHOWMEMS EXEC PGM=IKJEFT01 #ifndef Cataloged //ALLOCPDS DD DSN=&Prefix..&Dsn, // UNIT=DISK,VOL=SER=&Volume, // DISP=SHR #endif //SYSTSPRT DD SYSOUT=* //SYSTSIN DD * LISTDS '&Prefix..&Dsn' MEMBERS #end [End] /***********************/ /* End of MVSBATCH.CFG */ /***********************/