Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Validate a variable

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL
Author Message
hkalhor

New User


Joined: 20 May 2007
Posts: 29
Location: iran
PostPosted: Tue Sep 23, 2008 3:40 pm    Post subject: Validate a variable
 Reply with quote
what is the error in this code

Code:
00001    01 HEADER        PIC X(763) VALUE IS                         
00003         "ACCT_NO­GL_CLASS_CODE­NO_OFYS­ RANCH_NORR_STATUS­
00004           OPEN".
Back to top
View user's profile Send private message
References
hkalhor

New User


Joined: 20 May 2007
Posts: 29
Location: iran
PostPosted: Tue Sep 23, 2008 3:44 pm    Post subject:
Reply with quote
I want ti validate a variable by a long term of alphanumeric characters in 11 lines, how dose it is posisble.
Back to top
View user's profile Send private message
hchinnam

Active User


Joined: 18 Oct 2006
Posts: 68
PostPosted: Tue Sep 23, 2008 3:53 pm    Post subject:
Reply with quote
There is nothing wrong in the declaration you posted. if you are having any compiler error post the error so that some one can help.

I Didn't understand your second question, could you explain it a bit clearly.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 2977
Location: Tucson AZ
PostPosted: Tue Sep 23, 2008 4:41 pm    Post subject: Re: validate a variable
 Reply with quote
See "Literal 000010"
Code:
000000000111111111122222222223333333333444444444455555555556666666666777
123456789012345678901234567890123456789012345678901234567890123456789012
00001  01 HEADER        PIC X(763) VALUE IS                         
00003         "ACCT_NO­GL_CLASS_CODE­NO_OFYS­ RANCH_NORR_STATUS­"
00004 -       "OPEN".

Or "Literal 000001"
Code:
000000000111111111122222222223333333333444444444455555555556666666666777
123456789012345678901234567890123456789012345678901234567890123456789012
00001  01 HEADER           PIC X(763) VALUE IS                         
00003                     "ACCT_NO­GL_CLASS_CODE­NO_OFYS­ RANCH_NORR_STATUS
00004 -                   "-OPEN".
Back to top
View user's profile Send private message
hkalhor

New User


Joined: 20 May 2007
Posts: 29
Location: iran
PostPosted: Wed Sep 24, 2008 5:52 pm    Post subject:
Reply with quote
I want to define a variable which containe 11 line of value , also i ve got compiler error.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 1199
Location: At my desk
PostPosted: Wed Sep 24, 2008 5:55 pm    Post subject:
Reply with quote
hkalhor wrote:
I want to define a variable which containe 11 line of value , also i ve got compiler error.
Please post the attempted lines of code and the error you are getting......
Have you looked at the "Literal" links in the prior posts?
Back to top
View user's profile Send private message
hkalhor

New User


Joined: 20 May 2007
Posts: 29
Location: iran
PostPosted: Thu Oct 02, 2008 2:47 pm    Post subject:
Reply with quote
Thanks my friend

the problem was about the dash sign at 7seventh column.

Best Regards,
Kalhor
Back to top
View user's profile Send private message
hkalhor

New User


Joined: 20 May 2007
Posts: 29
Location: iran
PostPosted: Thu Oct 02, 2008 4:15 pm    Post subject:
Reply with quote
I have got the following error during to open and read a data set would you please help me

IKJ56641I DSN ENDED DUE TO ERROR+
IKJ56641I SYSTEM ABEND CODE 0C4 REASON CODE 00000004
Back to top
View user's profile Send private message
Sambhaji
Warnings : 1
Active User


Joined: 16 Feb 2007
Posts: 267
Location: Pune, India
PostPosted: Thu Oct 02, 2008 4:29 pm    Post subject:
Reply with quote
Quote:

I have got the following error during to open and read a data set would you please help me

IKJ56641I DSN ENDED DUE TO ERROR+
IKJ56641I SYSTEM ABEND CODE 0C4 REASON CODE 00000004


I don't think this is regarding same topic. So you should start new topic not post reply
It removes essence of topic.

BTW, regarding your query
Quote:

error during to open and read a data set


Open or read? reply back.

post your DD name with parameters from jcl and
cobol code where you are using this file.. also file section entry.

Have you tried trapping FILE STATUS code? what is it?
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe COBOL All times are GMT + 6 Hours
Page 1 of 1