Re: Sort Jcl to build a Update table control card

Thanks a bunch Kolusu.. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Sort Jcl to build a Update table control card

>>fyi , we are using DFSORT and not Syncsort . Well that is good news. On that note then here is the solution. //STEP0100 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD * US1234567897272 //SORTOUT DD SYSOUT=* //SYSINDD * OPTION COPY OUTFIL BUILD=(C'UPDATE K1GHGMT.RTALABLE_ITKM_SG'

Re: Sort Jcl to build a Update table control card

ok thanks a lot Kolusu.fyi , we are using DFSORT and not Syncsort . Regards Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Sort Jcl to build a Update table control card

> Could some let me know how this can be done using SORT (DFSORT) jcl. Ron, Your shop has other competitive product to DFSORT and yet you request the solution for DFSORT. The control cards may run fine with both products, but the least you can do is mention the right product. Moreover this is on

Sort Jcl to build a Update table control card

Hello We have input file with around 6500 rows as below and would need to build a control card to update the DB US1234567897272 -(1st 2 bytes countrycode,next 9 bytes item number ,next 4 bytes PLU nbr) I need to generate a SQL UPDATE code generator like below. ("?" need to be pulled from the

Re: Sort Jcl - hi-jacking

On 2 April 2015 at 13:16, John Eells wrote: > Of course, other collisions are possible for which no prefixes are assigned. > FMIDs come to mind. For FMIDs, we always use H or E for base functions and > J or F for dependent functions but we have no way to help prevent > cross-vendor FMID naming co

Re: Sort Jcl - hi-jacking

We reserve names in the A-I range for IBM products. Things starting with J-Z can be assigned to others by request to elem...@us.ibm.com. The reason to assign prefixes at all is to avoid the problems we once had with more than one IBM product using the same names for different things. For exam

Re: Sort Jcl - hi-jacking

On Thu, Apr 2, 2015 at 11:16 AM, Elardus Engelbrecht wrote: > Richard Pinion wrote: > >>Here's a nice little topic for discussion. What do the three letter message >>prefixes stand for? > >>IBM sort ICE >>Syncsort WER >>CICS DFH >>IMS DFS >>IBM ??? IGD (anybody ever

Re: Sort Jcl - hi-jacking

Richard Pinion wrote: >Here's a nice little topic for discussion. What do the three letter message >prefixes stand for? >IBM sort ICE >Syncsort WER >CICS DFH >IMS DFS >IBM ??? IGD (anybody ever notice IGDZILLA in SYS1.LPALIB?) Shame on you, you forgot my favourite

Re: Sort Jcl - hi-jacking

On Thu, Apr 2, 2015 at 11:04 AM, Richard Pinion wrote: > Here's a nice little topic for discussion. What do > the three letter message prefixes stand for? > > IBM sort ICE > Syncsort WER > CICS DFH > IMS DFS > IBM ??? IGD (anybody ever notice IGDZILLA in SYS1.LPALIB?

Re: Sort Jcl

Thank a lot Kolusu! It is working now. Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Sort Jcl - hi-jacking

From: "Blaicher, Christopher Y." To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Sort Jcl Date: Thu, 2 Apr 2015 15:55:07 + You've never heard of a little product called Syncsort MFX? All our messages begin with WER. Chris Blaicher Technical Architect Software Development S

Re: Sort Jcl

Ok what i put is as , the single quotes on the left is 2 and on the right is also 2 so getting balanced. still not working OUTREC FINDREP=(INOUT=(C''96 M/B "WHITE SALE"'', C'96 M/B WHITE SALE')) Thanks Ron T -

Re: Sort Jcl

C' 96 M/B WHITE SALE ')) //* Thanks, Kolusu IBM Mainframe Discussion List wrote on 04/02/2015 08:50:30 AM: > From: Ron Thomas > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 04/02/2015 08:51 AM > Subject: Re: Sort Jcl > Sent by: IBM Mainframe Discussion List > &g

Re: Sort Jcl

ginal Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Elardus Engelbrecht Sent: Thursday, April 02, 2015 11:53 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Sort Jcl Ron Thomas wrote: > OUTREC FINDREP=(INOUT=(C''96 M/B "WHITE SALE"

Re: Sort Jcl

Ron Thomas wrote: > OUTREC FINDREP=(INOUT=(C''96 M/B "WHITE SALE"', > C' 96 M/B WHITE SALE ')) One single quote too many. Just count them from left to right and right to left. Or use hilite in ISPF. >Msg received in sort is "WER268A OUTREC STATEMENT : SYNTAX ERROR" Sri h K

Re: Sort Jcl

I need to replace the data '96 M/B "WHITE SALE" by 96 M/B WHITE SALE . Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: Sort Jcl

Ok. I have put the same earlier also , getting the same message . SYSIN : SORT FIELDS=COPY OUTREC FINDREP=(INOUT=(C''96 M/B "WHITE SALE"', * C' 96 M/B WHITE SALE ')) * WER268A OUTREC STATEMENT : SYNTAX ERROR WER275A NO KEYWORDS

Re: Sort Jcl

UA.EDU > Date: 04/02/2015 08:42 AM > Subject: Re: Sort Jcl > Sent by: IBM Mainframe Discussion List > > Ok. I have put the same earlier also , getting the same message . > > SYSIN : > SORT FIELDS=COPY > OUTREC FIND

Re: Sort Jcl

Discussion List wrote on 04/02/2015 08:31:13 AM: > From: Ron Thomas > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 04/02/2015 08:31 AM > Subject: Sort Jcl > Sent by: IBM Mainframe Discussion List > > Hello. Could some one please let me know why the below sytntax is > not worki

Re: Sort Jcl

riginal Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Ron Thomas Sent: Thursday, April 02, 2015 11:31 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Sort Jcl Hello. Could some one please let me know why the below sytntax is not working ? //SYSINDD * SOR

Sort Jcl

Hello. Could some one please let me know why the below sytntax is not working ? //SYSINDD * SORT FIELDS=COPY OUTREC FINDREP=(INOUT=(C''96 M/B "WHITE SALE"', C' 96 M/B WHITE SALE ')) /* Msg received in sort is "WER268A OUTREC STATEMENT : SYNTAX ERROR" Thanks Ron T ---

Re: JoAT (was: SORT JCL)

In , on 09/21/2014 at 05:52 PM, John Gilmore said: >I suspect that this particular 'resurrection' is Shmuel's and not >IBM's, but who knows? I do; as usual, your guess is way off the mark. -- Shmuel (Seymour J.) Metz, SysProg and JOAT ISO position; see

Re: JoAT (was: SORT JCL)

My point was a different one: Service Request Block and Selective Reenlistment Bonus share the acronym SRB. Was once of them named in "reminiscential evocation" of the other. I judge not, but who knows? John Gilmore, Ashland, MA 01721 - USA --

Re: JoAT (was: SORT JCL)

On Sun, 21 Sep 2014 17:52:22 -0400, John Gilmore wrote: >I suspect that this particular 'resurrection' is Shmuel's and not >IBM's, but who knows? > RAMAC comes to my mind. -- gil -- For IBM-MAIN subscribe / signoff / archive ac

Re: JoAT (was: SORT JCL)

I suspect that this particular 'resurrection' is Shmuel's and not IBM's, but who knows? John Gilmore, Ashland, MA 01721 - USA -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.e

Re: JoAT (was: SORT JCL)

In , on 09/20/2014 at 11:00 AM, John Gilmore said: >IBM's concern >to protect its sometimes considerable investments in existing >acronyms is entirely understandable. Well, I found the resurrection of the acronym of a 600 millisecond disk drive to be somewhat bizarre. -- Shmuel (Seymo

Re: JoAT (was: SORT JCL)

On Sep 19, 2014, at 5:02 PM, Shmuel Metz (Seymour J.) wrote: --- SNIP-- says that the 5787-XT2 version was an FDP; it seem to be missing the 5740-XT* versions. I think it also had a name of system programmer facility as we

Re: JoAT (was: SORT JCL)

IBM has long had the habit of jacking up acronyms to put new interpretations under them. The impetus has usually been to replace the notionally too particular and limiting with something more generic and innocuous for marketing reasons. Thus, structured programming facility ==> system productivi

Re: JoAT (was: SORT JCL)

In , on 09/17/2014 at 11:13 PM, Ed Gould said: Well, says that the 5787-XT2 version was an FDP; it seem to be missing the 5740-XT* v

Re: JoAT (was: SORT JCL)

On Sep 17, 2014, at 7:20 PM, Shmuel Metz (Seymour J.) wrote: In , on 09/16/2014 at 10:41 PM, Ed Gould said: There was a bit of discussion offline about SPF and its origins, Can you shed some of your knowledge from whence it came? It started[1] life as structured programming facility (SPF

Re: JoAT (was: SORT JCL)

In , on 09/16/2014 at 10:41 PM, Ed Gould said: >There was a bit of discussion offline about SPF and its origins, Can > you shed some of your knowledge from whence it came? It started[1] life as structured programming facility (SPF). At some point it became a program product, under the same n

Re: JoAT (was: SORT JCL)

In <7043223372881019.wa.paulgboulderaim@listserv.ua.edu>, on 09/16/2014 at 02:49 PM, Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu> said: >How? Cite a document of the process. Add a command to the command table. Add a SELECT entry to whatever menu you choose. Which still

Re: JoAT (was: SORT JCL)

Seymour: There was a bit of discussion offline about SPF and its origins, Can you shed some of your knowledge from whence it came? Ed On Sep 16, 2014, at 2:28 PM, Shmuel Metz (Seymour J.) wrote: In <60d89285-3b33-4d1a-b667-ea5f868c5...@comcast.net>, on 09/16/2014 at 12:14 AM, Ed Gould

Re: JoAT (was: SORT JCL)

In <60d89285-3b33-4d1a-b667-ea5f868c5...@comcast.net>, on 09/16/2014 at 12:14 AM, Ed Gould said: >Let me end this discussion as there is a difference (but its been >ages since I was interested) between (I think) ISPF and PDF. It's true that IBM sold ISPF and ISPF/PDF as separate products, b

Re: JoAT (was: SORT JCL)

On Tue, 16 Sep 2014 15:22:12 -0400, Shmuel Metz (Seymour J.) wrote: > >>(ISPF for CMS allows a choice of PDF or XEDIT >>although 2 is not one of the only three nice numbers. ISPF for >>z/OS allows no such flexibility > >Yes it does. I'm not sure why you would want to, unless someone has >ported XE

Re: JoAT (was: SORT JCL)

In <8003041207513935.wa.paulgboulderaim@listserv.ua.edu>, on 09/15/2014 at 06:15 PM, Paul Gilmartin <000433f07816-dmarc-requ...@listserv.ua.edu> said: >(ISPF for CMS allows a choice of PDF or XEDIT >although 2 is not one of the only three nice numbers. ISPF for >z/OS allows no such fl

Re: JoAT (was: SORT JCL)

On 2014-09-15, at 22:40, Ed Gould wrote: > On Sep 15, 2014, at 10:57 PM, Ed Gould wrote: >> -SNIP__ >>> editor, but AFAIK there isn't one out there(anyone know of one?) >>> nedit. >>> http://www-03.ibm.com/systems/z/os/zos/f

Re: SORT JCL

On Tue, 16 Sep 2014 06:36:45 -0500, Elardus Engelbrecht wrote: > >I still find it amazing that DFSORT can handle VB datasets and put results >into a FB dataset. That alone enabled me to discard undocumented, but slow >programs which do that same trick. > I customarily use IDCAMS REPRO for that p

Re: SORT JCL

Thomas Berg wrote: >Well, we just have to look at DFSORT as a programming language - with what >follows. OTOH, what it does it does very fast and efficient so it's worth the >effort to learn it IMHO. Indeed. Look at my JCL for SMF record 89 I posted sometime ago on IBM-MAIN. In the past, I

Re: JoAT (was: SORT JCL)

Ed Gould wrote: >As to ddlist and dslist, I am not familiar with those. Perhaps they are in >house??? I think it is ISRDDN before it was made available and documented. (dslist - not to be confused with listds) But of course, I may be wrong... If so, please correct me... Groete / Greetings Ela

Re: SORT JCL

> -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] > On Behalf Of Shane Ginnane > Sent: Tuesday, September 16, 2014 12:47 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: SORT JCL > > >Thanks a lot Kolsu.. It worked.

Re: JoAT (was: SORT JCL)

On Sep 15, 2014, at 11:43 PM, Paul Gilmartin wrote: On Mon, 15 Sep 2014 22:57:07 -0500, Ed Gould wrote: I *think* member selection etc is part and parcel of ispf/pdf. But if it isn't then the replacement would have to do the member selection. I think that no one has done one so you are treadin

Re: JoAT (was: SORT JCL)

On Sep 15, 2014, at 10:57 PM, Ed Gould wrote: -SNIP__ editor, but AFAIK there isn't one out there(anyone know of one?) nedit. http://www-03.ibm.com/systems/z/os/zos/features/unix/ library/IBM+Redbooks/index.html#nedit -- gil Gil

Re: JoAT (was: SORT JCL)

On Mon, 15 Sep 2014 22:57:07 -0500, Ed Gould wrote: > >I *think* member selection etc is part and parcel of ispf/pdf. But if >it isn't then the replacement would have to do the member selection. >I think that no one has done one so you are treading on new territory. > >Of course there may be one ou

Re: JoAT (was: SORT JCL)

On Sep 15, 2014, at 10:49 PM, Paul Gilmartin wrote: On Mon, 15 Sep 2014 22:21:12 -0500, Ed Gould wrote: I am not so sure that is the case (ISPF edit) . The issue is as I see it that there is no xedit for MVS . Its relatively easy to change the ISPF primary menu to use another How? Does that

Re: JoAT (was: SORT JCL)

On Mon, 15 Sep 2014 22:21:12 -0500, Ed Gould wrote: > >I am not so sure that is the case (ISPF edit) . The issue is as I see >it that there is no xedit for MVS . >Its relatively easy to change the ISPF primary menu to use another > How? Does that percolate through to DSLIST, DDLIST, ..., in which

Re: JoAT (was: SORT JCL)

On Sep 15, 2014, at 6:15 PM, Paul Gilmartin wrote: SNIP- Emacs is like that. Web browsers are like that, nowadays (and emacs embeds its own browser). Any utility that embeds its own editor rather than allowing a pluggable replacement

Re: SORT JCL

On Mon, 15 Sep 2014 19:50:40 -0500, Ed Gould wrote: >To be fair its both SYNCSORT and DFSORT. Probably true - but I've not seen Syncsort for decades. Shane ... -- For IBM-MAIN subscribe / signoff / archive access instructions,

Re: JoAT (was: SORT JCL)

On Mon, 15 Sep 2014 18:15:02 -0500, Paul Gilmartin wrote: >The Swiss Army Hammer. > >There's a famous 1983 paper by Rob Pike I'm guessing he wouldn't be much of a fan of systemd then ... ;0) Shane ... -- For IBM-MAIN subscribe

Re: SORT JCL

On Sep 15, 2014, at 5:47 PM, Shane Ginnane wrote: Thanks a lot Kolsu.. It worked. Thanks! Now that this has finally been put to bed, the length of the thread illustrates vividly the issue I have with using DF/SORT. It has grown (and changed) over the years in an apparent attempt to be "a

Re: JoAT (was: SORT JCL)

On Mon, 15 Sep 2014 17:15:09 -0700, Tom Brennan wrote: >Paul Gilmartin wrote: >> I'd love to be able to select vi as my editor under ISPF (but not all >> the time.)) > >Now you made me think: vi using SNA would mean you need to send each >individual keypress to the mainframe and get a response.

Re: SORT JCL

On Mon, 15 Sep 2014 17:47:03 -0500, Shane Ginnane wrote: > >Works a treat when it works though ... > But nothing explains why results of LOCALE=EN_GB and LOCALE=EN_AU agree well with each other, but differ radically from LOCALE=EN_US. -- gil --

Re: JoAT (was: SORT JCL)

Paul Gilmartin wrote: I'd love to be able to select vi as my editor under ISPF (but not all the time.)) Now you made me think: vi using SNA would mean you need to send each individual keypress to the mainframe and get a response. That might be possible by having the terminal emulator tag a

JoAT (was: SORT JCL)

On Mon, 15 Sep 2014 17:47:03 -0500, Shane Ginnane wrote: > >Now that this has finally been put to bed, the length of the thread >illustrates vividly the issue I have with using DF/SORT. >It has grown (and changed) over the years in an apparent attempt to be "all >things to all men" - and is damn

Re: SORT JCL

>Thanks a lot Kolsu.. It worked. Thanks! Now that this has finally been put to bed, the length of the thread illustrates vividly the issue I have with using DF/SORT. It has grown (and changed) over the years in an apparent attempt to be "all things to all men" - and is damn near unusable as a

Re: SORT JCL

: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: SORT JCL I remember I needed some quick changes to a very large PS dataset, and not wanting to struggle with DFSORT syntax I wrote a quick assembler program (QSAM with a large block size and extra buffers). Nothing could be faster than an assembled program

Re: SORT JCL

Thanks a lot Kolsu.. It worked. Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SORT JCL

To: IBM-MAIN@LISTSERV.UA.EDU > Date: 09/15/2014 10:18 AM > Subject: Re: SORT JCL > Sent by: IBM Mainframe Discussion List > > Kolusu. > > Apologies for the wrong data put, "-" is there in the input on col "6". > > Here is the requirements > > F

Re: SORT JCL

Kolusu. Apologies for the wrong data put, "-" is there in the input on col "6". Here is the requirements FROM DEPT -TODEPT 100 - 200 i.e all data "FROM DEPT" and "TODEPT" to be made 5 bytes by padding zeros irrespective of what users entered. if the user entered 5 byte dept

Re: SORT JCL

? Thanks, Kolusu IBM Mainframe Discussion List wrote on 09/15/2014 09:24:53 AM: > From: Ron Thomas > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 09/15/2014 09:33 AM > Subject: Re: SORT JCL > Sent by: IBM Mainframe Discussion List > > No there is nothing bes

Re: SORT JCL

No there is nothing besides the word "CHAIN" Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SORT JCL

M-MAIN@LISTSERV.UA.EDU] On > Behalf Of Ron Thomas > Sent: Monday, September 15, 2014 8:38 AM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: SORT JCL > > Hello > > The below control card is working, but in some cases where there is a word > "CHAIN" , it is setting to zeros. W

Re: SORT JCL

On 9/15/2014 9:38 AM, Sri h Kolusu wrote: I agree that Sort may not be as easy as a programming language. For example, with REXX you can do LEFT(var,5,'0') or RIGHT(var,5,'0') and that will place zeros up to the number of positions. In Unix, or Perl, or COBOL, or EASYTRIEVE, or Assembler, not ha

Re: SORT JCL

>>>I agree that Sort may not be as easy as a programming language. For example, with REXX you can do LEFT(var,5,'0') or RIGHT(var,5,'0') and that will place zeros up to the number of positions. In Unix, or Perl, or COBOL, or EASYTRIEVE, or Assembler, not hard to do. Lizette, I have to disagree

Re: SORT JCL

Hello The below control card is working, but in some cases where there is a word "CHAIN" , it is setting to zeros. We need this to be copied as it is. If the input length is 5 then copy as it is else if it is 4 or less than 54 append zeros to it. OUTREC IFTHEN=(WHEN=INIT,BUILD=(1,5,UFF,M1,6,2

Re: SORT JCL

:11 PM: > From: Ron Thomas > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 09/13/2014 10:29 PM > Subject: SORT JCL > Sent by: IBM Mainframe Discussion List > > Hi. > > We have a file which is of the below layout LRECL = 80 > > 0001 - 4043 > 4045 - 4060 > 4062 -

Re: SORT JCL

On Sun, 14 Sep 2014 22:21:21 -0500, Ron Thomas wrote: >I have tried this control card and not getting the correct result. below is >the one i got, the 2'nd field is not getting reflected . > >1 - 4043 >04045 - 4060 >04062 - 4108 >04110 - 4700 >04705 - 4706 >04708 >04714 >04719 >04723 > OUTRE

Re: SORT JCL

I have used the one below INREC IFTHEN=(WHEN=(4,2,CH,EQ,C' '),BUILD=(C'00',1,3,5,75)), IFTHEN=(WHEN=(5,1,CH,EQ,C' '),BUILD=(C'0',1,4,5,75)) Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructio

Re: SORT JCL

You forgot to show us the control card. >-Original Message- >From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] >On Behalf Of Ron Thomas >Sent: Sunday, September 14, 2014 8:21 PM >To: IBM-MAIN@LISTSERV.UA.EDU >Subject: Re: SORT JCL > >I have tri

Re: SORT JCL

I have tried this control card and not getting the correct result. below is the one i got, the 2'nd field is not getting reflected . 1 - 4043 04045 - 4060 04062 - 4108 04110 - 4700 04705 - 4706 04708 04714 04719 04723 Thanks Ron T

Re: SORT JCL

I remember I needed some quick changes to a very large PS dataset, and not wanting to struggle with DFSORT syntax I wrote a quick assembler program (QSAM with a large block size and extra buffers). Nothing could be faster than an assembled program, right? Later I figured out how to do the sam

Re: SORT JCL

9/2014 14:52 Subject:Re: SORT JCL Sent by:IBM Mainframe Discussion List I agree that Sort may not be as easy as a programming language. For example, with REXX you can do LEFT(var,5,'0') or RIGHT(var,5,'0') and that will place zeros up to the number of p

Re: SORT JCL

Yeah, but the problem description and sample output don't match. If the length is 5 the last numeric is appended to make the length 6? In a message dated 9/14/2014 9:04:47 A.M. Central Daylight Time, brianmfra...@gmail.com writes: I only used IEHIBALL to syntax check that statement, but I

Re: SORT JCL

Ron Thomas wrote: >We have a file which is of the below layout LRECL = 80 >0001 - 4043 >4045 - 4060 >4062 - 4108 >4110 - 4700 >4705 - 4706 >47088 >4714 >4719 >4723 >6 >Here we need to make this file as below by appending zeros to the 1'st byte of >each number

Re: SORT JCL

On Sun, 14 Sep 2014 09:18:19 -0400, John Gilmore wrote: >This 'problem', if that is the right word for it, is trivial in >any---well, almost any---programming language. > >The OP, like many others here, does not appear to want or even to have >considered writing a programmed resolution of his prob

Re: SORT JCL

If using SORT then you can use: INREC IFTHEN=(WHEN=(4,2,CH,EQ,C' '),BUILD=(C'00',1,3,5,75)), IFTHEN=(WHEN=(5,1,CH,EQ,C' '),BUILD=(C'0',1,4,5,75)) I only used IEHIBALL to syntax check that statement, but I think its correct. On Sun, Sep 14, 2014 at 9:41 PM, Shane Ginnane wrote: >

Re: SORT JCL

te > -Original Message- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Ron Thomas > Sent: Saturday, September 13, 2014 10:29 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: SORT JCL > > Hi. > > We have a file which is of t

Re: SORT JCL

>if the length is 4 or less than 4 need to append zeros to it and make it 5 >byte length. Thanks! Like I said, trivial. And doesn't need compiling. And last I benchmarked, was faster anyway. But that was a (smallish) "one-off" on zLinux, not z/OS ... As a genera rule, I'd stack perl up against

Re: SORT JCL

if the length is 4 or less than 4 need to append zeros to it and make it 5 byte length. Thanks! -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM

Re: SORT JCL

This 'problem', if that is the right word for it, is trivial in any---well, almost any---programming language. The OP, like many others here, does not appear to want or even to have considered writing a programmed resolution of his problem. He wants to use sort control statements instead. He can

Re: SORT JCL

On Sun, 14 Sep 2014 00:29:11 -0500, Ron Thomas wrote: >Here we need to make this file as below by appending zeros to the 1'st byte of >each number only if the length of the number is 4 . *only if the length of the number is 4 * What about 3 or 2 or 1 digits ?. Trivial in awk - but it seems

SORT JCL

Hi. We have a file which is of the below layout LRECL = 80 0001 - 4043 4045 - 4060 4062 - 4108 4110 - 4700 4705 - 4706 47088 4714 4719 4723 6 Here we need to make this file as below by appending zeros to the 1'st byte of each number only if the length of the

Re: SORT JCL

sion List wrote on 07/30/2014 10:15:46 AM: > From: Ron Thomas > To: IBM-MAIN@listserv.ua.edu > Date: 07/30/2014 10:16 AM > Subject: Re: SORT JCL > Sent by: IBM Mainframe Discussion List > > Ok Kolu

Re: SORT JCL

Ok Kolusu. I have send the details. Thanks. -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Re: SORT JCL

on 07/30/2014 08:42:14 AM: > From: Ron Thomas > To: IBM-MAIN@listserv.ua.edu > Date: 07/30/2014 08:42 AM > Subject: Re: SORT JCL > Sent by: IBM Mainframe Discussion List > > Kolusu. > > See the below , the number of records is same in both the cases , > only the

Re: SORT JCL

Kolusu. See the below , the number of records is same in both the cases , only the sequence is the issue Old one 6558140713175118BWGILBE 641547059W...

Re: SORT JCL

0/2014 07:45 AM > Subject: Re: SORT JCL > Sent by: IBM Mainframe Discussion List > > Kolusu, The DCB parameter is same FB 80 bytes LRECL. Here is the > sortout data comming in both the cases > > 65581

Re: SORT JCL

Kolusu, The DCB parameter is same FB 80 bytes LRECL. Here is the sortout data comming in both the cases 6558140714150557LAPOELA 641547059W...

Re: SORT JCL

> Date: 07/30/2014 06:12 AM > Subject: Re: SORT JCL > Sent by: IBM Mainframe Discussion List > > i have done the same , that too also when we do compare the 2 o/p > files there is order difference comm

Re: SORT JCL

i have done the same , that too also when we do compare the 2 o/p files there is order difference comming. Thanks Ron T -- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu wi

Re: SORT JCL

Date: 07/29/2014 09:15 PM > Subject: Re: SORT JCL > Sent by: IBM Mainframe Discussion List > > Thanks Kolusu. Here is the sort card i used "SORT FIELDS=(1, > 4,CH,A,26,9,CH,A),EQUALS" which is in the "ASIS" case where in the > modified sort card "

Re: SORT JCL

Thanks Kolusu. Here is the sort card i used "SORT FIELDS=(1,4,CH,A,26,9,CH,A),EQUALS" which is in the "ASIS" case where in the modified sort card "SORT FIELDS=(26,9,CH,A,71,4,BI,A),EQUALS." The issue is data in the "ASIS" the 1-4 bytes is same as in the "TOBE" the only change is the data i

Re: SORT JCL

Further if you have any questions please let me know Thanks, Kolusu DFSORT Development IBM Corporation IBM Mainframe Discussion List wrote on 07/22/2014 11:10:51 AM: > From: Ron Thomas > To: IBM-MAIN@listserv.ua.edu > Date: 07/22/2014 11:11 AM > Subject: Re: SORT JCL > Sent by:

Re: SORT JCL

Team. The below are the sort cards we are using. The first one is the existing one and 2'nd one is the new one. ASIS -> SORT FIELDS=(1,4,CH,A,5,6,CH,A,11,6,CH,A) Modified -> SORT FIELDS=(71,4,BI,A,5,6,CH,A,11,6,CH,A),EQUALS In the ASIS data is the customer number and 71,4 position also t

Re: SORT JCL

On Sun, 20 Jul 2014 21:58:42 -0500 Ron Thomas wrote: :>I have file in which first 1-4 bytes is character format, the file is comming from a different vendor and they have now changed to S9(09) COMP . We have SORT card that is using (1,4,CH,A), this now we are seeing a different order. Could so

Re: SORT JCL

(1,4, BI, A) will provide ascending sequence for unsigned binary numbers (1,4, FI, A) will provide ascending sequence for signed binary numbers. COBOL PICTURE clause of S9(09) COMP, is for a 4 byte signed binary number. On Jul 20, 2014 7:58 PM, "Ron Thomas" wrote: > Hello. > > I have file in

Re: SORT JCL

M-MAIN@LISTSERV.UA.EDU] On > Behalf Of Ron Thomas > Sent: Sunday, July 20, 2014 7:59 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: SORT JCL > > Hello. > > I have file in which first 1-4 bytes is character format, the file is comming > from a > different vendor and they have now c

SORT JCL

Hello. I have file in which first 1-4 bytes is character format, the file is comming from a different vendor and they have now changed to S9(09) COMP . We have SORT card that is using (1,4,CH,A), this now we are seeing a different order. Could some one please let us know how to get the same ord

Re: sort jcl

On 30/10/2012, Ron Thomas wrote: > LRECL is fixed. I believe kolusu solution will work. > > Thanks, > Ron T > > -- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with th

  1   2   >