The following job will create a file called MYFILE, and will use PROGRAM XMED to copy three sections of source code into subfiles within MYFILE.
JOB MYJOB, :USER,T???? LOAD :SUBL1B. PROGRAM XMED CREATE ! ASSIGN *LP,! ONLINE *CR CREATE MYFILE(*DA,BUCK1,KWOR16) ASSIGN *DA2,MYFILE(WRITE) ENTER 1 *OUT (FILE) * ALGOL SUBFILE1 Text of first subfile **** *ALGOL SUBFILE2 Text of second subfile **** *ALGOL SUBFILE3 Text of third subfile **** //// LISTFILE ! ,*LP ERASE ! ENDJOB ????
Note that the subfile terminator is **** and the XMED run terminator is ////. The terminator for the JOB deck must therefore be neither of these, e.g. ???? as above. The parameter *ALGOL could be replaced by either FORTRAN or *EMA.
The first of these subfiles could be included in a PLASYD program by the statement:
INCLUDE (MYFILE.SUBFILE1); or: READFROM (MYFILE.SUBFILE1)