Page 1 of 1

IEBGENER

PostPosted: Wed Apr 27, 2011 9:28 pm
by vinod_rana
I have a ps with two columns eno and ename , i need to copy eno column values in one ps and ename column values in one Ps ? is it possible through iebgener?

Re: IEBGENER

PostPosted: Wed Apr 27, 2011 10:55 pm
by Akatsukami
Given that IEBGENER is, in the shops that I have worked in the last fifteen years or so, a shell around *sort, why not use it or *tool directly?

Re: IEBGENER

PostPosted: Fri Jul 08, 2011 2:16 pm
by Priya85
Instead of IEBGENER you can use sort utility you will get exact results.

Re: IEBGENER

PostPosted: Fri Jul 08, 2011 6:43 pm
by steve-myers
Akatsukami wrote:Given that IEBGENER is, in the shops that I have worked in the last fifteen years or so, a shell around *sort, why not use it or *tool directly?
I've never been in a shop where that's been the case, even with a good sort product installed.

I don't think IEBGENER can do your proposed job in one pass. However, why don't you read its documentation here and figure out how to do this yourself rather than cry out for us to do your work for you.

Re: IEBGENER

PostPosted: Fri Jul 08, 2011 7:54 pm
by Akatsukami
steve-myers wrote:
Akatsukami wrote:Given that IEBGENER is, in the shops that I have worked in the last fifteen years or so, a shell around *sort, why not use it or *tool directly?
I've never been in a shop where that's been the case, even with a good sort product installed.

I ran the following:
//STEPONLY EXEC PGM=IEBGENER
//SYSPRINT DD   SYSOUT=*     
//SYSUT1   DD   *           
THIS IS A TEST.             
//SYSUT2   DD   DUMMY       
//SYSIN    DD   DUMMY       

STEPONLY.SYSPRINT is:
  WER164B  6,908K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,           
  WER164B     64K BYTES RESERVE REQUESTED, 272K BYTES USED                     
  WER146B  12K BYTES OF EMERGENCY SPACE ALLOCATED                               
  WER108I  SYSUT1   : RECFM=F    ; LRECL=    80; BLKSIZE=    80                 
  WER110I  SYSUT2   : RECFM=F    ; LRECL=    80; BLKSIZE=    80                 
  WER410B  5,876K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16MEG LINE,     
  WER410B     0 BYTES RESERVE REQUESTED, 156K BYTES USED                       
  WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                                 
  WER449I  SYNCSORT GLOBAL DSM SUBSYSTEM ACTIVE                                 
  WER416B  BSAM WAS USED FOR SYSUT1                                             
  WER416B  BSAM WAS USED FOR SYSUT2                                             
  WER054I  RCD IN          1, OUT          1                                   
  WER169I  RELEASE 1.3 BATCH 0487 TPF LEVEL 2.0                                 
  WER052I  END SYNCSORT - SHGB0000,STEPONLY,,DIAG=A000,6284,88A0,0044,E85E,4C8B,0AE8,4664
 SYNCSORT COPY FEATURE CALLED - RC = 0                                         

I interpret this to mean that here IEBGENER is a shell around SyncSort. When I was at IBM last century, we got DFSORT messages from IEBGENER

Re: IEBGENER

PostPosted: Fri Jul 08, 2011 10:47 pm
by dick scherrer
Hello,

Every Syncsort system and most DFSORT systems i've worked with in the last few decades intercept "simple" IEGBENER copy processes and invoke the system sort for performance reasons.

The difference in performance can be truly amazing . . .

d

Re: IEBGENER

PostPosted: Fri Jul 08, 2011 11:02 pm
by steve-myers
To me, the amazing thing is rookie Assembler programmers can easily write simple copy programs that out perform IEBGENER! I've done it, too, but for all that I still use IEBGENER out of force of habit and don't use my slightly faster program.

Re: IEBGENER

PostPosted: Fri Jul 08, 2011 11:03 pm
by Frank Yaeger
DFSORT's ICEGENER can be set up to intercept IEBGENER calls. For more information, see:

http://publibz.boulder.ibm.com/cgi-bin/ ... 0625092952

I have a ps with two columns eno and ename , i need to copy eno column values in one ps and ename column values in one Ps ? is it possible through iebgener?


You can do this with a DFSORT job like the following (change as needed):

//S1 EXEC PGM=SORT                         
//SYSOUT DD SYSOUT=*                       
//SORTIN DD *                             
WORD1     WORD2                           
NORA      SARA                             
ALICE     WENDY                           
RACHEL    LUCY                             
A234567890B234567890                       
//OUT1 DD SYSOUT=*                         
//OUT2 DD SYSOUT=*                         
//SYSIN DD *                               
  OPTION COPY                             
  OUTFIL FNAMES=OUT1,BUILD=(1,10)         
  OUTFIL FNAMES=OUT2,BUILD=(11,10)         
/*

Re: IEBGENER

PostPosted: Sun Jul 10, 2011 6:24 pm
by Anuj Dhawan
Also, this example from IEBGENER can be handy: http://publibz.boulder.ibm.com/cgi-bin/ ... 9#HDRU1139