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; |
![]() |
|