| Richard Steiner 2004-09-01, 3:55 am |
| Here in comp.lang.cobol, LX-i <lxi0007@netscape.net> spake unto us, saying:
>I've recently gotten into some more complex ECL (Executive Control
>Language, on the Unisys 2200-style mainframes), and their test condition
>is the same - it seems backwards from the way the 3GL languages do
>If/Else constructs. I still don't have a good enough grasp of it
>(without the manual at my fingertips) to throw together a little example
>here...
That's one of the reasons I tended to use CALL macros for my own stuff
(with bits of ECL embedded in appropriate places as needed) instead of
using vanilla ECL runstreams. It's a very powerful option.
Here's a little CALL code snippet as an example:
if option('S') then
write '@fjtb';
if parameter(1) = '' then
write 'COPY FLT::FLT*SYSERRSUMMRY.,FLT*SYSERRSUMMRY.,DDP';
else
write 'COPY FLT::FLT*SYSERRSUMMRY(-'||parameter(1)||
').,FLT*SYSERRSUMMRY.,DDP';
endif;
write '@eof';
write '@copy,i flt*syserrsummry.,flt*syserr.'||start_date;
write '@eof';
if parameter(1) = '' then
print 'FLT*SYSERRSUMMRY from FLT will be copied to FLT*SYSERR.'
||start_date;
else
print 'FLT*SYSERRSUMMRY(-'||parameter(1)||'). from FLT will be'
||' copied to FLT*SYSERR.'||start_date;
endif;
endif;
if not option('X') then
print 'Note: Combined report has been written to '||
'TPF$.CONSCHK/REPORT';
query test1 with 'Do you want to view the full report (y/N)?';
if test1 = 'Y' or test1 = 'y' then
if total_lines > 23 then
write '@cshell*cshell.more tpf$.conschk/report';
else
write '@eof';
endif;
endif;
endif;
If you've ever used OS2200 command-line tools like UEDIT, FINDREF, or
CSHELL, this is the macro language they are written in. FWIW.
--
-Rich Steiner >>>---> http://www.visi.com/~rsteiner >>>---> Eden Prairie, MN
OS/2 + eCS + Linux + Win95 + DOS + PC/GEOS + Executor = PC Hobbyist Heaven!
Applications analyst/designer/developer (14 yrs) s ing employment.
See web site above for resume/CV and background.
|