Hallo,
hier mein Beispiel:
Input-Datei TEST (PF), Field is FLD1, 3 Records (CCSID = 273)fficeffice" />>>
....+....1....+
AAAAAAAAAA >>
BBBBBBBBBB >>
CCCCCCCCCC >>
> >
Output-Streamfile in Hex (CCSID = 273)>>
Rec1: C1C1C1C1 C1C1C1C1 C1C10D
>>
Rec2: 0AC2C2C2 C2C2C2C2 C2C2C20D

Rec3: 0AC3C3C3 C3C3C3C3 C3C3C30D
>>
Rec4: 0A0D

Program Code Snippets:>>
FTEST IF E DISK>>
> >
D fputs PR 10I 0 ExtProc('_C_IFS_fputs') >>
D string * value options(*string) >>
D stream like(pFILE) value >>
> >
D CRLF C Const(x'0D0A')>>
D String S 64A >>
>>
file = fopen(%trimr(filename): 'w');>>
read TEST; >>
dow not %eof(TEST); >>
String = FLD1 + CRLF; >>
if fputs(%trim(String):file) = -1; >>
leave; >>
endif; >>
read TEST; >>
enddo; >>
>>
fclose(file); >>
return; >>