Subject: | |
From: | |
Reply To: | Geiser, Joe |
Date: | Thu, 3 Oct 1996 09:34:45 -0400 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Dave,
There is an example in the RCL Help file, however,
here is an example of how we do it in one of our
programs - in this case, to feed WordPerfect, of
all things...
Working-Storage Section
33 01 WS-REFL-COM-LINE.
33.1 05 WS-REFL-COM-ESC PIC X(01) VALUE %33.
33.2 05 WS-REFL-COM-FILLER PIC X(03) VALUE "&oB".
33.3 05 WS-REFL-COM PIC X(300) VALUE SPACES.
33.4
33.5 01 WS-REFL-RECEIVE-COM.
33.6 05 FILLER PIC X(08) VALUE
33.7 "RECEIVE ".
33.8 05 WS-REFL-PCFILENAME PIC X(22) VALUE SPACES.
33.9 05 FILLER PIC X(06) VALUE
34 " FROM ".
34.1 05 WS-REFL-HPFILENAME PIC X(07) VALUE SPACES.
34.2 05 WS-REFL-HPFILENAME-GROUP PIC X(07) VALUE
34.3 ".CLAIMS".
34.4 05 FILLER PIC X(08) VALUE
34.5 "; ASCII ".
and the Procedure Division Code...
527.2
527.3 MOVE SPACES
527.4 TO WS-REFL-HPFILENAME.
527.5 MOVE HP-NEXT-FILENAME
527.6 TO WS-REFL-HPFILENAME.
527.7
527.8 MOVE SPACES
527.9 TO WS-REFL-PC-FILENAME-DIR-FILE.
528 STRING PC-NEXT-FILENAME,
528.1 ".TXT"
528.2 DELIMITED BY SPACE
528.3 INTO WS-REFL-PC-FILENAME-DIR-FILE.
528.4
528.5 MOVE WS-REFL-PC-FILENAME-FOR-WP TO WS-REFL-PCFILENAME.
528.6 MOVE SPACES TO WS-REFL-COM.
528.7 MOVE WS-REFL-RECEIVE-COM TO WS-REFL-COM.
528.8 DISPLAY "** Transferring Data for Merge...".
528.9
529 DISPLAY WS-REFL-COM-LINE.
529.1 MOVE SPACES TO WS-REFL-RUN-PCLINK.
529.2 ACCEPT WS-REFL-RUN-PCLINK.
529.3
529.4 MOVE SPACES TO WS-REFL-S-F-RETURN-CODE.
529.5
529.6 IF WS-REFL-RUN-PCLINK NOT = "F"
529.7 AND WS-REFL-RUN-PCLINK NOT = SPACES
529.8 PERFORM 1060-RUN-PCLINK.
529.9
and 1060-RUN-PCLINK is...
553.7 1060-RUN-PCLINK.
553.8
553.9 ***** SUPPORT CODE FOR INITIATING FILE TRANSFER VIA REFLECTION
554 ***** WHICH REQUIRES THE USE OF PCLINK2.PUB.SYS.
554.1
554.2 MOVE "HOST STARTUP SEQUENCE INVALID"
554.3 TO WS-REFL-RETURN-CODE-REASON.
554.4
554.5 PERFORM 1060-PARSE-RUN-STATEMENT.
554.6
554.7 IF WS-REFL-LINK-PROG NOT = SPACES
554.8 CALL INTRINSIC "CREATE" USING WS-REFL-LINK-PROG
554.9 \\ WS-REFL-LINK-PIN \1\ \1\
555 IF C-CODE = 0
555.1 CALL INTRINSIC "ACTIVATE" USING WS-REFL-LINK-PIN \2\
555.2 IF C-CODE = 0
555.3 MOVE SPACES TO WS-REFL-RETURN-CODE-REASON.
555.4
556 1060-PARSE-RUN-STATEMENT.
556.1
556.2 PERFORM 1060-COMPRESS-BLANKS.
556.3
556.4 IF R-WS-REFL-RUN-PCLINK-1ST-FOUR = "RUN" OR "run"
556.5 MOVE R-WS-REFL-RUN-PCLINK-RMN-76 TO WS-REFL-RUN-PCLINK
556.6 PERFORM 1060-COMPRESS-BLANKS
556.7 MOVE WS-REFL-RUN-PCLINK TO WS-REFL-LINK-PROG
556.8 PERFORM 1060-PLACEBO
556.9 VARYING WS-REFL-J FROM 1 BY 1
557 UNTIL WS-REFL-J > 30 OR
557.1 WS-REFL-LINK-PROG-NAME (WS-REFL-J) = ";"
557.2 MOVE SPACE TO WS-REFL-LINK-PROG-NAME (WS-REFL-J).
557.3
557.9 1060-COMPRESS-BLANKS.
558
558.1 IF WS-REFL-RUN-PCLINK-1ST-BYTE = SPACE AND
558.2 WS-REFL-RUN-PCLINK NOT = SPACES
558.3 MOVE WS-REFL-RUN-PCLINK-THE-REST TO WS-REFL-RUN-PCLINK
558.4 GO TO 1060-COMPRESS-BLANKS.
558.5
559.1 1060-PLACEBO.
559.2 EXIT.
If you have any questions, Dave - please feel free to e-mail me.
There is also a good example in the RCL Windows Help file located
in the \RWIN\HELP subdirectory. (\RWIN may differ for your installation).
Good Luck!
Joe Geiser
----------
From: Dave Anderson
Sent: Monday, September 30, 1996 12:57 PM
To: [log in to unmask]
Subject: HP3000 initiated download
Once upon a time I found a post on how to make an HP 3000 initiate a
download to a PC running Reflection. I printed it and put it in a place
so safe even I cannot find it. Could someone do me the courtesy of
reposting it. I will try not to lose it a second time.
--
+---------------------------------+-----------------------------------+
|Dave Anderson Sr Tech Analyst | The more that things change, |
|GTE National E9-1-1 Support | The more they stay the same. |
| | |
[log in to unmask] | All views expressed are not mine, |
|Voice 800-872-3356 | much less those of my employer |
|Fax 915-942-4202 | |
+---------------------------------+-----------------------------------+
|
|
|