 |
MVSFORUMS.com A Community of and for MVS Professionals
|
FAQ
Search
Quick Manuals
Register
Profile
Log in to check your private messages
Log in
| Search found 266 matches |
| Author | Message |
|---|---|
 Topic: Data truncation |
|
| slade Replies: 11 Views: 5088 |
 Forum: Application Programming Posted: Sat Dec 11, 2010 8:03 pm Subject: Data truncation |
| What you have to do is analyse the 65 byte data record and determine how it relates to the the original 60 byte data record.
If, as Di suggested, they are at the end of the record construct a SORT ... |
|
| Topic: Compiler option to bypass data type check? |
|
| slade Replies: 4 Views: 2395 |
Forum: Application Programming Posted: Thu Feb 04, 2010 8:55 pm Subject: Compiler option to bypass data type check? |
| Hi Mav,
Why not change the pic 99 to pic xx? You won't even have to put quotes around the 02 if your compiler is Enterprise COBOL. I always use X if I don't plan on using math on the field, to ... |
|
| Topic: Get the Length of a variable String |
|
| slade Replies: 7 Views: 3707 |
Forum: Application Programming Posted: Sat Oct 10, 2009 4:05 pm Subject: Get the Length of a variable String |
| Hi,
For posterity, here's my offering for a less complex, but maybe slightly less efficient solution:01 L PIC S9(03) COMP. INSPECT FUNCTION REVERSE(ORG-DESC) ... |
|
| Topic: Cobol variable declarations needed |
|
| slade Replies: 16 Views: 11073 |
Forum: Application Programming Posted: Mon Oct 05, 2009 8:16 pm Subject: Cobol variable declarations needed |
| Try REDEFINING INP-FLD to INP-FLD-X PIC x(20).
Then: MOVE IN-REC(225:20) TO INP-FLD-X MOVE IP-FLD TO WK-FLD |
|
| Topic: Cobol variable declarations needed |
|
| slade Replies: 16 Views: 11073 |
Forum: Application Programming Posted: Fri Oct 02, 2009 6:43 pm Subject: Cobol variable declarations needed |
| If I recall correctly, de-editing a numeric edited field was introduced in COBOLII. If you defined your I/P O/P fields as: IP-FLD PIC Z(10).9(08)-.
WK-FLD PIC S9 ... |
|
| Topic: clearing the content of the file |
|
| slade Replies: 7 Views: 3611 |
Forum: Job Control Language(JCL) Posted: Mon Sep 28, 2009 7:09 pm Subject: clearing the content of the file |
| Your req isn't clear. If you just want to clear the file of its data, Anuj's reply is the way to go - open/close the file as O/P.
If you want to use the file for your own data, open as O/P, WRITE ... |
|
| Topic: Space Calculations - Basics. |
|
| slade Replies: 6 Views: 15459 |
Forum: Job Control Language(JCL) Posted: Sun Sep 27, 2009 2:53 pm Subject: Space Calculations - Basics. |
| Hi Waves,
To make things easier, try multiplying the # of recs (110K) by the len of each rec (500) = 55000K bytes. That's what the listing states - "... kilobytes: 55000" -i.e. "55, ... |
|
| Topic: How to know which DDIO file was used during compilation |
|
| slade Replies: 7 Views: 3229 |
Forum: Utilities Posted: Sun Sep 06, 2009 12:06 pm Subject: How to know which DDIO file was used during compilation |
| Well, we didn't write the code either. So, why are you asking us?
And, BTW, the ques you asked had nothing to do with how the code was written, but whether an xpeditor/ changeman function (or tech ... |
|
| Topic: Difference between catlog and uncatlog in cobol |
|
| slade Replies: 4 Views: 3077 |
Forum: Application Programming Posted: Fri Jul 03, 2009 10:34 pm Subject: Difference between catlog and uncatlog in cobol |
| Hi Yogi,
Let me re-phrase your ques: "What is the difference between a cataloged file and an uncataloged file?" You can reference a cataloged file without using the serail# of the volu ... |
|
| Topic: Query regarding PROC name |
|
| slade Replies: 4 Views: 2738 |
Forum: Job Control Language(JCL) Posted: Sun May 24, 2009 3:41 pm Subject: Query regarding PROC name |
The "//proc1" is for us humans. "//proc2" is a mistake or someones idea of a dirty trick.  |
|
| Topic: Lowercase field reporting |
|
| slade Replies: 5 Views: 2525 |
Forum: Application Programming Posted: Fri May 08, 2009 9:38 pm Subject: Lowercase field reporting |
| Not sure what your requirement is, but if you just want to verify that all chars are ALPHABETIC-LOWER you can just code:IF STRING-VAR IS NOT ALPHABETIC-LOWER
PERFORM ERR-RTN ELSE DO-GOOD-STU ... |
|
| Topic: Replace spaces instead of zeros thru COBOL Program |
|
| slade Replies: 10 Views: 6848 |
Forum: Application Programming Posted: Mon Apr 06, 2009 8:12 pm Subject: Replace spaces instead of zeros thru COBOL Program |
| A little late, but here goes:
Define your I/P field as Z(?).9(?) you pick your own ?s Define your O/P field as 9(?)V9(?). Use the same ?s as above. In the IF stmt use: MOVE I/P TO O/P ELSE etc ... |
|
| Topic: To run the JCL at particular time in a day |
|
| slade Replies: 11 Views: 7410 |
Forum: Job Control Language(JCL) Posted: Sat Mar 07, 2009 8:53 pm Subject: To run the JCL at particular time in a day |
| Don't JES cntl cards begin with "/*"? E.G.: /*MAIN DEADLINE=(0433,B,110208)
Siva, give that a try. |
|
| Topic: How to search a word in a field - Inspect |
|
| slade Replies: 15 Views: 10052 |
Forum: Application Programming Posted: Fri Mar 06, 2009 10:57 pm Subject: How to search a word in a field - Inspect |
Sorry Terry, I didn't catch your reference to LENGTH OF NAME-FIELD in your reply... getting careless. 
Kolusu, The reason I made the ref/mod mention was that there is a restriction of it ... |
|
| Topic: How to search a word in a field - Inspect |
|
| slade Replies: 15 Views: 10052 |
Forum: Application Programming Posted: Thu Mar 05, 2009 5:50 pm Subject: How to search a word in a field - Inspect |
| Or you could use LENGTH OF NAME-FIELD or the intrinsic function to handle any valid length variable.
You might have to move it to its own variable field first because you're using it as part of a r ... |
|
All times are GMT - 5 Hours |