home *** CD-ROM | disk | FTP | other *** search
- ECHO OFF
- CLS
- ECHO ** RM COBOL COMPILATION BATCH **
- BREAK ON
- CD \RMCOBOL
- rem %1 [program name] %2 [directory]
- bat * Make sure that we at least have a program name
- bat IF .%1 <> . SKIP 5
-
- bat -rd.1 TYPE
- bat -rd.1 READ Program name ? %4
- bat %1 = %4 | IF .%4 = . GOTO -rd.1
-
- bat IF .%2 <> . SKIP 4
-
- bat -rd.2 READ Directory name ? %5
- bat %2 = %5 | IF .%5 = . GOTO -rd.2
-
- bat TYPE Copying \%2\%1 ...
- COPY \%2\%1.CBL
- bat STATEOF C:%1.CBL
- bat IF %r = 0 SKIP 4
-
- bat BEEP %2 =
- bat GOTO -rd.1
-
- IF EXIST %1.COB DEL %1.COB
- TM/L START
- rem force copylib statements to use hard disk
- ASSIGN A=C B=C
- rem L(isting) O(bject) %3 [debug, ...]
- RMCOBOL C:%1 L L=C O=C %3
- ASSIGN
- TM/L/N STOP
- DEL %1.CBL
- DS EN
- FF %1