www.justiceforchandra.com Forum Index www.justiceforchandra.com
Justice for Chandra Levy and missing women
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

rdwrites RDWGET iSeries Scripted Web Retrieval
Goto page Previous  1, 2, 3
 
Post new topic   Reply to topic    www.justiceforchandra.com Forum Index -> www.rdwrites.com forum (part of www.justiceforchandra.com)
View previous topic :: View next topic  
Author Message
rd



Joined: 13 Sep 2002
Posts: 9218
Location: Jacksonville, FL

PostPosted: Tue Mar 20, 2012 1:16 am    Post subject: Reply with quote

RDWGETBN.BND
Code:

strpgmexp pgmlvl(*current) signature('RDWGET V1.00')
                 export    symbol(setRDWvar)
                 export    symbol(getRDWvar)
                 export    symbol(rdwBldPath)
                 export    symbol(rdwEvalPath)
                 export    symbol(rdwGetURL)
                 export    symbol(rdwPostURL)
                 export    symbol(audParseErr)
                 export    symbol(audScript)
                 export    symbol(audScriptErr)
                 export    symbol(auditScript)
                 export    symbol(rdwgetTran)
                 export    symbol(rdwOpenIFS_RO)
                 export    symbol(rdwReadIFS)
                 export    symbol(rdwCloseIFS)
endpgmexp


RDWAPIBN.BND
Code:

strpgmexp pgmlvl(*current) signature('RDWAPI V1.00')
                 export    symbol(rdwCmd)
                 export    symbol(rdwJobUser)
                 export    symbol(rdwJobName)
endpgmexp
Back to top
View user's profile Send private message Send e-mail Visit poster's website
rd



Joined: 13 Sep 2002
Posts: 9218
Location: Jacksonville, FL

PostPosted: Tue Mar 20, 2012 1:21 am    Post subject: Reply with quote

RDWGETAUD.PF
Code:

     A*****************************************************************
     A*               RDWGET iSeries Scripted Web Retrieval
     A*  File RDWGETAUD
     A*    ordered AUDTRN
     A*****************************************************************
     A          R GETAUDR                   TEXT('RDWGET script audit')
     A            AUDTRN         9  0       TEXT('Audit key')
     A                                      COLHDG('Trn')
     A            AUDKEY        10A         TEXT('Script key')
     A                                      COLHDG('Key')
     A            AUDJOB        10A         TEXT('Job')
     A                                      COLHDG('Job')
     A            AUDUSER       10A         TEXT('User')
     A                                      COLHDG('User')
     A            AUDJOBNBR      6A         TEXT('Nbr')
     A                                      COLHDG('Nbr')
     A            AUDSTMP         Z         TEXT('Date/Time')
     A                                      COLHDG('Date/Time')
     A            AUDCODE        7A         TEXT('Code')
     A                                      COLHDG('Code')
     A            AUDMSG       256A         TEXT('Msg')
     A                                      COLHDG('Msg')
     A*****************************************************************
     A          K AUDTRN


RDWGETCFG.PF
Code:

     A*****************************************************************
     A*               RDWGET iSeries Scripted Web Retrieval
     A*  File RDWGETCFG
     A*    ordered SCRIPTKEY
     A*****************************************************************
     A          R GETCFGR                   TEXT('RDWGET script config')
     A            SCRKEY        10A         TEXT('Script key')
     A                                      COLHDG('Key')
     A            SCRPATH      120A         TEXT('Script path')
     A                                      COLHDG('Script' 'path')
     A            SCRSUBDIR     40A         TEXT('Script subdirectory')
     A                                      COLHDG('Script' 'subdir')
     A            SCRFILE       40A         TEXT('Script file')
     A                                      COLHDG('Script' 'file')
     A            WRKPATH      120A         TEXT('Work path')
     A                                      COLHDG('Work' 'path')
     A            WRKSUBDIR     40A         TEXT('Work subdirectory')
     A                                      COLHDG('Work' 'subdir')
     A            WRKFILE       40A         TEXT('Work file')
     A                                      COLHDG('Work' 'file')
     A            WRKMOD        10A         TEXT('Work mod logic')
     A                                      COLHDG('Work' 'mod')
     A            INPPATH      120A         TEXT('Input path')
     A                                      COLHDG('Input' 'path')
     A            INPSUBDIR     40A         TEXT('Input subdirectory')
     A                                      COLHDG('Input' 'subdir')
     A            INPFILE       40A         TEXT('Input file')
     A                                      COLHDG('Input' 'file')
     A            INPMOD        10A         TEXT('Input mod logic')
     A                                      COLHDG('Input' 'mod')
     A            OUTPATH      120A         TEXT('Output path')
     A                                      COLHDG('Output' 'path')
     A            OUTSUBDIR     40A         TEXT('Output subdirectory')
     A                                      COLHDG('Output' 'subdir')
     A            OUTFILE       40A         TEXT('Output file')
     A                                      COLHDG('Output' 'file')
     A            OUTMOD        10A         TEXT('Output mod logic')
     A                                      COLHDG('Output' 'mod')
     A            OUTRET         3  0       TEXT('Days retention')
     A                                      COLHDG('Retain')
     A            POSTPROC      10A         TEXT('Post Process')
     A                                      COLHDG('Post' 'proc')
     A            ERRPROC       10A         TEXT('Error Process')
     A                                      COLHDG('Err' 'proc')
     A*****************************************************************
     A          K SCRKEY


RDWGETTRN.PF
Code:

     A*****************************************************************
     A*               RDWGET iSeries Scripted Web Retrieval
     A*  File RDWGETTRN
     A*    ordered TRNKEY
     A*****************************************************************
     A          R GETTRNR                   TEXT('RDWGET script tran')
     A            TRNKEY        10A         TEXT('Tran key')
     A                                      COLHDG('Key')
     A            TRNNBR         9  0       TEXT('Tran nbr')
     A                                      COLHDG('Nbr')
     A*****************************************************************
     A          K TRNKEY


RDWGETVAR.PF
Code:

     A*****************************************************************
     A*               RDWGET iSeries Scripted Web Retrieval
     A*  File RDWGETVAR
     A*    ordered VARKEY
     A*****************************************************************
     A          R GETVARR                   TEXT('RDWGET script values')
     A            VARSCR        10A         TEXT('Script key')
     A                                      COLHDG('Script')
     A            VARUSER       14A         TEXT('Script user')
     A                                      COLHDG('User')
     A            VARKEY         8A         TEXT('Value key')
     A                                      COLHDG('Key')
     A            VARVAL      1024A         TEXT('Value')
     A                                      COLHDG('Value')
     A*****************************************************************
     A          K VARSCR
     A          K VARUSER
     A          K VARKEY
Back to top
View user's profile Send private message Send e-mail Visit poster's website
rd



Joined: 13 Sep 2002
Posts: 9218
Location: Jacksonville, FL

PostPosted: Tue Mar 20, 2012 1:24 am    Post subject: Reply with quote

RDWGETC01.CLLE
Code:

/*********************************************************************/
/*               RDWGET iSeries Scripted Web Retrieval               */
/*                                                                   */
/*  CL program RDWGETC01                                             */
/*    parms: none                                                    */
/*********************************************************************/
             pgm

             dcl var(&lib) type(*char) len(10) value('RDWGET')
             dcl var(&srclib) type(*char) len(10) value('RDWRITES')

             chkobj obj(&lib/RDWGETAUD) objtype(*file)
             monmsg msgid(CPF9801) exec(do)
               crtpf file(&lib/RDWGETAUD) +
                 srcfile(&srclib/RDWGETSRC) +
                 size(1000000 10000)
             enddo

             chkobj obj(&lib/RDWGETCFG) objtype(*file)
             monmsg msgid(CPF9801) exec(do)
               crtpf file(&lib/RDWGETCFG) +
                 srcfile(&srclib/RDWGETSRC)
             enddo

             chkobj obj(&lib/RDWGETTRN) objtype(*file)
             monmsg msgid(CPF9801) exec(do)
               crtpf file(&lib/RDWGETTRN) +
                 srcfile(&srclib/RDWGETSRC)
             enddo

             chkobj obj(&lib/RDWGETVAR) objtype(*file)
             monmsg msgid(CPF9801) exec(do)
               crtpf file(&lib/RDWGETVAR) +
                 srcfile(&srclib/RDWGETSRC)
             enddo

             chkobj obj(&lib/RDWGET) objtype(*bnddir)
             monmsg msgid(CPF9801) exec(do)
               crtbnddir bnddir(&lib/RDWGET)
                 addbnddire bnddir(&lib/RDWGET) +
                   obj((&lib/RDWAPISV))
                 addbnddire bnddir(&lib/RDWGET) +
                   obj((&lib/RDWGETSV))
             enddo

             chkobj obj(&lib/RDWAPISV) objtype(*srvpgm)
             monmsg msgid(CPF9801) exec(do)
               crtrpgmod module(&lib/RDWAPISV) +
                 srcfile(&srclib/RDWGETSRC)
               crtsrvpgm srvpgm(&lib/RDWAPISV) +
                 srcfile(&srclib/RDWGETSRC) +
                 srcmbr(RDWAPIBN)
             enddo

             chkobj obj(&lib/RDWGETSV) objtype(*srvpgm)
             monmsg msgid(CPF9801) exec(do)
               crtrpgmod module(&lib/RDWGETSV) +
                 srcfile(&srclib/RDWGETSRC)
               crtsrvpgm srvpgm(&lib/RDWGETSV) +
                 srcfile(&srclib/RDWGETSRC) +
                 srcmbr(RDWGETBN)
             enddo

             chkobj obj(&lib/RDWGET) objtype(*pgm)
             monmsg msgid(CPF9801) exec(do)
               crtbndrpg pgm(&lib/RDWGET) +
                 srcfile(&srclib/RDWGETSRC)
             enddo

             chkobj obj(&lib/TESTCGIGET) objtype(*pgm)
             monmsg msgid(CPF9801) exec(do)
               crtbndrpg pgm(&lib/TESTCGIGET) +
                 srcfile(&srclib/RDWGETSRC)
             enddo

             chkobj obj(&lib/RDWRTVMSGI) objtype(*pgm)
             monmsg msgid(CPF9801) exec(do)
               crtbndcl pgm(&lib/RDWRTVMSGI) +
                 srcfile(&srclib/RDWGETSRC) +
                 actgrp(RDWRITES)
             enddo

             chkobj obj(&lib/RDWMSGF) objtype(*msgf)
             monmsg msgid(CPF9801) exec(do)
               crtmsgf msgf(&lib/RDWMSGF)

               addmsgd msgid(RDW0015) +
                 msgf(&lib/RDWMSGF) +
                 msg('&1 script key not found.') +
                 fmt((*char 10))

               addmsgd msgid(RDW0016) +
                 msgf(&lib/RDWMSGF) +
               msg('Max script call stack exceeded with call to &1') +
                 fmt((*char 10))

               addmsgd msgid(RDW0017) +
                 msgf(&lib/RDWMSGF) +
                 msg('Script &1 already in script call stack.') +
                 fmt((*char 10))

               addmsgd msgid(RDW0018) +
                 msgf(&lib/RDWMSGF) +
     msg('Parsing position &1 of &2 exceeded output length.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0019) +
                 msgf(&lib/RDWMSGF) +
                 msg('&1 script file not found.') +
                 fmt((*char 10))

               addmsgd msgid(RDW0020) +
                 msgf(&lib/RDWMSGF) +
msg('Unexpected special character parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0021) +
                 msgf(&lib/RDWMSGF) +
msg('Field exceeds rdwField length parse error at position &1 of &2') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0022) +
                 msgf(&lib/RDWMSGF) +
              msg('Unexpected EOF parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0023) +
                 msgf(&lib/RDWMSGF) +
            msg('Unexpected label parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0024) +
                 msgf(&lib/RDWMSGF) +
               msg('Unexpected & parse error at position &1 of &2.')  +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0025) +
                 msgf(&lib/RDWMSGF) +
          msg('Unsupported opcode parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0026) +
                 msgf(&lib/RDWMSGF) +
    msg('Unsupported result field parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0027) +
                 msgf(&lib/RDWMSGF) +
            msg('Unexpected slash parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0028) +
                 msgf(&lib/RDWMSGF) +
              msg('Unexpected EOL parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0029) +
                 msgf(&lib/RDWMSGF) +
           msg('Unexpected string parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0030) +
                 msgf(&lib/RDWMSGF) +
                msg('Unexpected + parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0031) +
                 msgf(&lib/RDWMSGF) +
          msg('Unexpected operand parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0032) +
                 msgf(&lib/RDWMSGF) +
msg('Field exceeds Operand length parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0033) +
                 msgf(&lib/RDWMSGF) +
                msg('Unexpected % parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0034) +
                 msgf(&lib/RDWMSGF) +
        msg('Unsupported function parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0035) +
                 msgf(&lib/RDWMSGF) +
        msg('Unsupported argument parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0036) +
                 msgf(&lib/RDWMSGF) +
      msg('Unsupported read state parse error at position &1 of &2.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0037) +
                 msgf(&lib/RDWMSGF) +
                 msg('&1 script work file not found,') +
                 fmt((*char 10))

               addmsgd msgid(RDW0038) +
                 msgf(&lib/RDWMSGF) +
               msg('Required string at position &1 of &2 not found.') +
                 fmt((*char *vary) (*char))

               addmsgd msgid(RDW0039) +
                 msgf(&lib/RDWMSGF) +
                 msg('&1 script completed.') +
                 fmt((*char 10))
             enddo

             endpgm
Back to top
View user's profile Send private message Send e-mail Visit poster's website
rd



Joined: 13 Sep 2002
Posts: 9218
Location: Jacksonville, FL

PostPosted: Tue Mar 20, 2012 1:28 am    Post subject: Reply with quote

RDWGETC02.CLLE
Code:

/*********************************************************************/
/*               RDWGET iSeries Scripted Web Retrieval               */
/*                                                                   */
/*  CL program RDWGETC02                                             */
/*    RDWGETSRC migration CL to IFS                                  */
/*    parms: ifsdir        destination IFS subdirectory              */
/*                         assumes subdirectory to IFS directory     */
/*                         with same name as source file             */
/*********************************************************************/
             pgm (&ifsdir)

             dcl var(&srclib) type(*char) len(10) value('RDWGET')
             dcl var(&srcfile) type(*char) len(10) value('RDWGETSRC')
             dcl var(&ifsdir) type(*char) len(10)

             clrpfm file(QTEMP/SRCMBRS)
             monmsg msgid(CPF0000)

             dspfd file(&srclib/&srcfile) type(*mbr) +
               output(*outfile) outfile(QTEMP/SRCMBRS)

            /* copy members to IFS directory */
             call RDWGETC03 parm(&ifsdir)

             endpgm


RDWGETC03.CLLE
Code:

/*********************************************************************/
/*               RDWGET iSeries Scripted Web Retrieval               */
/*                                                                   */
/*  CL program RDWGETC03                                             */
/*    RDWGET source migration CL to IFS                              */
/*    parms: ifsdir        destination IFS directory                 */
/*                         assumes subdirectory to IFS directory     */
/*                         with same name as source file             */
/*********************************************************************/
             pgm (&ifsdir)

             dcl var(&ifsdir) type(*char) len(10)

             dclf file(QTEMP/SRCMBRS)

             dowhile '1'
               rcvf
               monmsg msgid(CPF0864) exec(leave)
               cpytostmf frommbr('/qsys.lib/' *tcat &mblib *tcat +
                          '.lib/' *tcat &mbfile *tcat '.file/' +
                          *tcat &mbname *tcat '.mbr') tostmf('/' +
                          *tcat &mbfile *tcat '/' *tcat &ifsdir +
                          *tcat '/' *tcat &mbname *tcat '.' *tcat +
                          &mbseu2) stmfcodpag(*pcascii)
               monmsg msgid(CPF0000) exec(leave)
             enddo

             endpgm


RDWRTVMSGI.CLLE
Code:

/*********************************************************************/
/*               RDWGET iSeries Scripted Web Retrieval               */
/*                                                                   */
/*  CL program RDWRTVMSGI                                            */
/*                                                                   */
/*    Retrieve message with substitutions by msg id                  */
/*                                                                   */
/*    parms: msgf     message file                                   */
/*           msgid    message id                                     */
/*           msgdta   substitution data (if defined)                 */
/*           msgret   retrieved message                              */
/*********************************************************************/
             pgm (&msgf &msgid &msgdta &msgret)

             dcl var(&msgf) type(*char) len(10)
             dcl var(&msgid) type(*char) len(7)
             dcl var(&msgdta) type(*char) len(32)
             dcl var(&msgret) type(*char) len(132)
             dcl var(&retlen) type(*dec) len(5 0) value(132)

             rtvmsg msgid(&msgid) msgf(&msgf) msgdta(&msgdta) +
                          msg(&msgret) msglen(&retlen)

             endpgm
Back to top
View user's profile Send private message Send e-mail Visit poster's website
Display posts from previous:   
Post new topic   Reply to topic    www.justiceforchandra.com Forum Index -> www.rdwrites.com forum (part of www.justiceforchandra.com) All times are GMT - 4 Hours
Goto page Previous  1, 2, 3
Page 3 of 3

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group