00010008PROC 0 PRM()
00020008/* THIS CLIST CAN BE USED TO INVOKE MVS/QUICKREF USING THE
00030008/* ISPF LIBDEF FACILITY. THIS CLIST SUPPORTS NESTED
00040008/* MVS/QUICKREF INVOCATIONS AND THE "FAST-PATH" INVOCATION
00050008/* METHOD.
00060008/*
00070008/* IF YOU MODIFY THE ISPF COMMANDS TABLE BY ADDING THE "QW"
00080008/* COMMAND, AND YOU WANT THE QW COMMAND TO INVOKE THIS
00090008/* CLIST, THEN THE ISPF COMMANDS TABLE ENTRY YOU ADD SHOULD
00100008/* LOOK LIKE THIS:
00110008/*
00120008/*   QW   0   SELECT CMD(%QW PRM('&ZPARM') NEWAPPL(QWRF))
00130008/*
00140008IF &SYSISPF ^= ACTIVE THEN DO
00150008  WRITE THIS CLIST MUST BE EXECUTED UNDER ISPF - TRY AGAIN
00160008  EXIT
00170008  END
00180008CONTROL MAIN NOMSG
00190008IF &LENGTH(&STR(&PRM)) < 3 THEN SET &PRM = ''
00200012ISPEXEC LIBDEF ISPPLIB DATASET ID('TECH.QW.V40.PANELS')
00210012ISPEXEC LIBDEF ISPMLIB DATASET ID('TECH.QW.V40.MESSAGES')
00220012ISPEXEC LIBDEF ISPTLIB DATASET ID('TECH.QW.V40.TABLES')
00230012ISPEXEC LIBDEF ISPLLIB DATASET ID('TECH.QW.V40.LINKLIB')
00240012ALLOC F(QWREFDD) DA('TECH.QW.V40.DATABASE') SHR REUS
00250009/*   ALLOC F(QWREFDDU) DA('?????????') SHR REUS    */
00260008/*   ALLOC F(QWPARMS) DA(????????) SHR REUS  <OPTIONAL PARMS */
00270008ISPEXEC SELECT PGM(QWIKREF1) PARM(&PRM)
00280008ISPEXEC LIBDEF ISPPLIB
00290008ISPEXEC LIBDEF ISPMLIB
00300008ISPEXEC LIBDEF ISPTLIB
00310008ISPEXEC LIBDEF ISPLLIB
00320008FREE F(QWREFDD)
00330008FREE F(QWREFDDU)
00340008/*   FREE F(QWPARMS)   */