home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 8 Other
/
08-Other.zip
/
JCLDOC.ZIP
/
EXGENDOC.CMD
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-02-05
|
960b
|
34 lines
@echo off
@ECHO >FLOWCHRT
if exist %1 goto fileok
@echo SYNTAX EXGENDOC procname [P]
@echo procname = name of proc (no suffix)
@echo P = print the flowchart
@echo with P omitted file FLOWCHRT is
@echo produced for review but not printed
@echo FLOWCHART USES SPECIAL PRINT CNTL SO
@echo THIS PROC MUST PRINT FLOWCHRT
@echo %1 file missing... run aborted
goto done
:fileok
DEL CTLIN
DEL SORTWK
DEL SYSFLOW
SET PROCIN=%1
SET SYSPUNCH=SYSPUNCH[N80]
if exist %1.ctl goto ctlok
ECHO H-MGRNAME=USER >%1.CTL
:ctlok
SET SYSIN=%1.ctl
SET SYSFLOW=SYSFLOW[U100]
SET SORTWK=SORTWK
SET FLOWPRT=FLOWCHRT[U99]
SET SYSSEC=SYSSEC[F1000]
SET CTLIN=CTLIN[U100]
GENDOC4 321144000
IF %2T == PT GOTO PRINT
GOTO DONE
:PRINT
COPY SPDOC.PRT+FLOWCHRT+SPDOC1.prt+spe1.prt LPT1
:DONE