method CreateCMaskJournals

Description

This method creates multiple records in table CMaskJournal

Parameters

icParentRowId	input	character	Parent Row ID
iiNbrRecordsToCreate	input	integer	Number of new records to create
tCMaskJournalRef	output	temp-table	Created CMaskJournal records
oiReturnStatus	output	integer	Return status of the method.

Internal usage

unused

program code (program3/bcmask.p)

/* ====================================================================================== *
 * Method       : CreateCMaskJournals                                                     *
 * Description  : This method creates new records for the CMaskJournal table              *
 * ====================================================================================== */
 
MAIN_BLOCK:
do on error undo, throw:
    /* Default output parameters */
    empty temp-table tCMaskJournalRef.
    

    /* Execution block */
    do viI = 1 to iiNbrRecordsToCreate:
        /* Create new record */
        <M-74 run AddDetailLine
           (input  'CMaskJournal':U (icTable), 
            input  icParentRowId (icParentRowid), 
            output viFcReturnSuper (oiReturnStatus)) in BCMask>
        if viFcReturnSuper < 0 or viFcReturnSuper > 0 and oiReturnStatus = 0 then assign oiReturnStatus = viFcReturnSuper.
        if viFcReturnSuper < 0 then leave MAIN_BLOCK.        
    
        create tCMaskJournalRef.  
        buffer-copy tCMaskJournal to tCMaskJournalRef.
    end.
end. /* MAIN_BLOCK */