* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * CL Source * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* "If it's squinky, then you know it's BrilligWare!" */ /* */ /* Source available at www.brilligware.com */ /* Brillig Enterprises (aka Chris Pando) (C)2006 */ /* */ /* This work is licensed under a Creative Commons */ /* Attribution-NonCommercial-ShareAlike License: */ /* http://creativecommons.org/licenses/by-nc-sa/2.0/legalcode */ /* */ /* */ /* */ /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /* */ /* Display All Procedures Accessed Through A Binding Directory */ /* */ /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ PGM PARM(&BNDDIR) DCL VAR(&BNDDIR ) TYPE(*CHAR) LEN( 10) DCLF FILE(DSPBNDDIR) OVRPRTF FILE(QSYSPRT) SHARE(*YES) CALL PGM(CP1600R) PARM('0') DSPBNDDIR BNDDIR(*LIBL/&BNDDIR) OUTPUT(*OUTFILE) + OUTFILE(QTEMP/DSPBNDDIR) TAG1: RCVF MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(TAG2)) DSPSRVPGM SRVPGM(&BNOBNM) OUTPUT(*PRINT) DETAIL(*PROCEXP) GOTO CMDLBL(TAG1) TAG2: CALL PGM(CP1600R) PARM('1') ENDPGM * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ILE/RPG Source * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * "If it's squinky, then you know it's BrilligWare!" * * * * * * * * Source available at www.brilligware.com * * * * Brillig Enterprises (aka Chris Pando) (c)2006 * * * * * * * * This work is licensed under a Creative Commons * * * * Attribution-NonCommercial-ShareAlike License: * * * * http://creativecommons.org/licenses/by-nc-sa/2.0/legalcode * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Keep QSYSPRT Open * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * hactgrp(*caller) dftactgrp(*no) * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ... files ... * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Fqsysprt o f 132 printer * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ... procedure interfaces ... * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ... entry interfaces ... * d cp1600r pr d eoj 1n d cp1600r pi d eoj 1n * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Mainline * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /free *InLR = eoj; Return; /end-free