Return to the Sample Job Stream List

P00MQKBO Sample Job Stream

Original JCL (VSE)

* $$ JOB JNM=P00MQKBO,CLASS=P,DISP=H,PRI=5
* $$ LST DISP=K,CLASS=J,FCB=FCB2JSTK,FNO=STK1,JSEP=1,USER=BOB,SYSID=N
// JOB P00MQKBO
* JMCL NAME=STEP001
* STEP STEP001                   P00MQKBO     09/26/94
* ************************************************************ *
* STEP 1)  PRINT POLICIES ISSUED FOR OFFICE 2187               *
*          -------------------------------------               *
*          PROGRAM    - QUKBJOB                                *
*          VSAM IN    - N72.AUX.MASTER             (FSLPUCT)   *
*          REPORT OUT - POLICIES ISSUED FOR OFFICE 2187        *
* ************************************************************ *
* //INF     DD DSN=N72.AUX.MASTER,
* //           AMP=AMORG,DISP=SHR,OPTION=CAT=FSLPUCT
/* DLBL INF,'N72.AUX.MASTER',,VSAM,CAT=FSLPUCT        ++EPIC
// EXEC QUKBJOB,SIZE=256K IF=(HC EQ 00),DATA
OPTION NOSEQ,MBUFFER=NO
INFKSDS    1100
    ********************************************************************
    *   AUXILIARY FILE ON VSAM SINCE 3/21/87, AND GENERATE REPORT FOR  *
    *   NAME, ADDRESS, ISSUE-DATE, ETC. REPORT FOR ISSUES IN JAN 88    *
    ********************************************************************
    *             FILE LAYOUT FOR INPUT AUX TAPE                       *
    ********************************************************************
EQU AUX-TRLR         INF20-21
EQU POLICY           INF04-13
EQU ISSUE-DATE       INF44-49
EQU ISSUE-MM         INF44-45
EQU ISS-DAY          INF46-47
EQU ISSUE-YY         INF48-49
EQU INS-NAME         INF50-79
EQU ADDRESS          INF134-163
EQU CITY             INF164-178
EQU STATE            INF179-180
EQU ZIP              INF181-185
EQU LOCATION         INF191-194
EQU PHONE            INF237-246
EQU BRANCH           INF186-189
    *******************************************************************
    *                WORKING STORAGE EQUATES                          *
    *******************************************************************
EQU COUNT              WST200-207    0C ZEROES
EQU TOTAL-COUNT        WST208-215    0C ZEROES
    ********************************************************************
    *   PLACE THE TITLE OF YOUR REPORT HERE - MAY USE TITLE1 AND TITLE2*
    *   OR HDR 1A-C,2A-C. IF USING HDRS - HDR 1A & HDR 2A MUST HAVE A  *
    *   STANDARD CARRIAGE CONTROL CHARACTER IN COL 12.                 *
    ********************************************************************
TITLE1 'POLICIES ISSUED FOR OFFICE 2187 IN JANUARY 1988'
TITLE2 'FAMILY SERVICE LIFE'
    ********************************************************************
    * PLACE THE FIELD EQUATE NAME OF THE FIELDS REQUIRED FOR THE REPORT*
    * IN THE PRINT LAYOUT DESIRED - COLUMN HEADINGS MAY BE OVERLAYED   *
    * OTHERWISE COLUMN HEADINGS WILL BE GIVEN THE EQUATED NAME.        *
    ********************************************************************
REPORT POLICY       (POLICY)
       LOCATION     (LOCATION)
       INS-NAME     (INSURED NAME)
       ADDRESS      (STREET ADDRESS)
       CITY         (CITY)
       STATE        (STATE)
       ZIP          (ZIP)
       PHONE        (PHONE)
100 GET INF ATEND 900
    IF  INF02-13 IS LOVALUES
        GOTO 100.
    IF  AUX-TRLR IS EQUAL C'01'
        PERFORM 200 THRU 299.
    GOTO 100
200 IF  ISSUE-DATE IS EQUAL C'000000' OR
    IF  ISSUE-DATE IS EQUAL BLANKS
        GOTO 299.
    IF  ISSUE-MM IS EQUAL C'04' AND
    IF  ISSUE-YY IS EQUAL C'88' AND
    IF  BRANCH IS EQUAL C'2187'
        PRINT REPORT.
299 EXIT
900 GOTO EOJ
999 END
/*
/&
* $$ EOJ P00MQKBO
   

Return to the Sample Job Stream List

Translated JCL (MVS)

//P00MQKBO JOB (P00MQKBO),'                    ',
//             CLASS=A,
//             MSGCLASS=X,
//             MSGLEVEL=(1,1),
//             REGION=6M
//*
//JOBLIB  INCLUDE MEMBER=JOBLIB
//*
//* JMCL NAME=STEP001
//* STEP STEP001                   P00MQKBO     09/26/94
//* ************************************************************ *
//* STEP 1)  PRINT POLICIES ISSUED FOR OFFICE 2187               *
//*          -------------------------------------               *
//*          PROGRAM    - QUKBJOB                                *
//*          VSAM IN    - N72.AUX.MASTER             (FSLPUCT)   *
//*          REPORT OUT - POLICIES ISSUED FOR OFFICE 2187        *
//* ************************************************************ *
//*
//*     STEP0010  PGM=QUIKJOB                                           QUKBJOB
//*
//STEP0010 EXEC PGM=QUIKJOB
//* MODULE QUKBJOB PROCESSED BY PLUG-IN LCPQJB
//* VS VS KS I FSLPUCT  E INF      'N72.AUX.MASTER'
//SYSUT1   DD  DSN=MVS.N72.AUX.MASTER,
//             DISP=SHR
//* PR O SYSLST 00E 0001
//SYSPRINT DD  SYSOUT=(J,,STK1),
//             FCB=JSTK
//* CD I
//SYSIN    DD  *
*OPTION NOSEQ,MBUFFER=NO
*INFKSDS    1100
    ********************************************************************
    *   AUXILIARY FILE ON VSAM SINCE 3/21/87, AND GENERATE REPORT FOR  *
    *   NAME, ADDRESS, ISSUE-DATE, ETC. REPORT FOR ISSUES IN JAN 88    *
    ********************************************************************
    *             FILE LAYOUT FOR INPUT AUX TAPE                       *
    ********************************************************************
EQU AUX-TRLR         INF20-21
EQU POLICY           INF04-13
EQU ISSUE-DATE       INF44-49
EQU ISSUE-MM         INF44-45
EQU ISS-DAY          INF46-47
EQU ISSUE-YY         INF48-49
EQU INS-NAME         INF50-79
EQU ADDRESS          INF134-163
EQU CITY             INF164-178
EQU STATE            INF179-180
EQU ZIP              INF181-185
EQU LOCATION         INF191-194
EQU PHONE            INF237-246
EQU BRANCH           INF186-189
    *******************************************************************
    *                WORKING STORAGE EQUATES                          *
    *******************************************************************
EQU COUNT              WST200-207    0C ZEROES
EQU TOTAL-COUNT        WST208-215    0C ZEROES
    ********************************************************************
    *   PLACE THE TITLE OF YOUR REPORT HERE - MAY USE TITLE1 AND TITLE2*
    *   OR HDR 1A-C,2A-C. IF USING HDRS - HDR 1A & HDR 2A MUST HAVE A  *
    *   STANDARD CARRIAGE CONTROL CHARACTER IN COL 12.                 *
    ********************************************************************
TITLE1 'POLICIES ISSUED FOR OFFICE 2187 IN JANUARY 1988'
TITLE2 'FAMILY SERVICE LIFE'
    ********************************************************************
    * PLACE THE FIELD EQUATE NAME OF THE FIELDS REQUIRED FOR THE REPORT*
    * IN THE PRINT LAYOUT DESIRED - COLUMN HEADINGS MAY BE OVERLAYED   *
    * OTHERWISE COLUMN HEADINGS WILL BE GIVEN THE EQUATED NAME.        *
    ********************************************************************
REPORT POLICY       (POLICY)
       LOCATION     (LOCATION)
       INS-NAME     (INSURED NAME)
       ADDRESS      (STREET ADDRESS)
       CITY         (CITY)
       STATE        (STATE)
       ZIP          (ZIP)
       PHONE        (PHONE)
100 GET INF ATEND 900
    IF  INF02-13 IS LOVALUES
        GOTO 100.
    IF  AUX-TRLR IS EQUAL C'01'
        PERFORM 200 THRU 299.
    GOTO 100
200 IF  ISSUE-DATE IS EQUAL C'000000' OR
    IF  ISSUE-DATE IS EQUAL BLANKS
        GOTO 299.
    IF  ISSUE-MM IS EQUAL C'04' AND
    IF  ISSUE-YY IS EQUAL C'88' AND
    IF  BRANCH IS EQUAL C'2187'
        PRINT REPORT.
299 EXIT
900 GOTO EOJ
999 END
/*
//
   

Return to the Sample Job Stream List