IBM Mainframe Forum

by **wout** » Thu Aug 30, 2012 2:47 pm

Hello,

I have run the code with a sort statement, otherwise it gives an abend.

//SYSIN DD *
INREC FIELDS=(23,9,X,47,4,X,51,03,X,32,13,UFF,ZD,LENGTH=13)
SORT FIELDS=(1,19,CH,A)
OUTREC OVERLAY=(35:20,13,UFF,EDIT=(TTTTTTTTTTT,TT))
//*

Result:

Select all

008610656 0491 701 0000000050784 00000000507,84
008610656 0491 701 0000000025877 00000000258,77
094904586 C306 523 0000000038245 00000000382,45

by **BillyBoyo** » Thu Aug 30, 2012 2:58 pm

What "abend"?

Anyway, now put the SUM statement in:

Select all

SUM FIELDS=(20,13,ZD)

Run it again.

by **wout** » Thu Aug 30, 2012 3:03 pm

The abend without sort was "ABENDU0010".

Result of the run with the Sum statement:

Select all

008610656 0491 701 000000007666A 00000000076,66
094904586 C306 523 0000000038245 00000000382,45

by **BillyBoyo** » Thu Aug 30, 2012 3:43 pm

On the OUTREC, change the UFF to ZD.

The show the full sysout from the step.

Can you post the full sysout of the step that abended?

by **wout** » Thu Aug 30, 2012 5:05 pm

Sysout abend:

Select all

J E S 2 J O B L O G -- S Y S T E M S Y C 7 -- N O

11.11.35 JOB29709 ---- THURSDAY, 30 AUG 2012 ----
11.11.35 JOB29709 IRR010I USERID X33386 IS ASSIGNED TO THIS JOB.
11.11.35 JOB29709 ICH70001I X33386 LAST ACCESS AT 11:01:39 ON THURSDAY, AUGUS
11.11.35 JOB29709 $HASP373 LV1X18S0 STARTED - WLM INIT - SRVCLASS BATCHIWM - S
11.11.35 JOB29709 IEF403I LV1X18S0 - STARTED
11.11.35 JOB29709 IEA995I SYMPTOM DUMP OUTPUT 357
357 USER COMPLETION CODE=0010
357 TIME=11.11.35 SEQ=31507 CPU=0000 ASID=0147
357 PSW AT TIME OF ERROR 078D1000 00D5F84C ILC 2 INTC 0D
357 NO ACTIVE MODULE FOUND
357 NAME=UNKNOWN
357 DATA AT PSW 00D5F846 - 41A0C75C 0A0D9602 D3CD9180
357 AR/GR 0: AFBBF47A/00000000 1: 00000000/8000000A
357 2: 00000000/0000000A 3: 00000000/00D5F7F6
357 4: 00000000/00000000 5: 00000000/00000000
357 6: 00000000/000088CC 7: 00000000/40D62D7C
357 8: 00000000/00D60100 9: 00000000/40D630FC
357 A: 00000000/00D5F85C B: 00000000/00D5E100
357 C: 00000000/00D5F100 D: 00000000/00007000
357 E: 00000000/00D5F7F4 F: 00000000/00000010
357 END OF SYMPTOM DUMP
11.11.35 JOB29709 IEF450I LV1X18S0 STEP0100 - ABEND=S000 U0010 REASON=00000000
11.11.35 JOB29709 - -----TIMINGS (MINS.)--
11.11.35 JOB29709 -STEPNAME PROCSTEP RC EXCP CONN TCB SRB C
11.11.35 JOB29709 -STEP0100 U0010 20 11 .00 .00
11.11.35 JOB29709 IEF404I LV1X18S0 - ENDED
11.11.35 JOB29709 -LV1X18S0 ENDED. NAME-EXPLOITATION TOTAL TCB CPU TIM
11.11.35 JOB29709 $HASP395 LV1X18S0 ENDED
------ JES2 JOB STATISTICS ------
30 AUG 2012 JOB EXECUTION DATE
30 CARDS READ
110 SYSOUT PRINT RECORDS
0 SYSOUT PUNCH RECORDS
6 SYSOUT SPOOL KBYTES
0.00 MINUTES EXECUTION TIME
1 //LV1X18S0 JOB (LVD00212,AB1),'EXPLOITATION',
// NOTIFY=&SYSUID,
// COND=(0,LT),
// SCHENV='IM1T'
IEFC653I SUBSTITUTION JCL - (LVD00212,AB1),'EXPLOITATION',NOTIFY=X3338
2 // SET ENV=1T ADDED BY EXIT 54 ON BASIS OF SCHENV IM1T
//*SET ENV=1T DUPLICATE SET DISABLED BY EXIT 54
//*SET ENV=1T DUPLICATE SET DISABLED BY EXIT 54
//*SET ENV=1T DUPLICATE SET DISABLED BY EXIT 54
//*SET ENV=1T DUPLICATE SET DISABLED BY EXIT 54
//*SET ENV=1T DUPLICATE SET DISABLED BY EXIT 54
//*SET ENV=1T DUPLICATE SET DISABLED BY EXIT 54
//*SET ENV=1T DUPLICATE SET DISABLED BY EXIT 54
//*OMS NET=T ADDED BY EXIT 54 ON BASIS OF SCHENV
//**MS NET=T DUPLICATE OMS DISABLED BY EXIT 54
//**MS NET=T DUPLICATE OMS DISABLED BY EXIT 54
//**MS NET=T DUPLICATE OMS DISABLED BY EXIT 54
//**MS NET=T DUPLICATE OMS DISABLED BY EXIT 54
//**MS NET=T DUPLICATE OMS DISABLED BY EXIT 54
//**MS NET=T DUPLICATE OMS DISABLED BY EXIT 54
//**MS NET=T DUPLICATE OMS DISABLED BY EXIT 54
//********************************************************************
//* SORT : FILE
//********************************************************************
3 //STEP0100 EXEC PGM=SORT
4 //SYSOUT DD SYSOUT=*
5 //SORTIN DD DISP=SHR,
// DSN=Q9T1.LV.DD.V001.TAXEANTI
6 //SORTOUT DD SYSOUT=*
7 //SYSIN DD *
//*
ICH70001I X33386 LAST ACCESS AT 11:01:39 ON THURSDAY, AUGUST 30, 2012
IEF236I ALLOC. FOR LV1X18S0 STEP0100
IEF237I JES2 ALLOCATED TO SYSOUT
IGD103I SMS ALLOCATED TO DDNAME SORTIN
IEF237I JES2 ALLOCATED TO SORTOUT
IEF237I JES2 ALLOCATED TO SYSIN
IEA995I SYMPTOM DUMP OUTPUT
USER COMPLETION CODE=0010
TIME=11.11.35 SEQ=31507 CPU=0000 ASID=0147
PSW AT TIME OF ERROR 078D1000 00D5F84C ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 00D5F846 - 41A0C75C 0A0D9602 D3CD9180
AR/GR 0: AFBBF47A/00000000 1: 00000000/8000000A
2: 00000000/0000000A 3: 00000000/00D5F7F6
4: 00000000/00000000 5: 00000000/00000000
6: 00000000/000088CC 7: 00000000/40D62D7C
8: 00000000/00D60100 9: 00000000/40D630FC
A: 00000000/00D5F85C B: 00000000/00D5E100
C: 00000000/00D5F100 D: 00000000/00007000
E: 00000000/00D5F7F4 F: 00000000/00000010
END OF SYMPTOM DUMP
IEF472I LV1X18S0 STEP0100 - COMPLETION CODE - SYSTEM=000 USER=0010 REASON=000000
IEF285I X33386.LV1X18S0.JOB29709.D0000102.? SYSOUT
IGD104I Q9T1.LV.DD.V001.TAXEANTI RETAINED, DDNAME=SORTIN
IEF285I X33386.LV1X18S0.JOB29709.D0000103.? SYSOUT
IEF285I X33386.LV1X18S0.JOB29709.D0000101.? SYSIN
IEF373I STEP/STEP0100/START 2012243.1111
IEF032I STEP/STEP0100/STOP 2012243.1111
CPU: 0 HR 00 MIN 00.02 SEC SRB: 0 HR 00 MIN 00.00 SEC
VIRT: 212K SYS: 300K EXT: 396K SYS: 9060K
IEF375I JOB/LV1X18S0/START 2012243.1111
IEF033I JOB/LV1X18S0/STOP 2012243.1111
CPU: 0 HR 00 MIN 00.02 SEC SRB: 0 HR 00 MIN 00.00 SEC
ICE805I 1 JOBNAME: LV1X18S0 , STEPNAME: STEP0100
ICE802I 0 BLOCKSET TECHNIQUE IN CONTROL
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 11:11 ON THU AU
INREC FIELDS=(23,9,X,47,4,X,51,03,X,32,13,UFF,ZD,LENGTH=13)
OUTREC OVERLAY=(35:20,13,UFF,EDIT=(TTTTTTTTTTT,TT))
ICE010A 0 NO SORT OR MERGE CONTROL STATEMENT
ICE751I 0 C5-K76982 C6-K90026 E7-K70685
ICE052I 3 END OF DFSORT

Run with ZD in place of UFF

Select all

008610656 0491 701 000000007666A 00000000766,61
094904586 C306 523 0000000038245 00000000382,45

It gives the impression that it works with ZD, I will give it a try on my original JCL

by **BillyBoyo** » Thu Aug 30, 2012 5:22 pm

Sorry, I should have included

Select all

OPTION COPY

or

Select all

SORT FIELDS=COPY

In the step that abended. You did get an actual abend because your site has some software trapping the non-zero return code. If you look at the messages, you'll see it tells you

Select all

ICE010A 0 NO SORT OR MERGE CONTROL STATEMENT

by **BillyBoyo** » Thu Aug 30, 2012 5:28 pm

What happened in your original is that you convert the field from UFF to ZD, then in the OUTREC you treat it as UFF. This is fine, unless you happen to have an "overpunched" sign, which you got on the result from the SUM where it was actioned. So the "A", which is a positive sign with a least-significant digit value of 1, gets ignored by the UFF.

I think there is an option value which you have set differently than that which Kolusu used. He will later be able to tell you what that is, and how to see it, so that you can confirm.

I'd have to wade into the manual to check, and today I don't have time. You can also do the wading...

by **skolusu** » Thu Aug 30, 2012 10:02 pm

Good Eye Billyboyo. Op has ZDPRINT=N which does not print the summed ZD numbers. So OP need to use OPTION ZDPRINT in his control cards. The easiest one is to change the OUTREC to refer as ZD instead of UFF

i.e

Select all

OUTREC FIELDS=(1,31,32,13,ZD,EDIT=(TTTTTTTTTT,TT),45,305)

Wout,

If you have Sign overpunch in the input data itself then you need to do it differently as UFF will ignore the Sign overpunch. Do you have such data?

ex: 0000000258,7J that would be -0000000258.71 , but if you use UFF then it would make it as 25.87 as the sign overpunch is ignored. Let me know if you do have such data in your input and I will show you a way to sum them

You can read about ZDPRINT option here

http://publibz.boulder.ibm.com/cgi-bin/ ... 1ca60/3.14

by **wout** » Sat Sep 01, 2012 6:24 pm

No, i have no Sign overpunch in the input data.
The adapted Card works just fine now.
Thanks to all!

IBM Mainframe Forum

Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please

Re: Some help with sum fields please