Skip to content

Package automation cleanup and additional comments #111

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 5 commits into from
Jan 2, 2025
Merged

Package automation cleanup and additional comments #111

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
5 commits
Select commit Hold shift + click to select a range
c5e1262
Package-Automation-Cleanup-And-Additional-Comments
waljo11 Dec 26, 2024
fb706d1
Package-Automation-Cleanup-And-Additional-Comments
waljo11 Dec 27, 2024
7535542
Package-Automation-Cleanup-And-Additional-Comments
waljo11 Dec 30, 2024
00f77c6
Package-Automation-Cleanup-And-Additional-Comments
waljo11 Dec 30, 2024
42beac9
Package-Automation-Cleanup-And-Additional-Comments
waljo11 Dec 30, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
314 changes: 157 additions & 157 deletions endevor/Field-Developed-Programs/API-Assembler-Examples/APIALDST.asm
View file
Open in desktop

Large diffs are not rendered by default.

310 changes: 155 additions & 155 deletions endevor/Field-Developed-Programs/API-Assembler-Examples/APIALSUM.asm
View file
Open in desktop

Large diffs are not rendered by default.

237 changes: 66 additions & 171 deletions endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/@SITE.rex
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,171 +1,66 @@
/* REXX */
PARSE ARG Parm

/* Required for all Bundles : */
/* Enter High Level Qualifiers */
SHLQ='IPRFX.IQUAL' /* Systems High Level Qualifier */
FHLQ='IPRFX.IQUAL' /* Field Developed Program (FDP) HLQ */
AHLQ='UPRFX.UQUAL' /* Applications High Level Qualifier */
/* Enter the name of the main Libraries for CA Services tools */
/* APF Authorized libraries: \ */
MyAUTULibrary = SHLQ'.CSIQAUTU'
MyAUTHLibrary = SHLQ'.CSIQAUTH'
MyLOADLibrary = SHLQ'.CSIQLOAD'
MyLOA2Library = FHLQ'.CSIQLOA2'
/* Non-APF Authorized library: \ */
MyUTILLibrary = FHLQ'.CSIQLOA2'
MyCLS0Library = SHLQ'.CSIQCLS0'
MyCLS2Library = FHLQ'.CSIQCLS2'
MyOPTNLibrary = SHLQ'.CSIQOPTN'
MyOPT2Library = FHLQ'.CSIQOPT2'
MyMENULibrary = SHLQ'.CSIQMENU'
MyMEN2Library = FHLQ'.CSIQMEN2'
MyPENULibrary = SHLQ'.CSIQPENU'
MyPEN2Library = FHLQ'.CSIQPEN2'
MySENULibrary = SHLQ'.CSIQSENU'
MySEN2Library = FHLQ'.CSIQSEN2'
MyTENULibrary = SHLQ'.CSIQTENU'
MyTEN2Library = FHLQ'.CSIQTEN2'
MySampLibrary = SHLQ'.CSIQSAMP'
MyDATALibrary = SHLQ'.CSIQDATA'
MyJCLLibrary = SHLQ'.CSIQJCL'
MyJCL2Library = FHLQ'.CSIQJCL2'
MySRC2Library = FHLQ'.CSIQSRC2'
/* JOB INFO FOR ALTERNATE ID & CONVERSION JOBS*/
JnmPfx = userid() /* default job name prefix */
AltIDAcctCode = '55800000'
AltIDJobClass = 'B'
AltIDMsgClass = 'X'

/* Bundle Switch Area */
PackageBundle = 'N'
ParallelDevelopmentBundle = 'N'
QuickEditBundle = 'N'

/************************************************************/
/* Required for the Package Functions bundle : */
SchedulingPackageShipBundle = 'Y' ;/* Auto/Sched Shipping */
MyHomeAddress = '?????' ; /* Use HOMETEST for ip address */
/* If SchedulingPackageShipBundle, list Transmission methods */
TransmissionMethods = 'NETVIEW_FTP LOCAL '
/* If SchedulingPackageShipBundle, list Shipment Models (JCL) */
TransmissionModels = 'SHIP#FTP SHIPLOCL'

/* Select one of the following - Usually 'Rules' */
ShipSchedulingMethod = 'One ' ;/* 1 Destination */
ShipSchedulingMethod = 'None ' ;/* No Shipping */
ShipSchedulingMethod = 'Notes' ;/* Use PKG Notes */
ShipSchedulingMethod = 'Rules' ;/* Rules / Notes */
/* Verify the name of the Trigger File - must be allocated */
TriggerFileName = AHLQ'.SHIPMENT.TRIGGER'

/* If you want to schedule production moves */
/* or package shipping, use the SchedulingOption */
SchedulingOption = ' ' ; /* no scheduling of any kind */
/* The 'Move to' option causes the execution window to be */
/* automatically updated for named Env and stage */
SchedulingOption = 'MOVE TO SMPLPROD P'
/* The 'SHIP FROM' option causes automated shipments for */
/* packages that delivered to the Env and stage */
SchedulingOption = 'SHIP FROM SMPLPROD P'

/************************************************************/
/* Required for the Parallel Development Support bundle : */
/* For XFER processing (Parallel Bundle) : */
/* Select one line and comment out or delete the other: */
XFER_AutoExecute = 'Y' ; /* Auto Execute XFER packages */
XFER_AutoExecute = 'N' ; /* Manual or Other Package Execution */
/*Note: Other Package Execution requires the */
/* Package Bundle Implementation */
/* This option should be 'N' if Package Bundle is installed */

/* For ALIASE processing (Parallel Bundle) : */
ALIASE_LibraryPrefix = AHLQ ; /* Lib and Alias prefix */
/* Note: Required: Typically indicates the Application HLQ */
/* for COPY and LOAD datasets in the */
/* Endevor development environment . */
ALIASE_Generate_Process = 'Y' ; /* Use an Endevor processor */
/* Note: 'Y' requires installation of a processor, */
/* Like the GALIAS processor provided. */
/* Addtionally, a type named ALIAS must be */
/* defined in development Environment . */
ALIASE_Generate_Process = 'N' ; /* Just make Aliases */
/* Note: 'N' is the typical and simple choice for */
/* this option. */

ALIASE_Subsystem = '' ; /* Use related subsys */
/* Note: Applicable only if ALIASE_Generate_Process = 'Y' */
/* If blank, ALIAS elements will be placed */
/* into the same Subsystem they relate to.*/
/* If non-blank, Alias elements will be */
/* placed into the named Subsystem. */
/************************************************************/
/* Required for the Quick-Edit bundle : */
AlertRexxProgram = 'PDA' ; /* Use PDA or PDNF3 or BC1PPDNR */
/* Verify the name of the Endevor Element Catalog file */
ElementCatalogName = 'CAPRD.END40.SMPL.ELMCATL'
/* Enter one or more mapping representations (not Prod) */
/* where PDA should search for inventory. */
PDAMaplist = , /* required only for PDA */
" SMPLTEST/T-SMPLTEST/Q ",
" SMPLPROD/E-SMPLPROD/E "
/* Enter a value for the temporary element name used by */
/* RETRO actions: */
/* '1' Use the original element name and '##' suffix. */
/* You must support 10-char element names with this */
/* option */
/* 'user' Use the userid of the person executing the RETRO */
/* extended to 8 characters with the use of '#' */
/* extended to 8 characters with the use of '#' */
/*'<name>'Use the designated name - one that is not used for*/
/* any real elements in the Endevor inventory. */
/* Select one and enter value... */
RetroTempName ='1' ; /*original element name and '##' */
RetroTempName ='QQQQQQQQ' /*replace 'QQQQQQQ' with name */
RetroTempName ='user' ; /*userid and '##' */

/************************************************************/
/* Required for the SnapMon (Endevor Activity feature: */
/************************************************************/
SNAPMOND = "Y,,0,*,*,IS ACTIVE IN SCREEN*," || ,
"Y,XSYS,0,*,CTLIELEM,*," || ,
"Y,,0,*,LSERVDSN,*," || ,
"Y,,0,*,FDPDSN,"MyCLS2Library"," || ,
"Y,,0,*,SYSDSN,"AHLQ"*," || ,
"Y,,0,*,SYSDSN,"SHLQ".CSIQPLD*," || ,
"N,,0,*,SYSDSN,SYS7.ENDEVOR.*,"
/*
The SanpMon defaults are set as a single value
that is in effect a comma delimited table.
Each row contains:
* Yes/No Flag to indicate if this line is active
* XSYS value or blank to indicate if XSYS is searched
* Limit (or zero for none) to limit the Enqueues returned
* Resource fliter (or * for all)
* Queue Name (or * for all)
* Resource Name (or * for all)

The default entries include ENQueue searches for the
Endevor ISPF sessions, Element enqueus (CTLIELEM),
L-Serv enqueus (used by Endevor to searlialise L-Serv access)
and a few sample SYSDSN entries which are filtered to find
the ACMROOT, Elelmet Catalog and Package files. A special
entry with Queue Name FDPDSN will be counted to hilite
users with the FDP clist dataset allocated.

Note: Because comma is used as the delimiter, each row should
contain exactly six(6) commas. i.e. no commas in the "data"
The current limit is nine(9) rows.
*/
/***************************************************************/
/* REQUIRED FOR ENDEVOR HILITE SYSVIEW SUPPORT */
/* SPECIFY THE HIGH LEVEL QUALIFIER FOR SYSVIEW (.CMN4BLOD) */
/* MySysviewPref = 'CAIPROD.SYSVW.R150S2' */
MySysviewPref = 'CAIPROD.SYSVW.R1600.CAR2001'
/***************************************************************/
/* do not alter following - required for all bundle processing */
/************************************************************/
/* do not alter following - required for all bundle processing */
IF SYMBOL(Parm)='VAR' THEN RETURN VALUE(Parm)
ELSE RETURN 'Not-valid:'||Parm
EXIT
/* REXX */
PARSE ARG Parm

/* Required for all Bundles : */
/* Enter High Level Qualifiers */
SHLQ='IPRFX.IQUAL' /* Systems High Level Qualifier */
FHLQ='IPRFX.IQUAL' /* Field Developed Program (FDP) HLQ */
AHLQ='UPRFX.UQUAL' /* Applications High Level Qualifier */
/* Enter the name of the main Libraries for CA Services tools */
/* APF Authorized libraries: \ */
MyAUTULibrary = SHLQ'.CSIQAUTU'
MyAUTHLibrary = SHLQ'.CSIQAUTH'
MyLOADLibrary = SHLQ'.CSIQLOAD'
MyLOA2Library = FHLQ'.CSIQLOA2'
/* Non-APF Authorized library: \ */
MyUTILLibrary = FHLQ'.CSIQLOA2'
MyCLS0Library = SHLQ'.CSIQCLS0'
MyCLS2Library = FHLQ'.CSIQCLS2'
MyOPTNLibrary = SHLQ'.CSIQOPTN'
MyOPT2Library = FHLQ'.CSIQOPT2'
MyMENULibrary = SHLQ'.CSIQMENU'
MyMEN2Library = FHLQ'.CSIQMEN2'
MyPENULibrary = SHLQ'.CSIQPENU'
MyPEN2Library = FHLQ'.CSIQPEN2'
MySENULibrary = SHLQ'.CSIQSENU'
MySEN2Library = FHLQ'.CSIQSEN2'
MyTENULibrary = SHLQ'.CSIQTENU'
MyTEN2Library = FHLQ'.CSIQTEN2'
MySampLibrary = SHLQ'.CSIQSAMP'
MyDATALibrary = SHLQ'.CSIQDATA'
MyJCLLibrary = SHLQ'.CSIQJCL'
MyJCL2Library = FHLQ'.CSIQJCL2'
MySRC2Library = FHLQ'.CSIQSRC2'
/* JOB INFO FOR ALTERNATE ID & CONVERSION JOBS*/
JnmPfx = userid() /* default job name prefix */
AltIDAcctCode = '00000000'
AltIDJobClass = 'A'
AltIDMsgClass = 'X'

/************************************************************/
/* Required for the Package Functions bundle : */
SchedulingPackageShipBundle = 'Y' ;/* Auto/Sched Shipping */
MyHomeAddress = '?????' ; /* Use HOMETEST for ip address */
/* If SchedulingPackageShipBundle, list Transmission methods */
TransmissionMethods = 'NETVIEW_FTP LOCAL '
/* If SchedulingPackageShipBundle, list Shipment Models (JCL) */
TransmissionModels = 'SHIP#FTP SHIPLOCL'

/* Select one of the following - Usually 'Rules' */
ShipSchedulingMethod = 'One ' ;/* 1 Destination */
ShipSchedulingMethod = 'None ' ;/* No Shipping */
ShipSchedulingMethod = 'Notes' ;/* Use PKG Notes */
ShipSchedulingMethod = 'Rules' ;/* Rules / Notes */
/* Verify the name of the Trigger File - must be allocated */
TriggerFileName = AHLQ'.SHIPMENT.TRIGGER'


/************************************************************/
/***************************************************************/
/***************************************************************/
/* do not alter following - required for all bundle processing */
/************************************************************/
/* do not alter following - required for all bundle processing */
IF SYMBOL(Parm)='VAR' THEN RETURN VALUE(Parm)
ELSE RETURN 'Not-valid:'||Parm
EXIT
43 changes: 24 additions & 19 deletions endevor/Field-Developed-Programs/ISPF-tools-for-Quick-Edit-and-Endevor/JCLCOMMT.rex
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -1,19 +1,24 @@
/* REXX */
/* Can be used as an edit macro when editing a PROCESS or INC */
/* or JCL */
/* Just enter JCLCOMMT on the command line while in QuickEdit*/
/* It gets the */
/* name of the element and places the element name onto */
/* each line that contains 'PGM=' and is blank in col 60. */
ADDRESS ISREDIT
"ISREDIT MACRO "
ADDRESS ISPEXEC,
"VGET (ZSCREEN ZSCREENC ZSCREENI) SHARED"
/* ZSCREENI = Substr(ZSCREENI,161) */
C1Element = Word(ZSCREENI,1)
"EXCLUDE ALL"
"FIND 'PGM=' ALL "
"EXCLUDE P'@' 1 ALL "
"EXCLUDE ' ' 1 ALL "
"CHANGE p' ========' ' "C1Element"' 59 all nx"
Exit
/* REXX */
/* Can be used as an edit macro when editing a PROCESS or INC */
/* or JCL while in Quick-Edit or any ISPF edit session. */
/* Just enter JCLCOMMT on the command line. */
/* It gets the name of the element or member, */
/* and places the name onto me onto each line that contains */
/* 'PGM=' and is blank in col 60. */
ADDRESS ISREDIT
"ISREDIT MACRO "
ADDRESS ISPEXEC,
"VGET (ZSCREEN ZSCREENC ZSCREENI) SHARED"
/* ZSCREENI = Substr(ZSCREENI,161) */
C1Element = Word(ZSCREENI,1)
If C1Element = 'File' then,
Do
ADDRESS ISREDIT " (MEMBER) = MEMBER " ;
C1Element = MEMBER
End
"EXCLUDE ALL"
"FIND 'PGM=' ALL "
"EXCLUDE P'@' 1 ALL "
"EXCLUDE ' ' 1 ALL "
"CHANGE p' ========' ' "C1Element"' 59 all nx"
Exit
43 changes: 43 additions & 0 deletions endevor/Field-Developed-Programs/Package-Automation/#PSNFTPE.skl
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,43 @@
@REM **********************************************************
@REM ************************************************* #PSNFTPE
@REM * CONTENTS: ENDEVOR/MVS - REMOTE EXECUTION OF THE AHJOB
@REM * TRANSMITTER: NETVIEW FILE TRANSFER PROGRAM
@REM * PURPOSE: SUBMIT ARJOB DATASET FOR EXECUTION VIA TSO
@REM * AT THE REMOTE SITE.
@REM **********************************************************
//* ******************************************************************
//* FRD JOBSTEP JCL TO SUBMIT JCL REMOTELY USING FTP
//* ENDEVOR DESTINATION &VNBLSDST
//* NODE NAME &NODENAME
//* ******************************************************************
//*================================================================
//* ******************************************************************
//SUBFTP01 EXEC PGM=FTP,COND=(4,LT) #PSNFTPE
//ABNLIGNR DD DUMMY
//SYSPRINT DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//NETRC DD DISP=SHR,DSN=&SYSUID..ENDEVOR.NETRC(SHIPPING)
//SYSOUT DD SYSOUT=*
//*UTPUT DD SYSOUT=*
//OUTPUT DD DSN=&&FTPOUT,
// DISP=(,PASS),SPACE=(TRK,(1,0)),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120,DSORG=PS),
// UNIT=SYSALLDA
//INPUT DD *
&NODENAME
SITE FILETYPE=JES
PUT '&AHJOBDSN'
STOP
QUIT
/*
//*----------------------------------------------------------
//FTPSCAN EXEC PGM=IRXJCL,COND=(8,LE), #PSNFTPE
// PARM='UPDTTGGR &DESTID #PSNFTPE &PACKAGE'
//SYSEXEC DD DSN=YOURSITE.YOUR.NDVR.NODES1.CLSTREXX,
// DISP=SHR
// DD DSN=YOUR.NDVR.CSIQCLS0,
// DISP=SHR
//FTPOUT DD DSN=&&FTPOUT,DISP=(OLD,DELETE)
//OUTPUT DD SYSOUT=* #PSNFTPE
//SYSTSPRT DD SYSOUT=*
//*----------------------------------------------------------
Loading
Loading