RE: Level check using CREATE TABLE AS (SELECT

Referring back to
http://archive.midrange.com/midrange-l/201303/msg00029.html

There were Great ideas there . . . I now know about those extras
But even with just RCDFMT - and then EXTDESC, these allowed me to slap together a quick report pgm . . .
and now I have a verfied workfile for the next step in fixing a user problem.

FCUPPL0648 IF E Disk UsrOpn
F ExtDesc('CUPVH')
F Rename( CURIH : CURPL0648 )
FCUTPL0648 O E Printer UsrOpn
F OFLIND( Overflow )
/Free

Exec SQL
Drop table qtemp/CUPPL0648 ;

Exec SQL
Create table qtemp/CUPPL0648 like CUPVH
RCDFMT CURIH ;

Exec SQL
Insert into qtemp/CUPPL0648
(SELECT * FROM CUPVH
Where IHBNO = 58914 ) ;

Report_from_WorkFile( ) ;

Exsr Endpgm ;
Begsr Endpgm ;
Close *ALL ;
Return ;
Endsr ;

/End-Free
P Report_from_WorkFile...
P B
D Report_from_WorkFile...
D PI
/Free
Open CUPPL0648 ;
Open CUTPL0648 ;
Write #HDR ;

Setll 1 CURPL0648 ;
Dou %EOF ;
If not %EOF ;
Read CURPL0648 ;
Write #DTL ;
If Overflow ;
Write #HDR ;
Endif ;
Endif ;
Enddo ;
Write #TOTL ;
Write #LRLRLR ;

/End-Free
P Report_from_WorkFile...
P E