/* -

 * Create the data queues used by the demo model and client -

 * in library specified by parameter -

 */

 

             PGM        PARM(&LIB)

 

             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)

 

             CRTDTAQ    DTAQ(&LIB/MDLI) MAXLEN(64512) +

                          AUTORCL(*YES) TEXT('Template input to +

                          Model of MVC')

 

             CRTDTAQ    DTAQ(&LIB/MDLO) MAXLEN(64512) +

                          SEQ(*KEYED) KEYLEN(6) AUTORCL(*YES) +

                          TEXT('Template output to Model of MVC')