Backbutton

Example 23

Example 23 - Copying a CANDE file from an ASeries ISO9660 Data CD as ALIGNED180
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=ALIGNED180,FRAMESIZE=48));
COPY TEXTBOOK FROM #MYTESTVOLUME(CD,LOCKEDFILE,SCRATCHPOOL=ISO9660,HOSTNAME=LOCAL)[T];

END;
 
Example23
 
  1. Since the FILESTRUCTURE of the file on the ISO9660 partition should have a FILESTRUCTURE = ALIGNED180, a label equation was applied to specify BLOCKSTRUCTURE and FRAMEESIZE.
  2. Each file in the source file list is given an INTNAMEderived from it's ordinal position in the source list. The 1st file is given the INTNAME FILE000001, and the number increments.