I've only done a couple of these before and don't have any good
debugging techniques. I've run into a problem on this:
/* */
Trace "O"
Signal On Error Name Bad_Error
Signal On Syntax Name Bad_Syntax
Signal On NoValue Name Bad_NoValue
RecNo=0
Parse arg OmitRec . "("
"PEEKTO Record"
Do while rc==0
RecNo=RecNo+1
If RecNo\==OmitRec then
"OUTPUT" Record
"READTO"
If rc\==0 then
Exit rc
"PEEKTO Record"
End /* while */
Bad_Error:
If rc==12 then
rc=0
Exit rc
Bad_Syntax:
Exit 13
Bad_NoValue:
Exit 14
The output looks fine, but it ends up with an RC=14:
pipe strliteral /abc 12358 thisone notthisone/ | split at blank| omitrec
3 | console
abc
12358
notthisone
Ready(00014);
Thoughts as to why I'm getting a "Bad Value"?
Frank M. Ramaekers Jr. | Systems Programmer | Information Technology |
American Income Life Insurance Company | 254-761-6649
