Quikjob Code
OPTION NOSEQ,MBUFFER=NO
INFKSDS 1100
************************************************
* FILE LAYOUT FOR INPUT AUX VSAM FILE *
************************************************
EQU AUX-TRLR INF20-21
EQU PRODUCT INF04-13
EQU SALES-DATE INF44-49
EQU SALES-MM INF44-45
EQU SAL-DAY INF46-47
EQU SALES-YY INF48-49
EQU CUSTNAME 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
************************************************
* THE TITLE OF THE REPORT *
************************************************
TITLE1 'SALES MADE BY BRANCH 4126 IN JANUARY 2008'
TITLE2 'ABC MANUFACTURING COMPANY'
************************************************
* NAMES OF THE FIELDS REQUIRED FOR THE REPORT *
* AND OVERRIDE COLUMN HEADINGS *
************************************************
REPORT PRODUCT (PRODUCT CODE)
LOCATION
CUSTNAME (CUSTOMER NAME)
ADDRESS (STREET ADDRESS)
CITY
STATE
ZIP
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'01' AND
IF ISSUE-YY IS EQUAL C'08' AND
IF BRANCH IS EQUAL C'4126'
PRINT REPORT.
299 EXIT
900 GOTO EOJ
999 END
|
Spectrum Writer Code
****************************************************
* FILE LAYOUT FOR INPUT AUX VSAM FILE *
****************************************************
FILE: INF DDNAME(INF) LRECL(1100)
FIELD: REC-TYPE COL(2) LEN(12)
FIELD: AUX-TRLR COL(20) LEN(2)
FIELD: PRODUCT COL(4) LEN(10)
FIELD: SALES-DATE COL(44) LEN(6)
FIELD: SALES-MM COL(44) LEN(2)
FIELD: SAL-DAY COL(46) LEN(2)
FIELD: SALES-YY COL(48) LEN(2)
FIELD: CUSTNAME COL(50) LEN(30)
FIELD: ADDRESS COL(134) LEN(30)
FIELD: CITY COL(164) LEN(15)
FIELD: STATE COL(179) LEN(2)
FIELD: ZIP COL(181) LEN(5)
FIELD: LOCATION COL(191) LEN(4)
FIELD: PHONE COL(237) LEN(10)
FIELD: BRANCH COL(186) LEN(4)
****************************************************
* NAME THE INPUT FILE FOR THIS REPORT. *
* (IT IS THE FILE WE JUST DEFINED ABOVE) *
****************************************************
INPUT: INF
****************************************************
* THE TITLE OF THE REPORT *
****************************************************
TITLE: 'SALES MADE BY BRANCH 4126 IN JANUARY 2008'
TITLE: 'ABC MANUFACTURING COMPANY'
****************************************************
* NAMES OF THE FIELDS REQUIRED FOR THE REPORT, *
* WITH OVERIDE COLUMN HEADINGS *
****************************************************
COLUMNS: PRODUCT(PRODUCT|CODE)
LOCATION
CUSTNAME(CUSTOMER|NAME)
ADDRESS(STREET|ADDRESS)
CITY
STATE
ZIP
PHONE
****************************************************
* SPECIFY WHICH INPUT RECORDS TO INCLUDE IN REPORT *
****************************************************
INCLUDEIF:
REC-TYPE <> X'000000000000000000000000
AND AUX-TRLR = '01'
AND (SALES-DATE <> '000000' AND <> ' ')
AND SALES-MM = '01'
AND SALES-YY = '08'
AND BRANCH = '4126'
|
