In a COBOL progam you can set the RETURN-CODE system variable which will populate that value in the LASTCC and MAXCC variables in the JCL.
You can check LASTCC (the return code of the last step) or MAXCC (the highest return code for all steps) implicitly by coding the COND= statement on the...
Here's a link which may be helpful and a snippet from the page.
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/igy3lr00/6.2.26?ACTION=MATCHES&REQUEST=open&TYPE=FUZZY&SHELF=&DT=20011206182158&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT...
As a caveat, careful your subscript doesn't ever extend beyond the last element or you'll start referencing procedure division code, with extremely unpredictable results.
I think interactive debugger requires sp compiled by not linked source residing locally on a workstation in order to see activated dubug pull-downs. That is, the debugger actually requires addressibility to C code on the local workstation. (When sp's are compiled, a C deck is created.)
After...
In an OS/390 platform, you can use DDF (Distributed Data Facility.) This is an OS/390 address space.
This requires binding remote packages locally in the BIND PLAN PKLIST parm by specifying the remote node, collection name, package name or wildcard.
You CONNECT in you application code to the...
Using z/OS DB2 V6., I need to determine if a stored procedure is stopped or started by running DML. I can't locate a status-type column in SYSROUTINES. Where is DB2 getting this information when a DSN -DISPLAY PROCEDURE command is issued?
Thanks.
Is it always a good idea to index foreign keys or should this be done only when parent rows are deleted? That is, do indexes on foreign keys improve Select, Insert, or Update performance. I've heard 'do it always' and 'only when parent rows often deleted'.
If a general rule is to use indexable...
Use the IBM-supplied sample program DSNTIAUL to create load cards. This is an unload program. Although there will not be any data, the program will still create the load cards.
If there isn't a one-to-one correspondence between VSAM files and tables (and there shouldn't be if the model is...
Depends if the 2nd file is appended to the first or acutally 'merged'. The queston doesn't state what the index key is. Perhaps it's customer number not date. So, the merged file woudl have cust 1, date1, date2....cust2, date1, date2.
What we do know is that both files contain May data. Are...
Rather than writing a program, why not use a product like SYNCSORT to do the merge? Also, if you have Easytrieve Plus, he'll do about the same thing and will give you a report if you want it.
I'm not sure what either of these products will do with an ISAM file. You may have to repro them down...
In a nutshell, though I'm sure someone will have a more scientific definition, JCL(Job Controll Language) executes a progam (compiled and linked machine code) within a load library, providing a number of resources to that program: File names (data files, work files), input parameters, and other...
I've tried different combinations without success. Placing cursor on the page I want to being paging on, hitting next page one time, coninuous the next; then inserting page numbers with continue from next section selected or not selected. I'll still get page numbering starting at the first page...
I've been all over the help text and can't figure this out. I'm running Word 2000. I know how to begin page numbering on the second page (INSERT / PAGE NUMBERS / then unchecking SHOW NUMBERS ON FIRST PAGE, but how do I begin page numbering on, say, physical page 2 or 3, etc. I think the answer...
Crox,
01 FIELDS-IN..
05 STR-SIZE-X PIC X(3).
05 STR-SIZE-9 REDEFINES STR-SIZE-X
PIC 9(3).
01 FIELDS-OUT.
05 STR-SIZE-OUT PIC S9(4) COMP. (OR COMP-5 PER YOUR SUGGESTION)
MOVE STR-SIZE-9 TO STR-SIZE-OUT.
This will work and will...
Sorry to differ, but the redefintion will work. although the pic s9(10) is stored as 6 bytes, the picture still remains as shown. PIC 9(5) comp is stored internally as 2 bytes, but this does ot mean comp fields are not coded as PiC 9(2) comp.
In regards to the last post, If the 9 display field...
When you try top open an empty indexed file (i.e., a VSAM file), your going to get a '90' return code. Your program needs to trap the error and respond accordingly.
Redefine the PIC X field.
01 FIELDS.
05 FIELD-SIZE-X PIC X(10).
05 FIELD-SIZE-9
REDEFNIES FIELD-SIZE-X
PIC S9(10) COMP-3.
MOVE FIELD-SIZE-9 TO FIELD-SIZE-COMP.
FIELD-SIZE-9 doesn't need to be signed or packed.
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.