Backbutton

Example 25

Example 25 - Copying a file from an ISO9660 volume and coercing it to a CANDE FILEKIND
COPY *SYMBOL/EDITOR/TEXTBOOK AS TEXTBOOK TO #MYTESTVOLUME(CD,HOSTNAME=LOCAL, SCRATCHPOOL=ASERIES)[T];
IF (T(TASKVALUE)=0) THEN
BEGIN

T(STATUS=NEVERUSED);
T(FILE FILE000001(FILESTRUCTURE=STREAM,MAXRECSIZE=1,FILEKIND=ALGOLSYMBOL));
COPY TEXTBOOK FROM #MYTESTVOLUME(CD,LOCKEDFILE,SCRATCHPOOL=ISO9660,HOSTNAME=LOCAL)[T];

END;
 
Example25
 
  1. If a file on an ISO9660 or JOLIET partition is known to have a structure compatible with a fixed length CANDE file, as defined by the MCP procedure FILERECFORMAT, then it can be coerced into the corresponding logical file structure, by label equating the FILEKIND attribute, and ignoring the Extended Record Attributes (XAR).
  2. The XAR is ignored by setting FILESTRUCTURE = STREAM and MAXRECSIZE = 1.
  3. TheFILEKIND = ALGOLSYMBOL specified that the logical file structure be that of an A-Series ALGOLSYMBOL file.