Please send me sample code for the cobol called program.
I need to validate the SIN number, to use modulus 10 method.
SIN number - is 123 456 782 (9 bytes)
Use the first 8 digits to validate the SIN number.
the ninth digit is the check digit(in this case 2).
Formula:
First 8 digit of SIN number - 1 2 3 4 5 6 7 8
Multiply by second, fourth, six, and eighth digits by 2 --- 4 8 12 16
Add the resulting digits= (4+8+1+2+1+6 = +22)
Add the first , third, fifth and seventh digits of the SIN number (1+3+5+7)= +16)
Total 22 + 16 = 38
Subtract the total from the next highest number ending in zero (in this case 40) to obtain the check digit (40-38) = 2
generally , the result obtained is the check digit.
however, if the result obtained is 10, the check digit is 0.
Need to validate if the check digit is correct ; need to send 'Y' indicator and if the check digit is not correct; need to send 'N' indicator to calling program.
please help me on this
Thanks in advance.
Dhana
Urgent : Need samp Cobol code for reading 9 digit SIN number
Moderators: dbzTHEdinosauer, Moderator Group
- dbzTHEdinosauer
- Moderator
- Posts: 981
- Joined: Mon Oct 02, 2006 8:31 pm
suggest you look at the COMPUTE Statement
here is a discussion of how to use the compute statement in complicated equations
I am assuming that you have the maths skills to implement you formula.
here is a discussion of how to use the compute statement in complicated equations
I am assuming that you have the maths skills to implement you formula.
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.
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