MVSFORUMS.com :: View topic - ESP SCHEDULER

MVSFORUMS.com
A Community of and for MVS Professionals

FAQ

Quick Manuals

Profile

ESP SCHEDULER - HELP
Goto page 1, 2 Next

MVSFORUMS.com Forum Index -> Utilities

View previous topic :: View next topic

Author

Message

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Thu May 09, 2019 10:39 am Post subject: ESP SCHEDULER - HELP

Hi,

I never coded script for ESP scheduler. With help of google I have done coding and achieved 70 percent of my desired result. For completion I am not able to find any help from google. If someone aware of ESP scheduler please help me out.

I have to generate monthly report for different carriers. Carriers are identified using JOBNAMES. Instead of PL/I program I opted ESP script. Planned to schedule the new JOB to run on First day of every month.

I need help for 3 requirements.

1.First one is

Code:

//TSID2510 EXEC PGM=ESP,REGION=4M
//*
//SYSIN DD DSN=E861559.SC239212.TEST.CNTLLIB(TSID2513),DISP=SHR
//SYSPRINT DD DSN=E861559.TSID025.A01,DISP=OLD
//SYSUDUMP DD SYSOUT=*

In TSID2513 member in control librarey I have coded as below

Code:

REPORT
TITLE '%CE(THE XXXXX & XXXXXX MIDT FTP TIMES FOR %MONTH %YEAR)'
HISTFILE HIST1
GENTIME FWM FIRST DAY OF MONTH STARTING TODAY
FROM 7AM %FWMDATE TO 11PM TODAY
CRITERIA JOBNAME EQ 'jobname'
:
:
CRITERIA JOBNAME EQ 'jobname'
DISPLAY JOBNAME JOBQUAL JOBNO APPLSYS EXECSDATE EXECST 10 ENDT 10 CMPC 9
SORT JOBNAME EXECSDATE
ENDR

I am getting the result as below

Code:

ESP VER 11.4 BATCH INTERFACE 10.11.02 THURSDAY MAY 9TH, 2019 PAGE 1

REPORT
TITLE '%CE(THE xxxxx & xxxxxx MIDT FTP TIMES FOR %MONTH %YEAR)'
ESP VER 11.4 BATCH INTERFACE 10.11.02 THURSDAY MAY 9TH, 2019 PAGE 2
THE xxxxx & xxxxxx MIDT FTP TIMES FOR MAY 2019

HISTFILE HIST1
GENTIME FWM FIRST DAY OF MONTH STARTING TODAY
FROM 7AM WEDNESDAY MAY 1ST, 2019 TO 11PM TODAY
CRITERIA JOBNAME EQ 'jobname'
:
CRITERIA JOBNAME EQ 'jobname'
DISPLAY JOBNAME JOBQUAL JOBNO APPLSYS EXECSDATE EXECST 10 ENDT 10 CMPC 9
SORT JOBNAME EXECSDATE
ENDR
ESP VER 11.4 BATCH INTERFACE 10.11.02 THURSDAY MAY 9TH, 2019 PAGE 3
THE xxxxx & xxxxxx MIDT FTP TIMES FOR MAY 2019

JOBNAME JOBQUAL JOB APPLSYS START EXEC EXEC COMP
NO DATE START END CODE
ABA005U 11538 ABA005 WED 1MAY19 19.48.34 19.48.48 0
ABA005U 31749 ABA005 THU 2MAY19 20.13.49 20.14.35 0
ABA005U 21217 ABA005 FRI 3MAY19 23.17.45 23.18.19 0
ABA005U 2431 ABA005 SAT 4MAY19 19.53.18 19.53.36 0
ABA005U 19893 ABA005 SUN 5MAY19 19.46.35 19.46.47 0
ABA005U 6270 ABA005 MON 6MAY19 20.07.58 20.08.41 0
SID026 12006 SID002 TUE 7MAY19 02.14.07 02.16.40 0
SID026 32605 SID002 WED 8MAY19 02.11.42 02.17.23 0
ESP VER 11.4 BATCH INTERFACE 10.11.02 THURSDAY MAY 9TH, 2019 PAGE 4
THE xxxxx & xxxxxx MIDT FTP TIMES FOR MAY 2019

JOBNAME JOBQUAL JOB APPLSYS START EXEC EXEC COMP
NO DATE START END CODE
SID026 20000 SID002 THU 9MAY19 02.13.37 02.15.36 0
SID028 18675 SID002 THU 2MAY19 02.08.00 02.10.04 0
SID028 4853 SID002 FRI 3MAY19 02.08.43 02.11.11 0
SID045 32636 SID002 WED 8MAY19 02.14.40 02.14.44 0
SID045 20064 SID002 THU 9MAY19 02.19.23 02.19.26 0

SUBTOTAL (80)

TOTAL (80)

My requirement is to get the Actual OUTPUT from PAGE 3 onwards to separate DATASET. I tried different ways but not successfull. Please help out on this.

2. If First 3 characters are ABA I need to put Title 2 as

Code:

THE ABA MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME

If first 3 characters are SID I need to put Title 2 as

Code:

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME

Title 2 Left justified for each JOB based on JOB name.

3. Requirement number 3

Need page break for each new JOB.

4. Can we do this using SORT? I mean copying the actual output from the file mentioned in 1 requirement and reformat as mentioned in requirements 2 & 3.

Please advise. If possible using SORT please help me out with sample CODE.

Thanks & Regards
_________________
Thanks
TVSSV

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

Posted: Thu May 09, 2019 11:34 am Post subject:

tvssv,

Your topic title says you need help with ESP scheduler. But the requirement is SORT related. If you have report you can run it thru sort and get the desired records and add the titles.

What is the LRECL and RECFM of the report that you generated from ESP? You should have shown desired output too.

Guessing by your requirements is this what you want as final report?

Code:

THE ABA MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 1

ABA005U 6270 ABA005 MON 6MAY19 20.07.58 20.08.41 0

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 2

SID026 20000 SID002 THU 9MAY19 02.13.37 02.15.36 0

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 3

SID028 4853 SID002 FRI 3MAY19 02.08.43 02.11.11 0

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 4

SID045 20064 SID002 THU 9MAY19 02.19.23 02.19.26 0

or this

Code:

THE ABA MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 1

ABA005U 11538 ABA005 WED 1MAY19 19.48.34 19.48.48 0
ABA005U 31749 ABA005 THU 2MAY19 20.13.49 20.14.35 0
ABA005U 21217 ABA005 FRI 3MAY19 23.17.45 23.18.19 0
ABA005U 2431 ABA005 SAT 4MAY19 19.53.18 19.53.36 0
ABA005U 19893 ABA005 SUN 5MAY19 19.46.35 19.46.47 0
ABA005U 6270 ABA005 MON 6MAY19 20.07.58 20.08.41 0

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 2

SID026 12006 SID002 TUE 7MAY19 02.14.07 02.16.40 0
SID026 32605 SID002 WED 8MAY19 02.11.42 02.17.23 0
SID026 20000 SID002 THU 9MAY19 02.13.37 02.15.36 0

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 3

SID028 18675 SID002 THU 2MAY19 02.08.00 02.10.04 0
SID028 4853 SID002 FRI 3MAY19 02.08.43 02.11.11 0

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 4

SID045 32636 SID002 WED 8MAY19 02.14.40 02.14.44 0
SID045 20064 SID002 THU 9MAY19 02.19.23 02.19.26 0

If it is something else then you need to show how you want it.
_________________
Kolusu
www.linkedin.com/in/kolusu

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Fri May 10, 2019 2:22 am Post subject:

Hi Kolusu,

Thank You.

Actually I have got the OUTPUT from ESP script. If possible I need help on ESP script to get the desired result. Also OUTPUT is mixed with the SCRIPT. Any advise to be able to split the output to separate file using ESP script.

If not with ESP script, using SORT is also fine.

Please help me out with sample SORT code to get the report.

The LRECL and RECFM of the report generated from ESP are as below

Code:

LRECL = 133 & RECFM=FBA

The REPORT FORMAT is as below.

Code:

THE ABA MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 1

                  WED 1MAY19 19.48
                  THU 2MAY19    20.14
               FRI 3MAY19    23.18
               SAT 4MAY19    19.53
               SUN 5MAY19    19.46
               MON 6MAY19    20.08
               :
               :
               FRI 31MAY19 20.08

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE: 2

               TUE 7MAY19 02.16
               WED 8MAY19 02.17
               THU 9MAY19 02.15
               :
               :
               FRI 31MAY19    02.08

         Like this for all the jobs in the ESP OUPUT

In the Title if first 3 characters of JOBNAME are ABA it should be ABA or if SID it should be SID in Title. The carrier name will be decided based on JOBNAME. I mean for each JOBNAME there is a carrier associated. That carrier name should be displayed in CARRIER NAME part of TITILE based on JOBNAME.

From the ESP OUTPUT only START DATE and EXEC END columns are taken into the REPORT. From EXEC END column only HOURS & MINUTES are taken. MONTH in title can be picked from ESP OUTPUT or FROM START DATE field.

Please help me out with SAMPLE SORT CODE.

Thanks & Regards
_________________
Thanks
TVSSV

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Fri May 10, 2019 4:54 am Post subject:

Hi Kolusu, Forgot to mention, records from ESP output need to be included only COMP CODE is zero in REPORT. Thanks & Regards _________________ Thanks TVSSV

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

Posted: Fri May 10, 2019 12:29 pm Post subject:

tvssv wrote:

Tvssv,

I have no idea about the ESP script, so can't help there.

tvssv wrote:

If not with ESP script, using SORT is also fine.

Please help me out with sample SORT code to get the report.

The LRECL and RECFM of the report generated from ESP are as below

Code:

LRECL = 133 & RECFM=FBA

Use the following DFSORT JCL which will give you the desired results. I am treating the Return code as unsigned free format numeric. so as long as you have numeric data in the return code , you would get right results. But lets say you have some kind of text like "user abend" then that record will also get picked.

Code:

//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DISP=SHR,DSN=Your input ESP report
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(001,07,CH,EQ,C'JOBNAME'),
END=(001,07,CH,EQ,C'ESP VER'),
PUSH=(134:SEQ=3)),

IFTHEN=(WHEN=(134,03,CH,GT,C' ',AND,
(001,07,CH,EQ,C'ESP VER',OR,
134,03,ZD,LE,2,OR,
067,12,UFF,GT,0)),
OVERLAY=(134:3X))

OUTFIL INCLUDE=(134,03,CH,GT,C' '),
BUILD=(35:35,32,133:X),
SECTIONS=(1,3,
HEADER3=(025:'THE ',1,3,
' MIDT FTP TIMES FOR MAY 2019',
' FOR CARRIER NAME',
100:'PAGE : ',PAGE,/),
TRAILER3=(/))

/*

This will produce something like this. Pay attention to the Page numbers.

Code:

THE ABA MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE : 1

WED 1MAY19 19.48.34 19.48.48
THU 2MAY19 20.13.49 20.14.35
FRI 3MAY19 23.17.45 23.18.19
SAT 4MAY19 19.53.18 19.53.36
SUN 5MAY19 19.46.35 19.46.47
MON 6MAY19 20.07.58 20.08.41

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE : 1

TUE 7MAY19 02.14.07 02.16.40
WED 8MAY19 02.11.42 02.17.23
THU 9MAY19 02.13.37 02.15.36
THU 2MAY19 02.08.00 02.10.04
FRI 3MAY19 02.08.43 02.11.11
WED 8MAY19 02.14.40 02.14.44
THU 9MAY19 02.19.23 02.19.26

THE XYZ MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE : 1

THU 9MAY19 02.19.23 02.19.26

If you really want incrementing page numbers for the report then you need to do a bit work around.

Code:

//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(001,07,CH,EQ,C'JOBNAME'),
END=(001,07,CH,EQ,C'ESP VER'),
PUSH=(134:SEQ=3)),

IFTHEN=(WHEN=(134,03,CH,GT,C' ',AND,
(001,07,CH,EQ,C'ESP VER',OR,
134,03,ZD,LE,2,OR,
067,12,UFF,GT,0)),
OVERLAY=(134:03X),HIT=NEXT),

IFTHEN=(WHEN=(134,03,CH,GT,C' '),
OVERLAY=(138:1,3,
142:SEQNUM,8,ZD,RESTART=(138,3)))

OUTREC IFTHEN=(WHEN=GROUP,
BEGIN=(142,08,ZD,EQ,1),
PUSH=(151:ID=8)),

IFTHEN=(WHEN=(151,08,CH,GT,C' '),
OVERLAY=(151:151,8,ZD,M10,LENGTH=8,
151:151,8,JFY=(SHIFT=LEFT)))

OUTFIL INCLUDE=(134,03,CH,GT,C' '),
BUILD=(35:35,32,133:X),
SECTIONS=(1,3,
HEADER3=(025:'THE ',1,3,
' MIDT FTP TIMES FOR MAY 2019',
' FOR CARRIER NAME',
100:'PAGE : ',151,8,/),
TRAILER3=(/))
/*

And this will produce

Code:

THE ABA MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE : 1

WED 1MAY19 19.48.34 19.48.48
THU 2MAY19 20.13.49 20.14.35
FRI 3MAY19 23.17.45 23.18.19
SAT 4MAY19 19.53.18 19.53.36
SUN 5MAY19 19.46.35 19.46.47
MON 6MAY19 20.07.58 20.08.41

THE SID MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE : 2

TUE 7MAY19 02.14.07 02.16.40
WED 8MAY19 02.11.42 02.17.23
THU 9MAY19 02.13.37 02.15.36
THU 2MAY19 02.08.00 02.10.04
FRI 3MAY19 02.08.43 02.11.11
WED 8MAY19 02.14.40 02.14.44
THU 9MAY19 02.19.23 02.19.26

THE XYZ MIDT FTP TIMES FOR MAY 2019 FOR CARRIER NAME PAGE : 3

THU 9MAY19 02.19.23 02.19.26

The REPORT FORMAT is as below.

Code:

_________________
Kolusu
www.linkedin.com/in/kolusu

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Wed May 15, 2019 8:49 am Post subject:

Thank You Kolusu. Report format is yet to be finalized. Will update once done. _________________ Thanks TVSSV

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Thu May 16, 2019 10:36 am Post subject:

Hi Kolusu,

The requirement changed. Now the ESP SCHEDULER output is as below.

Code:

ESP VER 11.4 BATCH INTERFACE 08.49.35 THURSDAY MAY 16TH, 20

REPORT
TITLE '%CE(THE SABRE & ABACUS MIDT FTP TIMES FOR %MONTH %YEAR)'
ESP VER 11.4 BATCH INTERFACE 08.49.35 THURSDAY MAY 16TH, 20
THE SABRE & ABACUS MIDT FTP TIMES FOR

HISTFILE HIST1
GENTIME FWM FIRST DAY OF MONTH STARTING TODAY
FROM 7AM WEDNESDAY MAY 1ST, 2019 TO 11PM TODAY
CRITERIA JOBNAME EQ 'SID028'
CRITERIA JOBNAME EQ 'SID024A'
CRITERIA JOBNAME EQ 'SID024C'
CRITERIA JOBNAME EQ 'SID026'
CRITERIA JOBNAME EQ 'SID033'
CRITERIA JOBNAME EQ 'SID045'
CRITERIA JOBNAME EQ 'ABA5DB'
DISPLAY JOBNAME 25 'JOB NAME',EXECSDATE 20 'FTP DATE',ENDT 10 'FTP TIME'
CMPC 15 'RETURN' 'CODE'
SORT JOBNAME EXECSDATE
BREAK JOBNAME 6 SPACE 1
ENDR
ESP VER 11.4 BATCH INTERFACE 08.49.35 THURSDAY MAY 16TH, 20
THE SABRE & ABACUS MIDT FTP TIMES FOR

JOB NAME FTP DATE FTP TIME RETURN
CODE
ABA005U WED 1MAY19 19.48.48 0
ABA005U THU 2MAY19 20.14.35 0
ABA005U FRI 3MAY19 23.18.19 0
ABA005U SAT 4MAY19 19.53.36 0
ABA005U SUN 5MAY19 19.46.47 0
ABA005U MON 6MAY19 20.08.41 0
ABA005U TUE 7MAY19 20.13.07 0
ABA005U WED15MAY19 20.17.55 0

ABA5DB WED 1MAY19 19.48.36 0
ABA5DB THU 2MAY19 20.13.52 0
ABA5DB FRI 3MAY19 23.17.49 0
ABA5DB SAT 4MAY19 19.53.18 0
ABA5DB SUN 5MAY19 19.46.38 0
ABA5DB MON 6MAY19 20.08.00 0
ABA5DB TUE 7MAY19 20.12.22 0
ABA5DB WED 8MAY19 20.11.04 0
ABA5DB THU 9MAY19 20.09.45 0
ABA5DB FRI10MAY19 20.13.57 0
ABA5DB SAT11MAY19 19.53.47 0

SID024A THU 2MAY19 02.28.50 0
SID024A FRI 3MAY19 02.18.27 0
SID024A SAT 4MAY19 02.37.25 0
SID024A SUN 5MAY19 01.51.26 0
SID024A MON 6MAY19 01.57.30 0
SID024A TUE 7MAY19 02.25.52 0
SID024A WED 8MAY19 02.35.30 0
SID024A THU 9MAY19 02.23.51 0
SID024A FRI10MAY19 02.26.17 0

This will be the INPUT file. I tried in ESP scheduler but did not succeeded.
Could you please provide help using SORT for the desired reports.

Client provided the below format.

FORMAT 1:

If first 3 characters are ABA Heading should be 'The ABAXXX MIDT FTP TIMES' centered.

Code:

The ABAXXX MIDT FTP TIMES
1MAY19 2MAY19 3MAY19..........31MAY19
NORTHXXXXXXXXXXXXXXX 19.48 20.14 23.18 20.14
DOxxxxxxxxx 20.14 20.14 20.14 20.14
TRxxxxxxxx 20.14 20.14 20.14 20.14
AMxxxxx 20.14 20.14 20.14 20.14

If jobname changes the Heading should change to 'The SXXXX MIDT FTP TIMES'
and the final ouput should be as below.

Code:

The AXXXX MIDT FTP TIMES
1MAY19 2MAY19 3MAY19..........31MAY19
NORTHXXXXXXXXXXXXXXX    19.48 20.14 23.18 20.14
DOxxxxxxxxx 20.14 20.14 20.14 20.14
TRxxxxxxxx 20.14 20.14 20.14 20.14
AMxxxxx 20.14 20.14 20.14 20.14

The SXXXX MIDT FTP TIMES
TravXXXXXX - COMXXXXX    19.48 20.14 23.18 20.14
TravXXXXXX - IXXX    20.14 20.14 20.14 20.14
TravXXXXXX - DoXXXXXX    20.14 20.14 20.14 20.14
AmXXXXX    20.14 20.14 20.14 20.14
WorldXXXX(For XXX) 20.14 20.14 20.14 20.14
DXX SysXXXX 20.14 20.14 20.14 20.14

The side Headdings are fixed since the job names come in same order in input file. The side headings are based on JOBNAME.

Code:

IF JOBNAME = ABA005U THEN 'NORTHXXXXXXXXXXXXXXX'. simillarly for other headings also. But the order of the side headings is fixed.

If return code is not zero that record can be omitted. Return code variable is CMPC.

Can we create this report using SORT?

Please advise. If possible using SORT please help me out with sample CODE.

Thanks & Regards
_________________
Thanks
TVSSV

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

Posted: Thu May 16, 2019 11:20 am Post subject:

tvssv wrote:

Hi Kolusu,

The requirement changed.
This will be the INPUT file. I tried in ESP scheduler but did not succeeded.
Could you please provide help using SORT for the desired reports.

Client provided the below format.

FORMAT 1:

If first 3 characters are ABA Heading should be 'The ABAXXX MIDT FTP TIMES' centered.

Code:

If jobname changes the Heading should change to 'The SXXXX MIDT FTP TIMES'
and the final ouput should be as below.

Code:

The side Headdings are fixed since the job names come in same order in input file. The side headings are based on JOBNAME.

Code:

Can we create this report using SORT?

Please advise. If possible using SORT please help me out with sample CODE.

Thanks & Regards

Wow you went from simple extract of data to full formatted excel spread sheet format. It can be done, but currently I don't have that much time, to spend on this.

tvssv wrote:

The side Headdings are fixed since the job names come in same order in input file. The side headings are based on JOBNAME.

IF JOBNAME = ABA005U THEN 'NORTHXXXXXXXXXXXXXXX'. simillarly for other headings also. But the order of the side headings is fixed.

You show exactly 3 different jobnames ABA005U ABA5DB SID024A, but you show 10 different titles for them. Do you expect me magically look into your data? or read your mind?

I can't guess the left side titles unless you provide a 1 to 1 mapping of what each jobname translates to.

Since now you are looking for excel spread sheet format report with array of the start and end times , what happens if a particular job did NOT run on a specific day? Like lets say the Job ABA005U did not run on May 4th, 7th and 9th. What data would put in there for these dates?
_________________
Kolusu
www.linkedin.com/in/kolusu

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Mon May 20, 2019 9:29 am Post subject:

Hi Kolusu,

The report format is finalized.

The report from ESP scheduler script generates complete list of jobs and there FTP times with dates. It has combined jobs list report of two systems SAXXX and ABAXXX. The report should split the two with Headings and generate the single report.

SAXXX jobs listed first and ABAXXX jobs next in ESP script output.

The final ouput report should be as below

Code:

THE SABRE MIDT FTP TIMES FOR MONTH OF MAY 2019.

      1MAY19 2MAY19 3MAY19 4MAY19 5MAY19...........31MAY19
Amadeus    20.18 04.47 22.18 20.12 19.59 20.10
Travelport - combined    20.18 04.47 22.18 20.12 19.59 20.10
Travelport - Intl    20.18 04.47 22.18 20.12 19.59 20.10
Travelport - Domestic    20.18 04.47 22.18 20.12 19.59 20.10
Worldspan (For NWA)    20.18 04.47 22.18 20.12 19.59 20.10
DOB Systems    20.18 04.47 22.18 20.12 19.59 20.10

THE ABACUS MIDT FTP TIMES FOR MONTH OF MAY 2019.

               1MAY19 2MAY19 3MAY19 4MAY19 5MAY19...........31MAY19

AMADEUS             20.18 04.47 22.18 20.12 19.59 20.10
TRAVELPORT             20.18 04.47 22.18 20.12 19.59 20.10
NORTHWEST AIRLINES(VIA WORLDSPAN) 20.18 04.47 22.18 20.12 19.59 20.10
DOB systems             20.18 04.47 22.18 20.12 19.59 20.10

In the Heading Month should be pick from Month from Date column from ESP report. Side heading I mean first column names are fixed and relation between jobs and names is as below

Code:

For SABER
SID028 Amadeus
SID024A Travelport - combined
SID024C Travelport - Intl
SID026 Travelport - Domestic
SID033 Worldspan (For NWA)
SID045 DOB Systems

For ABACUS
ABA51A AMADEUS
ABA5TP TRAVELPORT.
ABA005U NORTHWEST AIRLINES(VIA WORLDSPAN)
ABA5DB DOB systems.

Based on JOB name respective Heading should be displayed.

FTP times column 3rd column in ESP report prints time as "20.11.29". We need to display only first 5 characters "hh.mm" in our final report under the date.

The ESP report generates only the JOB run dates and FTP time for the run date. If JOB is not run the Date will not come into the report.

The Dates will be common to FIRST (SABER) PART and different for SECOND(ABACUS) part but dates in ABACUS will be same.

The ESP report generates all the JOB runs 4th column in report. In final report we need include only the jobs Return code is ZERO only.

The final sample ESP report is as below.

Code:

SYSTEM NAME FTP DATE FTP TIME RETURN
CODE

ABA005U TUE 2APR19 20.18.38 0
ABA005U TUE 2APR19 04.47.24 0
ABA005U WED 3APR19 22.18.53 0
ABA005U THU 4APR19 22.40.25 0
ABA005U FRI 5APR19 20.06.12 0
ABA005U SAT 6APR19 19.55.04 0
ABA005U SUN 7APR19 20.51.12 0
ABA005U MON 8APR19 20.16.53 0
ABA005U TUE 9APR19 20.12.29 0
ABA5DB TUE 2APR19 20.17.35 0
ABA5DB TUE 2APR19 04.46.21 0
ABA5TP TUE 2APR19 20.17.36 0
ABA5TP TUE 2APR19 04.46.21 0
:
:
:
SID045 MON 1APR19 01.49.06 0
SID045 TUE 2APR19 02.40.24 0
[\code]

Please help.

Thanks & Regards

_________________
Thanks
TVSSV

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

Posted: Tue May 21, 2019 3:53 pm Post subject:

tvssv wrote:

The report format is finalized.

Tvssv,

Too bad , the requirements are still clear as mud.

Earlier I asked you a very simple question and yet you don't have an answer for it

kolusu wrote:

Since now you are looking for excel spread sheet format report with array of the start and end times , what happens if a particular job did NOT run on a specific day? Like lets say the Job ABA005U did not run on May 4th, 7th and 9th. What data would put in there for these dates?

And you simply answered this with

tvssv wrote:

The ESP report generates only the JOB run dates and FTP time for the run date. If JOB is not run the Date will not come into the report.

You don't seem to realize the effect of missing date records.

Let me help you understand with a simple example

As per the sample data that you posted here https://www.mvsforums.com/helpboards/viewtopic.php?p=63236#63236

Let's take the example data of 2 jobs

ABA005U - Ran thru May 1 thru 7 and then on 15
ABA5DB - Ran thru May 1 thru 11.

Code:

ABA005U WED 1MAY19 19.48.48 0
ABA005U THU 2MAY19 20.14.35 0
ABA005U FRI 3MAY19 23.18.19 0
ABA005U SAT 4MAY19 19.53.36 0
ABA005U SUN 5MAY19 19.46.47 0
ABA005U MON 6MAY19 20.08.41 0
ABA005U TUE 7MAY19 20.13.07 0
ABA005U WED15MAY19 20.17.55 0

ABA5DB WED 1MAY19 19.48.36 0
ABA5DB THU 2MAY19 20.13.52 0
ABA5DB FRI 3MAY19 23.17.49 0
ABA5DB SAT 4MAY19 19.53.18 0
ABA5DB SUN 5MAY19 19.46.38 0
ABA5DB MON 6MAY19 20.08.00 0
ABA5DB TUE 7MAY19 20.12.22 0
ABA5DB WED 8MAY19 20.11.04 0
ABA5DB THU 9MAY19 20.09.45 0
ABA5DB FRI10MAY19 20.13.57 0
ABA5DB SAT11MAY19 19.53.47 0

So technically when you produce as a single record for each job then you need to have an empty slot for the missing date record.

Some thing like this

Code:

----------------------------------------------------------------------------------------------------
|JOBNAME |01MAY|02MAY|03MAY|04MAY|05MAY|06MAY|07MAY|08MAY|09MAY|10MAY|11MAY|12MAY|13MAY|14MAY|15MAY|
----------------------------------------------------------------------------------------------------
|ABA005U |19:48|20:14|23:18|19:53|19:46|20:08|20:13| | | | | | | |20:17|
----------------------------------------------------------------------------------------------------
|ABA5DB |19:48|20:13|23:17|19:53|19:46|20:08|20:12|20:11|20:09|20:13|19:53| | | | |
----------------------------------------------------------------------------------------------------

As you can see above for the job ABA005U you don't have data for the dates 8 thru 14. You just cannot put the May15 data into May08th slot as it does not have the data for May 8th. My question was what do you fill it up with ? zeros ? or spaces?

Understand the requirements properly before you simply copy and paste the code that is provided here. Your job should be able to handle all the scenarios and not just some sample data.

Another question is that can you ever have data spanning across months?

Lets say your report start date is May 21st and can it have from June/July too? If so how do you plan to handle the headers and dates? Now your array will be bigger than 31. Do you need to handle that ?

Either way assuming that you got ALL the requirements right, then you would need at least 2 passes of the data (may be more), to handle each and every scenario.

Since you know the requirements and have access to the data, I suggest you write a simple COBOL program to handle it.
_________________
Kolusu
www.linkedin.com/in/kolusu

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Wed May 22, 2019 1:59 am Post subject:

Quote:

kolusu wrote:
Since now you are looking for excel spread sheet format report with array of the start and end times , what happens if a particular job did NOT run on a specific day? Like lets say the Job ABA005U did not run on May 4th, 7th and 9th. What data would put in there for these dates?

Hi Kolusu,

ESP report will contain only the Dates on which JOB had run. It does not contain the dates when JOB is not run. So my assumption is we can pull the dates from dates column for ABACUS & SABRE separately for Dates heading. The execution dates will be common in ABACUS and SABRE. We need to display only FTP times from the execution dates. No need to display the dates on which job did not run. So basicaly we need to read all the dates in input file that is FTP DATE column and display as row DATES heading. And after reading each job we need to put side heading and display 5 characters from column 3 that is FTP TIME from input file and write under respective date column.

Quote:

Another question is that can you ever have data spanning across months?

Lets say your report start date is May 21st and can it have from June/July too? If so how do you plan to handle the headers and dates? Now your array will be bigger than 31. Do you need to handle that ?

No data spanning across months. It will have only one month data and need to display only the jobs for which RETURN CODE field in input file that is esp report have zero only. No need to report if it have non zero.

We do not have access to COBOL. We work only on JCL and files and ESP scheduler. But I see few programs in PLI in our libraries. But I do not know PLI. Please help me out doing this with SORT.

Please let me know the way to put the input file that is output of ESP report through which we need to generate report.

Thanks & Regards
Jagan
_________________
Thanks
TVSSV

Nic Clouston
Advanced

Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home

Posted: Wed May 22, 2019 3:50 am Post subject:

Maybe you should look at using Rexx instead of COBOL or PL/I. Also, please supply what you think your report should look like if a job is not run on a particular day as I am still confused by your answer. _________________ Utility and Program control cards are NOT, repeat NOT, JCL.

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Wed May 22, 2019 6:04 am Post subject:

Quote:

Maybe you should look at using Rexx instead of COBOL or PL/I. Also, please supply what you think your report should look like if a job is not run on a particular day as I am still confused by your answer.

Hi,

If job is not run on a particular day it should be blank i.e., no FTP time for that date in the report.

But, the ESP report generates only the JOB run dates in the report. I am assuming that the dates will be picked from FTP Date column from input file and written as headings. The job run dates will same in the SABER group and ABACUS group.

If the dates in the month written as constant headings and if the job did not run on that date ftp time can be left blank in the report.

Thanks
_________________
Thanks
TVSSV

tvssv
Beginner

Joined: 11 Mar 2009
Posts: 58
Topics: 25

Posted: Thu May 23, 2019 10:48 am Post subject:

Hi Kolusu,

Now my final output file from ESP will be as below.

Code:

[size=9][/size]
ABA005U TUE 2APR19 20.18.38 0
ABA005U TUE 2APR19 04.47.24 0
ABA005U WED 3APR19 22.18.53 0
ABA005U THU 4APR19 22.40.25 0
ABA5DB TUE 2APR19 20.17.35 0
ABA5DB TUE 2APR19 04.46.21 0
ABA5DB WED 3APR19 22.18.11 0
ABA5DB THU 4APR19 22.39.55 0
ABA5DB FRI 5APR19 20.05.43 0
:::
::::
SID045 SAT27APR19 02.18.36 0
SID045 SUN28APR19 01.47.41 0
SID045 MON29APR19 01.46.53 0
SID045 TUE30APR19 02.24.55 0

Now the input file contains only the return code zero jobs.
Please suggest sort cards to write the report in the below format

Code:

2-May 3-May 4-May 5-May 6-May 7-May
Carrier name time time...
carrier name time time...

As mentioned above.

Please help me out with sort cards.

Thanks
_________________
Thanks
TVSSV

kolusu
Site Admin

Joined: 26 Nov 2002
Posts: 12375
Topics: 75
Location: San Jose

Posted: Thu May 23, 2019 7:27 pm Post subject:

tvssv,

Try the following DFSORT/ICETOOL JCL which will give you the desired results

Code:

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INP DD DISP=SHR,DSN=Your input ESP report,
//TMP DD DSN=&&T1,DISP=(,PASS),SPACE=(CYL,(25,25),RLSE)
//OUT DD SYSOUT=*
//TOOLIN DD *
COPY FROM(INP) TO(TMP) USING(CTL1)
COPY FROM(TMP) TO(OUT) USING(CTL2)
/*
//CTL1CNTL DD *
INREC IFTHEN=(WHEN=GROUP,
BEGIN=(001,08,CH,EQ,C'JOB NAME'),
END=(001,07,CH,EQ,C'ESP VER'),
PUSH=(134:ID=1)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 1'),
PUSH=(136:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 2'),
PUSH=(144:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 3'),
PUSH=(152:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 4'),
PUSH=(160:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 5'),
PUSH=(168:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 6'),
PUSH=(176:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 7'),
PUSH=(184:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 8'),
PUSH=(192:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 9'),
PUSH=(200:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'10'),
PUSH=(208:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'11'),
PUSH=(216:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'12'),
PUSH=(224:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'13'),
PUSH=(232:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'14'),
PUSH=(240:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'15'),
PUSH=(248:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'16'),
PUSH=(256:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'17'),
PUSH=(264:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'18'),
PUSH=(272:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'19'),
PUSH=(280:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'20'),
PUSH=(288:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'21'),
PUSH=(296:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'22'),
PUSH=(304:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'23'),
PUSH=(312:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'24'),
PUSH=(320:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'25'),
PUSH=(328:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'26'),
PUSH=(336:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'27'),
PUSH=(344:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'28'),
PUSH=(352:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'29'),
PUSH=(360:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'30'),
PUSH=(368:48,5)),

IFTHEN=(WHEN=GROUP,
BEGIN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'31'),
PUSH=(376:48,5)),

IFTHEN=(WHEN=INIT,
OVERLAY=(395:001,08,CHANGE=(50,
C'ABA51A ',
C'AMADEUS ABACUS',
C'ABA5TP ',
C'TRAVELPORT. ABACUS',
C'ABA005U ',
C'NORTHWEST AIRLINES(VIA WORLDSPAN) ABACUS',
C'ABA5DB ',
C'DOB SYSTEMS ABACUS',
C'SID028 ',
C'AMADEUS SABRE ',
C'SID024A ',
C'TRAVELPORT - COMBINED SABRE ',
C'SID024C ',
C'TRAVELPORT - INTL SABRE ',
C'SID026 ',
C'TRAVELPORT - DOMESTIC SABRE ',
C'SID033 ',
C'WORLDSPAN (FOR NWA) SABRE ',
C'SID045 ',
C'DOB SYSTEMS SABRE '),
NOMATCH=(C' '))),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 1'),
OVERLAY=(144:240X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 2'),
OVERLAY=(152:232X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 3'),
OVERLAY=(160:224X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 4'),
OVERLAY=(168:216X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 5'),
OVERLAY=(176:208X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 6'),
OVERLAY=(184:200X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 7'),
OVERLAY=(192:192X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 8'),
OVERLAY=(200:184X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C' 9'),
OVERLAY=(208:176X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'10'),
OVERLAY=(216:168X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'11'),
OVERLAY=(224:160X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'12'),
OVERLAY=(232:152X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'13'),
OVERLAY=(240:144X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'14'),
OVERLAY=(248:136X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'15'),
OVERLAY=(256:128X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'16'),
OVERLAY=(264:120X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'17'),
OVERLAY=(272:112X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'18'),
OVERLAY=(280:104X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'19'),
OVERLAY=(288:096X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'20'),
OVERLAY=(296:088X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'21'),
OVERLAY=(304:080X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'22'),
OVERLAY=(312:072X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'23'),
OVERLAY=(320:064X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'24'),
OVERLAY=(328:056X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'25'),
OVERLAY=(336:048X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'26'),
OVERLAY=(344:040X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'27'),
OVERLAY=(352:032X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'28'),
OVERLAY=(360:024X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'29'),
OVERLAY=(368:016X,385:32,5)),

IFTHEN=(WHEN=(134,1,CH,GT,C' ',AND,
030,2,CH,EQ,C'30'),
OVERLAY=(376:008X,385:32,5))

OUTFIL INCLUDE=(134,1,CH,GT,C' ',AND,
070,4,CH,EQ,C' 0'),

REMOVECC,NODETAIL,
SECTIONS=(1,8,
TRAILER3=(395,40,136,309))
/*
//CTL2CNTL DD *
INREC IFTHEN=(WHEN=INIT,
OVERLAY=(360:C'20',293,2,
290,3,CHANGE=(2,C'JAN',C'01',
C'FEB',C'02',
C'MAR',C'03',
C'APR',C'04',
C'MAY',C'05',
C'JUN',C'06',
C'JUL',C'07',
C'AUG',C'08',
C'SEP',C'09',
C'OCT',C'10',
C'NOV',C'11',
C'DEC',C'12'),
NOMATCH=(C'00'),
C'01',

370:360,8,Y4T,LASTDAYM,TOGREG=Y4T,

380:341,10,SQZ=(SHIFT=LEFT,
LEAD=C'THE ',
TRAIL=C' MIDT FTP TIMES FOR MONTH OF ',
LENGTH=45),
290,3,X,
C'20',293,2,

440:380,60,SQZ=(SHIFT=LEFT,MID=C' '),

510:C' 1',290,5,X,C' 2',290,5,X,C' 3',290,5,X,
C' 4',290,5,X,C' 5',290,5,X,C' 6',290,5,X,
C' 7',290,5,X,C' 8',290,5,X,C' 9',290,5,X,
C'10',290,5,X,C'11',290,5,X,C'12',290,5,X,
C'13',290,5,X,C'14',290,5,X,C'15',290,5,X,
C'16',290,5,X,C'17',290,5,X,C'18',290,5,X,
C'19',290,5,X,C'20',290,5,X,C'21',290,5,X,
C'22',290,5,X,C'23',290,5,X,C'24',290,5,X,
C'25',290,5,X,C'26',290,5,X,C'27',290,5,X,
C'28',290,5,X,C'29',290,5,X,C'30',290,5,X,
C'31',290,5)),

IFTHEN=(WHEN=(726,2,UFF,GT,376,2,UFF),
OVERLAY=(726:32X),HIT=NEXT),

IFTHEN=(WHEN=(734,2,UFF,GT,376,2,UFF),
OVERLAY=(734:24X),HIT=NEXT),

IFTHEN=(WHEN=(742,2,UFF,GT,376,2,UFF),
OVERLAY=(742:16X),HIT=NEXT),

IFTHEN=(WHEN=(750,2,UFF,GT,376,2,UFF),
OVERLAY=(750:08X))

OUTFIL REMOVECC,BUILD=(1,288,300:X),
SECTIONS=(341,10,
HEADER3=(25:440,60,/,/,
40:510,248),
TRAILER3=(/))
/*

_________________
Kolusu
www.linkedin.com/in/kolusu

Display posts from previous:

	MVSFORUMS.com Forum Index -> Utilities	All times are GMT - 5 Hours Goto page 1, 2 Next
Page 1 of 2

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum