hi,
Suppose i have following code in JCL where i am passing Employee name to the program and i have coded Linkage section in my cobol program to accept the PARM value as below.
JCL:
//STEP1 EXEC PGM=TESTPROG,PARM='RAKESH'
COBOL:
LINKAGE SECTION.
01 WS-EMP-REC.
02 WS-EMP-LEN PIC S9(04) COMP.
02 WS-EMP-NAME PIC X(10).
My query is why we code PIC for length as 'S9(04)' when we know that it will never be negative ? Every where i have seen as 'S9(04)' only.
Query for PARM Length
Moderators: dbzTHEdinosauer, Moderator Group
Query for PARM Length
Thanks & Regards,
Rakesh
Rakesh
- dbzTHEdinosauer
- Moderator
- Posts: 981
- Joined: Mon Oct 02, 2006 8:31 pm
Hi Natarajan,
Thts rite that WS-EMP-LEN contains the length of the data passed from JCL but i was thinking that why there is a need for signed picture clause ? when we know that length field will be positive always.
May be that is IBM standard which is followed always. as said by 'dbzTHEdinosauer'.
Thts rite that WS-EMP-LEN contains the length of the data passed from JCL but i was thinking that why there is a need for signed picture clause ? when we know that length field will be positive always.
May be that is IBM standard which is followed always. as said by 'dbzTHEdinosauer'.
Thanks & Regards,
Rakesh
Rakesh
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