Getting Started with TRANSACT (32247-90007)

146 Chapter8
Special Topics
Intrinsics
Figure 8-24. Accessing Intrinsics with PROC
1 system ex73;
2 define(item) filerec x(40):
3 fileref x(8):
4 fopt i(4):
5 aopt i(4):
6 bitmap i(4):
7 fnum i(4):
8 icount i(4):
9 icontrol i(4):
10 filesize i(9),init=1023;
11 define(item) comimage x(40):
12 comcr x(1)=comimage(40):
13 ncr i(4):
14 xncr2 x(1)=ncr(2):
15 error i(4):
16 parm i(4);
17 list comimage:
18 ncr:
19 error:
20 parm;
21 move (comimage) = "build ex73f;rec=-40,,,ascii;disc=10";
22 let (ncr) = 13; <<decimal equivalent of a carriage return>>|
23 move (comcr) = (xncr2);
24 proc command(%(comimage),(error),(parm));
25 list filerec:
26 fileref:
27 fopt:
28 aopt:
29 bitmap:
30 fnum:
31 icount:
32 icontrol:
33 filesize;
34 move (filerec) = "this is test data";
35 move (fileref) = "ex73f";
36 let (fopt) = 1; <<bits 14-15 = 01 = old file>>
37 let (aopt) = 1; <<bite 12-15 = 0001 = write only>>
38 let (bitmap) = 7176; << = 1110000001000 = parms 1,2,3,10>>
39 let (icount) = -40; << write 40 bytes>>
40 let (icontrol) =0; <<single space>>
41 proc fopen(%(fileref),#(fopt),#(aopt),,,,,,,#(filesize),,,,
42 #(bitmap),&(fnum));
43 proc fwrite(#(fnum),(filerec),#(icount),#(icontrol));