Be careful with this information. I used it 20 years ago to create bar codes from esc sequences but it was for a dot matrix printer. I'm quite sure that every printer capable of printing bar codes will have some sequence of characters that will allow you to create a bar code without 3rd party software - the trick is finding the documentation.
mike
>>> Duane Percox <[log in to unmask]> 7/11/2007 1:16 AM >>>
Doug,
Your best source of information will be the HP COBOL II/XL manual :-)
However, here is some code that I put together that compiles. All but
the 'symbolic
characters' was already in some code I have running and I added your
symbolic
characters part.
I believe there is an implied order in which you specify the options
because I
got a compile error and had to rearrange the 'symbolic characters' to
come
before the 'class' definitions. Also, you only want a single '.' at the
end
of all the special names. That is why your code won't compile.
I thought this code was instructive because it shows a feature of cobol
that
some don't even know exists - the 'class' definition.
Here is the definition under special-names:
SPECIAL-NAMES.
SW0 IS TRACE-SWITCH, ON STATUS IS TRACE-ON
CONDITION-CODE IS C-CODE
SYMBOLIC CHARACTERS NUL IS 01,
LF IS 11,
CR IS 14,
QTE IS 35
CLASS VALID-OP IS "=", "#", "<", ">", "{", "}", "~", "!",
"(", ")"
CLASS NUM-LIT IS "0", "1", "2", "3", "4", "5", "6", "7",
"8", "9", ".", ",".
And here are some references to these features:
1. MOVE WS-TXT (J:1) TO WS-TEST-CHAR
IF WS-TEST-CHAR IS VALID-OP
...
2. IF WS-PARM-WORK (1:WS-PARM-LEN) NUM-LIT
...
3. if trace-on
display prog-name, "A100-Init -- Dictionary open: ",
QQTDD-OPEN-FLAG
end-if.
4. IF C-CODE <> ZERO
...
duane
> -----Original Message-----
> From: [log in to unmask]
> [mailto:[log in to unmask]] On Behalf Of Johnson, Doug A
> Sent: Tuesday, July 10, 2007 4:16 PM
> To: [log in to unmask]
> Subject: Condition code
>
>
> I need to add some error checking to Cobol program and
> can not figure out the correct syntax to use symbolic
> characters and condition-code at the same time. The Cobol
> manual does not show
> any examples of them being used at the same time, but I would
> think it id do-able.
>
> Thanks in advance for any assistance
>
> 101400 special-names.
> 101600 symbolic characters NUL is 1, LF is 11, CR is 14, QTE
> IS 35. 101500 CONDITION-CODE IS CC.
>
> Doug Johnson
> Lockheed Martin Spaces Systems Sunnyvale CA
> Technical Maintenance and Reliability Services O/9H4S B/076
> Certified Maintenance & Reliability Professional Maintenance
> Management Computer Systems Predictive Maintenance Services
>
>
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|