Jason wrote:
>>Hi Mark!
>> Try something like the following in CI:
>>
>>purge newfile
>>purge newfile,temp
>>file newfile;rec=-125,,f,ascii;disc=250
>>setvar i, 1
>>while i<=250
>> print file1;start=!i;end=!i >$newpass
>> input rec1 <$oldpass
>> print file2;start=!i;end=!i >$newpass
>> input rec2 <$oldpass
>> echo ![rec1]![rec2] >>*newfile
>> setvar i, i+1
>>endwhile
>>save *newfile
>>
>>Cheers,
>>Jason.
Another CI version ,
(slightly quicker runtime, though limited by memory
available for CI variables).
file FILEC;rec=-125,10,f,ascii
xeq CNV125CF FILEB < FILEA > *FILEC
Command file CNV125CF :-
parm fileb=FILEB
print !hpfile;start=-4 > tempcf
xeq tempcf.!hpgroup < !fileb
setvar n finfo(hpstdin,"eof")
while setvar(n,n-1)>=0
echo ![input()+rec!n]
endwhile
return
setvar n finfo(hpstdin,"eof")
while setvar(n,n-1)>=0
setvar rec!n input()
endwhile
And a Q&D SPL version (CM SPL comes free with every 3K I believe),
BEGIN
integer array buf(0:127);
byte array fileb(0:7):="FILEB ";
intrinsic fopen,fread,print,readx;
fileb:=fopen(fileb,7);
while (readx(buf,-100)) > 0
do print(buf,-fread(fileb,buf(50),-25)-100,0);
END.
SPLPREP SPLCNVS
$OLDPASS < FILEA > *FILEC
-----------------------------------------------------------------------------
This message is confidential; its contents do not constitute a
commitment by Paribas except where provided for in a written agreement
between you and Paribas. Any unauthorised disclosure, use or
dissemination, either whole or partial, is prohibited. If you are not
the intended recipient of the message, please notify the sender
immediately.
Ce message est confidentiel ; son contenu ne représente en aucun cas un
engagement de la part de Paribas sous réserve de tout accord conclu par
écrit entre vous et Paribas. Toute publication, utilisation ou
diffusion, même partielle, doit être autorisée préalablement. Si vous
n'êtes pas destinataire de ce message, merci d'en avertir immédiatement
l'expéditeur.
|