PAGE 9 / 12
CREATING A SPOOL FILE
AVM – Documentation
+33 (0) 4 78 56 59 13
22-Aug-06
Fax
+33 (0) 4 72 39 91 69
Using a subject
Keyword: /SUJET=
(80 characters max.)
Using a second subject
Keyword: /SUJET1=
(80 characters max.)
Using a third subject
Keyword: /SUJET2=
(80 characters max.)
Using an OpenDesk address to send back the GCS message report to
Keyword: /MA=
(80 characters max.)
Using a company name
Keyword: /SOC=
(40 characters max.)
COBOL program sample to create an overlay
In the section “working storage”
1
WF0500Y
5 FILLER PIC X VALUE %33
5 FILLER PIC X(7) VALUE "&f0500Y"
1
WF0X
5 FILLER PIC X VALUE %33
5 FILLER PIC X(7) VALUE "&f0X"
1
WF1X
5 FILLER PIC X VALUE %33
5 FILLER PIC X(7) VALUE "&f1X"
In the section “division”
MOVE WF0500Y TO LINE
MOVE -8 TO LOUT
CALL INTRINSIC "FWRITE" USING NWLP,LINE,LOUT,\%320\
MOVE WF0X TO LINE
MOVE -5 TO LOUT
CALL INTRINSIC "FWRITE" USING NWLP,LINE,LOUT,\%320\
MOVE "GCS address" TO LINE
MOVE -20 TO LOUT
CALL INTRINSIC "FWRITE" USING NWLP,LINE,LOUT,\%320\
MOVE "recipient’s name" TO LINE
MOVE -40 TO LOUT
CALL INTRINSIC "FWRITE" USING NWLP,LINE,LOUT,\%320\
MOVE "sender’s name" TO LINE
MOVE -20 TO LOUT
CALL INTRINSIC "FWRITE" USING NWLP,LINE,LOUT,\%320\
MOVE "GCS message subject" TO LINE
MOVE -40 TO LOUT
CALL INTRINSIC "FWRITE" USING NWLP,LINE,LOUT,\%320\
MOVE WF1X TO LINE
MOVE -5 TO LOUT
CALL INTRINSIC "FWRITE" USING NWLP,LINE,LOUT,\%320\