Code:
INSPECT 800-ID REPLACING LEADING
ZEROS BY SPACES
DISPLAY '800-ID:'800-ID
MOVE 800-ID TO 800-ID1
DISPLAY '800-ID1:'800-ID1
INSPECT 800-ID1 TALLYING 800-CNT FOR LEADING SPACES
DISPLAY '800-CNT:'800-CNT
MOVE 800-ID(800-CNT + 1:12 - 800-CNT) TO 800-ID2
SUBTRACT 800-CNT FROM LENGTH OF 800-ID GIVING 800-CNT1
DISPLAY '800-CNT1:'800-CNT1
MOVE 800-CNT1 TO TGPALID-ID-VER-RULE-SET-ID-LEN
MOVE 800-ID2 TO TGPALID-ID-VER-RULE-SET-ID-TXT
Output:
800-ID:000000000222(INPUT)
800-ID: 222(9 spaces before 222)
800-ID1: 222
800-CNT:75
800-CNT1:63
Iam getting the output wrong 800-CNT values like this. But i need 800-CNT1 as 3 and 800-ID2 as 222.
Please help me how to get this?
Inspect to remove spaces
Moderators: dbzTHEdinosauer, Moderator Group
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page