Re: Generate a data set with record numbers?

On Fri, 15 Sep 2023 20:19:32 +, Schmitt, Michael wrote: For 80-byte records: //DG EXEC PGM=IEBDG //SYSPRINT DD SYSOUT=* //OUTDDDD DSN=USERID.IEBDG.DATA,DISP=SHR //SYSINDD * DSD OUTPUT=(OUTDD) FD NAME=REC,LENGTH=7,STARTLOC=1,PICTURE=7,'RECORD ' FD

Re: Chaining format 9 and format 3 DSCBs in EAV VTOC

On Wed, 26 Jul 2023 17:50:40 -0500, Wendell Lovewell wrote: >Thanks Bill, that's very helpful. > >Please let me see if I have this straight yet: > >- If there is a format-8 DSCB, there will be a format-9 DSCB. > >- If there are > 3 extents (which are handled by the format-1) but < 133 >extents,

Re: Chaining format 9 and format 3 DSCBs in EAV VTOC

On Fri, 21 Jul 2023 16:46:26 -0500, Wendell Lovewell wrote: >Hello Listers, > >I have a question about how additional extents for a dataset are chained >together for files on EAV volumes. > >If I understand correctly: >- The format 8 record has slots to keep track of the first 3 extents of a

Re: IKJPARS PCL/Parameters

Are you entering the string in response to this prompt? IKJ57090A ENTER COMMAND FOR CP If so, the first thing you enter on the line is treated as the name of a command, not an operand, and the operands begin with the second thing on the line. Try entering something like this instead: foo

Re: BPXCOPY vs. TSO/E CALL asis

A few pages later in the manual, there is an assembler language example showing how to invoke BPXCOPY with LINK, with overriding ddnames for SYSUT1 and SYSUT2. Conspicuously and suspiciously absent from the example is an overriding ddname for SYSTSPRT. Bill On Sat, 16 Jul 2022 13:00:20 -0500,

Re: BPXCOPY vs. TSO/E CALL asis

In the part about BPXCOPY, the UNIX System Services Command Reference manual is incorrect. Restoring the part that you showed with ellipses, the statement is: "If BPXCOPY is invoked from LINK, XCTL, ATTACH, a TSO/E CALL command with the asis option, or by a CALL after a LOAD, you can specify

Re: How do I issue a command with a blank in it?

On this page of the z/OS MVS System Commands manual, under "operands" it says "no embedded blanks". It refers to commands in general, not just the "start" command. https://www.ibm.com/docs/en/zos/2.5.0?topic=formats-typical-format

Re: SFTP JOB Data parameter

The OP's input to sftp has "lcd /u/op117/" and later "get EBC-GOV-mmdd.txt". If the "get" command had slashes inside mmdd then it would look like this: "get EBC-GOV-/mm/dd.txt" and sftp would write a file named "/u/op117/dd.txt" if it found the file, and the OGET

Re: SFTP JOB Data parameter

My mistake about OGET, it does have the "-". On Thu, 16 Jun 2022 00:15:23 -0500, Bill Godfrey wrote: >Your first "echo" doesn't have a "+" at the end like your original did. > >Your "OGET" doesn't have a "-" at the end like your orig

Re: SFTP JOB Data parameter

Your first "echo" doesn't have a "+" at the end like your original did. Your "OGET" doesn't have a "-" at the end like your original did. The symbol generates a 2-digit year, but your filenames use a 4-digit year. Instead of use On Thu, 16 Jun 2022 07:45:53 +0300, saurabh khandelwal wrote:

Re: Publicly available site for SA23-7832-13 zArch PoOP for z16?

That same page has a link to the -13 edition, in parentheses, in the paragraph above all the others. No ResourceLink login required. On Fri, 3 Jun 2022 14:29:59 +, Farley, Peter x23353 wrote: >Thanks for that link, but those are all the ones up to the -12 edition, not >including the new

Re: Checksum of "legacy" load module?

The COPYMOD function of IEBCOPY will in some cases combine multiple blocks of a load module into fewer longer blocks, and where certain blocks contain the length of the next block, the length will be changed accordingly. In such cases comparing the original and the copy will not produce a match

Re: CBTTape - CBTMAP.txt

Some PDS members contain an IEBUPDTE stream of members, and TAPEMAP shows the imbedded members with a ">" as in "A>IEFUSI" in file 311 for example. You have to find the preceding "A-" member in the tapemap, "A-SMFEXIT" in this case. Then look at member SMFEXIT to find the "./ ADD NAME=IEFUSI"

Re: ICSF Hash with a certain seed (Key)

Isn't the the REXX program missing a call EBCDIC_to_ASCII ; statement before this one? hmg_text = text_ASCII ; Bill On Thu, 16 Sep 2021 15:40:57 -0300, Isabel wrote: >Hello again and thanks Eric and the others for all the answers, but we >still have problems. :( > >Here is what we

Re: Windows FTPS client

I ran a test using "ftp 127.0.0.1" in TSO using the z/OS FTP linemode client. It wasn't FTPS but it demonstrated how to switch back and forth between OMVS files and z/OS datasets, which should be the same whether in FTP or FTPS. The cd commands were entered in the order shown, which matters for

Re: Looking for help understanding an FTP problem

at exactly is >happening very occasionally at our customers. > >Charles > > >-Original Message- >From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >Behalf Of Bill Godfrey >Sent: Thursday, May 6, 2021 7:42 AM >To: IBM-MAIN@LISTSERV.UA.EDU

Re: Looking for help understanding an FTP problem

If a port is in use, I would not expect that port number to be returned when requesting the next available port number, and I would expect it to show up in a netstat command. I think a firewall is blocking the ports you are having a problem with. In the IP Configuration Reference

Re: Format PDS unloaded on an CD

If you can provide the first 50 or so bytes from the beginning of the file in hex, someone might be able to identify the program that created it. One way to create a file containing a hex representation of the contents of one of your CD files is to use this command, which comes with windows.

Re: IND$FILE and zFS?

There is the character string 'IKJDAIR'. On Sat, 27 Mar 2021 17:30:18 -0700, Charles Mills wrote: >Here's another clue as to the last time it was current: > >COPYRIGHT IBM CORP 1983,1988; > >Not sure how it allocates files. There is no character string 'ALLOC' nor is >there an SVC 99 (X'0a63').

Re: Checksum/Md5 file

It's not an operational/production system, just a sandbox. On Mon, 19 Oct 2020 16:20:37 +0200, Manfred Lotz wrote: >On Mon, 19 Oct 2020 09:10:38 -0500 >Bill Godfrey wrote: > >> These z/OS UNIX commands require ICSF to be active. >> Otherwise you get this: >> $ echo tes

Re: Checksum/Md5 file

These z/OS UNIX commands require ICSF to be active. Otherwise you get this: $ echo testing | md5 FSUMF437 ICSF is required but not available. $ echo testing | sha256 FSUMF437 ICSF is required but not available. Bill On Mon, 19 Oct 2020 15:23:02 +0200, Manfred Lotz wrote: >On Mon, 19 Oct 2020

Re: SVC 99 035C

On Fri, 16 Oct 2020 18:03:52 -0400, Joseph Reichman wrote: You don't need to see the message to find out which text unit, if you are in TEST. When 035C is returned in S99ERROR, the related S99TUKEY key is returned in S99INFO, immediately following S99ERROR. Bll > >I am dynamically allocating

Re: Punched cards and character set

If "S" was assigned the 0 and 2 rows because 0 and 1 were too close together, then why was "/" given rows 0 and 1? Does that punch a hole in this theory? GD Bill On Tue, 2 Jun 2020 14:30:52 -0700, Charles Mills wrote: >"Laced" (every hold punched) cards were an amusing bulletin board item. >

Re: ALLOC command releasing space

On Mon, 10 Feb 2020 18:27:03 -0600, Fred Kaptein wrote: >Hello, >I have a user that is allocating a data set in TSO and REXX using the >following command > >ALLOC DA('ABCD.EFG') NEW CATALOG UNIT(SYSALLDA) DSNTYPE(LIBRARY) LRECL(121) >RECFM(F B A) CYL SPACE(9) BLOCK(27951) DIR(100) > >The

Re: UTF16 to EBCDIC

On Mon, 10 Feb 2020 12:21:58 -0600, Paul Gilmartin wrote: >On Mon, 10 Feb 2020 07:58:26 -0600, Bill Godfrey wrote: > >>Given a USS file utf16.txt containing 6 UTF-16 characters, 12 bytes: >> >>>od -tx1 -An utf16.txt >>00 28 20 1C 00 61 20 1D 0

Re: UTF16 to EBCDIC

Given a USS file utf16.txt containing 6 UTF-16 characters, 12 bytes: >od -tx1 -An utf16.txt 00 28 20 1C 00 61 20 1D 00 29 00 0A U+0028 is left parenthesis U+201C is left double quotation mark U+0061 is small letter "a" U+201D is right double quotation mark U+0029 is right

Re: PL/I TSO Interrupt - Attention handling - SLIP trap X33E / X13E

After it goes back to TSO READY, what happens if you enter 'TEST'. Does it go into TEST mode, and if so, what happens if you then enter the 'RUN' subcommand of TEST? Does the program resume from where it was interrupted? Bill On Tue, 21 May 2019 14:11:09 -0400, Mike Stramba wrote: >Also tried

Re: How to delete strange files on dasd

They look like temporary data sets created by IEHMOVE. https://www.ibm.com/support/knowledgecenter/en/SSLTBW_2.1.0/com.ibm.zos.v2r1.idau100/da5u140.htm Bill On Wed, 12 Sep 2018 06:51:01 -0500, Hilario Garcia wrote: >Hello dear colleagues, > >For unknown reasons I have a volume with the

Re: AW: "Mainframes Rule" Wallpaper

Is this the one? http://enterprisesystemsmedia.com/article/mainframe-trivia-contest-7 (Too low-res for wallpaper) Bill On Mon, 13 Aug 2018 13:02:30 +, Michael Knigge wrote: >Not that hard - but I loved the design of the image > >-Ursprüngliche Nachricht- >Von: IBM Mainframe

Re: DYNALLOC

On Thu, 5 Jul 2018 10:29:22 -0400, Bill Ogden wrote: >It has been a few decades since I used DYNALLOC and I am now doing >something stupid that results in an 0C4 somewhere in never-never land. Can >someone give me a clue without going to much trouble? (DRB and DRBPTR are >on full word

Re: MVS send command in REXX

According to the Knowledge Center link that was given, user(AG54) should be user=(AG54). Bill On Sat, 9 Jun 2018 07:27:19 +0300, saurabh khandelwal wrote: >Hello, > >Thanks for reply. > >below command doesn't work. After changing > >mvs "send 'AG54LST JOB "mtxt"' user(AG54) now" > >to > >mvs

Re: CLIP?

On Fri, 18 May 2018 18:04:47 -0500, Dale R. Smith wrote: >On Fri, 18 May 2018 22:08:51 +, Jesse 1 Robinson wrote: > >>I used the term CLIP (reformat label) today with a colleague who clearly did >>not understand. Isn't it an acronym? I can't find any hits. >> >>. >>. >>J.O.Skip Robinson

Re: Timer Unis (was: ... time change ...)

On Fri, 23 Feb 2018 23:32:07 -0500, Tony Harminc wrote: >On 23 February 2018 at 19:16, Paul Gilmartin < >000433f07816-dmarc-requ...@listserv.ua.edu> wrote: > >> But now I'm confused. The description of TIMER says: >> For TUINTVL, the address is a fullword containing the time interval. >>

Re: Curious about IBM time conversion example program

There are 17 leap days from 1900 to 1970, not 16. Just write them out starting at 1904, 1908... and count them. That would make the results one day later than they should be. The microseconds value should be 22089888, which in hex is 7d91048bca000, and after shifting that 12 bits to

Re: Curious about IBM time conversion example program

The same manual used to have an example subprogram named BPXTTOD that did a time conversion in the opposite direction. When it stopped working at the same date (January 10 2004 13:37:04, correcting a typo in my previous post) the example was just dropped entirely from the manual starting with

Re: Curious about IBM time conversion example program

The number of seconds per TOD unit is too large to be represented in a signed fullword, but half the number of seconds is not too large. So they break the computation into 2 divides. When the STCK value is hex ba9a048bca00 (January 10 2004 13:37:05) or larger, the value after subtracting

Re: BPXWDYN and AVGREC usage

On Fri, 28 Apr 2017 13:12:08 -0500, Peter Vander Woude wrote: >Lizette, > >The error message we see is > >IGD17272I VOLUME SELECTION HAS FAILED FOR INSUFFICIENT SPACE >DATA SET xx.xx.xx.G0014V00 >JOBNAME (CTEC004A) STEPNAME (STEP0100) >PROGNAME (IKJEFT01) DDNAME (DD1

Re: FTP Failing with space issues

On Mon, 24 Apr 2017 16:36:29 -0600, Paul Gilmartin wrote: >On 2017-04-24, at 16:17, Pew, Curtis G wrote: >>> >>> sftp depends on ssh. But ... is it possible to configure ssh so only the >>> sftp >>> agent, not a shell, is allowed as an ssh agent on the server? >> >> Yes, at least on Linux. We

Re: z/OS 2.2 PDF Download Collection - index working now

On Thu, 6 Apr 2017 12:47:45 -0500, Paul Gilmartin wrote: >On Thu, 6 Apr 2017 05:23:45 -0500, Dyck, Lionel B. (TRA) wrote: > >>Last night I downloaded the collection one more time and this time it unzip'd >>and the index worked perfectly. >> >Well, I downloaded again from

Re: 3270 emulator display/translation oddity with windows 10

On Fri, 10 Mar 2017 08:11:47 -0600, John McKown wrote: >On Fri, Mar 10, 2017 at 8:00 AM, Pommier, Rex >wrote: > >> Hello list, >> >> We are seeing an issue with our 3270 emulator. It is working fine on >> Windows 7 but we are moving to

Re: Paper tape (was Re: Hidden Figures)

On Mon, 16 Jan 2017 19:29:19 -0800, Anne & Lynn Wheeler wrote: >edgould1948 (Edward Gould) writes: >> That is not how I remember it at all. The Carriage tape on a >> 1403/3211(?) was just for that machine. i.e. skip to channel x As I >> have said before I do not ever remember seeing any IBM

Re: [EXTERNAL] LRECL=255 vs LRECL=259

On 2016-11-15 12:16, Dyck, Lionel B. wrote: > I'm in the 255 camp and just tried a simple experiment. > > From TSO issue the Edit command: E T(ABC) CL > > This opens the old editor on dataset t.clist member abc and after adding a > few records and saving I checked the dcb which was VB,255,3120

Re: [EXTERNAL] Re: TSO Command to issue message to Outtrap

There's the source code to the SENDTOME command, which does what you want. http://www.tsotimes.com/holdold/articles/archive/fall03/sendtomesc.html You might know about that already, as that page has a link to your site. Bill On Thu, 3 Nov 2016 09:17:30 -0500, Dyck, Lionel B. (TRA)

Re: TSO Command to issue message to Outtrap

The LIST subcommand of EDIT. This will trap and display "Hello!" and "Goodbye!". /* rexx */ call outtrap('t.') push "end nosave" push "list * 2" push "top" push "unnum" push "20 Goodbye!" push "10 Hello!" "edit temp text new emode" call outtrap 'off' do i = 1 to t.0;say t.i;end As used above,

Re: ftp connection dies ?

what the ftp configuration data set would be ? > > > >-Original Message- >From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On >Behalf Of Bill Godfrey >Sent: Sunday, October 16, 2016 5:47 PM >To: IBM-MAIN@LISTSERV.UA.EDU >Subject: Re: ftp connection die

Re: ftp connection dies ?

How much time passes between your OPEN and your USER commands? If you are running your code under TEST with a breakpoint between OPEN and USER, and you let 30 seconds pass before resuming, the IIS FTP server will drop the connection. Or your IIS "unauthenticatedTimeout" might be set to

Re: intermittent errors using FTP program Interface EZAFTPKS

turn code of 1 after which >I submit a Pass joecool >And then Put of the file and it works >When it doesn't work I get a 3 for the user subcommand and fcai_cec is x'0A'. >FTP_SESSION >Error > >Sometimes it does work > > >> On Oct 9, 2016, at 8:18 PM, Bill Godfrey

Re: intermittent errors using FTP program Interface EZAFTPKS

When EZAFTPKS returns an error, what values are in the 4 bytes beginning at FCAI_Result at offset 32 into the FCAI, and what command is being passed in the 3rd argument? Is the halfword length in front of the command correct? Bill On Sun, 9 Oct 2016 20:07:53 -0400, Joseph Reichman wrote:

Re: [EXTERNAL] Re: Translating a DEVTYPE from LISTC into something usable?

On Thu, 22 Sep 2016 13:53:39 -0500, Dyck, Lionel B. (TRA) wrote: But a few pages later in the same manual: http://www.ibm.com/support/knowledgecenter/SSLTBW_2.2.0/com.ibm.zos.v2r2.idai200/lcvolol.htm some of the examples have 3030200E, which means the shared DASD bit was set in the UCB when the

Re: GMail vs. COBOL

When replying from the listserv web interface, the way to quote the message you are replying to is to click on the large double-quote icon in the lower right. This message was sent that way. On Thu, 18 Aug 2016 11:16:09 -0500, Bill Woodger wrote: >Well, I was wrong about there being no

Re: Some confusion about SVC99, DALRTDDN and existing allocations.

Set the S99NOCNV bit on in the S99RB and it will work like you want it to. In SYS1.MACLIB(IEFZB4D0): S99RBDSECT REQUEST BLOCK ... S99FLG11 DS CL1FIRST FLAGS BYTE ... S99NOCNV EQUX'40' ALLOC FUNCTION-DO NOT USE AN *

Re: DEVTYPE INFO=DASD

ject some different problem!). > >Bill Godfrey wrote: >> I think the possibility should be considered that the OP may have mistakenly >> been looking at the 16 bytes at AREA+2, not AREA. If that happened, and the >> missing bytes are hex , the results would be co

Re: DEVTYPE INFO=DASD

I think the possibility should be considered that the OP may have mistakenly been looking at the 16 bytes at AREA+2, not AREA. If that happened, and the missing bytes are hex , the results would be correct for a device with 65520 cylinders. Bill On Thu, 21 Jul 2016 14:30:41 -0500, Mike

Re: TSO TEST and SYSOUTTRAP/SYSOUTLINE

>it in the early 90's > > > > >> On Jul 4, 2016, at 12:28 PM, Bill Godfrey wrote: >> >> Here's an example of capturing TEST output into CLIST variables. >> >> TSOEXEC TEST 'SYS1.LINKLIB(IEFBR14)' >> SET SYSOUTTRAP = 10 >> LIST 10.%+38 /* CVTDA

Re: TSO TEST and SYSOUTTRAP/SYSOUTLINE

Here's an example of capturing TEST output into CLIST variables. TSOEXEC TEST 'SYS1.LINKLIB(IEFBR14)' SET SYSOUTTRAP = 10 LIST 10.%+38 /* CVTDATE */ SET SYSOUTTRAP = 0 SET LINE = (&SYSOUTLINE1) SET DOY = (16:18,) /* 14:16 ON MVS 3.8 */ SET YYY = (13:15,) /* 11:13 ON MVS 3.8 */ SET YEAR =

Re: Suggestion for conditioning step on symbols

On Fri, 13 May 2016 09:39:43 -0700, Charles Mills wrote: >I know this has been kicked around before but I don't have a good answer off >the top of my head and I don't know exactly how to Google for the answer. > >Does anyone have suggestions for conditioning a jobstep on != >? I know that COND=

Re: How force dataset non-SMS?

On Wed, 6 Apr 2016 08:35:10 -0400, Charles Mills wrote: >Oh guys, the reason is really prosaic: I want an SMF 17 with multiple VOLSERs >in it. > I have noticed that when multi-volume data sets are deleted using IDCAMS or the TSO DELETE command, there are separate type 17

Re: Apply PTF on DB2 10 (z/os 1.12)

On Wed, 24 Feb 2016 08:57:13 -0600, Tom Marchant wrote: >On Wed, 24 Feb 2016 14:32:19 +, Walter Marguccio wrote: > >>why would you want to bypass HOLDERR during APPLY ? > >Perhaps I missed it, but I didn't see any reference to bypassing error holds. It appears that parts of this thread are

Re: Anyone seen Mr. Gilmore?

John mentioned his wife's name in a post exactly 3 years ago. It's not the same as the name of the wife in the obit. Bill On Wed, 3 Feb 2016 15:02:42 -0800, Charles Mills wrote: >How could an obit of "our" John Gilmore not mention the IBM mainframe or PL/I? > >I met (interviewed with,

Re: Binder (was: COBOL v5)

On Tue, 26 Jan 2016 12:59:08 -0600, Paul Gilmartin wrote: >On Tue, 26 Jan 2016 10:36:58 -0800, Charles Mills wrote: >> >>AFAIK, the Binder can do anything that the Linkage Editor can do. In >>particular, the Binder is perfectly capable of producing a load module, which >>is stored in a PDS, or

Re: Regex (was: Sort for not there?)

On Fri, 8 Jan 2016 10:25:05 -0600, Paul Gilmartin wrote: >On Thu, 7 Jan 2016 18:07:11 -0700, Alan Young wrote: >> >>The spaces also need the escape backslash like this >> >>FIND r'foo\ \'\ bar\ \"\ wombat' >> >This is bizarre. I've coded a fair amount of regular expressions and >I've never

Re: Sort for not there?

On Thu, 7 Jan 2016 18:07:11 -0700, Alan Young wrote: >Paul Gilmartin wrote: >> On Thu, 7 Jan 2016 12:56:14 -0700, Alan Young wrote: >> >>> It's just like a regexp or unix shell command, precede the special >>> character with a escape backslash. >>> >>> find r'a\'\"b' >>> >>> >> Nope: >> >> SDSF

Re: REXX-question

On Thu, 19 Nov 2015 12:47:40 +0100, Leopold Strauss wrote: >Hi, all > >I simply wanted to automize the receiving of a lot of XMIT-files in >zOS-unix-shell ( not TSO) > >Last but not least my problem could be broken down to following >terminal-input-problem with the RECEIVE-command: >

Re: BPXWUNIX and sort

On Thu, 5 Nov 2015 23:13:34 -0500, John P. Baker wrote: >Kirk, > >The following example illustrates what I am trying to do -- > >Call BPXWUNIX "sort -k 3 -k 4 -k 1 -k 2", table_in., table_out., messages_out. >; > >In the above example, "table_in." in a stem variable containing the rows to be

Re: Redirect or hide IEBCOPY output when using the TSO RECEIVE Command

In the context of the RECEIVE command, SYSOUT(*) means the terminal, and has nothing to do with MSGCLASS. See this page of the TSO/E Command Reference: http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4C5C0/1.38.5 "If * is specified, these messages are directed to the terminal."

Re: How the determine dataset is PDSE

On Mon, 5 Oct 2015 17:44:30 +, Savor, Thomas (Norcross) wrote: > I have a bunch of PDS utility batch programs that have worked fine for PDS. > But for PDSe not so much. > On a PDS...reading the directory...a use MACRF=R,RECFM=Uworks great. > On a PDSE...reading the directoryit looks

Re: Unicode services Red alert

On Thu, 1 Oct 2015 11:41:38 -0700, Charles Mills wrote: >The error I am hoping for is #define CUN_RS_NO_SERV_AVAILABLE 11 /* >Service not available */ but it looks like there is no clue here that >that is it. > The "RSNB" in the APAR description means the reason code is 11. Bill

Re: z/OS V2.2 Manuals are zipped up

There is another way to get to the index. Instead of clicking on the .pdx file, open any document in the directory that has the .pdx file. Click on "Edit" then "Advanced Search". Click on "Show More Options". In the menu under "Look in:" click on "Select Index..." The .pdx file will be the only

Re: z/OS V2.2 Manuals are zipped up

On Thu, 17 Sep 2015 07:08:28 -0700, Lizette Koehler wrote: >I was not sure if anyone posted this or saw this. So here it is as posted on >share.org on Sept 16th 2015. > > >z/OS V2.2 PDFs are available zipped up > >Marna Walle > >Although today the z/OS V2.2 publications are not available on

Re: Source for "98% of the checking transactions flow through a mainframe" type statements

On Wed, 2 Sep 2015 22:58:31 -0500, Bill Godfrey wrote: >On Wed, 2 Sep 2015 17:29:54 -0700, Charles Mills wrote: > >>I have seen an IBM SHARE keynote or the like where IBM rolled out a bunch of >>statements like >> >>98% of the checking transactions pass through a

Re: Source for "98% of the checking transactions flow through a mainframe" type statements

On Wed, 2 Sep 2015 17:29:54 -0700, Charles Mills wrote: >I have seen an IBM SHARE keynote or the like where IBM rolled out a bunch of >statements like > >98% of the checking transactions pass through a mainframe >72% of the credit card transactions involve a mainframe >etc. > >I would like to use

Re: Can we use different translation tables via FTP

On Tue, 1 Sep 2015 17:00:27 -0500, Jasi Grewal wrote: >Greetings, I am trying to use different translation table and it states that >is not supported or not loaded. >I have tried to define XLATE and SBDATACONN to TCPIP.STANDARD.TCPXLBIN in >ftp.data but still gets the following message: > >help

Re: DFSORT - How to select last 8 bytes in variable length records

On Mon, 8 Jun 2015 00:12:18 -0500, Shane Ginnane wrote: On Sun, 7 Jun 2015 14:11:30 -0500, Bill Godfrey wrote: That would mean there could be end-of-line characters and hex 00 characters in a record, which would mean sed would not work. sed won't (shouldn't) care about the nulls, but won't

Re: DFSORT - How to select last 8 bytes in variable length records

On Sun, 7 Jun 2015 13:36:53 -0400, Robert A. Rosenberg wrote: At 09:46 -0500 on 06/07/2015, Paul Gilmartin wrote about Re: DFSORT - How to select last 8 bytes in variable length : On Sun, 7 Jun 2015 22:28:01 +0900, Minoru Massaki wrote: Hello There is a input file of variable length records. I

Re: New Line vs. Line Feed

On Thu, 4 Jun 2015 19:19:56 -0500, Bill Godfrey wrote: On Thu, 4 Jun 2015 11:05:15 -0400, Shmuel Metz (Seymour J.) wrote: In 4767436570688083.wa.bgodfrey.gzgmail@listserv.ua.edu, on 06/01/2015 at 10:18 PM, Bill Godfrey said: The grep and awk commands don't match \n to end-of-line on omvs

Re: New Line vs. Line Feed

On Thu, 4 Jun 2015 11:05:15 -0400, Shmuel Metz (Seymour J.) wrote: In 4767436570688083.wa.bgodfrey.gzgmail@listserv.ua.edu, on 06/01/2015 at 10:18 PM, Bill Godfrey said: The grep and awk commands don't match \n to end-of-line on omvs, or on linux for that matter. Don't they match \n

Re: New Line vs. Line Feed

On Tue, 2 Jun 2015 03:17:35 -0500, Paul Gilmartin wrote: On Mon, 1 Jun 2015 22:18:20 -0500, Bill Godfrey wrote: The grep and awk commands don't match \n to end-of-line on omvs, or on linux for that matter. awk certainly does. To wit: user@OS/390.24.00: cat awknl

Re: New Line vs. Line Feed

On Mon, 1 Jun 2015 17:11:54 -0400, Shmuel Metz (Seymour J.) shmuel+ibm-m...@patriot.net wrote: In 0379604180364016.wa.bgodfrey.gzgmail@listserv.ua.edu, on 05/29/2015 at 10:30 AM, Bill Godfrey bgodfrey...@gmail.com said: I get identical results whether I use \n or $ in the OP's example

Re: New Line vs. Line Feed

On Fri, 29 May 2015 09:56:20 -0500, Paul Gilmartin paulgboul...@aim.com wrote: On Fri, 29 May 2015 09:52:42 -0500, Bill Godfrey wrote: On Fri, 29 May 2015 09:03:59 -0500, Ze'ev Atlas wrote: But when we issue a pattern matching (I'll use Perl syntax for brevity) if ($text =~ /some text \n

Re: New Line vs. Line Feed

On Fri, 29 May 2015 09:03:59 -0500, Ze'ev Atlas wrote: But when we issue a pattern matching (I'll use Perl syntax for brevity) if ($text =~ /some text \n/) the \n is translated by convention to LF and the EBCDIC based pattern matching will fail to match! why not this? if ($text =~ /some text

Re: Where can a running TSO program get its terminal name

I doubt that a relative branch will help. Register 1 is expected to contain an address below the line. It works in RMODE 31, but only if MF=(E,address) is specified on GTTERM and the specified address is below the line. The macro expansion will just point register 1 to the specified address,

Re: Where can a running TSO program get its terminal name

specific address off of the CSECT base register. No MF= anywhere in the picture. Charles -Original Message- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Bill Godfrey Sent: Saturday, May 23, 2015 9:46 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Where

Re: Where can a running TSO program get its terminal name

Also the GTTERM macro. http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IKJ4B790/7.4 Bill On Tue, 12 May 2015 11:29:55 -0700, Charles Mills charl...@mcn.org wrote: Great! Thanks. (Also Thanks, Tony.) Charles -Original Message- From: IBM Mainframe Discussion List

old LISTUTIL program

I'm looking for an old IBM Type III or IV program for OS/360 named LISTUTIL, which is described in a bitsavers.org copy of the 1971 manual Catalog of Programs for IBM System 360. The Type III and IV programs are described as for unrestricted distribution. Basically LISTUTIL printed a data set,

Re: old LISTUTIL program

On Fri, 17 Apr 2015 14:49:14 -0400, Tony Harminc t...@harminc.net wrote: On 17 April 2015 at 12:49, Bill Godfrey bgodfrey...@gmail.com wrote: I'm looking for an old IBM Type III or IV program for OS/360 named LISTUTIL, which is described in a bitsavers.org copy of the 1971 manual Catalog

Re: CR on records using OCOPY converting from ASCII to EBCDIC

On Thu, 19 Mar 2015 09:44:56 -0500, Kevin Landin wrote: We FTP a zip file from a vendor as binary to a z/OS Unix file. We then expand the zip file using the JAR command: jar xf input.zip Since the members were zipped as ASCII, the unzipped members in the z/OS Unix file are also ASCII.

Re: FTP conversion Extended ASCII to EBCDIC

On Thu, 5 Mar 2015 17:51:28 -0600, Bill Godfrey bgodfrey...@gmail.com wrote: On Thu, 5 Mar 2015 17:21:01 -0600, Bill Godfrey wrote: On Thu, 5 Mar 2015 18:15:07 +, David Booher wrote: I have noticed when you are transferring a windows file containing a not character (x'AC') using ASCII

Re: FTP conversion Extended ASCII to EBCDIC

On Thu, 5 Mar 2015 18:15:07 +, David Booher wrote: I have noticed when you are transferring a windows file containing a not character (x'AC') using ASCII transfer to the mainframe, it gets converted to backslash ( \ x'B7') when stored. Is there any way to get the extended Windows ASCII

Re: FTP conversion Extended ASCII to EBCDIC

On Thu, 5 Mar 2015 17:21:01 -0600, Bill Godfrey wrote: On Thu, 5 Mar 2015 18:15:07 +, David Booher wrote: I have noticed when you are transferring a windows file containing a not character (x'AC') using ASCII transfer to the mainframe, it gets converted to backslash ( \ x'B7') when stored

Re: FB to VB PDS

The IEBUPDTE step in your JCL doesn't do what you think it does. Although the step ends with return code 0, the resulting PDS is RECFM=F LRECL=80 BLKSIZE=80. Bill On Fri, 13 Feb 2015 09:59:03 -0800, Sri h Kolusu wrote: It certainly can be done. We did not hear anything from OP and hence did

Re: ancient cobol applications

http://www.king5.com/story/news/local/2015/02/06/old-computers-state-government-agencies/22953063/ On Sat, 7 Feb 2015 19:50:10 -0500, scott wrote: Which state agencies? Some out of work programmers would probably love to do some meaningful work. On 02/07/2015 01:01 PM, Anne Lynn Wheeler

Re: Binder SYSPRINT wrap?

On Fri, 21 Nov 2014 13:51:14 -0800, Charles Mills wrote: For the record let me say I was not dinging the OP for being a nitpicker. No such implication was intended. It just seemed that the question itself was unanswerable. I have a friend who used to be the systems programming manager for a

Re: Fwd: Re: Doug Nadel snippet

On Mon, 10 Nov 2014 21:51:56 +0800, David Crayford dcrayf...@gmail.com wrote: Finding words in strings should be a piece of cake for regex enthusiasts especially those that understand POSIX syntax. I'm sure there are better experts than me wrt regex syntax on these boards and I bow down to them.

Re: FTP Question

was UTF-8. But Bill Godfrey had the correct explanation Curiouser and curiouser. RFC 959 does not define 557, nor does it require an end-of-line sequence for data in stream mode. On the off chance that this is worth trying to unravel, here is an excerpt from Paul's post: (begin quote) ftp quote

Re: FTP Question

On Tue, 23 Sep 2014 07:16:39 -0500, Paul Gilmartin paulgboul...@aim.com wrote: On Mon, 22 Sep 2014 12:01:48 -0400, Mark Jacobs wrote: One of my users is trying to send a mainframe file to another sever, converting it to UTF-8 with Byte Order Mark(BOM). So far he hasn't been able to get it to

Re: Incomplete last line (was: FTP Question)

On Tue, 23 Sep 2014 15:03:21 -0500, Paul Gilmartin paulgboul...@aim.com wrote: On Tue, 23 Sep 2014 09:23:54 -0500, Bill Godfrey wrote: I have seen the very misleading 451 message when attempting this with a USS file in which the last line does not end with hex 15. If that is the case with your

Re: FTP of EBCDIC file

On Mon, 8 Sep 2014 09:08:47 -0500, John McKown john.archie.mck...@gmail.com wrote: Possible REXX program: /* rexx */ data='' CRLF='0D25'X do forever execio 1 diskr sysut1 if rc 0 then leave parse pull record data=data||record i=pos(CRLF,data) do while i 0;

Re: FTP of EBCDIC file

On Mon, 8 Sep 2014 14:31:05 -0500, John McKown john.archie.mck...@gmail.com wrote: Sure that can happen. No, it is not a problem. Why? Because if the variable data ends with a x'0d', the code will NOT split it. If will be in the left over portion of data. And the line: data=data||record will put

Re: IBM C compiler substituting for macros inside literals?

On Tue, 2 Sep 2014 08:31:50 +0100, Andy Taylor wrote: Charles Yes, I assumed this and used the macro invocation in my test compile. And for completeness, I can confirm that when I use cc -E on my 1.12 system I get the same results as you i.e.: printf(%fox %s %s %s %s\n, 5, The, quick, brown,

Re: IBM C compiler substituting for macros inside literals?

On Mon, 1 Sep 2014 16:26:34 -0700, Charles Mills wrote: Sorry. cc command. cc -E StringMacroTest.c Interesting! Happens with cc command but not with c89 or c++ commands. The cc command is not ANSI C. xlc, c89, and c99 are ANSI C. See this page from chapter 24 of the C/C++ User's Guide for

  1   2   >