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