Search found 439 matches

by William Collins
Wed Apr 05, 2017 2:15 am
Forum: IBM COBOL, GnuCOBOL (OpenCOBOL), OOCobol.
Topic: The COBOL standards?
Replies: 6
Views: 1072

Re: The COBOL standards?

Not a very useful document. Written in 1984, updated last in 1993. Odd things in it.
by William Collins
Thu Mar 09, 2017 12:36 am
Forum: Other Mainframe Topics, Off-Topics, FAQs.
Topic: Difference between COBOL and JCL?
Replies: 6
Views: 2416

Re: Difference between COBOL and JCL?

What's the difference between a box of tools and a box.
by William Collins
Sat Mar 04, 2017 2:37 am
Forum: SyncSort, SyncTool, SyncGener.
Topic: Wierd Syncsort issue
Replies: 15
Views: 8822

Re: Wierd Syncsort issue

You are just... counting the records, right? What's the point of the CONVERT? Although you can CONVERT in OUTREC (with SyncSORT), it is a stupid suggestion to be made to you. They want you to go through making records variable-length just so you can count them? Why not just use the COUNT operator in...
by William Collins
Wed Feb 15, 2017 3:49 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: Copy the part of header to detail records using SORT.
Replies: 5
Views: 2455

Re: Copy the part of header to detail records using SORT.

WHEN=INIT operates on each current record unconditionally.

WHEN=GROUP and WHEN=INIT can be intermixed, and there can be more than one of each.

The first record of a group is the record which defines the group, which meets the conditions for recognising the start of a group.
by William Collins
Mon Feb 13, 2017 3:04 pm
Forum: Thought of the Day, General Talk & Jokes.
Topic: What are you thinking at the moment?
Replies: 27
Views: 4036

Re: What are you thinking at the moment?

Major League Baseball. Bill Gates. President of the United States of America. Such-like. Unfortunately the openings are limited, as they are with careers that are even more income-friendly than these.
by William Collins
Sat Feb 11, 2017 4:30 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: Copy the part of header to detail records using SORT.
Replies: 5
Views: 2455

Re: Copy the part of header to detail records using SORT.

You use IFTHEN=(WHEN=GROUP with BEGIN to identify the header and PUSH to copy the value from the header. The other data looks like a sequence number, WHEN=INIT with OVERLAY to create that.
by William Collins
Thu Feb 09, 2017 1:44 am
Forum: IBM COBOL, GnuCOBOL (OpenCOBOL), OOCobol.
Topic: How to make a COBOL program wait?
Replies: 10
Views: 3097

Re: How to make a COBOL program wait?

Not everything you read on the internet is true.

Oh. Wait. I just... well, here, is obviously an exception.
by William Collins
Tue Feb 07, 2017 1:04 am
Forum: IBM COBOL, GnuCOBOL (OpenCOBOL), OOCobol.
Topic: How to make a COBOL program wait?
Replies: 10
Views: 3097

Re: How to make a COBOL program wait?

Exactly what is the reason for the waiting? Five seconds? That's a loooonnnngggg..... time. Someone writing a book, and your program needs to know who did the murder?
by William Collins
Sun Feb 05, 2017 10:56 pm
Forum: IBM COBOL, GnuCOBOL (OpenCOBOL), OOCobol.
Topic: Working storage of called program.
Replies: 4
Views: 886

Re: Working storage of called program.

Wherever your sub-program is CALLed from, its previous WORKING-STORAGE values will be retained. If you don't want that behaviour (for all or some of your fields) define the fields in the LOCAL-STORAGE SECTION. Fields in LOCAL-STORAGE are reallocated on each CALL. If they are defined with a VALUE cla...
by William Collins
Wed Jan 18, 2017 11:03 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: FB to VB conversion with a split.
Replies: 7
Views: 1736

Re: FB to VB conversion with a split.

You said you have 100-byte records. 100/2 = 49 (since you didn't say if that was F or V records). The "limit" is the number of "records" which can logically exist. If the smallest record, including the X'10', is 10 bytes, you could have a maximum of 10 per records (assuming F, el...
by William Collins
Sat Jan 14, 2017 1:51 pm
Forum: Suggestions & Feedback : About the website.
Topic: Why do I need to login each time / why I need to login to view posts
Replies: 7
Views: 2738

Re: Why do I need to login each time / why I need to login to view posts

I have even discovered a magic incantation to get get a pop-up for the login (click on login). I can then set the Remember Me there, and get the exact same brush-off as with just using the Remember Me on a page.
by William Collins
Sat Jan 14, 2017 1:43 pm
Forum: Suggestions & Feedback : About the website.
Topic: Why do I need to login each time / why I need to login to view posts
Replies: 7
Views: 2738

Re: Why do I need to login each time / why I need to login to view posts

Firefox 50.1.0 on Ubuntu 14.04 LTS. I have to login each time. I don't see a pop-up with the Remember Me, just an ordinary page, and Remember Me is just a cruel trick. (it should have a "mouse-over" text which says, "gotcha' again, gotcha' last time, you can't even remember that!"...
by William Collins
Sat Jan 14, 2017 1:39 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: VB to VB copy using SORT.
Replies: 6
Views: 1891

Re: VB to VB copy using SORT.

You need, on INREC, to have IFTHEN=(WHEN=(logicalexpression to test the record-length part of the RDW on each variable-length record for being 500, in binary (you define the field as binary). Then you BUILD=(1,4,5,476) and that is it.
by William Collins
Sat Jan 14, 2017 1:37 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: FB to VB conversion with a split.
Replies: 7
Views: 1736

Re: FB to VB conversion with a split.

You want to split records based on X'10'. For the final X'10' on a record, does all the data follow on that same record, or is there some data on the next record.

How many X'10's can you have? 49? Some lower number?
by William Collins
Sat Jan 14, 2017 1:35 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: Remove trailing SPACES using SORT.
Replies: 6
Views: 4963

Re: Remove trailing SPACES using SORT.

Sorry, missed that part as it only appeared with the data :-) Two techniques. Use FINDREP with DO=2 to change comma to X'FD' (or any non-display value). Use FINDREP to change the spaces-and-comma (you'll need multiple, it looks like, as you don't have a fixed number of trailing spaces). This can be ...
by William Collins
Wed Jan 11, 2017 11:21 pm
Forum: SMS & VSAM and BDAM, BSAM, QSAM, BPAM, ISAM, OAM.
Topic: Increasing GDG limit without IDCAMS.
Replies: 8
Views: 2675

Re: Increasing GDG limit without IDCAMS.

I think the latest z/OS has new limits.
by William Collins
Wed Jan 11, 2017 11:19 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: VB to VB copy using SORT.
Replies: 6
Views: 1891

Re: VB to VB copy using SORT.

You will have some records of 500 (or 496 or 504) bytes. You intend to lose 20 bytes. Which ones? Are they all the for same type of record (nicc's point)? If not, how are the records you want to lose data for identified?
by William Collins
Wed Jan 11, 2017 11:17 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: FB to VB conversion with a split.
Replies: 7
Views: 1736

Re: FB to VB conversion with a split.

How many records may there be? Record-length? Can logical records split across physical records? Where do the X'10' come from? Why can't the split be done there?
by William Collins
Wed Jan 11, 2017 11:14 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: Remove trailing SPACES using SORT.
Replies: 6
Views: 4963

Re: Remove trailing SPACES using SORT.

Use FINDREP to change C' ,' to C''
by William Collins
Mon Nov 14, 2016 1:05 pm
Forum: IBM DFSort, ICETOOL, ICEMAN, ICEGENER.
Topic: FB to VB conversion with a split.
Replies: 1
Views: 551

Re: FB to VB conversion with a split.

Can the logical records you are splitting "span" multiple physical records? What is their maximum length? What is their minimum length? Please show a representative sample of your input, and the expected output for that sample.

Go to advanced search