Search found 732 matches

by William Collins
Sat Apr 30, 2016 11:37 am
Forum: VSAM - File system
Topic: sort PSDS TO GDG
Replies: 2
Views: 6722

Yes. Being part of a GDG only affects the name of the dataset created.
by William Collins
Tue Apr 26, 2016 8:26 pm
Forum: EASYTRIEVE
Topic: easytrieve
Replies: 1
Views: 7983

You "REDEFINES" the field to allow you to reference the right-most digit. If that is 1, 3, 5, 7, 9, it is odd, else it is even.
by William Collins
Sat Apr 09, 2016 12:32 pm
Forum: JCL
Topic: Add Numeric Values Using JCL
Replies: 1
Views: 3631

Why do you want to SORT the data which is already in the order you want?

Look at OUTFIL reporting features: REMOVECC, SECTIONS with TRAILER3 using TOT/TOTAL. You can format the data in many ways like that.

As well as sucking-up resources and consolidating data, SUM has no options for formatting.
by William Collins
Tue Mar 29, 2016 12:01 pm
Forum: JCL
Topic: Delete a record in jcl
Replies: 3
Views: 3821

What do you mean by "JCL"? Just those lines that start "//" in column one? Nope, can't be done. You presumably have a PS/flat file? How do you think you'd delete records from there? Nope, can't be done. Of course, with SORT or another programming language and by creating a new output file with only ...
by William Collins
Sat Mar 19, 2016 1:15 pm
Forum: DFSORT , ICETOOL & Utilities
Topic: Alternating recs from multiple input files to one output fil
Replies: 2
Views: 2519

Use MERGE with SORTIN01 and SORTIN01. OPTION EQUALS, and use a generated sequence number for the fake key for the MERGE. Remember to drop the fake bit in OUTREC or OUTFIL.
by William Collins
Wed Mar 16, 2016 12:28 pm
Forum: COBOL
Topic: Read only Header and Trailer record from Input File
Replies: 5
Views: 5835

AT END/NOT AT END are slovenly to use. Use the FILE STATUS on the SELECT and test that field.

Code: Select all

IF Header
    do header stuff
ELSE
IF Trailer
    do trailer stuff
OTHERWISE
    count the data records
END-OF-IFS
Do that as an evaluate. Or do exactly what I said earlier.
by William Collins
Sun Mar 13, 2016 12:29 pm
Forum: COBOL
Topic: Read only Header and Trailer record from Input File
Replies: 5
Views: 5835

Take a "normal" program which processes header, details and trailer. In the "process details" simply write the record out. Remembering that I assume you count the records anyway.
by William Collins
Thu Feb 25, 2016 1:52 pm
Forum: COBOL
Topic: Product development / design engineer requirements
Replies: 0
Views: 1503

That's just SPAM.
by William Collins
Mon Feb 22, 2016 3:33 pm
Forum: COBOL
Topic: MOVING THE SIGN
Replies: 2
Views: 3368

012C. The sign is an "overpunch", embedded in the value. Consult the Enterprise COBOL Programming Guide for details
by William Collins
Mon Feb 22, 2016 3:31 pm
Forum: COBOL
Topic: REDEFINES
Replies: 1
Views: 1957

The question does not make much sense. The VALUE clause on WS-C is invalid, you can't have a VALUE clause on a REDEFINES or an item subordinate to the REDEFINES.
by William Collins
Mon Feb 22, 2016 3:30 pm
Forum: COBOL
Topic: ONSIZE ERROR
Replies: 1
Views: 2029

WS-B will be unchanged. WS-A will be 88.10. If the total which would otherwise be in WS-A was greater than 99.99, then the ON SIZE ERROR would be actioned.
by William Collins
Mon Feb 22, 2016 3:27 pm
Forum: COBOL
Topic: MOVE CORR WS-GRP1 TO WS-GRP2
Replies: 1
Views: 2089

Output would be "MUxxx123xxx00000", where x is some random value (or perhaps binary zeros, it depends). The INITIALIZE will not affect FILLER items - unless you already have Enterprise COBOL V6.1, which you don't, since it was only announced last week. This has an extended (COBOL 2014 Standard) synt...
by William Collins
Tue Feb 16, 2016 12:20 pm
Forum: COBOL
Topic: INVALID FILE NUMBER - Error code 72 while reading KSAM file
Replies: 3
Views: 3399

Well, HP do not make Mainframes. IBM does. KSAM might be "nothing but indexed" but I don't know anything about it. Plus only you can see the code in it. Apart from a pornographic spammer and myself, there is no-one active on this site. So contact your site support (if you have such a thing), colleag...
by William Collins
Mon Feb 15, 2016 11:13 pm
Forum: COBOL
Topic: INVALID FILE NUMBER - Error code 72 while reading KSAM file
Replies: 3
Views: 3399

You have a site-specific program. You have to look at that. What is KSAM? Are you even using a Mainframe?
by William Collins
Tue Feb 09, 2016 8:47 pm
Forum: CICS
Topic: Send or Receive Map or Not!
Replies: 6
Views: 12004

If you just display a screen, what is the user going to do?