That looks like something I would have written for the System/32
thirty-odd years ago.
Check the archives for a link to the doc. Somebody dug one up a couple
months ago.
There were 9 variables you could use in OCL along with a few special
ones. ?1R? prompts for the 1 variable input only if the variable is
blank. The R means required. You could prompt for it with something like
this ?1R'Proceed?'? but we never did that on the System/32 as the screen
was so little. You might preceed the input prompt with a text line. The
text to the right of the / is the comparison value. / is the comparison
operator. So both of the IF's test if the input is Y. If the first one
fails the second won't be done. If both inputs are Y, the OCL jumps to
the TMCD label.
This software should include a run document that would tell the operator
what was expected.
-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Mark Murphy/STAR
BASE Consulting Inc.
Sent: Tuesday, May 18, 2010 2:14 PM
To: midrange-l@xxxxxxxxxxxx
Subject: OCL Documentation
Does anyone know of any on-line OCL documentation? I can deduce some of
it, but some things are totally foreign.
For example I have a line that goes like this:
// IF ?4R?/Y IF ?7R?/Y GOTO TMCD
I believe that first ?4R? is retrieving input from the screen, and if it
is a Y then it does the second IF. No prompts or anything, it just
waits for more input from the screen? or uses the previous input? What
are the
4 and 7 for? Are these just variable placeholders? ?7? is not set
directly in the procedure, other than the R there. If ?7? is a Y it
should go to the label, but what would cause that? Just user input
without any prompt?
Mark Murphy
STAR BASE Consulting, Inc.
mmurphy@xxxxxxxxxxxxxxx
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit:
http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a
moment to review the archives at
http://archive.midrange.com/midrange-l.
midrange.com
