Output Modules › Segmenting Reports in a VSE/POWER Run (CULEPOWR) › Helpful Hints

Helpful Hints

• VSE/POWER JECL information is supplied through the CALL or through the card reader.
• CULEPOWR accesses JECL information through a control switch. The control switch is pointed to by the first address in the calling parameter list. The value of the control switch determines if a second address should be expected in the parameter list. If present, the second address points to the JECL information.
• The JECL information area has the following format:

  Col
  1
  ▼
  power-keyword power-JECL-options
  

  • Power-keyword, coded in columns 1 through 3 and enclosed in single quotation marks, requires a LST or PUN keyword, as appropriate.
  • Column 4 is a space.
  • Power-JECL-options, coded in columns 5 through 66, specifies VSE/POWER options required for the run. (Refer to VSE/POWER publications.)
• The VSE/POWER JECL information card, read through a CALL to CULEPOWR, has the following format:

  

Columns 1 and 2 are not used.

Power-keyword, coded in columns 3 through 5, requires a LST or PUN keyword, as appropriate.

Column 6 is a space.

Power-JECL-options, coded in columns 7 through 68, specifies VSE/POWER options required for the run. (Refer to VSE/POWER publications.)

Comments, coded in columns 69 through 80, are optional.

• When the JECL card is read through a CALL to CULEPOWR, the CA Culprit report number is not available for verification against the card. The input job stream of JECL cards must be in ascending numerical sequence of the reports that require them as input.
• Invoking CULEPOWR changes the current VSE/POWER JECL options. The new JECL options set by CULEPOWR stay in effect until the end of the CA Culprit job or until another report uses CULEPOWR.

Example 1—Calling CULEPWR from an Assembler Routine

Reading JECL Information from a Card

         .
         .
         .
         CALL  CULEPWR,(CTLSW)          CALL TO CULEPWR
         CLI   CTLSW,X'F0'              CHECK RETURN CODE
         BNE   ERROR                    ERROR WAS NOTED
         .
         .
         .
CTLSW    DS    CLI'R'                   JECL VIA CARD

Passing JECL Information Via the Call

         .
         .
         .
         CALL  CULEPWR,(CTLSW,JECL)     CALL TO CULEPWR
         CLI   CTLSW,X'F0'              CHECK RETURN CODE
         BNE   ERROR                    ERROR WAS NOTED
         .
         .
         .
CTLSW    DS    CLI'C'                   JECL VIA CALL
JECL     DS    CL66'LST FNO=ACB,DISP=H,PRI=1'

Example 2—Calling CULEPWR from a COBOL Module

Reading JECL Information from a Card

WORKING-STORAGE SECTION.
01   CULEPWR-CALL.
     05 CONTROL-SWR              PIC X(1) VALUE 'R'.
     05 CONTROL-SWC              PIC X(1) VALUE 'C'.
     05 JECL-INFO.
        10  JECL                 PIC X(24)
            VALUE 'LST FNO=ACB,DISP=H,PRI=1'.
        10  FILLER               PIC X(42) VALUE SPACES.
PROCEDURE DIVISION.
     .
     .
     .
CULEPWR-READING-JECL-CARD.
    CALL CULEPWR USING CONTROL-SWR.
    IF CONTROL-SWR NOT EQUAL TO '0'
       GO TO CULEPWR-ERROR.
           .
           .
           .
CULEPWR-JECL-VIA-CALL.
    CALL CULEPWR USING CONTROL-SWC JECL INFOR.
    IF CONTROL-SWC NOT EQUAL TO '0'
       GO TO CULEPWR-ERROR.