Conference ilbbak::ibi_focus

466.0. "Holding a DIF file problem" by ESSB::MCGLENNON () Wed Oct 09 1991 13:45

    I have a problem with holding a DIF file. The following procedure runs
    fine if I use and ON TABLE HOLD AS NEW FORMAT DOC but when I use format
    DIF it just appears with 
    	
    NUMBER OF RECORDS IN TABLE = 843 LINES = 95 and then it hangs for hours??!!
    It produces the DOC file instantaneously. 
    
    Here is the procedure
    
    SET NODATA = ' '
    -*SET MISSING = ON
    
    DEFINE FILE ONETWO
    MAJOR/A25=IF P_PROD_DESC EQ 'VAX ACMS'
    OR 'DECforms'
    OR 'FMS/FMS-11'
    OR 'VAX TDMS'
    OR 'VAX DSM'
    OR 'VAX ACMS'
    OR 'DECmessageQ'
    OR 'DECINTACT'
    OR 'DECtp Desktop on ACMS'
    
    OR 'ULTRIX TCP/IP'
    OR 'SCO ODT (OPEN DKTOP)'
    OR 'SCO UNIX SYST.V/386'
    OR 'SCO UNIX FOR AD433'
    OR 'SCO MPX'
    OR 'SCO PORTFOLIO'
    OR 'SOFTpc/ULTRIX'
    OR 'ULTRIX DW/MOTIF'
    OR 'DECwindows'
    OR 'DESKTOP/VMS'
    OR 'RMS/JOURNALING'
    OR 'VAX CLUSTER SW'
    OR 'VMS'
    OR 'VMS INTEG.POSIX (VIP)'
    OR 'VMS WS SW'
    OR 'VOLUME SHADOWING'
    
    OR 'ULTRIX PAK Generator'
    OR 'SERVICE PAK'
    OR 'CD-ROM'
    OR 'DECexplorer'
    
    THEN P_PROD_DESC
    ELSE 'ZZ-OTHER-ZZ';
    FCAST/D6.2=IF M_MNGR_NAME NE 'XX' THEN 0;
    GOAL/D6.2=IF M_MNGR_NAME NE 'XX' THEN 0;
    PERFOR/D6.2=IF M_MNGR_NAME NE 'XX' THEN 0;
    END
    TABLE FILE ONETWO
    
    SUM Q190 Q290 Q390 Q490 FY90TOT Q191 Q291 Q391 Q491 FY91TOT
    
    -*AND COMPUTE
    -*FY90TOT/D9.2=C2+C3+C4+C5;
    -*FY91TOT/D9.2=C6+C7+C8+C9;
    
    BY M_MNGR_NAME NOPRINT
    BY MAJOR AS PRODUCT
    
    FOR M_MNGR_NAME
    'ANDY BRAY' TO 'VINCENT JULLIEN' AS MLP LABEL MANAGER
    OVER
    DATA 0,$ AS 'G' LABEL G
    OVER
    DATA 0,$ AS 'F' LABEL F
    OVER
    RECAP P/D6.2= (F/G) * 100;
    
    
    ON M_MNGR_NAME SKIP-LINE
    ON M_MNGR_NAME SUB-TOTAL
    ON TABLE HOLD AS NEW FORMAT DIF 
    END
    
    Can anybody help 
    
    Derville
    

    The first thing I would do is compact that first define field into as 
    	few lines as possibile.  there used to be a limit in the parser as 
    	to max lines to a ;.  If it noworky Then I would test it by generating
    	 a report 
    	only (take out the DIF save).