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