Backbutton

Example 24

Example 24 - Copying a file from an ISO9660 volume and ignoring A-Series File Attributes
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));
COPY TEXTBOOK FROM #MYTESTVOLUME(CD,LOCKEDFILE,SCRATCHPOOL=ISO9660,
HOSTNAME=LOCAL)[T];

END;
 
Example24
 
  1. If a file has an Extended Record Attribute (XAR) associated, but the file is needed as a FRAME STREAM file, then the XAR can be ignored by setting the FILESTRUCTURE to STREAMand theMAXRECSIZE to 1.