Ü   RETURN Command

 

·         The RETURN command in a CL procedure or OPM program removes that procedure or OPM program from the call stack.

·         If a MONMSG command specifies an action that ends with a RETURN command, control is returned to the next sequential statement after the statement that called the procedure or program containing the MONMSG command.

·         The RETURN command has no parameters.

 

 

Example

 

 


    PGM
    DCL &NAME *CHAR 20       +
    VALUE('JOHN J.SMITH')
    DCL &ADRESS *CHAR VALUE('123 MAINSTREET APARTMENT 45')
    DCL &COMENT *CHAR 55 VALUE('LONG TIME CUSTOMER')
    DCL &CREDLIMIT *DEC (11 2) VALUE(5000)
    DCL &ACTIVE *LGL VALUE('1')
    DMPCLPGM
    CALL PGMB PARM(&NAME &ADRESS &COMENT 'PHILADEPHIA' &CREDLIMIT +
    55400.10 &ACTIVE)
    DMPCLPGM
    SNDPGMMSG ('PROCESING COMPLETE') MSGTYPE(*COMP)
    RETURN
    ENDPGM

 

 











User Comments:



Copyright © www.go4as400.com, 2013-2023. Copyright notice   Terms of services   Privacy policy