This is an example of how I write output from an output process table for a file to send to Reform.
1 ------- - - -
- - - - - -
- - - - - -
-
_ If: ' this is sample of
sending data to a shared directory
Then: ' that is set up for
Reform
2 ------- - -
- - - - - -
- - - - - -
- -
_ If: ' this is an output
processing example
Then: ' for header/detail
type output from input processing
3 ------- - -
- - - - - -
- - - - - -
- -
_ If: ' you would build into
your printing loop using formm, etc
Then:
4 ------- - -
- - - - - -
- - - - - -
- -
_ If: '
Then:
5 ------- - -
- - - - - -
- - - - - -
- -
_ If: sw eq "1"
Then: goto cont
6 ------- - -
- - - - - -
- - - - - -
- -
_ If: ' (other one time items
for report)
Then:
7 ------- - -
- - - - - -
- - - - - -
- -
_ If:
Then: printer file "/usr/"{@id{"/formname"
8 ------- - -
- - - - - -
- - - - - -
- -
_ If:
Then: sw(1,.0,g)="1"
9 ------- - -
- - - - - -
- - - - - -
- -
cont _ If:
Then:
10 ------- - -
- - - - - -
- - - - - -
- -
_ If: ' (your output stuff
here)
Then: ' (for one record, multiple
outputs or multiple records)
11 ------- - -
- - - - - -
- - - - - -
- -
_ If:
Then: end
12 ------- - -
- - - - - -
- - - - - -
- -
@wgt _ If:
Then:
13 ------- - -
- - - - - -
- - - - - -
- -
tstout _ If:' tests if file sent by other user waiting for
Reform in shared directory
Then: ek=exists("/shared-directory/formname.OUT")
14 ------- - -
- - - - - -
- - - - - -
- -
_ If: ek eq "1"
' if is there - answers yes=1
Then: show "\r Please Wait
";sleep "1000";show"";ek="";goto tstout
------- - -
- - - - - -
- - - - - -
- -
15 If: ' just in case - if
not open permission - will confuse windows attribute
Then: system noredraw "chmod
777 /usr/"{@id{"/formname"
16 ------- - -
- - - - - -
- - - - - -
- -
_ If: ' ok - send to Reform
shared directory (unix directory, shared with winderz)
Then: system noredraw "copy
-rom /usr/"{@id{"/formname /shared-directory/formname.OUT"
17 ------- - -
- - - - - -
- - - - - -
- -
_ If:
Then: end
18 ------- - -
- - - - - -
- - - - - -
- -
Of course, there are probably other ways
to do this. Suggestions are Welcome.