1 of 14

Installation and customization JCL z/OS part

Installation overview

z/OS

If you are using ProcMan Job-Control module then HORIZONT’s SmartJCL must be installed first.
If HORILST is used for communication, SmartJCL Remote Check must also be installed.
Since ProcMan z/OS part version 5.1, TLS is mandatory. Please see Setting up TLS Communication
Unpack the installation file on Windows and transfer to z/OS
Adjust template jobs for JCL analysis / generation
Post installation: define basic JCL Rules

Setting up TLS Communication

Please see Setting up TLS Communication

Installation steps on z/OS

1. Download and extract installation files

Copy PRXINST.ZIP to a temporary Windows directory and unzip it. The following files will be created:

PRXINST.BIN

2. Transfer files to the HOST

The unzipped file must be transmitted to the HOST by file transfer.

3. Create at HOST the XMIT file

4. Transfer the unzipped file to the created Host-XMIT file

With a file transfer program, you must send the following PC files to the HOST.

Transfer mode must be binary.

The ASCII and CLRF options must not be used.

5. Generate the program files by the TSO command RECEIVE

RECEIVE INDSNAME(‘PREFIX.XMITINST’)

6. Delete HOST-XMIT file ‘PREFIX.XMITINST’

7. Start the installation

Start the installation by executing the following member with line command=EX HLQ.PROCMAN.VxRx.INSTALL(PMIXINST).

It displays the menu where you select the components you want to install. The following screenshots describe the installation dialogs for all components.

ProcMan zOS installation with IWS variable substitution If SmartJCL jobs will be started with IWS variable substitution some IWS parameter must be entered.

Enter the dataset name of your transfer dataset. Normally the name is inserted automatically.

The names of the ISPF Libraries are automatically determined. If the fields are empty you have to type the correct dataset names manually. In some system environments is an automatic determination not possible.

SMARTJCL must be installed first. Enter the name of the SMARTJCL parameter library where member JCKXPARM exists. This member is analysed in order to obtain the required parameter.

Enter the dataset names for your installation. HLQ is a placeholder and the dataset names are just a suggestion.

You can customize the names according to your Requirements.

Enter the dataset names for your installation. HLQ is a placeholder and the dataset names are just a suggestion.

You can customize the names according to your Requirements.

In a typical installation software product libraries and user libraries are separated by dataset qualifier and permission. It is called user datasets because the software user has maintained these datasets and not the person who made the installation.

If you are using ProcMan with IWS handover you have to type the IWS datasets too. Within IWS processes can also job control actions are invoked. The entered parameter will be used for IWS JCL templates.

ProcMan JCL Web dialog will submit SmartJCL jobs. These jobs will be stored as templates at zOS. To generate these templates, you need to specify certain parameters.

DB2 parameter are used for an administration batch job. This job will fill DB2 table FORMCONT. This table will be used for checks with web dialog.

Please enter the Job Control parameter for installation job. After job was generate it will be shown with ISPF edit.

If you press ENTER the program generates all template jobs a temporary library. Copying to the destination library will be done by the installation job.

After the members have been generated, you will see the installation job in Edit-Modus. Enter “SUBMIT” to start the Job. The Job should end with Severity Code 0. The two generated jobs are also stored in the installation library. Member names are INSJOB1 and INSJOB2.

Update installation steps on z/OS

1. Download and extract installation files

Copy PRXINST.ZIP to a temporary Windows directory and unzip it. The following files will be created:

PRXINST.BIN

2. Transfer files to the HOST

The unzipped file must be transmitted to the HOST by file transfer.

3. Create at HOST the XMIT file

DSN

DCB

PREFIX.XMITINST

RECFM=FB,LRECL=80,BLKSIZE=3120,SPACE=(TRK,100,100),DSORG=PS

4. Transfer the unzipped file to the created Host-XMIT file

With a file transfer program, you must send the following PC files to the HOST.

File names on the PC

File names on the HOST

PMZBINST.BIN

PREFIX.XMITINST

Transfer mode must be binary.

The options ASCII and CLRF are not allowed.

5. Generate the program files by the TSO command RECEIVE.

RECEIVE INDSNAME(‘PREFIX.XMITINST’)

XMIT files

Resulting ProcMan files

PREFIX.XMITINST

‘HLQ.PROCMAN.VxRxFIX.XMIT.INSTALL’

6. Delete HOST-XMIT file ‘PREFIX.XMITINST’

7. Adapt the installation job to your environment and submit this job.

HLQ.PROCMAN.VxRxFIX.INSTALL(PMJFXnn).

//OPGJFXnn JOB CLASS=A,MSGCLASS=T,                                    
// NOTIFY=&SYSUID                                                     
//*                                                                   
//* - RECEIVE XMIT FILES FOR A PROCMAN 5.0 FIX                        
//*                                                                   
//* NECESSARY ADAPTIONS:                                              
//* 1) CHANGE THE NAME OF 'USERID.PROCMAN.V5R0FIX.INSTALL' TO YOUR    
//*    NEEDS. IT IS THE OUTPUT DSN OF YOUR PREVIOUS TSO RECEIVE       
//*    COMMAND THAT CONTAINS THIS MEMBER.                             
//* 2) CHANGE 'HLQ.PROCMAN.V5R0' TO YOUR PROCMAN INSTALLATION DSNS.   
//********************************************************************
//*                                                                   
//RECEIVE  EXEC PGM=IKJEFT01,REGION=32M                               
//SYSPRINT DD SYSOUT=*                                                
//SYSTSPRT DD SYSOUT=*                                                
//SYSTSIN  DD *                                                       
 RECEIVE INDSN('USERID.PROCMAN.VxRxFIX.INSTALL(LOAD)')                
 DATASET('HLQ.PROCMAN.VxRx.LOAD') +                                   
 RELEASE                                                              
 RECEIVE INDSN('USERID.PROCMAN.VxRxFIX.INSTALL(REXX)')                
 DATASET('HLQ.PROCMAN.VxRx.REXX') +                                   
 RELEASE                                                              
 RECEIVE INDSN('USERID.PROCMAN.VxRxFIX.INSTALL(PANELS)')              
 DATASET('HLQ.PROCMAN.VxRx.PANELS') +                                 
 RELEASE                                                              
 RECEIVE INDSN('USERID.PROCMAN.VxRxFIX.INSTALL(LREXX)')               
 DATASET('HLQ.PROCMAN.VxRx.REXXLOAD') +                               
 RELEASE

The following files will be created:

Following datasets should be installed:

Maintenance

Used

HLQ.PROCMAN.CHECK.VSAM

User

Batch Job

HLQ.PROCMAN.CHECK.ISPF

User

ISPF Dialog

HLQ.PROCMAN.EMAC

Administrator

Edit Macro

HLQ.PROCMAN.EXAMPLE.CNTL

Administrator

Batch Job

HLQ.PROCMAN.MACRO.HOSXIN

Administrator

Edit Macro

HLQ.PROCMAN.LOG

User

ISPF Dialog

HLQ.PROCMAN.TABLES

User

ISPF Dialog

HLQ.PROCMAN.JCL

User

Batch Job

HLQ.PROCMAN.LOAD

Administrator

Batch Job

HLQ.PROCMAN.LOAD.REXX

Administrator

ISPF Dialog

HLQ.PROCMAN.MESSAGE

Administrator

ISPF Dialog

HLQ.PROCMAN.JCL.MESSAGE

User

Batch Job

HLQ.PROCMAN.PANELS

Administrator

ISPF Dialog

HLQ.PROCMAN.PARM

User

Batch Job + ISPF Dialog

HLQ.PROCMAN.REXX

Administrator

Batch Job + ISPF Dialog

HLQ.PROCMAN.RULES

USER

Batch Job

HLQ.PROCMAN.SKELS

USER

Batch Job

HLQ.PROCMAN.SYSIN

USER

Batch Job

HLQ.PROCMAN.TEMP.CNTL

Administrator

Temp. for installation

Post Installation tasks and customization at z/OS

The Job-Control which is used by ProcMan Web-Dialog was stored in library HLQ.PROCMAN.SKELS. After installation, you will find all members for sample client HORIZONT. For a new client all example members must be copied with a new name. These new members must be modified according to your company's requirements.

It has proven itself to use the first two characters in member names as client abbreviation. You will be asked for that during the installation dialog. E.g. HO = HORIZONT

Member

Description

HOJADHOC

ADHOC IWS process reformat

HOJAPPT

DSN copy process

HOJAPPV

DSN copy process

HOJCHKC

Verify JCL with Handover type CHANGE

HOJCHKN

Verify JCL with handover type NEW

HOJCPY

Copy members into target library.

HOJDEL

Delete datasets or member

HOJDSNF

Get dataset list

HOJEDT

Jcl Check with “JCL-Check” button. Without Rules.

HOJEDTA

Verify JCL after edit at approve

HOJEDTF

The final JCL check

HOJGDGL

Get list GDG entries

HOJGTYP

Get DSN attributes

HOJJCKT

JCL check with previous IWS variable substitution

HOJOD933

IWS process variable substitution

HOJOSJ

JCL check with TWS variable substitution

HOJPAR1

Used by „Change by Parameters“ function

HOJPAR2

Used by „Change by Parameters“ function

HOJREF

Reformat JCL

HOJREND

HOJUNI

Example job for universal process

HOMEDOW

Fast TSO Export

HOMEUPL

Fast TSO Import

HOOJJCK

IWS process. JCL check with previous IWS variable substitution

HOOJJCKF

IWS process. Final JCL check with previous IWS variable substitution

HOPJCK

Verify procedure IWS variable substitution PO

HOPJCKF

Verify procedure IWS variable substitution fast

HOPCHKC

Verify procedure with handover type CHANGE

HOPCHKN

Verify procedure with handover type NEW

HOPEDT

Check procedure with “JCL-Check” button. Without Rules.

HOPEDTA

Verify procedure after edit at approve

HOPEDTF

The final procedure check

HOPREF

Reformat procedure

The members are skeleton JCL for the ProcMan programs. The dataset names and member names must also be defined in configuration files on ProcMan windows server.

Below you will see an example skeleton.

//##JOBNAME##   JOB  'DEFAULT','PROCMAN JOB', MSGCLASS=H,CLASS=A          
//* RESOLVED FROM SCELETON HOSJCHKC                    
//JOBLIB   DD  DISP=SHR,DSN=MYDATA.SMARTJCL.V3R0.LOAD        
//         DD  DISP=SHR,DSN=USER.PM.LOAD                      
//DEL      EXEC PGM=IDCAMS                             
//SYSPRINT DD  DUMMY                                   
//SYSIN    DD  *                                       
 DELETE ##HOSXOUT##                                    
 DELETE ##SYSPRINT##                                   
 DELETE ##SYSTSPRT##                                   
 DELETE ##JCKSUMO##                                    
 DELETE ##JCKDTLO##                                    
 IF MAXCC=8 THEN SET MAXCC = 0                         
/*                                                     
//RFMT     EXEC PGM=JCKIRFMT,REGION=0M                          
//SYSIN    DD  DISP=SHR,DSN=SYS1.SMARTJCL.V3R0.PARM(JCKKPARM)  
//         DD  *                                       
    USE-SRI=N                                          
    USE-HOS=N                                          
//##JUPJINAME-R## DD DISP=SHR,DSN=##JUPJIDSN-R##               
………………………………..

Variables that are replaced by ProcMan are limited with ‘##’ at the beginning and at the end of a variable. Do not modify or delete these variables.

There are example member with Rules and parameter stored in library HLQ.PROCMAN.RULES. These members must be adapted to your Requirements. The importance of the members and the parameters are described in the following chapters.

Member

Description

Used DD

xxSANA01

Will be used for JCL analysis and for definition of form attributes

PRXPRG

xxSGEN01

Will be used for JCL generation. Depending on the Rules the user is forced later on to make entries in the ProcMan web dialog.

PRCPRG

Administration dialog z/OS

With the ProcMan zOS installation, an administration dialog is also installed. With this dialog, the ProcMan VSAM databases can be viewed and changed, as well as a syntax check of the Rules can be performed. For Rule syntax check, the included Edit macro "RULE" can be used.

In the installed CLIST / REXX library, execute the member PRCX with "EX" (execute).

Start dialog

EDIT              SYSH.PROCMAN.VxRx.REXX                Row 0000001 of 0000031 
 Command ===>                                                  Scroll ===> CSR  
            Name     Prompt       Size   Created          Changed          ID   
 _________ CHCKOPCS                 39  2016/08/30  2016/08/30 11:56:00  HORIZON
 _________ HUKXQS01                 54  2016/08/30  2016/08/30 11:56:00  HORIZON
 _________ PMIIPARM                  2  2016/10/27  2016/10/27 08:26:29  HORIZON
 _________ PRCECHEK                724  2017/02/22  2017/03/02 15:35:42  HORIZON
 _________ PRCEDATA                 15  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCEEHOR                843  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCEJREF                 21  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCERLOG                579  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCETEND                 13  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCETEXT                 12  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCEVINI                 13  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCRULED                                                             
 ex_______ PRCX                     35  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCXCDIA                 32  2017/02/22  2017/02/22 08:37:00  HORIZON

The following dialog appears:


--------------------------  ProcMan Rule Test dialog --------------------------
Please select ===>                                                             
                                                                               
  S   Syntax Check of Rule member                             USERID  -MYUSER  
  C   Display check tables                                    System  -SYSA    
  X   End                                                     Time    -10:36   
                                                              Date    -31/05/21
                                                              Program -REXX    
                                                              Build   -VxRx    
Commands: END for end of the dialog.

Check Rules via dialog

Rule syntax checking, checks the correct spelling of Rule parameters, setting commas and setting semicolon at the end of the Rule. Furthermore, the Rules numbering is displayed with “ISPF NOTE” lines.

PRCPMAIN -----------------  ProcMan Rule Test dialog --------------------------
Please select ===> S                                                            
                                                                               
  S   Syntax Check of rule member                             USERID  -USERID   
      For new rules (V5) only                                 System  -SYSA    
  C   Display check tables                                    Date    -21/05/27
  X   End                                                     Time    -15:02   
                                                              Program -REXX    
                                                              Build   -V5R0    
                                                                               
Commands: END for end of the dialog.

After entering “S”, the dialog for entering the library and the member is displayed.

--------------------------- ProcMan Rule Test dialog --------------------------
                                                                               
Please select ===>                                             Scroll ===> CSR 
                                                                               
Enter the library and the Rule member name.                                    
Library: MY.RULE.LIBRARY                              Member: MYRULE                 
                                                                             
                                                                               
After entering library/member the content will shown with error messages.

After entering Rule library name and member name have been specified, the member will be displayed in ISPF-Editor.


E EDIT       DATA.PRX.DATA.QS.RULES(A#BA#001) - 01.12        Columns 00001 00080 
Command ===> CHECK                                               Scroll ===> CSR  
****** ********************************* Top of Data ****************************
000001 ========================================================================        
000002 = AAAA N   N AAAA L   Y   Y  SSS EEEE                                  =        
000003 = A  A NN  N A  A L    Y Y  S    E                                     =        
000004 = A  A N N N A  A L     Y    SS  EEE                                   =        
000005 = AAAA N  NN AAAA L     Y      S E                                     =        
000006 = A  A N   N A  A LLLLL Y   SSS  EEEE                                  =        
000007 ========================================================================        
000008 define #log=true;                                                               
000009 --define #log_jcl=true;                                                         
000010 define #log_var='AUTO';                                                         
000011 define #cache_table='AUTO';                                                     
000012 define #cache_never=[];                                                         
000013 --------------------------------------------------                              
000014 -- Read all jcl statements and execute                                          
000015 --------------------------------------------------                              
000016 FOREACH(JCLSTMT() as &VAR:JCLS);                                                
000017   CALL USEJCLSTMT(&VAR:JCLS);                                                   
000018 --------------------------------------------------                              
000019 WILDCARD ?%;                                                                    
000020 CALL                                                                            
000021 FILTER                                                                          
000022   STMT='JOB'                                                                    
000023 EXEC                                                                            
000024   SETFORM('FRM_JCK_JOB_BA')                                                     
000025        /* Jobname 1-3 */                                                        
000026 EXEC                                                                            
000027   SETFIELD('JOBN1',SUBSTR(JOBNAME(),1,4))                                       
000028        /* Jobname 4-8 */                                                        
000029 EXEC                                                                            
000030   SETFIELD('JOBN2',SUBSTR(JOBNAME(),5,4))                                       
000031        /* Account */                                                            
000032 EXEC                                                                            
000033   SETFIELD('#PP01',SUBPARM('#PP01',1))                                          
000034        /* Programers Name */                                                    
000035 EXEC                                                                            
000036   SETFIELD('#PP02',PARM('#PP02'))                                               
000037 FILTER                                                                          
000038   FIELD='#PP02'                                                                 
000039 EXEC                                                                            
000040   SETATTR('must','N')                                                           
000041        /* Put job in the call list */                                           
000042 EXEC                                                                            
000043   SETFIELD('ONCALL','N');                                                       
000044 -                                                                               
000045 CALL                                                                            
000046 FILTER                                                                          
000047   STMT='JOB',                                                                   
000048   TEST=HOTYPE() EQ 'CHANGE',                                                    
000049     +----------------------------------------------------+              
000050     ! Enter CHECK at command line to start syntax check. !              
000051     +----------------------------------------------------+              
After typing “CHECK” in command line the Rule member will be checked.

EDIT       DATA.PRX.DATA.QS.RULES(A#BA#001) - 01.12       CHECK SUCCESSFUL, RC=0
Command ===>                                                     Scroll ===> CSR 
****** ********************************* Top of Data ****************************
==MSG> MESSAGE SUMMARY. Rules=0560  Errors=0000 Warnings=0000 Total=0000             
==MSG> Included rules.  Rules=0391  Errors=0000 Warnings=0000 Total=0000                           
==MSG> Error Message                                                                  
==MSG> -----------------------------------------------         
000001  ========================================================================       
000002 = AAAA N   N AAAA L   Y   Y  SSS EEEE                                  =       
000003 = A  A NN  N A  A L    Y Y  S    E                                     =       
000004 = A  A N N N A  A L     Y    SS  EEE                                   =       
000005 = AAAA N  NN AAAA L     Y      S E                                     =       
000006 = A  A N   N A  A LLLLL Y   SSS  EEEE                                  =       
000007 ========================================================================       
000008 define #log=true;                                                              
000009 --define #log_jcl=true;                                                        
000010 define #log_var='AUTO';                                                        
000011 define #cache_table='AUTO';                                                    
000012 define #cache_never=[];                                                        
000013 --------------------------------------------------                             
000014 -- Read all jcl statements and execute                                         
000015 --------------------------------------------------                             
000016 FOREACH(JCLSTMT() as &VAR:JCLS);                                               
=NOTE= Rule 1                                                                         
000017   CALL USEJCLSTMT(&VAR:JCLS);                                                  
000018 --------------------------------------------------                             
000019 WILDCARD ?%;                                                                   
=NOTE= Rule 2                                                                         
000020 CALL                                                                         
000021 FILTER                                                  
000022   STMT='JOB'                                                                   
000023 EXEC                                                                           
000024   SETFORM('FRM_JCK_JOB_BA')                                                    
000025        /* Jobname 1-3 */                                                       
000026 EXEC                                                                           
000027   SETFIELD('JOBN1',SUBSTR(JOBNAME(),1,4))                                      
000028        /* Jobname 4-8 */                                                       
000029 EXEC                                                                           
000030   SETFIELD('JOBN2',SUBSTR(JOBNAME(),5,4))                                      
000031        /* Account */                                                           
000032 EXEC                                                                           
000033   SETFIELD('#PP01',SUBPARM('#PP01',1))                                         
000034        /* Programers Name */                                                   
000035 EXEC                                                                           
000036   SETFIELD('#PP02',PARM('#PP02'))                                              
000037 FILTER                                                                         
000038   FIELD='#PP02'                                                                
000039 EXEC                                                                           
000040   SETATTR('must','N')                                                          
000041        /* Put job in the call list */                                          
000042 EXEC                                                                           
000043   SETFIELD('ONCALL','N');                                                      
000044 -                                                                              
=NOTE= Rule 3                                                                         
000045 CALL                                                                           
000046 FILTER                                                                         

ISREDDE2   DATA.PRX.DATA.QS.RULES(A#BA#004) - 01.08        ERRORS OCCURRED, RC=8 
Command ===>                                                      Scroll ===> CSR  
****** ********************************* Top of Data ****************************
==MSG> MESSAGE SUMMARY. Rules=0025  Errors=0001 Warnings=0000 Total=0001               
==MSG> Error Message                                                                   
==MSG> ----------------------------------------------------------------------          
==MSG> Line 33 PRXE0051 UNKNOWN FUNCTION CALLED: SBSTR                                 
000001 ========================================================================        
000002 = Migration of Rule member with new rule syntax                        =        
000003 ========================================================================        
000004 ========================================================================        
000005 = AAAA N   N AAAA L   Y   Y  SSS EEEE                                  =        
000006 = A  A NN  N A  A L    Y Y  S    E                                     =        
000007 = A  A N N N A  A L     Y    SS  EEE                                   =        
000008 = AAAA N  NN AAAA L     Y      S E                                     =        
000009 = A  A N   N A  A LLLLL Y   SSS  EEEE                                  =        
000010 ========================================================================        
000011 define #log=true;                                                               
000012 --define #log_jcl=true;                                                         
000013 define #log_var='AUTO';                                                         
000014 define #cache_table='AUTO';                                                     
000015 define #cache_never=[];                                                         
000016 --------------------------------------------------                              
000017 -- Read all jcl statements and execute                                          
000018 --------------------------------------------------                              
000019 FOREACH(JCLSTMT() as &VAR:JCLS);                                                
=NOTE= Rule 1                                                                          
000020   CALL USEJCLSTMT(&VAR:JCLS);                                                   
000021 --------------------------------------------------                              
000022 WILDCARD ?%;                                                                    
=NOTE= Rule 2                                                                          
000023 CALL                                                                            
000024 FILTER                                                                          
000025   STMT='JOB'                                                                    
000026 EXEC                                                                            
000027   SETFORM('FRM_JCK_JOB_BA')                                                     
000028        /* Jobname 1-3 */                                                        
000029 EXEC                                                                            
000030   SETFIELD('JOBN1',SUBSTR(JOBNAME(),1,3))                                       
000031        /* Jobname 4-8 */                                                        
000032 EXEC                                                                            
000033   SETFIELD('JOBN2',SBSTR(JOBNAME(),4,5))                                        
==MSG> Line 33 PRXE0051 UNKNOWN FUNCTION CALLED: SBSTR                                 
000034        /* Account */                                                            
000035 EXEC                                                                            
000036   SETFIELD('#PP01',SUBPARM('#PP01',1))                                          
000037        /* Programers Name */                                                    
000038 EXEC                                                                            
000039   SETFIELD('#PP02',PARM('#PP02'))                                               
000040 FILTER                                                                          
000041   FIELD='#PP02'                                                                 
000042 EXEC                                                                            
000043   SETATTR('must','N')                                                           
000044        /* Put job in the call list */

Display check tables

If Rules using the table function, the corresponding data must be loaded into a VSAM file with a management job. The contents of this VSAM file can be displayed with the dialog.

PRCPMAIN -----------------  ProcMan Rule Test dialog --------------------------
Please select ===> C                                                            
                                                                               
  S   Syntax Check of rule member                             USERID  -USERID   
      For new rules (V5) only                                 System  -SYSA    
  C   Display check tables                                    Date    -21/05/27
  X   End                                                     Time    -15:02   
                                                              Program -REXX    
                                                              Build   -V5R0    
                                                                               
                                           
Commands: END for end of the dialog.

After entering “C”, the dialog for entering the name of the VSAM dataset is displayed.

- PRCPDCH2 -------------------- ProcMan check table -----------------------------
                                                                               
Please select ===>                                             Scroll ===> CSR 
                                                                               
Commands: R Refresh CAN Quit                                                   
                                                                               
Enter name of Check VSAM Dataset                                               
                                                                               
VSAM Dataset: HLQ.PC110.CHECK.VSAM                         '?' for all values!

After entering the file name and ENTER an overview of loaded tables is displayed.

------------------------- ProcMan Overview check table --------- Row 1 from 6 
Please select ===>                                             Scroll ===> CSR 
                                                                               
Commands: CAN End without save END End without save                            
LineCmds: S Show content                                                       
                                                                               
  *                                                                            
  EQ                                                                           
  Table    Record Creation date/time                                           
  -------- ------ ------------------                                           
S HOJJACCT 22     2017-12-08  09:12                                            
  HOSB93D1 1670   2017-12-08  09:12                                            
  HOSB93D2 57     2017-12-08  09:12                                            
  HOJB93D3 108    2017-12-08  09:12                                            
  HOSB93D4 57     2017-12-08  09:12                                            
  HOSB93D5 171    2017-12-08  09:12                                            
******************************* Bottom of data ********************************

By entering “S” the data can be displayed in more detail

- ------------------------- ProcMan check table HOJJACCT --------- Row 2 from 24 
Please select ===>                                             Scroll ===> CSR 
Commands: CAN END End without save  2 3 4 5 6 7 show other columns             
          UPDATE Switch on/off Update Modus                                    
LineCmds: S Show content                                                       
Key: SVJJACCT Gen: 0 Search DTKEY: *                                         EQ
                           *                 *                 *               
                           EQ                EQ                EQ              
  Key   Gen   DTKEY        DTDAT1            DTDAT2            DTDAT3          
  ------------------------ ----------------- ----------------- ----------------
S HOJJACCT0FTP             FTP               TP                FILETRANSFER    
  HOJJACCT0F00             F00               00                ADMINISTRATION   
  HOJJACCT0F01             F01               01                KANKENVERSICHERUNG 
  HOJJACCT0F02             F02               02                LEBENSVERSICHERUNG 
  HOJJACCT0F03             F03               03                FEUERVERSICHERUNG  
  HOJJACCT0F04             F04               04                MARKETING    
  HOJJACCT0F05             F05               05                SCHADENSGULIERUNG         
  HOJJACCT0F06             F06               06                FINANZBUCHHALTUNG 
  HOJJACCT0F07             F07               07                MIETE           
  HOJJACCT0F08             F08               08                DARLEHEN        
  HOJJACCT0F09             F09               09                ALLGEMEIN       
  HOJJACCT0F10             F10               10                TEXTMANAGEMENT  
  HOJJACCT0F11             F11               11                OPERATION      
  HOJJACCT0F12             F12               12                EINKAUF   
  HOJJACCT0F13             F13               13                DATAWAREHOUSE   
  HOJJACCT0F14             F14               14                REVISION        
  HOJJACCT0F15             F15               15                DRITTSYSTEME    
  HOJJACCT0F16             F16               16                ORGANISATION      
  HOJJACCT0F17             F17               17                UNFALLVERSICHERUNG 
  HOJJACCT0F43             F43               43                SACHVERSICHERUNG  
  HOJJACCT0F45             F45               45                SCHADENSREGEULIER      
  HOJJACCT0F83             F83               83                ADHOC           
******************************* Bottom of data ********************************

Each data has the length of 50 bytes. There are 7 data fields. To see the data in full length, enter a “S” in front of the line.

-------------------------  Detail record table HOJJACCT -----------------------
Command ===>                                                   Scroll ===> HALF
                                                                               
DTKEY                       HOJJACCT0FTP                                       
DTGENER                     0              0=full qualified  1=generic value   
DTDAT1                      FTP                                                
DTDAT2                      TP                                                 
DTDAT3                      FILETRANSFER                                       
DTDAT4                                                                         
DTDAT5                                                                         
DTDAT6                                                                         
DTDAT7

DTDAT1 to DTDAT7 is not a clear header. With administration run new header, for each column can be set.

JCL Rules syntax and help

The description of the syntax and the help function are now in a separate PDF manual. The reason for this is that this PDF manual is created directly from the windows online help.

The file "ProcMan - JCL Rules.PDF" and "ProcMan -JCL Rules.chm" are included in the delivery.

The online help is new and did not exist before.

It makes searching for specific content extremely easy and offers practical examples for many functions. These are constantly being added to.

The online help file is a compiled HTML file. Often there are problems with the display of subtopics in the browser program. For this reason, the online help file should be saved locally.

JCL Examples

Various job control examples are also provided with the installation.

xxSADUMP Process transfer to HORIZONT
xxSJCUST Create SQL for filling DB2 table CUSTOM_DATA
xxSJDELD Deleting temporary process files
xxSJFCNT Create SQL for filling DB2 table FORMCONT
xxSJVSFL Create VSAM Check file for JCL rules

xxSADUMP

If problems occur in the SmartJCL part of ProcMan, it can be very helpful to pull all zOS files used by this ProcMan step and send them to HORIZONT via JIRA ticket.

The XMIT file must be transferred binary and added to the JIRA ticket.

xxSJCUST

The DB2 table CUSTOM_DATA can be filled using SQL statements. These can be generated with the PRCICUS batch program. Program can read data in CSV format or a FLAT file structure. The input data is described with DD EDEFCMDS. Furthermore, it must be described which data is stored in which column of the DB2 table.

DB2 Structure of CUSTOM_DATA

DATA_TYPE  VARCHAR(128) NOT NULL,
DATA_INT_1 INTEGER DEFAULT 0 NOT NULL,
DATA_INT_2 INTEGER DEFAULT 0 NOT NULL,
DATA_STR_1 VARCHAR(128) DEFAULT ' ' NOT NULL,
DATA_STR_2 VARCHAR(128) DEFAULT ' ' NOT NULL,
DATA_STR_3 VARCHAR(256) DEFAULT ' ' NOT NULL,
DATA_STR_4 VARCHAR(256) DEFAULT ' ' NOT NULL,
DATA_STR_5 VARCHAR(1024) DEFAULT ' ' NOT NULL,
DATA_STR_6 VARCHAR(2048) DEFAULT ' ' NOT NULL

Job-Control

//S010     EXEC PGM=PRCICUS, PARM='DO=PM2930.CUSTOM_DATA,MC=500'                                  
//* PROGRAM PARM 1: NAME OF DB2 TABLE                         
//* PROGRAM PARM 2: WRITE COMMIT AFTER EACH XXX SQL STATEMENT 
//CEEOUT   DD  SYSOUT=*                                       
//CEEDUMP  DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSOUT   DD  SYSOUT=*                                       
//HOSOLOAD DD  DSN=&&PMFRMCO,DISP=(NEW,PASS,DELETE),                                      
//             RECFM=FB,LRECL=80,SPACE=(TRK,(100,100),RLSE)                             
//EDEFCMDS DD  *   
. . . . .

The EXEC parameter ‘DO’ is used to specify the target table and the parameter ‘MC’ is used to specify the COMMIT frequency.

EDEFCMDS Example CSV

//EDEFCMDS DD  *                                               
IMPORT_FILE=P391C.PROCMAN.V5R1.USER.SYSIN(HOSEMICL);           
IMPORT_FILE_LRECL=80;                                          
IMPORT_TYP=CSV;                        /* FLAT OR CSV */       
IGNORE_FIRST_LINE=TRUE;                /* TRUE OF FALSE */     
SQL_TYP=INSERT;                        /* INSERT or DELETE  */
-                                      /* Default is INSERT */ 
-----------------------------------                            
-- PARAMETER FOR IMPORT_TYP CSV                                
-----------------------------------                            
CSV_DELIMITER=';';                                             
CSV_ENCLOSURE='"';                                             
CSV_COLUMNS_1=DATA_TYPE;                                       
CSV_COLUMNS_2=DATA_INT_1;                                      
CSV_COLUMNS_3=DATA_STR_1;                                      
CSV_COLUMNS_4=DATA_STR_2;                                      
CSV_KEY=CSV_COLUMNS_3;                                         
CSV_FILTER=CSV_COLUMNS_1,'FIRE';                               
END1BLOCK;

IMPORT_FILE Name of Input file and Member name. Only PO datasets are supported.
IMPORT_FILE_LRECL Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
IMPORT_TYP CSV or FLAT Typ of IMPORT_FILE
IGNORE_FIRST_LINE TRUE or FALSE If the 1st line contains headings.
SQL_TYP INSERT or DELETE Which type of SQL should be written.
CSV_DELIMITER Each 1 digit character. E.g. ; or , or !
CSV_COLUMNS_n Column number of CSV source data and the target column in CUSTOM_DATA
CSV_KEY Column number of CSV source data which must be unique. In the case of duplicate values, only the 1 entry is used.

Note! Each definition block must be terminated with END1BLOCK.

EDEFCMDS Example FLAT

//EDEFCMDS DD  *                                               
----------------------------------                          
IMPORT_FILE=P391C.PROCMAN.V5R1.USER.SYSIN(HOFLATFL);        
IMPORT_FILE_LRECL=80;                                       
IMPORT_TYP=FLAT;                       /* FLAT OR CSV */    
IGNORE_FIRST_LINE=TRUE;                /* TRUE OF FALSE */  
SQL_TYP=INSERT;                        /* INSERT or DELETE  */
-                                      /* Default is INSERT */
-----------------------------------                         
-- PARAMETER FOR IMPORT_TYP FLAT                            
-----------------------------------                         
FLAT_COLUMNS_1=DATA_TYPE,1:4;                               
FLAT_COLUMNS_2=DATA_INT_1,6:10;                             
FLAT_COLUMNS_3=DATA_STR_1,12:15;                            
FLAT_COLUMNS_4=DATA_STR_2,17:20;                            
FLAT_KEY=FLAT_COLUMNS_3;                                    
FLAT_FILTER=FLAT_COLUMNS_1,'HIRE';                          
END1BLOCK;

IMPORT_FILE Name of Input file and Member name. Only PO datasets are supported.- IMPORT_FILE_LRECL Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
IMPORT_TYP CSV or FLAT Typ of IMPORT_FILE
IGNORE_FIRST_LINE TRUE or FALSE If the 1st line contains headings
SQL_TYP INSERT or DELETE Which type of SQL should be written.
FLAT_COLUMNS_n Column number of FLAT source data and the target column in CUSTOM_DATA
FLAT_KEY Column number of FLAT source data which must be unique. In the case of nn duplicate values, only the 1 entry is used.
FLAT_FILTER Column number of FLAT source data and search value.

xxSDELD

ProcMan zOS activities usually generate temporary files. After ProcMan has read these files, they can be deleted. The attached batch job deletes the data using IWSz control. As soon as a certain creation date is reached, these files are deleted.

Note! A backup, of these files, is not required.

xxSJFCNT

The DB2 table FORMCONT can be filled using SQL statements. These can be generated with the PRCIFRM batch program. The input data is described with DD EDEFCMDS.

DB2 Structure of FORMCONT

FORMNAME VARCHAR(64) NOT NULL,
    STMT     VARCHAR(16) NOT NULL,
    NAME     VARCHAR(64) NOT NULL,
    LBL      VARCHAR(512) NOT NULL,
    VAL      VARCHAR(1024),
    USR      VARCHAR(32)

Job-Control

//S010     EXEC PGM=PRCIFRM, PARM='DO=PM2930.CUSTOM_DATA,MC=500'                                  
//* PROGRAM PARM 1: NAME OF DB2 TABLE                         
//* PROGRAM PARM 2: WRITE COMMIT AFTER EACH XXX SQL STATEMENT 
//CEEOUT   DD  SYSOUT=*                                       
//CEEDUMP  DD  SYSOUT=*                                       
//SYSPRINT DD  SYSOUT=*                                       
//SYSOUT   DD  SYSOUT=*                                       
//HOSOLOAD DD  DSN=&&PMFRMCO,DISP=(NEW,PASS,DELETE),                                      
//             RECFM=FB,LRECL=80,SPACE=(TRK,(100,100),RLSE)                             
//EDEFCMDS DD  *   
. . . . .

The EXEC parameter ‘DO’ is used to specify the target table and the parameter ‘MC’ is used to specify the COMMIT frequency.

EDEFCMDS Example

//EDEFCMDS DD  *                                               
MY.PROCMAN.V5R1.USER.SYSIN; HOSAGB01 ; 80; FB; +               
  JOB;        JOBN1; FRM_JCK_JOB_HO; 1; 3; 1; 3;                  
MY.PROCMAN.V5R1.USER.SYSIN; HOACCT01 ; 80; FB; +               
  JOB;        #PP01; FRM_JCK_JOB_HO; 1; 6; 1; 6;                  
//* PARM 1 : NAME OF PO DATASET                                   
//* PARM 2 : MEMBER NAME                                          
//* PARM 3 : RECORD LENGTH OF PO DATASET 80,100,120 ARE SUPPORTED 
//* PARM 4 : RECORD FORMAT                                        
//* PARM 5 : STATEMENT TYPE LIKE JOB, EXEC OR DD                  
//* PARM 6 : NAME OF WEB FORM FIELD                               
//* PARM 7 : NAME OF WEB FORM                                     
//* PARM 8 : LABEL START DIGIT OF INPUT DATA                      
//* PARM 9 : LABEL LENGTH OF INPUT DATA                           
//* PARM 10: VALUE START DIGIT OF INPUT DATA                      
//* PARM 11: VALUE LENGTH OF INPUT DATA                           
//* PARM 12: (OPTIONAL) USERID START DIGIT OF INPUT DATA          
//* PARM 13: (OPTIONAL) USERID LENGTH OF INPUT DATA

Parameter 1 Name of the Input file (Only PO datasets are supported)
Parameter 2 Name of the Input member name.
Parameter 3 Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, 200, 250, 300, 350, 400
Parameter 4 Record format e.g. FB
Parameter 5 Statement Typ. E.g. JOB, EXEC or DD
Parameter 6 Name of the Web Form Field
Parameter 7 Name of the Web Form
Parameter 8 Label start position in the input data
Parameter 9 Label length in the input data
Parameter 10 Value start position in the input data
Parameter 11 Value length in the input data
Parameter 12 User start position in the input data (Optional)
Parameter 13 User length in the input data (Optional)

xxSJVSFL

The ProcMan JCL rule set offers the option of using check tables. These check tables are saved in a VSAM file. This VSAM file is recreated cyclically so that the latest data is saved. This usually happens every 24 hours when the online ProcMan is no longer being used.

Job-Control

//S010     EXEC PGM=PRCICHK,REGION=0M                            
//CEEDUMP  DD  SYSOUT=*                                          
//SYSOUT   DD  SYSOUT=*                                          
//SYSPRINT DD  SYSOUT=*                                          
//HOSVLOAD DD  DSN=&&PMLOAD,DISP=(NEW,PASS,DELETE),              
//             RECFM=FB,LRECL=400,SPACE=(TRK,(500,250),RLSE)     
//EDEFCMDS DD  *                                                 
DEPART;   P391C.PROCMAN.V5R1.USER.SYSIN; HOSAGB01; 80; FB; +     
     1;  1;

EDEFCMDS description

Parameter 1 Name of the check table
Parameter 2 Name of the Input file (Only PO datasets are supported)
Parameter 3 Name of the Input member name.
Parameter 4 Record length of Input file. Following LRECL are supported. LRECL 80, 100, 120, 150, ZZ 200, 250, 300, 350, 400
Parameter 5 Record format e.g. FB
Parameter 6 LABEL Which data for the label. E.g.
- 1; 1. Column of input data
- 1,2; 1. and 2. Column of input data
- (1:30); Start in position 1 with length of 30
- (1:15;24:3) Start in position 1 with length of 15 and start in position 24 with length of 3
Parameter 7 VALUE Which data for the value. E.g. -1,4,3,2
- 1. Column of input data for VSAM DATA1
- 4. Column of input data for VSAM DATA2
- 3. Column of input data for VSAM DATA3
- 2. Column of input data for VSAM DATA4
  - 1(53:3),2(48:4),3(57:48);
  - position 53 length of 3 of input data for VSAM DATA1
  - position 48 length of 4 of input data for VSAM DATA2
  - position 57 length of 48 of input data for VSAM DATA3

EDEFTITL description (new title will be shown with the ISPF dialog)

Parameter 1 Name of the check table
Parameter 2 Column number of check table
Parameter 3 New title of column ( instead DATA1, DATA2…..)

Administration dialog z/OS

In the installed CLIST / REXX library, execute the member PRCX with "EX" (execute).

Start dialog

EDIT              SYSH.PROCMAN.VxRx.REXX                Row 0000001 of 0000031 
 Command ===>                                                  Scroll ===> CSR  
            Name     Prompt       Size   Created          Changed          ID   
 _________ CHCKOPCS                 39  2016/08/30  2016/08/30 11:56:00  HORIZON
 _________ HUKXQS01                 54  2016/08/30  2016/08/30 11:56:00  HORIZON
 _________ PMIIPARM                  2  2016/10/27  2016/10/27 08:26:29  HORIZON
 _________ PRCECHEK                724  2017/02/22  2017/03/02 15:35:42  HORIZON
 _________ PRCEDATA                 15  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCEEHOR                843  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCEJREF                 21  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCERLOG                579  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCETEND                 13  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCETEXT                 12  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCEVINI                 13  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCRULED                                                             
 ex_______ PRCX                     35  2017/02/22  2017/02/22 08:37:00  HORIZON
 _________ PRCXCDIA                 32  2017/02/22  2017/02/22 08:37:00  HORIZON

The following dialog appears:


--------------------------  ProcMan Rule Test dialog --------------------------
Please select ===>                                                             
                                                                               
  S   Syntax Check of Rule member                             USERID  -MYUSER  
  C   Display check tables                                    System  -SYSA    
  X   End                                                     Time    -10:36   
                                                              Date    -31/05/21
                                                              Program -REXX    
                                                              Build   -VxRx    
Commands: END for end of the dialog.

Check Rules via dialog

PRCPMAIN -----------------  ProcMan Rule Test dialog --------------------------
Please select ===> S                                                            
                                                                               
  S   Syntax Check of rule member                             USERID  -USERID   
      For new rules (V5) only                                 System  -SYSA    
  C   Display check tables                                    Date    -21/05/27
  X   End                                                     Time    -15:02   
                                                              Program -REXX    
                                                              Build   -V5R0    
                                                                               
Commands: END for end of the dialog.

After entering “S”, the dialog for entering the library and the member is displayed.

--------------------------- ProcMan Rule Test dialog --------------------------
                                                                               
Please select ===>                                             Scroll ===> CSR 
                                                                               
Enter the library and the Rule member name.                                    
Library: MY.RULE.LIBRARY                              Member: MYRULE                 
                                                                             
                                                                               
After entering library/member the content will shown with error messages.

After entering Rule library name and member name have been specified, the member will be displayed in ISPF-Editor.


E EDIT       DATA.PRX.DATA.QS.RULES(A#BA#001) - 01.12        Columns 00001 00080 
Command ===> CHECK                                               Scroll ===> CSR  
****** ********************************* Top of Data ****************************
000001 ========================================================================        
000002 = AAAA N   N AAAA L   Y   Y  SSS EEEE                                  =        
000003 = A  A NN  N A  A L    Y Y  S    E                                     =        
000004 = A  A N N N A  A L     Y    SS  EEE                                   =        
000005 = AAAA N  NN AAAA L     Y      S E                                     =        
000006 = A  A N   N A  A LLLLL Y   SSS  EEEE                                  =        
000007 ========================================================================        
000008 define #log=true;                                                               
000009 --define #log_jcl=true;                                                         
000010 define #log_var='AUTO';                                                         
000011 define #cache_table='AUTO';                                                     
000012 define #cache_never=[];                                                         
000013 --------------------------------------------------                              
000014 -- Read all jcl statements and execute                                          
000015 --------------------------------------------------                              
000016 FOREACH(JCLSTMT() as &VAR:JCLS);                                                
000017   CALL USEJCLSTMT(&VAR:JCLS);                                                   
000018 --------------------------------------------------                              
000019 WILDCARD ?%;                                                                    
000020 CALL                                                                            
000021 FILTER                                                                          
000022   STMT='JOB'                                                                    
000023 EXEC                                                                            
000024   SETFORM('FRM_JCK_JOB_BA')                                                     
000025        /* Jobname 1-3 */                                                        
000026 EXEC                                                                            
000027   SETFIELD('JOBN1',SUBSTR(JOBNAME(),1,4))                                       
000028        /* Jobname 4-8 */                                                        
000029 EXEC                                                                            
000030   SETFIELD('JOBN2',SUBSTR(JOBNAME(),5,4))                                       
000031        /* Account */                                                            
000032 EXEC                                                                            
000033   SETFIELD('#PP01',SUBPARM('#PP01',1))                                          
000034        /* Programers Name */                                                    
000035 EXEC                                                                            
000036   SETFIELD('#PP02',PARM('#PP02'))                                               
000037 FILTER                                                                          
000038   FIELD='#PP02'                                                                 
000039 EXEC                                                                            
000040   SETATTR('must','N')                                                           
000041        /* Put job in the call list */                                           
000042 EXEC                                                                            
000043   SETFIELD('ONCALL','N');                                                       
000044 -                                                                               
000045 CALL                                                                            
000046 FILTER                                                                          
000047   STMT='JOB',                                                                   
000048   TEST=HOTYPE() EQ 'CHANGE',                                                    
000049     +----------------------------------------------------+              
000050     ! Enter CHECK at command line to start syntax check. !              
000051     +----------------------------------------------------+              
After typing “CHECK” in command line the Rule member will be checked.

EDIT       DATA.PRX.DATA.QS.RULES(A#BA#001) - 01.12       CHECK SUCCESSFUL, RC=0
Command ===>                                                     Scroll ===> CSR 
****** ********************************* Top of Data ****************************
==MSG> MESSAGE SUMMARY. Rules=0560  Errors=0000 Warnings=0000 Total=0000             
==MSG> Included rules.  Rules=0391  Errors=0000 Warnings=0000 Total=0000                           
==MSG> Error Message                                                                  
==MSG> -----------------------------------------------         
000001  ========================================================================       
000002 = AAAA N   N AAAA L   Y   Y  SSS EEEE                                  =       
000003 = A  A NN  N A  A L    Y Y  S    E                                     =       
000004 = A  A N N N A  A L     Y    SS  EEE                                   =       
000005 = AAAA N  NN AAAA L     Y      S E                                     =       
000006 = A  A N   N A  A LLLLL Y   SSS  EEEE                                  =       
000007 ========================================================================       
000008 define #log=true;                                                              
000009 --define #log_jcl=true;                                                        
000010 define #log_var='AUTO';                                                        
000011 define #cache_table='AUTO';                                                    
000012 define #cache_never=[];                                                        
000013 --------------------------------------------------                             
000014 -- Read all jcl statements and execute                                         
000015 --------------------------------------------------                             
000016 FOREACH(JCLSTMT() as &VAR:JCLS);                                               
=NOTE= Rule 1                                                                         
000017   CALL USEJCLSTMT(&VAR:JCLS);                                                  
000018 --------------------------------------------------                             
000019 WILDCARD ?%;                                                                   
=NOTE= Rule 2                                                                         
000020 CALL                                                                         
000021 FILTER                                                  
000022   STMT='JOB'                                                                   
000023 EXEC                                                                           
000024   SETFORM('FRM_JCK_JOB_BA')                                                    
000025        /* Jobname 1-3 */                                                       
000026 EXEC                                                                           
000027   SETFIELD('JOBN1',SUBSTR(JOBNAME(),1,4))                                      
000028        /* Jobname 4-8 */                                                       
000029 EXEC                                                                           
000030   SETFIELD('JOBN2',SUBSTR(JOBNAME(),5,4))                                      
000031        /* Account */                                                           
000032 EXEC                                                                           
000033   SETFIELD('#PP01',SUBPARM('#PP01',1))                                         
000034        /* Programers Name */                                                   
000035 EXEC                                                                           
000036   SETFIELD('#PP02',PARM('#PP02'))                                              
000037 FILTER                                                                         
000038   FIELD='#PP02'                                                                
000039 EXEC                                                                           
000040   SETATTR('must','N')                                                          
000041        /* Put job in the call list */                                          
000042 EXEC                                                                           
000043   SETFIELD('ONCALL','N');                                                      
000044 -                                                                              
=NOTE= Rule 3                                                                         
000045 CALL                                                                           
000046 FILTER                                                                         

ISREDDE2   DATA.PRX.DATA.QS.RULES(A#BA#004) - 01.08        ERRORS OCCURRED, RC=8 
Command ===>                                                      Scroll ===> CSR  
****** ********************************* Top of Data ****************************
==MSG> MESSAGE SUMMARY. Rules=0025  Errors=0001 Warnings=0000 Total=0001               
==MSG> Error Message                                                                   
==MSG> ----------------------------------------------------------------------          
==MSG> Line 33 PRXE0051 UNKNOWN FUNCTION CALLED: SBSTR                                 
000001 ========================================================================        
000002 = Migration of Rule member with new rule syntax                        =        
000003 ========================================================================        
000004 ========================================================================        
000005 = AAAA N   N AAAA L   Y   Y  SSS EEEE                                  =        
000006 = A  A NN  N A  A L    Y Y  S    E                                     =        
000007 = A  A N N N A  A L     Y    SS  EEE                                   =        
000008 = AAAA N  NN AAAA L     Y      S E                                     =        
000009 = A  A N   N A  A LLLLL Y   SSS  EEEE                                  =        
000010 ========================================================================        
000011 define #log=true;                                                               
000012 --define #log_jcl=true;                                                         
000013 define #log_var='AUTO';                                                         
000014 define #cache_table='AUTO';                                                     
000015 define #cache_never=[];                                                         
000016 --------------------------------------------------                              
000017 -- Read all jcl statements and execute                                          
000018 --------------------------------------------------                              
000019 FOREACH(JCLSTMT() as &VAR:JCLS);                                                
=NOTE= Rule 1                                                                          
000020   CALL USEJCLSTMT(&VAR:JCLS);                                                   
000021 --------------------------------------------------                              
000022 WILDCARD ?%;                                                                    
=NOTE= Rule 2                                                                          
000023 CALL                                                                            
000024 FILTER                                                                          
000025   STMT='JOB'                                                                    
000026 EXEC                                                                            
000027   SETFORM('FRM_JCK_JOB_BA')                                                     
000028        /* Jobname 1-3 */                                                        
000029 EXEC                                                                            
000030   SETFIELD('JOBN1',SUBSTR(JOBNAME(),1,3))                                       
000031        /* Jobname 4-8 */                                                        
000032 EXEC                                                                            
000033   SETFIELD('JOBN2',SBSTR(JOBNAME(),4,5))                                        
==MSG> Line 33 PRXE0051 UNKNOWN FUNCTION CALLED: SBSTR                                 
000034        /* Account */                                                            
000035 EXEC                                                                            
000036   SETFIELD('#PP01',SUBPARM('#PP01',1))                                          
000037        /* Programers Name */                                                    
000038 EXEC                                                                            
000039   SETFIELD('#PP02',PARM('#PP02'))                                               
000040 FILTER                                                                          
000041   FIELD='#PP02'                                                                 
000042 EXEC                                                                            
000043   SETATTR('must','N')                                                           
000044        /* Put job in the call list */

Display check tables

If Rules using the table function, the corresponding data must be loaded into a VSAM file with a management job. The contents of this VSAM file can be displayed with the dialog.

PRCPMAIN -----------------  ProcMan Rule Test dialog --------------------------
Please select ===> C                                                            
                                                                               
  S   Syntax Check of rule member                             USERID  -USERID   
      For new rules (V5) only                                 System  -SYSA    
  C   Display check tables                                    Date    -21/05/27
  X   End                                                     Time    -15:02   
                                                              Program -REXX    
                                                              Build   -V5R0    
                                                                               
                                           
Commands: END for end of the dialog.

After entering “C”, the dialog for entering the name of the VSAM dataset is displayed.

- PRCPDCH2 -------------------- ProcMan check table -----------------------------
                                                                               
Please select ===>                                             Scroll ===> CSR 
                                                                               
Commands: R Refresh CAN Quit                                                   
                                                                               
Enter name of Check VSAM Dataset                                               
                                                                               
VSAM Dataset: HLQ.PC110.CHECK.VSAM                         '?' for all values!

After entering the file name and ENTER an overview of loaded tables is displayed.

------------------------- ProcMan Overview check table --------- Row 1 from 6 
Please select ===>                                             Scroll ===> CSR 
                                                                               
Commands: CAN End without save END End without save                            
LineCmds: S Show content                                                       
                                                                               
  *                                                                            
  EQ                                                                           
  Table    Record Creation date/time                                           
  -------- ------ ------------------                                           
S HOJJACCT 22     2017-12-08  09:12                                            
  HOSB93D1 1670   2017-12-08  09:12                                            
  HOSB93D2 57     2017-12-08  09:12                                            
  HOJB93D3 108    2017-12-08  09:12                                            
  HOSB93D4 57     2017-12-08  09:12                                            
  HOSB93D5 171    2017-12-08  09:12                                            
******************************* Bottom of data ********************************

By entering “S” the data can be displayed in more detail

- ------------------------- ProcMan check table HOJJACCT --------- Row 2 from 24 
Please select ===>                                             Scroll ===> CSR 
Commands: CAN END End without save  2 3 4 5 6 7 show other columns             
          UPDATE Switch on/off Update Modus                                    
LineCmds: S Show content                                                       
Key: SVJJACCT Gen: 0 Search DTKEY: *                                         EQ
                           *                 *                 *               
                           EQ                EQ                EQ              
  Key   Gen   DTKEY        DTDAT1            DTDAT2            DTDAT3          
  ------------------------ ----------------- ----------------- ----------------
S HOJJACCT0FTP             FTP               TP                FILETRANSFER    
  HOJJACCT0F00             F00               00                ADMINISTRATION   
  HOJJACCT0F01             F01               01                KANKENVERSICHERUNG 
  HOJJACCT0F02             F02               02                LEBENSVERSICHERUNG 
  HOJJACCT0F03             F03               03                FEUERVERSICHERUNG  
  HOJJACCT0F04             F04               04                MARKETING    
  HOJJACCT0F05             F05               05                SCHADENSGULIERUNG         
  HOJJACCT0F06             F06               06                FINANZBUCHHALTUNG 
  HOJJACCT0F07             F07               07                MIETE           
  HOJJACCT0F08             F08               08                DARLEHEN        
  HOJJACCT0F09             F09               09                ALLGEMEIN       
  HOJJACCT0F10             F10               10                TEXTMANAGEMENT  
  HOJJACCT0F11             F11               11                OPERATION      
  HOJJACCT0F12             F12               12                EINKAUF   
  HOJJACCT0F13             F13               13                DATAWAREHOUSE   
  HOJJACCT0F14             F14               14                REVISION        
  HOJJACCT0F15             F15               15                DRITTSYSTEME    
  HOJJACCT0F16             F16               16                ORGANISATION      
  HOJJACCT0F17             F17               17                UNFALLVERSICHERUNG 
  HOJJACCT0F43             F43               43                SACHVERSICHERUNG  
  HOJJACCT0F45             F45               45                SCHADENSREGEULIER      
  HOJJACCT0F83             F83               83                ADHOC           
******************************* Bottom of data ********************************

Each data has the length of 50 bytes. There are 7 data fields. To see the data in full length, enter a “S” in front of the line.

-------------------------  Detail record table HOJJACCT -----------------------
Command ===>                                                   Scroll ===> HALF
                                                                               
DTKEY                       HOJJACCT0FTP                                       
DTGENER                     0              0=full qualified  1=generic value   
DTDAT1                      FTP                                                
DTDAT2                      TP                                                 
DTDAT3                      FILETRANSFER                                       
DTDAT4                                                                         
DTDAT5                                                                         
DTDAT6                                                                         
DTDAT7

DTDAT1 to DTDAT7 is not a clear header. With administration run new header, for each column can be set.

Installation steps on z/OS

1. Download and extract installation files

The installation files can be downloaded from

Copy PRXINST.ZIP to a temporary Windows directory and unzip it. The following files will be created:

PRXINST.BIN

2. Transfer files to the HOST

The unzipped file must be transmitted to the HOST by file transfer.

3. Create at HOST the XMIT file

DSN

DCB

4. Transfer the unzipped file to the created Host-XMIT file

With a file transfer program, you must send the following PC files to the HOST.

File names on the PC

File names on the HOST

Transfer mode must be binary.

The ASCII and CLRF options must not be used.

5. Generate the program files by the TSO command RECEIVE

RECEIVE INDSNAME(‘PREFIX.XMITINST’)

XMIT files

Resulting ProcMan files

6. Delete HOST-XMIT file ‘PREFIX.XMITINST’

7. Start the installation

Start the installation by executing the following member with line command=EX HLQ.PROCMAN.VxRx.INSTALL(PMIXINST).

It displays the menu where you select the components you want to install. The following screenshots describe the installation dialogs for all components.

PMIPDI15 ------------- Installation of ProcMan-Host-Files --------------------
Command ===>                                                                   
                                                                               
Before you start the installation, the HORIZONT products "SmartJCL"  
and HORIZONT "Shared Package" must be installed.                     
                                                                     
Note The IWS part must be installed if you want to check Job-Control 
     with IWS variable substitution.                                 
                                                                     
ProcMan zOS installation with IWS variable substitution  ===> _  Y/N 
                                                                     
ENTER continue CAN/END Abend installation.

ProcMan zOS installation with IWS variable substitution If SmartJCL jobs will be started with IWS variable substitution some IWS parameter must be entered.

PMIPDI20 ------------- Installation of ProcMan-Host-Files --------------------
Command ===>                                                                   
Installation Library                                                           
  Receive Library      ===> HLQ.PROCMAN.V3R3.INSTALL_____________________                         
                                                                               
ISPF Libraries                                                                 
  Tables               ===> ISP.SISPTENU_________________________________                                        
  Message              ===> ISP.SISPMENU_________________________________                                       
  Skeleton             ===> ISP.SISPSENU_________________________________                                       
  Panels               ===> ISP.SISPPENU_________________________________                                       
  Load	   		===> ISP.SISPLOAD_________________________________
If the ISPF libraries cannot be determined automatically, please add the
library names manually.                                                 
                                                                        
Enter SmartJCL-Parameter-Library where member JCKXPARM is stored        
  SmartJcl Parm-Lib.   ===> SYSH.SMARTJCL.PARM___________________________                          
Enter name of Load-Library from HORIZONT "Shared Package"               
  Shared Load library  ===> HORIZONT.SHARED.V1R3.LOAD____________________                      
                                                                         
ENTER continue  CAN/END Abend installation.

Enter the dataset name of your transfer dataset. Normally the name is inserted automatically.

SMARTJCL must be installed first. Enter the name of the SMARTJCL parameter library where member JCKXPARM exists. This member is analysed in order to obtain the required parameter.

PMIPDI25 ---------- Installation of ProcMan Product datasets------------------
Command ===>                                                                   
                                                                               
ProcMan Product Datasets. Libraries are for administration dialog.             
  REXX                 ===> SYSH.PROCMAN.VxRx.REXX______________________                             
  REXX Load            ===> SYSH.PROCMAN.VxRx.LOAD.REXX_________________                        
  Load                 ===> SYSH.PROCMAN.VxRx.LOAD______________________                             
  Edit Macro           ===> SYSH.PROCMAN.VxRx.EMAC______________________                             
  Messages             ===> SYSH.PROCMAN.VxRx.MESSAGE___________________                          
  Panels               ===> SYSH.PROCMAN.VxRx.PANELS____________________                           
                                                                               
  Note! Product user needs update rights for following datasets:               
  Parameter            ===> SYSH.PROCMAN.VxRx.PARM______________________                             
  Tables               ===> SYSH.PROCMAN.VxRx.TABLES____________________                      
  Skels                ===> SYSH.PROCMAN.VxRx.SKELS_____________________                       
  Log File             ===> SYSH.PROCMAN.VxRx.LOG_______________________ 
  HOSXIN (Rule macro)  ===> SYSH.PROCMAN.VxRx.MACRO.HOSXIN______________                        
                                                                               
  This file is only temporary and contains all generated skeleton member.      
  Qualifier WorkDSN    ===> SYSH.PROCMAN.VxRx.WRK__________     '.TEMP.CNTL'  
                                                                               
ENTER continue  CAN/END Abend installation.

Enter the dataset names for your installation. HLQ is a placeholder and the dataset names are just a suggestion.

You can customize the names according to your Requirements.

PMIPDI30 ------------ Installation of ProcMan User Dataset -------------------
Command ===>                                                                   
                                                                               
ProcMan User Datasets                                                          
Note! User datasets are usually created with another qualifier.                
      Following datasets are created with an own job.                          
                                                                               
  Rules                ===> SYSH.PROCMAN.VxRx.RULES______________________                            
  Example JCL          ===> SYSH.PROCMAN.VxRx.JCL________________________                              
  SYSIN                ===> SYSH.PROCMAN.VxRx.SYSIN______________________                            
  ProcMan JCL Scels    ===> SYSH.PROCMAN.VxRx.JCL.SKELS__________________                        
  ProcMan JCL Message  ===> SYSH.PROCMAN.VxRx.JCL.MESSAGE________________                      
  Check VSAM dataset   ===> SYSH.PROCMAN.VxRx.CHECK.VSAM_________________                       
  Check ISPF dataset   ===> SYSH.PROCMAN.VxRx.CHECK.ISPF_________________                       
                                                                               
ENTER continue  CAN/END Abend installation.

Enter the dataset names for your installation. HLQ is a placeholder and the dataset names are just a suggestion.

You can customize the names according to your Requirements.

PMIPDI40 ------------- Installation of ProcMan-Host-Files --------------------
Command ===>                                                                   
                                                                               
TWS Datasets and Parameter                                                     
  TWS Version  ===> J  F V9R1, G V9R2, H V9R3, I V93R3, J V9R5, K V10R1     
  Subsystem    ===> IWJC                                                       
  EQQMLIB      ===> SYSH.IWS950.SEQQMSG0___________________________                                       
  SEQQLMDM     ===> SYSH.IWS950.SEQQLMD0___________________________                                       
  AD File      ===> SYSH.IWJC.AD___________________________________                                               
                                                                               
ENTER continue  CAN/END Abend installation.

PMIPDI50 ------------- Installation of ProcMan-Host-Files --------------------
Command ===>                                                                   
                                                                               
Parameter for Job-Control generator. Program uses entered values to generate   
the Job-Control skeleton for Web-Dialog.                                       
Member name:    ===> HO  enter first two digits of new skeleton member         
Jobcard:       (Set unused parameter to blank)                                 
  Account       ===> (DEFAULT,92) _____________________________________________                                              
                     Enter with ' ' or ( )                                     
  Class         ===> A      Msgclass ===> H      Msglevel ===> 1  1  (e.G. 1 1)
  Prty          ===> 7      Region   ===> 0M     User     ===> _________                
  Schenv        ===> ______________  Enter without ' '                         
  Cond          ===> ______________  Enter without ' ' or ( )                  
Joblib/Steplib: ===> J  N=none J=Joblib S=Steplib                              
                                                                               
DD parameter:                                                                  
  SYSOUT Class  ===> *                                                         
Enter only if required:                                                        
  Step Account  ===> __________________________________________________________                                                          
  UNIT          ===> ________    VOLSER         ===> ________                          
  Storage class ===> ________    Data class     ===> ________                          
  Managem.class ===> ________                                                          
For JES3 installation inserts parameter for //*MAIN                            
Enter parameter only. //*MAIN will be inserted automatically.                  
-//*MAIN ===> _________________________________________________________________                                                                  
ENTER continue CAN/END Abend Installation.

ProcMan JCL Web dialog will submit SmartJCL jobs. These jobs will be stored as templates at zOS. To generate these templates, you need to specify certain parameters.

PMIPDI55 ------------- Installation of ProcMan-Host-Files --------------------
Command ===>                                                                   
                                                                               
Enter DB2 parameter. Entered values are used for DB2 load batch job.           
                                                                               
DB2 Subsystem      ===> DBAX                                                   
Program for Load   ===> DSNTEP2_                                                
Plan name          ===> DSNTEPA1                                               
Load  (*.SDSNLOAD) ===> DSNA10.SDSNLOAD_____________________________                                        
Utility Load       ===> DSNA10.DBAG.RUNLIB.LOAD_____________________                                
Table Owner        ===> PMXX_999                                               
                                                                               
ENTER continue  CAN/END Abend installation.

DB2 parameter are used for an administration batch job. This job will fill DB2 table FORMCONT. This table will be used for checks with web dialog.

PMIPDI60 ------------- Installation of ProcMan-Host-Files --------------------
Command ===>                                                                   
                                                                               
Jobcard for Installation Job                                                   
===> //USERX33 JOB  (DEFAULT),________________________________________________                                                
===> //        'PROCMAN HFX',NOTIFY=&SYSUID___________________________________                                    
===> //*______________________________________________________________________                                                                       
===> _________________________________________________________________________                                                                          
                                                                               
For JES3 installation inserts parameter for //*MAIN                            
Enter parameter only //*MAIN will be inserted automatically                    
-//*MAIN ===> ________________________________________________________________                                                                  
                                                                               
Parameter for Installation Job                                                 
- SYSOUT                    ===> *                                             
- Qualifier for workfiles   ===> HLQ.PROCMAN.VxRx.WRK_______________                        
Enter only if required                                                         
- UNIT                      ===> SYSDA__                                         
- VOLSER                    ===> _______                                              
- Storage class             ===> _______                                              
- Data class                ===> _______                                              
- Management class          ===> _______                                              
- Step Account              ===> ________________________________________                                              
                                                                               
ENTER Continue  CAN/END Abend Installation.

Please enter the Job Control parameter for installation job. After job was generate it will be shown with ISPF edit.

+-------------------------------------------------------------+
|  Create Member in temporary Library                         |
|  USER.PROCMAN.TEMP.CNTL                                     |
|                                                             |
|  Member total    : 50         8   YXSJCPY  created          |
|  Member actual   : 15         9   YXSJCPY2 created          |
|         name     : HOJPAR1    10  YXSJDEL  created          |
|                               11  YXSJEDT  created          |
|                               12  YXSJGDGL created          |
|                               13  YXSJISPF created          |
|                               14  YXSJGTYP created          |
|                                                             |
|                                                             |
+-------------------------------------------------------------+

If you press ENTER the program generates all template jobs a temporary library. Copying to the destination library will be done by the installation job.

//MYUSERV JOB (DEFAULT),'TEST PM INST',NOTIFY=&SYSUID    
//****************************************************** 
//* INSTALLATION PROCMAN HOST DATASETS                   
//****************************************************** 
//****************************************************** 
//* INSTALL PARM LIBRARY                                 
//****************************************************** 
//* DELETE LIBRARY                                       
//DELPARM  EXEC PGM=IDCAMS                               
//SYSPRINT DD  SYSOUT=*                                  
//SYSIN    DD  *                                         
 DEL MYUSER.PROCMAN.PARM                                 
 SET MAXCC=0                                             
/*                                                       
//* ALLOCATE LIBRARY                                     
//ALOCPARM EXEC PGM=IEFBR14,                             
//             COND=(04,LT)                              
//A01      DD  DSN=MYUSER.PROCMAN.PARM,                  
//             DISP=(,CATLG,DELETE),                     
//             UNIT=SYSDA,                               
//             SPACE=(TRK,(100,50,100),RLSE),            
//             LRECL=80,                                 
//             RECFM=FB                                  
//* RESTORE LIBRARY FROM INSTALLATION FILE               
//RECPARM  EXEC PGM=IKJEFT01,                            
//             COND=(04,LT)                              
//SYSPRINT DD  SYSOUT=*                                  
//SYSTSPRT DD  SYSOUT=*                                  
//SYSTSIN  DD  *                                         
 RECEIVE INDSN('HORIZONT.PROCMAN.V1R2.INSTALL(PARM)')    
 DATASET('MYUSER.PROCMAN.PARM') +                        
 RELEASE                                                 
/*                                                       
EsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssN 
e Job-Control was saved USER.PROCMAN.V5R0.INSTALL(INSJOB1). Please check the  e 
e job control and enter SUBmit.                                               e 
DsssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssM