* $$ 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
//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