And there is a DFSORT team waiting to help. Send emails to DFSORThotline [email protected]
Lizette -----Original Message----- >From: John McKown <[email protected]> >Sent: Jan 6, 2016 12:25 PM >To: [email protected] >Subject: Re: Sort for not there? > >On Wed, Jan 6, 2016 at 1:04 PM, Paul Gilmartin < >[email protected]> wrote: > >> (hyperspaced from ASSEMBLER-LIST) >> >> On 2016-01-06, at 11:45, John McKown wrote: >> >> >> >> //DD1 DD *,DLM=AA >> > >> > True. I've used $$ quite a bit myself. But in the _general_ case, how >> can >> > you guarantee that whatever characters you select will _not_ occur as the >> > first two characters in the "sample" data? >> > >> Well, the Pigeonhole Principle guarantees that if the data don't exceed >> 65,535 lines a suitable value must exist. But how to find it? >> >> I might take this to IBM-MAIN; someone is apt to jump in with a >> DFSORT/ICETOOL >> solution. >> > >This _is_ IBM-MAIN. > > > >> >> Hmmm. Count occurences of each initial digraph and select any zero value. >> But are zeroes counted? >> >> Why isn't DLM allowed to be longer? If it were a few dozen characters, >> there's be a guaranteed value for any plausible size data set. >> >> I suppose one could concatenate SYSINs with a different DLM for each, until >> the concatenation limit was encountered. >> >> I hate JCL! It ain't 1965 no more; we shouldn't be burdened with resource >> constraints designed for 1965. >> > >OK. But I can just imagine the flames and wars (and the demands for a >business case from IBM) for "something else". Oh, and be damn sure that the >"something else" can be used with CA-11 restart management. So the >simplest thing would be a new control language which can be "compiled" into >"internal text" (like JCL is at present). But that would still have some of >the problems that JCL has. E.g. no looping construct. There is no way to >construct SWA to do "looping". > >Of course, you could abandon most of JCL by using Co:Z Batch Launcher to >write a UNIX shell script. One of these days, I will looking into write a >program for IRXJCL which allows "in line" REXX code. > >E.g. >//STEP1 EXEC PGM=RUNREXX,REGION=0M >//SYSPRINT DD SYSOUT=* >//SYSERROR DD SYSOUT=* >//SYSPROC DD DISP=SHR,DSN=SYS1.SBPXEXEC >//SYSIN DD DLM='$$' >/* REXX */ >SAY "HELLO, WORLD!" >CALL BPXWDYN "ALLOC DDN(X) DSN(X) OLD" >CALL 'some.linklib(somepgm)' 'some parm' >$$ >// > >Or just use JOL: http://jol.oscar-jol.com/downloads > > >> >> --gil >> > >-- >Computer Science is the only discipline in which we view adding a new wing >to a building as being maintenance -- Jim Horning > >Schrodinger's backup: The condition of any backup is unknown until a >restore is attempted. > >Yoda of Borg, we are. Futile, resistance is, yes. Assimilated, you will be. > >He's about as useful as a wax frying pan. > >10 to the 12th power microphones = 1 Megaphone > >Maranatha! <>< >John McKown > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
