JCLNeat REXX Programming Interface › The INITIAL PROCESSING and DO WHILE Loop

The INITIAL PROCESSING and DO WHILE Loop

Important! Do not remove or modify any lines prior to the Initial Processing Subroutine. All variables prefixed with $CA are required.

The initialization and main DO WHILE loop following, demonstrate the external function calls available for the REXX EXEC. The CAZ1NRXI interface passes the proper values to the REXX EXEC variables. The interface directs the processing flow throughout execution for each statement type encountered in the JCL member you submit for standards processing.

  /********************************REXX********************************/
  /*  CA JCLCheck       REXX programming interface for JCLNeat        */
  /********************************************************************/
  /*  Initialization logic                                            */
  /********************************************************************/
  PARSE ARG $CAJCL_PARM;       /* Get argument */
  /*                                                                  */
  CALL INITIAL_PROCESSING      /* Do one time logic */
  /*                                                                  */
  /*      Continually call the appropriate statement subroutine       */
  /*      until there are no more jobs to process                     */
  /*                                                                  */
  DO WHILE $CAJCL_REASON ¬= 'EOR'
  $CAJCL_VARS:
    If $CAJCL_REASON = 'JOB' then CALL JOB_PROCESSING;
     If $CAJCL_REASON = 'EXE' then CALL EXEC_PROCESSING;
      If $CAJCL_REASON = 'DD' then CALL DD_PROCESSING;
       If $CAJCL_REASON = 'EOS' then CALL END_STEP_PROCESSING;
        If $CAJCL_REASON = 'EOJ' then CALL END_JOB_PROCESSING;
         If $CAJCL_REASON = 'RAW' then CALL RAW_DATA_PROCESSING;
    CALL 'CAZ1NRXI' $CAJCL_PARM ;
   $CAJCL_REASON = RESULT;           /* Save result in $CAJCL_REASON  */
  End
  EXIT

The CALL INITIAL_PROCESSING statement executes a subroutine to set any user-defined variables to be used in this EXEC.

The DO WHILE loop executes the appropriate subroutine function as the JCL is processed. The INITIAL PROCESSING and DO WHILE loop subroutines contain $CAJCL statements; they are required and should not be changed.

Note: For more information, see REXX for CA JCLCheck and JCLNeat in the Programming Guide.