Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

How to use MERGE FIELDS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Thu May 26, 2011 12:05 pm    Post subject: How to use MERGE FIELDS
Reply with quote

My code is below , but got a user abend

Code:

//RUNIT EXEC PGM=SORT                               
//SYSOUT   DD  SYSOUT=*                             
//SORTIN01 DD DSN=PK80I.EV6946.TESTIN1,DISP=SHR     
//SORTIN02 DD DSN=PK80I.EV6946.TESTIN2,DISP=SHR     
//SORTOUT  DD DSN=PK80I.EV6946.TESTOUT,DISP=(,CATLG),
//          SPACE=(CYL,(1,1),RLSE),DCB=*.SORTIN01   
//SYSIN    DD  *                                     
  MERGE FIELDS=(1,6,CH,A)                           
/*                                                   


can anyone tell me what's the wrong ......
Back to top
View user's profile Send private message

gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu May 26, 2011 12:09 pm    Post subject:
Reply with quote

Hi,

how can we tell without seeing the output


Gerry
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Thu May 26, 2011 12:13 pm    Post subject:
Reply with quote

gcicchet wrote:
Hi,

how can we tell without seeing the ouput


Gerry


hi , there's no output , cause the abend
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Thu May 26, 2011 12:21 pm    Post subject:
Reply with quote

chaoj wrote:
gcicchet wrote:
Hi,

how can we tell without seeing the ouput


Gerry


hi , there's no output , cause the abend


I think Gerry means the listing output with all the messages...
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Thu May 26, 2011 12:25 pm    Post subject:
Reply with quote

Bill Woodger wrote:
chaoj wrote:
gcicchet wrote:
Hi,

how can we tell without seeing the ouput


Gerry


hi , there's no output , cause the abend


I think Gerry means the listing output with all the messages...


sorry , I see , the messages is below
Code:

1                    J E S 2  J O B  L O G  --  S Y S T E M  Q H E A  --  N O D E  J K W I S 0 1
0
 15.33.06 JOB01641 ---- THURSDAY,  26 MAY 2011 ----
 15.33.06 JOB01641  IRR010I  USERID EV6946   IS ASSIGNED TO THIS JOB.
 15.33.06 JOB01641  ICH70001I EV6946   LAST ACCESS AT 15:29:25 ON THURSDAY, MAY 26, 2011
 15.33.06 JOB01641  $HASP373 EV6946J1 STARTED - INIT 65   - CLASS A - SYS QHEA
 15.33.06 JOB01641  IEF403I EV6946J1 - STARTED - TIME=15.33.06
 15.33.07 JOB01641  IEA995I SYMPTOM DUMP OUTPUT  223
    223               USER COMPLETION CODE=0068
    223              TIME=15.33.07  SEQ=17238  CPU=0000  ASID=0083
    223              PSW AT TIME OF ERROR  078D1000   88706288  ILC 2  INTC 0D
    223                NO ACTIVE MODULE FOUND
    223                NAME=UNKNOWN
    223                DATA AT PSW  08706282 - B2600BA0  0A0D9188  DB504780
    223                AR/GR 0: 00000000/0868662E   1: 00000000/80000044
    223                      2: 00000000/11FF2F48   3: 00000000/00000008
    223                      4: 00000000/11A05E88   5: 00000000/11A1A768
    223                      6: 00000000/11FF2F98   7: 00000000/11FF2F70
    223                      8: 00000000/00008F00   9: 00000000/08687528
    223                      A: 00000000/88706288   B: 00000000/88706028
    223                      C: 00000000/08686528   D: 00000000/00007000
    223                      E: 00000000/11FF2F60   F: 01000002/00000010
    223              END OF SYMPTOM DUMP
 15.33.07 JOB01641  IEF450I EV6946J1 RUNIT - ABEND=S000 U0068 REASON=00000000  224
    224                     TIME=15.33.07
 15.33.07 JOB01641  -                                         --TIMINGS (MINS.)--            ----PAGING COUNTS---
 15.33.07 JOB01641  -JOBNAME  STEPNAME PROCSTEP    RC   EXCP    CPU    SRB  CLOCK   SERV  PG   PAGE   SWAP    VIO SWAPS STEPNO
 15.33.07 JOB01641  -EV6946J1          RUNIT    U0068     29    .00    .00    .00   1064   0      0      0      0     0     1
 15.33.07 JOB01641  IEF404I EV6946J1 - ENDED - TIME=15.33.07
 15.33.07 JOB01641  -EV6946J1 ENDED.  NAME-EV6946               TOTAL CPU TIME=   .00  TOTAL ELAPSED TIME=   .00
 15.33.07 JOB01641  $HASP395 EV6946J1 ENDED
0------ JES2 JOB STATISTICS ------
-  26 MAY 2011 JOB EXECUTION DATE
-           12 CARDS READ
-          131 SYSOUT PRINT RECORDS
-            0 SYSOUT PUNCH RECORDS
-            9 SYSOUT SPOOL KBYTES
-         0.00 MINUTES EXECUTION TIME
         1 //EV6946J1  JOB (F9500B,PK80X,31,                                       JOB01641
           //       'TM=XX,TD=XX,LM=XX,LD=XX'),
           //       EV6946,MSGCLASS=R,CLASS=A,NOTIFY=EV6946
         2 //RUNIT EXEC PGM=ICEMAN
         3 //SYSOUT   DD  SYSOUT=*
         4 //SORTIN01 DD DSN=PK80I.EV6946.TESTIN1,DISP=SHR
         5 //SORTIN02 DD DSN=PK80I.EV6946.TESTIN2,DISP=SHR
         6 //SORTOUT  DD DSN=PK80I.EV6946.TESTOUT,DISP=(,CATLG),
           //          SPACE=(CYL,(1,1),RLSE),DCB=*.SORTIN01
         7 //SYSIN    DD  *
  STMT NO. MESSAGE
 -
         6 IGD01008I STORAGE CLASS = BASE HAS BEEN ASSIGNED
         6 IGD01009I MANAGEMENT CLASS = TEST HAS BEEN ASSIGNED.
 ICH70001I EV6946   LAST ACCESS AT 15:29:25 ON THURSDAY, MAY 26, 2011
 IEF236I ALLOC. FOR EV6946J1 RUNIT
 IEF237I JES2 ALLOCATED TO SYSOUT
 IGD103I SMS ALLOCATED TO DDNAME SORTIN01
 IGD103I SMS ALLOCATED TO DDNAME SORTIN02
 IGD101I SMS ALLOCATED TO DDNAME (SORTOUT )
         DSN (PK80I.EV6946.TESTOUT                        )
         STORCLAS (BASE) MGMTCLAS (TEST) DATACLAS (        )
         VOL SER NOS= EASS14
 IEF237I JES2 ALLOCATED TO SYSIN
 IEA995I SYMPTOM DUMP OUTPUT
   USER COMPLETION CODE=0068
  TIME=15.33.07  SEQ=17238  CPU=0000  ASID=0083
  PSW AT TIME OF ERROR  078D1000   88706288  ILC 2  INTC 0D
    NO ACTIVE MODULE FOUND
    NAME=UNKNOWN
    DATA AT PSW  08706282 - B2600BA0  0A0D9188  DB504780
    AR/GR 0: 00000000/0868662E   1: 00000000/80000044
          2: 00000000/11FF2F48   3: 00000000/00000008
          4: 00000000/11A05E88   5: 00000000/11A1A768
          6: 00000000/11FF2F98   7: 00000000/11FF2F70
          8: 00000000/00008F00   9: 00000000/08687528
          A: 00000000/88706288   B: 00000000/88706028
          C: 00000000/08686528   D: 00000000/00007000
          E: 00000000/11FF2F60   F: 01000002/00000010
  END OF SYMPTOM DUMP
 IEF472I EV6946J1 RUNIT - COMPLETION CODE - SYSTEM=000 USER=0068 REASON=00000000
 IEF285I   EV6946.EV6946J1.JOB01641.D0000102.?          SYSOUT
 IGD104I PK80I.EV6946.TESTIN1                         RETAINED,  DDNAME=SORTIN01
 IGD104I PK80I.EV6946.TESTIN2                         RETAINED,  DDNAME=SORTIN02
 IGD104I PK80I.EV6946.TESTOUT                         RETAINED,  DDNAME=SORTOUT
 IEF285I   EV6946.EV6946J1.JOB01641.D0000101.?          SYSIN
 IEF373I STEP/RUNIT   /START 2011146.1533
 IEF374I STEP/RUNIT   /STOP  2011146.1533 CPU    0MIN 00.03SEC SRB    0MIN 00.00SEC VIRT  2116K SYS   292K EXT    6148K SYS   11972K
 *******************************************************************************************************************
 * MVS/ESA SP7.1.0  SYSTEM 2094       (QHEA) :    SMF STATISTICS                    DATE=26.05.2011  TIME=15:33:07 *
 *******************************************************************************************************************
 *                                                                                                                 *
 * //EV6946J1 JOB (F9500B,PK80X,31,TM=XX,TD=XX,LM=XX,LD=XX),EV6946                                                 *
 *                                                                                                                 *
 * STEP                               TOTAL     VIO      TCB      SRB     INIT  ELAPSED   STORAGE     NO.OF  NO.OF *
 * NO. STEPNAME PROCSTEP PROGRAM     EXCP'S  EXCP'S CPU-TIME CPU-TIME CPU-TIME     TIME   <16M  >16M   PAGES SWAPS *
 *                                                                                                                 *
 *   1          RUNIT    ICEMAN           2       0    0.03S    0.00S    0.02S    0.11S  2116K    6M       0     0 *U0068
 *-----------------------------------------------------------------------------------------------------------------*
 * JOB SUM (WITH JOB OVERHEAD):           2       0    0.03S    0.00S    0.02S    0.11S  2116K    6M       0     0 *U0068
 *=================================================================================================================*
 * STORAGE SECTION | USED PRIVATE AREA BELOW 16MB:           2116K | ALLOWED PRIVATE AREA BELOW 16MB:        4096K *
 *                 | USED PRIVATE AREA ABOVE 16MB:              6M | ALLOWED PRIVATE AREA ABOVE 16MB:          41M *
 *-----------------------------------------------------------------------------------------------------------------*
 * WLM SECTION     | WORKLOAD NAME                        BAT_WKL  | SERVICE CLASS NAME                   BAT_MED  *
 *                 | RESOURCE GROUP NAME                           | REPORT CLASS NAME                             *
 *******************************************************************************************************************
 IEF375I  JOB/EV6946J1/START 2011146.1533
 IEF376I  JOB/EV6946J1/STOP  2011146.1533 CPU    0MIN 00.03SEC SRB    0MIN 00.00SEC
1ICE143I 0 BLOCKSET     MERGE TECHNIQUE SELECTED
 ICE250I 0 VISIT http://www.ibm.com/storage/dfsort FOR DFSORT PAPERS, EXAMPLES AND MORE
 ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R10 - 15:33 ON THU MAY 26, 2011 -
0            MERGE FIELDS=(1,6,CH,A)
 ICE201I H RECORD TYPE IS F - DATA STARTS IN POSITION 1
 ICE751I 0 C5-K90025 C6-K90025 C7-K54603 C8-K62201 E4-K51707 C9-BASE   E5-K62201 E7-K62201
 ICE193I 0 ICEAM1 INVOCATION ENVIRONMENT IN EFFECT - ICEAM1 ENVIRONMENT SELECTED
 ICE088I 0 EV6946J1.RUNIT   .        , INPUT LRECL = 80, BLKSIZE = 27920, TYPE = FB
 ICE093I 0 MAIN STORAGE = (MAX,6291456,6291456)
 ICE156I 0 MAIN STORAGE ABOVE 16MB = (6234096,6234096)
 ICE127I 0 OPTIONS: OVFLO=RC0 ,PAD=RC0 ,TRUNC=RC0 ,SPANINC=RC16,VLSCMP=N,SZERO=Y,RESET=Y,VSAMEMT=Y,DYNSPC=32
 ICE128I 0 OPTIONS: SIZE=6291456,MAXLIM=2097152,MINLIM=450560,EQUALS=Y,LIST=Y,ERET=ABEND,MSGDDN=SYSOUT
 ICE129I 0 OPTIONS: VIO=N,RESDNT=ALL ,SMF=FULL ,WRKSEC=Y,OUTSEC=Y,VERIFY=N,CHALT=N,DYNALOC=N             ,ABCODE=MSG
 ICE130I 0 OPTIONS: RESALL=4096,RESINV=0,SVC=109 ,CHECK=Y,WRKREL=Y,OUTREL=Y,CKPT=N,COBEXIT=COB2
 ICE131I 0 OPTIONS: TMAXLIM=6291456,ARESALL=0,ARESINV=0,OVERRGN=65536,CINV=Y,CFW=Y,DSA=0
 ICE132I 0 OPTIONS: VLSHRT=N,ZDPRINT=N,IEXIT=N,TEXIT=N,LISTX=N,EFS=NONE    ,EXITCK=S,PARMDDN=DFSPARM ,FSZEST=N
 ICE133I 0 OPTIONS: HIPRMAX=8      ,DSPSIZE=MAX ,ODMAXBF=0,SOLRF=Y,VLLONG=N,VSAMIO=N,MOSIZE=MAX
 ICE235I 0 OPTIONS: NULLOUT=RC0
 ICE084I 0 EXCP ACCESS METHOD USED FOR SORTOUT
 ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN01
 ICE084I 0 EXCP ACCESS METHOD USED FOR SORTIN02
 ICE068A 0 OUT OF SEQUENCE SORTIN01
 ICE751I 1 DC-K54822 DD-K51707 E8-K61438
 ICE052I 0 END OF DFSORT
Back to top
View user's profile Send private message
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 1703
Location: Australia

PostPosted: Thu May 26, 2011 12:29 pm    Post subject:
Reply with quote

Hi,

Code:
ICE068A 0 OUT OF SEQUENCE SORTIN01
is your problem.

Each input file has to be sorted in ascending order.


Gerr
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Thu May 26, 2011 12:37 pm    Post subject:
Reply with quote

deleted by dbz.
was slow, therefore redundent.
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Thu May 26, 2011 12:38 pm    Post subject:
Reply with quote

gcicchet wrote:
Hi,

Code:
ICE068A 0 OUT OF SEQUENCE SORTIN01
is your problem.

Each input file has to be sorted in ascending order.


Gerr


oh......if I use MERGE FIELDS , the (1,6,CH,A) means that the col 1 to 6 in input dataset should be sorted in ascending order , not means that what I want to sort is col 1 to 6 , am I right ?
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10201
Location: italy

PostPosted: Thu May 26, 2011 12:52 pm    Post subject: Reply to: How to use MERGE FIELDS
Reply with quote

Quote:
can anyone tell me what's the wrong ......

that You did not provide anything useful to investigate
that You did not care to read , research and understand ...

1) for the ICE068A 0 OUT OF SEQUENCE SORTIN01 here
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CM30/2.2.67?SHELF=ICE1SH31&DT=20080602112935&CASE=

2) for the U0068 abend here
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ICE1CM30/1.1.7.3?SHELF=ICE1SH31&DT=20080602112935#HDRUSRRUN

up to You to research the manuals relative to Your level of DFSORT
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7223

PostPosted: Thu May 26, 2011 12:56 pm    Post subject: Reply to: How to use MERGE FIELDS
Reply with quote

MERGE is taking datasets that are already in sequence and creating an output dataset in sequence that is a combination of the input datasets.
Back to top
View user's profile Send private message
chaoj

Active User


Joined: 03 Jun 2010
Posts: 103
Location: Dalian

PostPosted: Thu May 26, 2011 1:08 pm    Post subject: Reply to: How to use MERGE FIELDS
Reply with quote

thanks all , I have fixed the problem by making the input sorted previously
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Access SQLCA fields inside a stored p... gangapd DB2 4 Thu Oct 27, 2016 10:20 am
No new posts SQL Merge error -254 Robin Sulsona DB2 8 Wed Jun 01, 2016 8:28 pm
No new posts Need Help to Define 36 Input Fields (... satish.ms10 CLIST & REXX 2 Sat May 07, 2016 3:08 pm
No new posts FileAid to compare(logical operations... anand1204 Compuware & Other Tools 3 Wed Apr 06, 2016 2:55 am
No new posts Fields in File-Aid Browse menu screen boyti ko Compuware & Other Tools 5 Mon Apr 04, 2016 4:51 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us