IBM Mainframe Forum

by **vinod_rana** » Wed Apr 27, 2011 9:28 pm

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?

by **Akatsukami** » Wed Apr 27, 2011 10:55 pm

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?

by **Priya85** » Fri Jul 08, 2011 2:16 pm

Instead of IEBGENER you can use sort utility you will get exact results.

by **steve-myers** » Fri Jul 08, 2011 6:43 pm

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.

by **Akatsukami** » Fri Jul 08, 2011 7:54 pm

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:

Select all

//STEPONLY EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD *
THIS IS A TEST.
//SYSUT2 DD DUMMY
//SYSIN DD DUMMY

STEPONLY.SYSPRINT is:

Select all

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

by **dick scherrer** » Fri Jul 08, 2011 10:47 pm

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

by **steve-myers** » Fri Jul 08, 2011 11:02 pm

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.

by **Frank Yaeger** » Fri Jul 08, 2011 11:03 pm

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):

Select all

//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)
/*

by **Anuj Dhawan** » Sun Jul 10, 2011 6:24 pm

Also, this example from IEBGENER can be handy: http://publibz.boulder.ibm.com/cgi-bin/ ... 9#HDRU1139

IBM Mainframe Forum

IEBGENER

IEBGENER

Re: IEBGENER

Re: IEBGENER

Re: IEBGENER

Re: IEBGENER

Re: IEBGENER

Re: IEBGENER

Re: IEBGENER

Re: IEBGENER