Step
|
Action
|
Value
|
---|---|---|
1
|
FTP program reads the EBCDIC packed-decimal numeric value ‘505’.
|
'505C'x
|
2
|
FTP program interprets the value as standard EBCDIC characters.
|
&*
|
3
|
FTP program converts to standard ASCII hexadecimal characters.
|
'262A'x
|
4
|
SAS flags the data as
invalid because packed-decimal numeric data is expected (based on
the specified informat value).
|
???
|
filename test1 'c:\fixed.txt' recfm=f lrecl=60; data one; infile test1; input @1 name $ebcdic20. @21 addr $ebcdic20. @41 city $ebcdic15. @56 state $ebcdic2. @58 zip $s370fpd3.; run;
filename test1 ftp "'SASEBCDIC.VB.TEST1'" host='MVS' user='SASEBCDIC' PROMPT s370v rcmd='site rdw'; data one; infile test1; input @1 name $ebcdic20. @21 addr $ebcdic20. @41 city $ebcdic10. @51 state $ebcdic2. @54 zip s370ff5. @60 comments :$ebcdic200.; run; proc print; run;
SYSUT1 DCB=(RECFM=U,BLKSIZE=32760) SYSUT2 DCB=(RECFM=U,BLKSIZE=32760) DISP=(NEW,CATLG)
filename test1 'c:\vbtest.xfr' recfm=s370vb; data one; infile test1 truncover; input @1 name $ebcdic14. @15 addr $ebcdic18. @33 zip s370ff5. @38 comment $ebcdic60.; run; proc print; run;
filename test1 'c:\VB.TEST' recfm=n; data one; infile test1; input name $ebcdic20. addr $ebcdic20. city $ebcdic10. st $ebcdic2. +1 zip s370ff5. +1 idx s370ff2. +1; do i = 1 to idx; input cars $ebcdic10. +1 years s370ff2. ; output; if i lt idx then input +1 ; end; run;