HP3000-L Archives

October 1996, Week 1

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
"Geiser, Joe" <[log in to unmask]>
Reply To:
Geiser, Joe
Date:
Fri, 4 Oct 1996 08:51:03 -0400
Content-Type:
text/plain
Parts/Attachments:
text/plain (54 lines)
There was one more thing one should remember, if using
COBOL to send and execute RCL (Reflection) commands
and using "fully qualified" filenames...

The directory names are delimited with a backslash (\).
Guess what the Escape Character is in RCL?  Yup -
a backslash.

To change this, you have to execute an RCL command
SET LITERAL-ESCAPE command before anything
else, to change the escape character.  We just happen
to use two tildes (~~).

The Working-Storage Section looks like this:

34.7    01  WS-REFL-ESC-LITERAL-COM.
 34.8        05  FILLER                        PIC X(19) VALUE
 34.9            "SET LITERAL-ESCAPE ".
 35          05  FILLER                        PIC X(01) VALUE QUOTE.
 35.1        05  FILLER                        PIC X(02) VALUE "~~".
 35.2        05  FILLER                        PIC X(01) VALUE QUOTE.
 35.3

And the Procedure Division looks like this:

526.7        MOVE SPACES TO WS-REFL-COM.
526.8        MOVE WS-REFL-ESC-LITERAL-COM TO WS-REFL-COM.
526.9        DISPLAY "** Setting Escape Sequence...".
527          DISPLAY WS-REFL-COM-LINE.
527.1        ACCEPT WS-REFL-S-F-RETURN-CODE.
527.11
527.12       MOVE SPACES TO WS-REFL-COM.
527.13       MOVE "SET VARIABLE-LENGTH 300" TO WS-REFL-COM.
527.14       DISPLAY "** Setting Extended R1 Variable Length...".
527.15       DISPLAY WS-REFL-COM-LINE.
527.16       ACCEPT WS-REFL-S-F-RETURN-CODE.

The first couple of lines execute the SET LITERAL-ESCAPE
command, and the second, for grins, extends the length of the
RCL command, which has a default of 80 characters, to 300,
as we send some long DDE commands through the channel.

Just some food for thought for those contemplating using
the file transfer capabilities from within a COBOL program
and Reflection.

(BTW:  The ACCEPT WS-REFL-S-F-RETURN-CODE
statement retrieves a value sent back by Reflection.  It
contains "S" for Success and "F" for Failure.  You can
check for problems using this value.)

Best,
Joe

ATOM RSS1 RSS2