cim load for36.4.17.5 Label Detail Maintenance

By -

{mfdeclre.i}
DEFINE VARIABLE m_file_path         AS CHARACTER FORMAT "x(50)" NO-UNDO INITIAL "/home/mfg/" .
DEFINE VARIABLE m_csv_file          AS CHARACTER FORMAT "x(50)" NO-UNDO INITIAL "Demo2.csv".
DEFINE VARIABLE m_cim_file          AS CHARACTER FORMAT "x(40)" NO-UNDO.
DEFINE VARIABLE m_out_file          AS CHARACTER FORMAT "x(40)" NO-UNDO.
DEFINE VARIABLE m_cim_errline       AS CHARACTER FORMAT "x(75)".
DEFINE VARIABLE m_cim_err           AS CHARACTER NO-UNDO INITIAL NO.
DEFINE VARIABLE m_cim_errdesc       AS CHARACTER NO-UNDO FORMAT "x(85)".

DEFINE TEMP-TABLE tt_label
    FIELD tt_field      AS  CHARACTER FORMAT "x(80)"
    FIELD tt_program    AS  CHARACTER FORMAT "x(80)"
    FIELD tt_term       AS  CHARACTER FORMAT "x(80)"
   /* FIELD tt_long       AS  CHARACTER FORMAT "x(80)"
    FIELD tt_short      AS  CHARACTER FORMAT "x(80)"
    FIELD tt_small      AS  CHARACTER FORMAT "x(80)"
    FIELD tt_stack      AS  CHARACTER FORMAT "x(80)"*/
    FIELD tt_err        AS  CHARACTER FORMAT "x(50)"
    FIELD tt_errdesc    AS  CHARACTER FORMAT "x(50)" .


FORM
    m_file_path     COLON 25    LABEL "Input/Output Path"
    m_csv_file      COLON 25    LABEL "CSV File Name"
    WITH FRAME a SIDE-LABELS.

EMPTY TEMP-TABLE tt_label.
REPEAT:
    UPDATE
        m_file_path        
        m_csv_file        
    WITH FRAME a.

    FOR EACH tt_label:
        DELETE tt_label.
    END.

    INPUT FROM VALUE (m_file_path + m_csv_file).
    REPEAT:
            CREATE tt_label.
            IMPORT DELIMITER "," tt_label.
    END.
    INPUT CLOSE.

    FOR EACH tt_label :
        m_cim_file = tt_field + tt_term + ".cim".               /*SG1*/ /* Add tt_term */
        m_out_file = REPLACE(m_cim_file,"cim","out") NO-ERROR.
        OUTPUT TO VALUE(m_file_path +  m_cim_file).

        PUT UNFORMATTED
            string('"' + tt_field + '"') SPACE
            string('"' + tt_program + '"') SPACE .
        PUT SKIP.
        PUT
            string('"' + tt_term + '"')  FORMAT "x(80)" SPACE
           /* string('"' + tt_long + '"')  FORMAT "x(80)" SPACE
            string('"' + tt_short + '"') SPACE
            string('"' + tt_small + '"')  SPACE
            string('"' + tt_stack + '"') FORMAT "x(80)" SPACE*/
            "." SKIP.


       OUTPUT CLOSE.
       cimloop:
           DO TRANSACTION ON ERROR UNDO cimloop, LEAVE cimloop:
             
               OUTPUT TO  VALUE(m_file_path  + m_out_file).    
             
               INPUT FROM VALUE(m_file_path  + m_cim_file).
         
               {gprun.i ""gplbldmt.p""}
                 
               INPUT  CLOSE.                              
               OUTPUT CLOSE.
               INPUT FROM VALUE(m_file_path  + m_out_file).    
               REPEAT:                                    
                   ASSIGN                                
                       m_cim_errline = "".                

                   IMPORT UNFORMATTED m_cim_errline.      
                   IF INDEX(m_cim_errline,"**")    <> 0 OR
                   INDEX(m_cim_errline,"ERROR")    <> 0 THEN
                   DO:
                       OUTPUT TO  VALUE(m_file_path + "error.err") APPEND.
                       PUT tt_field tt_program tt_term m_cim_errline SKIP.              /*SG1*/ /* Add m_cim_errline*/
                       OUTPUT CLOSE.
                       ASSIGN                            
                           m_cim_err = "YES"              
                           m_cim_errdesc = m_cim_errline  NO-ERROR.
                           LEAVE.                      
                   END.  /* end of index */
               END.      /* End of Repeat*/                    
               INPUT  CLOSE.
               IF m_cim_err = "YES" THEN UNDO cimloop, LEAVE cimloop.
               ELSE                                          
               DO:
                   m_cim_err = "NO".
                    OS-DELETE VALUE(m_file_path + m_cim_file).
                   OS-DELETE VALUE(m_file_path  + m_out_file).
                 END.  /* m_cim_err */    
           END. /*DO*/
           ASSIGN
                  tt_err       =   m_cim_err
                  tt_errdesc   =   m_cim_errdesc.
     

    END. /*For each*/
    MESSAGE "Procedure complete" .
END. /*repeat*/

Comments

Post a Comment

Popular posts from this blog

Progress 4GL interview questions for QAD technology

By -
1.        What is “No-undo” in the variable declaration? 2.        What are the different .pf parameters 3.        What are the different types of  locks in progress? Explain with example. If a record is locked Exclusively, can a shared lock be provided over the same? 4.        What are different type of procedures in progress? Can internal procedure call other internal procedure? If yes how? If no why no? Can external procedure call internal procedures? 5.        How is array defined in progress? What is the limit of extent for progress? Can we create 2 dimensional / multi dimensional arrays in progress / How? If no then how can we achieve the same? 6.        What are browses? 7.        What are queries? 8.        Can we call excel application from progress? How? 9.        What is the difference between can-find and find? 10.     What are the different types of triggers available in progress? Name few database level triggers. 11.     What are the different type
Read more

QAD interview questions for SE and Eb2 version

By -
1.       What is the difference between WO close and WO accounting close. 2.       What are the different types of transaction types in mfg-pro 3.       What is tag count when it is used 4.       Explain the purchase cycle 5.       What is the difference between the WO module and Repetitive  module. 6.       Explain the Payment cycle 7.       Explain the Sales Cycle 8.       What is a schedule order 9.       Explain GTM why and where it can be used 10.   How can u ensure that the supplier is given a schedule on a particular day of the week say only on Monday. 11.   What is MRP .What are the different types of MRP 12.   Can the  status of the the material can be changed 13.   What are financial transactions passed when you do voucher and payments. 14.   What are the transaction  passed when the payment is made 15.   The financial transaction passed when the sales  order is  updated. 16.   What are the primary input for MRP explain  in details 17.   Expl
Read more

Use of API in QAD EE

By -
/*Sample API Program to create currency in QAD EE*/ {us/mf/mfdtitle.i} {us/bbi/gplabel.i} {us/wb/wbrp01.i}         {us/gl/glsec.i} {us/gp/gpuid.i} {proxy/bcurrencydef.i } /* ======== FOR API ========= */ DEFINE VARIABLE viReturn                     AS INTEGER     NO-UNDO. DEFINE VARIABLE ilReturnDataset              AS LOGICAL     NO-UNDO. DEFINE VARIABLE ilPartialUpdate              AS LOGICAL     NO-UNDO. DEFINE VARIABLE icPartialUpdateExceptionList AS CHARACTER   NO-UNDO. DEFINE VARIABLE ocPrimaryKey                 AS CHARACTER   NO-UNDO. DEFINE VARIABLE ocRowid                      AS CHARACTER   NO-UNDO. DEFINE VARIABLE oiDraftInstance              AS INTEGER     NO-UNDO. DEFINE VARIABLE ocPrimaryKeyName             AS CHARACTER   NO-UNDO. DEFINE VARIABLE vho                          AS HANDLE. DEFINE VARIABLE oiReturnStatus               AS INTEGER     NO-UNDO. empty temp-table tCurrency. for first RoundingMethod no-lock where RoundingMethodCode = "
Read more