project BLF > class Mail > method InitializeMessage

Description

Initialize the message to be sent.


Parameters


oiReturnStatusoutputintegerReturn status of the method.


Internal usage


BLF
method Mail.ReadHandler


program code (program1/mail.p)

assign oiReturnStatus = -98
       viExtentCount  = 0.

DO viCnt = 1 TO EXTENT(vmMessage) :
    SET-SIZE(vmMessage[viCnt]) = 0.
END.

assign oiReturnStatus = 0.