* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * "If it's squinky, then you know it's BrilligWare!" * * * * * * * * Source available at http://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 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Generate SQL Source * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * h actgrp(*caller) dftactgrp(*no) * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ... procedure interfaces ... * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ... entry interfaces ... * d cp1150r pr d dLib 10a d dFil 10a d sLib 10a d sFil 10a d sMbr 10a d cp1150r pi d dLib 10a d dFil 10a d sLib 10a d sFil 10a d sMbr 10a * * ... external procedures ... * d crtSQLsrc pr ExtPgm('QSQGNDDL') d 583a Const d 10i 0 Const d 8a Const d 256a * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ... data structures ... * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * ... API Input Template ... * d iTmplt ds d filNam 1 258a d filLib 259 516a d filTyp 517 526a Inz('TABLE ') d srcFil 527 536a d srcLib 537 546a d srcMbr 547 556a d errLvl 557 560u 0 Inz(30) d hrdCod1 561 576 Inz('10ISO ISO SYS.00') d msgLvl 577 580u 0 Inz(0) d hrdCod2 581 583 Inz('111') * * ... API Error Data Structure ... * d errDS ds d errPrv 10u 0 Inz(%Size(errDS)) d errAvl 10u 0 Inz(0) d errMSGID 7a d 1a Inz(x'00') d errDta 240a * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Mainline * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * /free *InLR = *On; filNam = dFil; filLib = dLib; srcFil = sFil; srcLib = sLib; srcMbr = sMbr; crtSQLsrc( iTmplt : %Len(iTmplt) : 'SQLR0100' : errDS ); Return; /end-free