EBCDIC to ASCII OPTCD=Q? (JCL)
in [Cobol]
|
From: Rick Smith on 21 Sep 2006 10:42 "Alistair" <alistair(a)ld50macca.demon.co.uk> wrote in message news:1158774662.910290.181790(a)d34g2000cwd.googlegroups.com... [snip] > I notice you don't have privates in > the army but that everyone is a "specialist". Privates are E-1 through E-3. Specialists are E-4 through E-7. It is probably true that the number of Specialists exceeds the number of Privates; but it is true that every Specialist was once a Private. At one point, the time-in-service requirement for E-4 was one year, thus Privates may reach their time-in-service prior to, or soon after, deployment overseas. Promotions during training and assignment in the US, may be why you don't notice Privates but do notice "that everyone is a 'specialist'". There is Private (E-1 has no chevron and E-2 has a single chevron) and Private First Class (E-3 has a single chevron with an arc below the chevron). My experience (I served in the US Army more than thirty years ago and things change) was that a further distinction was made on the basis Military Occupational Specialty (MOS). Those enlisted soldiers trained in the combat arms: Infantry (small arms), Armor (tanks), Artillery (howitzers, missiles), etc., wore chevrons. Those trained for support of the combat arms: clerks, food service, supply, mechanics, technicians, etc., wore the "eagle device" of a Specialist. There are four ranks for Specialists, Specialist Four through Specialist Seven, corresponding to Corporal, Sergeant, Staff Sergeant, and Sergeant First Class, respectively. The insignia for a Specialist Four is the eagle device only. Specialist Five has a single arc above the device. Specialist Six has two arcs above and Specialist Seven has three arcs above. The insignia for Corporal is two chevrons, for Sergeant three chevrons, for Staff Sergeant one arc below three chevrons, and for Sergeant First Class two arcs below three chevrons.
From: Howard Brazee on 21 Sep 2006 11:59 On Thu, 21 Sep 2006 13:59:44 +0000 (UTC), docdwarf(a)panix.com () wrote: >... to create an &&TEMP with X'40' EBC in the right place which is then >used as input instead of NODE1.NODE2.EBCDIC.DATA. Passing on another tidbit: Howard, If you're just trying to change the 19,16 field, you could use DFSORT's OVERLAY function to simplify your OUTFIL statement: OUTFIL FNAMES=SORTOUT, OVERLAY=(19:19,16,TRAN=ALTSEQ) Frank Yaeger - DFSORT Team (IBM) Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration => DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/ ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to listserv(a)bama.ua.edu with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
From: on 21 Sep 2006 12:08 In article <2md5h2l7c32drltotjdub3p20gefpsvgsf(a)4ax.com>, Howard Brazee <howard(a)brazee.net> wrote: >On Thu, 21 Sep 2006 13:59:44 +0000 (UTC), docdwarf(a)panix.com () wrote: > >>... to create an &&TEMP with X'40' EBC in the right place which is then >>used as input instead of NODE1.NODE2.EBCDIC.DATA. [snip] >simplify your OUTFIL statement: > > OUTFIL FNAMES=SORTOUT, > OVERLAY=(19:19,16,TRAN=ALTSEQ) Oh, gettin' all... professional on me, eh? Thanks much! DD
From: Binyamin Dissen on 21 Sep 2006 13:36 On Tue, 19 Sep 2006 10:51:59 -0600 Howard Brazee <howard(a)brazee.net> wrote: :>If you say NL but the tape that is mounted has labels (standard or :>ANSI) :>the mount is rejected If you wish to mount without label check, code LABEL=(whatever,BLP) - BLP must be authorized. -- Binyamin Dissen <bdissen(a)dissensoftware.com> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies.
From: on 21 Sep 2006 14:54
In article <k4m5h21p71cngl8dnj6n68s0jufoo0nm7n(a)4ax.com>, Ron <ron(a)address.below> wrote: >docdwarf(a)panix.com () wrote: >>Well, it does... *something*, that's for sure, and the results of this >>'something' seem to toss it back into the laps of Ops. When the JCL is >>coded: >> >>//SORTOUT DD DSN=hinode.TEST.ASCII, >>// DISP=(,CATLG,CATLG), >>// UNIT=TAPE,EXPDT=98000, >>// DCB=(OPTCD=Q),LABEL=(1,NL) >> >>... I get an error message of 'SMC0043 Job CNVASCI1 step STEP1 not >>allocatable at MINLVL=2; failing DD SORTOUT'. > >Who's issuing SMC messages? It's not OS/390, and Syncsort messages >start with WER while IBM sort starts with ICE. According to QuickWeference the vendor is Storage Tec. and the product is SMC Messages, either V6 or V6R1. > >Have you tried the LABEL=(1,AL) ? Nope... and I have no need to now, either, since... somebody whose posting Mr Brazee relayed recommended using the OCOPY utility. Thanks much! DD |