 |
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 9 matches |
| Author | Message |
|---|---|
 Topic: Dynamically Read WS 01 Group |
|
| jlmori Replies: 15 Views: 7037 |
 Forum: Application Programming Posted: Tue Sep 09, 2003 9:38 pm Subject: Dynamically Read WS 01 Group |
| Hi fellow programmers
It would be interesting to find out from kyrpt8198 whether any of the above techniques has helped with his initial problem. After reading his initial problem once again I think ... |
|
| Topic: Dynamically Read WS 01 Group |
|
| jlmori Replies: 15 Views: 7037 |
Forum: Application Programming Posted: Fri Jul 25, 2003 4:18 am Subject: Dynamically Read WS 01 Group |
| Hi there
Actually you dont necessarily have to approach it from the back end. You could code it as: PERFORM VARYING WS-SUB-NAME FROM 1 BY 1 UNTIL WS-SUB-NAME = LENGTH OF WS-NAME +1 IF WS-NAME ... |
|
| Topic: Dynamically Read WS 01 Group |
|
| jlmori Replies: 15 Views: 7037 |
Forum: Application Programming Posted: Thu Jul 24, 2003 6:18 am Subject: Dynamically Read WS 01 Group |
| Hi there
In that case this piece of code may do the trick in getting the length of ws-name: WORKING-STORAGE. 01 WS-COUNTERS. 05 WS-SPACE-COUNT PIC S9(5) COMP-3. 05 WS-SUB-NAME ... |
|
| Topic: Dynamically Read WS 01 Group |
|
| jlmori Replies: 15 Views: 7037 |
Forum: Application Programming Posted: Wed Jul 23, 2003 7:31 am Subject: Dynamically Read WS 01 Group |
| Hi there
I think vp's method is better than mine because my piece of code would not cater for the space(s) between first name and last name in computing the length of ws-name. My piece of code would ... |
|
| Topic: Dynamically Read WS 01 Group |
|
| jlmori Replies: 15 Views: 7037 |
Forum: Application Programming Posted: Tue Jul 22, 2003 5:12 am Subject: Dynamically Read WS 01 Group |
| Hi
You could try this: WORKING-STORAGE 05 WS-SUB-NAME PIC S9(9) COMP-3. 05 WS-SUB-SSN PIC S9(9) COMP-3. 05 WS-SUB-AGE PIC S9&# ... |
|
| Topic: length in bytes of PIC S9(9) COMP. |
|
| jlmori Replies: 7 Views: 50854 |
Forum: Application Programming Posted: Mon Jul 07, 2003 6:29 am Subject: length in bytes of PIC S9(9) COMP. |
| Thanks
I have had a brief look at this link- very interesting. What does the 'FI' format stand for ? Justin |
|
| Topic: length in bytes of PIC S9(9) COMP. |
|
| jlmori Replies: 7 Views: 50854 |
Forum: Application Programming Posted: Sat Jun 21, 2003 5:31 am Subject: length in bytes of PIC S9(9) COMP. |
| To MVS Forums
Please ignore my last message. After doing further research on MVS Forums cobol links I have found out that a COMP field is actually Binary. Therefore the 'S' in the PIC S9(9) COMP do ... |
|
| Topic: length in bytes of PIC S9(9) COMP. |
|
| jlmori Replies: 7 Views: 50854 |
Forum: Application Programming Posted: Sat Jun 21, 2003 2:47 am Subject: length in bytes of PIC S9(9) COMP. |
| Thanks
I understand it is 4 bytes in length. However, why is it that the sign is represented in a field defined as PIC S9(9) COMP-3 (packed decimal- 5 bytes in length) and not in a PIC S9(9) COMP ? ... |
|
| Topic: length in bytes of PIC S9(9) COMP. |
|
| jlmori Replies: 7 Views: 50854 |
Forum: Application Programming Posted: Fri Jun 20, 2003 11:51 pm Subject: length in bytes of PIC S9(9) COMP. |
| To MVS Help
Could you please tell me how many bytes a cobol field of PIC S9(9) COMP is ? It currently defines a data item in a sequential file on the OS 390 mainframe which is four bytes in length. ... |
|
All times are GMT - 5 Hours |