Page 2 of 2

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 2:47 pm
by wout
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:
008610656 0491 701 0000000050784  00000000507,84
008610656 0491 701 0000000025877  00000000258,77
094904586 C306 523 0000000038245  00000000382,45

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 2:58 pm
by BillyBoyo
What "abend"?

Anyway, now put the SUM statement in:

  SUM FIELDS=(20,13,ZD)


Run it again.

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 3:03 pm
by wout
The abend without sort was "ABENDU0010".

Result of the run with the Sum statement:

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

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 3:43 pm
by BillyBoyo
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?

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 5:05 pm
by wout
Sysout abend:

                       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

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

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 5:22 pm
by BillyBoyo
Sorry, I should have included

  OPTION COPY


or

  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

ICE010A 0 NO SORT OR MERGE CONTROL STATEMENT

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 5:28 pm
by BillyBoyo
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...

Re: Some help with sum fields please

PostPosted: Thu Aug 30, 2012 10:02 pm
by skolusu
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

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

Re: Some help with sum fields please

PostPosted: Sat Sep 01, 2012 6:24 pm
by wout
No, i have no Sign overpunch in the input data.
The adapted Card works just fine now.
Thanks to all!