Failed first attempt at Result DS with EXFMT

-----Message d'origine-----
[mailto:midrange-l-bounces@xxxxxxxxxxxx] De la part de Bryce Martin


Hi everyone,

Just thought I'd use a locally described subfile for kicks.
It crashes on
the exfmt. I don't understand at all the relationship between the
different DS and the EXFMT. In the subfile control DS, there
is only the
record number field.

What am I doing wrong?





P MySp B

FMyDSPF CF E WORKSTN SFILE( MySFL_Format :
wSflCtl.ERecno

D wSflCtl DS LIKEREC ( MyCTL_Format: *ALL )
D wSfl DS LIKEREC ( MySFL_Format:
*OUTPUT )


/FREE

wSflCtl.Erecno = 0;

DOW SQLCOD = 0;

GetStuff ();
wSflCtl.Erecno += 1;

wSfl.Field1 = ...etc;
WRITE MySFL_Format wSfl;

wSFLDSP = *ON;

ENDDO;


IF wSFLDSP;

EXFMT MyCTL_Format wSflCtl;

ENDIF;


/END-FREE

P MySp E