Urgent : Need samp Cobol code for reading 9 digit SIN number

This is a Mainframe COBOL forum - you can post your queries on Mainframe COBOL, VS COBOL II, COBOL/370 , Enterprise COBOL

Moderators: dbzTHEdinosauer, Moderator Group

Post Reply
dhanak999
Member
Posts: 1
Joined: Sat Jul 03, 2010 10:47 am

Urgent : Need samp Cobol code for reading 9 digit SIN number

Post by dhanak999 » Sat Jul 03, 2010 11:40 am

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

User avatar
dbzTHEdinosauer
Moderator
Posts: 981
Joined: Mon Oct 02, 2006 8:31 pm

Post by dbzTHEdinosauer » Sat Jul 03, 2010 1:42 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.
Dick Brenholtz
JCL, SQL and code in programs have an irritating habit of doing what you say,
not what you meant.

Post Reply

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



Other References
Mainframe Tools and others