? BEGIN JOB BYTESTREAM/CONVERT;                                                   00100100
NOJOBSUMMARYIO;                                                                   00100200
                                                                                  00110000
    % THIS JOB ILLUSTRATES HOW FTP CAN BE USED TO CONVERT A BYTESTREAM            00110020
    % FILE TO A RECORD-ORIENTED FILE ON THE SAME HOST. THIS PARTICULAR            00110040
    % EXAMPLE IS SET UP FOR COBOL-85 SYMBOL FILES, BUT IT CAN BE                  00110060
    % ADAPTED TO ANY FILEKIND AND DATA FILES OF ANY RECORD SIZE.                  00110080
                                                                                  00110100
    % TO USE, REPLACE THE NAME OF THE SOURCE FILE (THE UNIVERSAL FILE             00110120
    % NAME IN SINGLE QUOTES) AND THE DESTINATION FILE (AFTER "AS") WITH           00110140
    % YOUR NAMES OF CHOICE. REPLACE "LOCALHOST" WITH THE NAME OF YOUR             00110160
    % MCP SYSTEM (AN "HN" COMMAND ON THE ACTION LINE IN MARC OR "?HN"             00110180
    % IN CANDE WILL TELL YOU THIS). REPLACE "UC/PW" WITH YOUR USERCODE            00110200
    % AND PASSWORD. YOU DO NOT NEED TO HAVE A REMOTEUSER (RU) IN THE              00110220
    % USERDATAFILE TO RUN FTP LOCALLY. FINALLY, REPLACE THE DESTINATION           00110240
    % FAMILYNAME ("DEV") WITH THE DESIRED FAMILYNAME.                             00110260
                                                                                  00110280
    % IF NECESSARY, CHANGE THE FILEKIND, RECORDLENGTH, BLOCKINGFACTOR,            00110300
    % AND OTHER INPUT MAPPING OPTIONS AS NECESSARY FOR YOUR SITUATION.            00110320
    % SEE THE TCP/IP DISTRIBUTED SYSTEMS SERVICES OPERATIONS GUIDE                00110340
    % (8807 6385) FOR DETAILS ON INPUT MAPPING OPTIONS. NOTE THAT THE             00110360
    % BLOCKINGFACTOR AND ADD OPTIONS ARE NEW WITH HMP 6.0.                        00110380
                                                                                  00110400
    % PAUL KIMPEL, PARADIGM CORPORATION, HTTP://WWW.DIGM.COM.                     00110420
    % OCTOBER 2001.                                                               00110440
                                                                                  00200000
COPY [FTP]                                                                        00200100
    'MY/BYTE/STREAM ON DEV' AS MY/RECORD/FILE                                     00200200
         (FTPTYPE=ASCIINONPRINT, FTPSITE=                                         00200300
           "MAPIN TEXT(FILEKIND=COBOL85SYMBOL, " &                                00200400
           "RECORDLENGTH=84, BLOCKINGFACTOR=30, " &                               00200500
           "FOLD=SPACE, ADD=NONE, TAB=INTERVAL 8)")                               00200600
    FROM DISK(HOSTNAME=LOCALHOST, USERCODE=UC/PW)                                 00200700
    TO DEV(DISK);                                                                 00200800
                                                                                  00200900
? END JOB                                                                         00201000