Hi,
i have a variable with char lenght 30.for example
Ws-ID x(30)
I want to skip the first and last 3 char from the value in ws-id.
For example
1.ws-id = abc123456e1b
The result should be 123456
Can any one suggest how this can be done in cobol
Skip last 3 bytes and first 3 bytes of data in cobol
-
- Posts: 5
- Joined: Tue Sep 14, 2010 2:44 pm
- Skillset: MVS assembler,JCL,COBOL
- Referer: website
- sergeyken
- Posts: 458
- Joined: Wed Jul 24, 2019 10:12 pm
- Skillset: Assembler, JCL, Utilities, PL/I, C/C++, DB2, SQL, REXX, COBOL, etc. etc. etc.
- Referer: Internet search
Re: Skip last 3 bytes and first 3 bytes of data in cobol
senthamizh wrote:Hi,
i have a variable with char lenght 30.for exampleCode: Select all
Ws-ID x(30)
I want to skip the first and last 3 char from the value in ws-id.
For example
1.Code: Select all
ws-id = abc123456e1b
The result should be 123456
Can any one suggest how this can be done in cobol
1. Learn how to use the Code button when posting your questions.
2. What do you know about COBOL? Out of 2 short code fragments in your message, none of them is a correct COBOL code.
Javas and Pythons come and go, but JCL and SORT stay forever.
-
- Global moderator
- Posts: 3720
- Joined: Sat Dec 19, 2009 8:32 pm
- Skillset: Systems programming, SAS, COBOL, CICS, JCL, SMS, VSAM, etc.
- Referer: other forum
- Location: Dubuque, Iowa, USA
Re: Skip last 3 bytes and first 3 bytes of data in cobol
Reference modification.
-
- Similar Topics
- Replies
- Views
- Last post
-
- 4
- 10113
-
by Misha786
View the latest post
Tue Jul 18, 2023 11:26 pm
-
- 3
- 6814
-
by socker_dad
View the latest post
Wed May 04, 2022 12:59 am
-
- 4
- 3246
-
by socker_dad
View the latest post
Fri Dec 31, 2021 5:28 am
-
-
eliminate duplicates with different data
by cobol_dev » Fri Jun 03, 2022 3:47 am » in DFSORT/ICETOOL/ICEGENER - 7
- 1859
-
by cobol_dev
View the latest post
Wed Jun 15, 2022 10:44 pm
-
-
-
Copying All Data Off An Old Mainframe
by zunebuggy » Wed Sep 25, 2024 1:10 am » in Mainframe Security - 0
- 1579
-
by zunebuggy
View the latest post
Wed Sep 25, 2024 1:10 am
-