FOCUS program :

-*
-*  This process will generate a requirements listing of all specified
-*  degrees.
-*
-*  Create transactions to feed into DBA100.
-*
JOIN CLEAR *
DEFINE FILE DRFILE
CHK_DEG/A2=EDIT(PLAN_RQMNT_NAME,'99');
CHK_MJR/A2=EDIT(PLAN_RQMNT_NAME,'$$$$$$$$$99');
OUT_REC/A40=('R               '|PLAN_RQMNT_NAME|CATALOG_BEGIN);
END
TABLE FILE DRFILE
PRINT OUT_REC
ON TABLE SAVE AS MJRLST
WHERE (CHK_DEG EQ 'AS') OR (CHK_DEG EQ 'HS') OR
      (CHK_DEG EQ 'TS'); 
WHERE (CHK_MJR EQ 'ZZ');
WHERE (CATALOG_END EQ '');
END
JOIN CLEAR *


Typical DCL Command Procedure to run the program :

$ OPEN/READ input_file MJRLST.FTM
$READ_MORE:
$ READ/END_OF_FILE=END_READ input_file in_record
$    OPEN/WRITE output_file SI$DATA:DBA100PRM.DAT
$    output_record = "PGM=DBA100,RUNTYPE=I,UPDATE=N,OPTION1=N,OPTION2=N,"
$    WRITE output_file output_record  
$    output_record = "OPTION3=N,OPTION4=N,OPTION5=N,OPTION6=N"
$    WRITE output_file output_record  
$    WRITE output_file in_record  
$    CLOSE output_file
$    SUBMIT/NOPRINT/NOTIFY SI$COM:DJA100
$    SYNCHRONIZE DJA100
$ GOTO READ_MORE
$END_READ:
$ CLOSE input_file
$ EXIT

This page hosted by Get your own Free Homepage