[Last Call] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

setting up program on iseries

Posted on 2006-03-29
6
Medium Priority
?
953 Views
Last Modified: 2010-05-18
I have been given a 8MB txt file which has RPG code Ineed to install it on Iseries

I have ftped the code on the server

can someone pls guide me what shall i do to set it up

----------------------------------------------------------------------------------------------------------------------

5722WDS V5R3M0  030905 RN        IBM ILE RPG             MYWEB/MYCARDR           MAJOR1     03/28/05 07:24:07        Page      1
  Command  . . . . . . . . . . . . :   CRTBNDRPG
    Issued by  . . . . . . . . . . :     DT
  Program  . . . . . . . . . . . . :   MYCARDR
    Library  . . . . . . . . . . . :     MYWEB
  Text 'description' . . . . . . . :   *SRCMBRTXT
  Source Member  . . . . . . . . . :   MYCARDR
  Source File  . . . . . . . . . . :   QSQLTEMP1
    Library  . . . . . . . . . . . :     QTEMP
    CCSID  . . . . . . . . . . . . :     37
  Text 'description' . . . . . . . :   Program to run the generic MYCARD
  Last Change  . . . . . . . . . . :   03/28/06  07:24:07
  Generation severity level  . . . :   10
  Default activation group . . . . :   *YES
  Compiler options . . . . . . . . :   *XREF      *GEN       *NOSECLVL  *SHOWCPY
                                       *EXPDDS    *EXT       *NOSHOWSKP *NOSRCSTMT
                                       *DEBUGIO   *NOEVENTF
  Debugging views  . . . . . . . . :   *ALL
  Output . . . . . . . . . . . . . :   *PRINT
  Optimization level . . . . . . . :   *NONE
  Source listing indentation . . . :   '!.'
  Type conversion options  . . . . :   *NONE
  Sort sequence  . . . . . . . . . :   *JOB
  Language identifier  . . . . . . :   *JOB
  Replace program  . . . . . . . . :   *YES
  User profile . . . . . . . . . . :   *USER
  Authority  . . . . . . . . . . . :   *LIBCRTAUT
  Truncate numeric . . . . . . . . :   *YES
  Fix numeric  . . . . . . . . . . :   *NONE
  Target release . . . . . . . . . :   V5R3M0
  Allow null values  . . . . . . . :   *NO
  Define condition names . . . . . :   *NONE
  Enable performance collection  . :   *PEP
  Profiling data . . . . . . . . . :   *NOCOL
  Licensed Internal Code options . :
  Generate program interface . . . :   *NO
  Include directory  . . . . . . . :
  Preprocessor options . . . . . . :   *NONE
 5722WDS V5R3M0  030905 RN        IBM ILE RPG    
0
Comment
Question by:royalcyber
  • 3
  • 3
6 Comments
 
LVL 27

Accepted Solution

by:
tliotta earned 1500 total points
ID: 16325007
royalcyber:

Is that a copy of the beginning of your text file? If it is, the first thing you'll want to do is strip the text file down so that it contains nothing but program source. The text you showed is the printed compile listing.

The source is probably shown later in the text file. The sample didn't go far enough to show any source.

The text will also have a bunch of extra lines at the end as well as lines for page headings throughout the listing. All of those should also be removed before sending the file to your AS/400.

Once the actual source is extracted from the text file, we can go to the next steps of preparing to receive the source on the AS/400, testing the compilation of the source and cleaning up whatever remains.

The source lines should be fairly easy to recognize.

As part of the cleanup, the source lines will also have to be fixed. Each line will have characters on both the left and the right that should be reomed. That can usually be done with a text editor that supports "block" marking.

Tom
0
 

Author Comment

by:royalcyber
ID: 16325070
yes u r exactly right


What should I ask from the other RPG developer to give me to make my installation of this app more simplier

Thankyou for all your help!!!!!!!!!!!!!!!!!!!!!!!
0
 

Author Comment

by:royalcyber
ID: 16325340
I have removed what you suggested ; now pls guide me with the next steps ........


thnaks
0
Get quick recovery of individual SharePoint items

Free tool – Veeam Explorer for Microsoft SharePoint, enables fast, easy restores of SharePoint sites, documents, libraries and lists — all with no agents to manage and no additional licenses to buy.

 
LVL 27

Expert Comment

by:tliotta
ID: 16327729
royalcyber:

Please list the first few and last few lines of the source that remains in the text file. Include something like square brackets ("[]") around one or more of the lines so we can see exactly what you're left with including leading and trailing white-space.

Hmmm... I also see a complication...

Your example shows that the original sourcefile was named 'QSQLTEMP1' in library QTEMP. That means that the source is actually the output from the SQL preprocessor for RPG. If you don't have the SQL Development Kit installed, then I don't think the compile is going to work. (It'll be interesting to test.)

And if you _do_ have the product installed, then this is not the way you want to be working with this source unless this is a one-time kind of test.

Tom
0
 
LVL 27

Expert Comment

by:tliotta
ID: 16402444
royalcyber:

Can you list some of the remaining records? The format that remains will determine how to finish. Leading spaces may be important for example.

Tom
0
 

Author Comment

by:royalcyber
ID: 16407819
hi tom,

here are some more lines of code....


 form top :


Line   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
                          S o u r c e   L i s t i n g
     1 A*                                                                                                        060127     000006
     2 A*                      PULL     PULL A CARD                                                              060127     000007
     3 A*                      UNPULL   UNPULL A CARD. IF THERE IS PROMISE TO PAY                                060127     000008
     4 A*                                THEN ADDITIONAL AMOUNT WILL BE RETURNED,                                060127     000009
     5 A*                                THE REMAINDER LESS FEES WILL BE RETURNED                                060127     000010
     6 A*                                END OF THE PRE-AUTH REQUEST TIME FROM THE                               060127     000011
     7 A*                                PROCESSOR.                                                              060127     000012
     8 A*                      BALANCE  RETURNS THE TOTAL BALANCE AND RE                                         060127     000013
     9 A*                      ALLTRAN  ALL TRANSACTION FROM AN ACCOUNT                                          060127     000014
    10 A*                      STOP     STOP PAYMENT -   LARGE FEE TO DO                                         060127     000015
    11 A*                      CHARGE   CHARGE HAS COME THROUGH                                                  060127     000016
    12 A*                      RETURN   A RETURN HAS COME THROUGH                                                060127     000017
    13 A*                      PREAUTH  AN AMOUNT IS RESERVED                                                    060127     000018
    14 A*                      FORCE    PAID OUT FROM THE PREAUTH                                                060127     000019
    15 A*                      RES2TAKE MERCHANT RESERVE AMOUNT TO TAKE                                          060127     000020
    16 A*                      NOTTAKEN MERCHANT DID NOT TAKE THE AMOUNT                                         060127     000021
    17 A*                                                                                                        060127     000022
    18 A*                                                                                                        060127     000023
    19  *************************************************************************                                060127     000328
    20                                                                                                           060127     000329
    21                                                                                                           060127     000330
    22  *       Insurance PROCESSOR ProcessorCo                                                                  060123     000331
    23  *       Insurance IADMIN    user                                                                         060123     000332
    24  *       Processor PADMIN    user                                                                         060123     000333
    25  *                                                                                                        060123     000334
    26  *                                                                                                        060123     000335
    27  *                                                                                                        060123     000336
    28 HDEBUG(*YES)                                                                                              060108     000337
    29 H optimize(*NONE)                                                                                         060108     000338
    30 H decedit(*JOBRUN)                                                                                        060108     000339
    31 H truncnbr(*NO)                                                                                           060108     000340
    32                                                                                                           060108     000341
    33 H option(*srcstmt : *nodebugio)                                                                           060108     000342
000343 H BNDDIR('BANKNET/UTILPROC') BNDDIR('QC2LE')                                                              060108     000343
000344 H BNDDIR('BANKNET/DDASETLE')                                                                              060127     000344
000345 H dftactgrp(*NO) actgrp('VCOM     ')                                                                      060225     000345
        *--------------------------------------------------------------------*
        * Compiler Options in Effect:                                        *
        *--------------------------------------------------------------------*
        *  Text 'description' . . . . . . . :                                *
        *                 Program to run the generic VCARD                   *
        *  Generation severity level  . . . :   10                           *
        *  Default activation group . . . . :   *NO                          *
        *  Compiler options . . . . . . . . :   *XREF      *GEN              *
        *                                       *NOSECLVL  *SHOWCPY          *
        *                                       *EXPDDS    *EXT              *
        *                                       *NOSHOWSKP *SRCSTMT          *
        *                                       *NODEBUGIO *NOEVENTF         *
        *  Optimization level . . . . . . . :   *NONE                        *
        *  Source listing indentation . . . :   '!.'                         *
        *  Type conversion options  . . . . :   *NONE                        *
        *  Sort sequence  . . . . . . . . . :   *JOB                         *
 ine   <---------------------- Source Specifications ----------------------------><---- Comments ----> Do  Page  Change Src Seq
Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8....+....9....+...10 Num Line  Date   Id  Number
        *  Language identifier  . . . . . . :   *JOB                         *
        *  User profile . . . . . . . . . . :   *USER                        *
        *  Authority  . . . . . . . . . . . :   *LIBCRTAUT                   *
        *  Truncate numeric . . . . . . . . :   *NO                          *
        *  Fix numeric  . . . . . . . . . . :   *NONE                        *
        *  Allow null values  . . . . . . . :   *NO                          *
        *  Binding directory from Command . :   *NONE                        *
        *  Binding directory from Source  . :   UTILPROC     QC2LE           *
        *    Library  . . . . . . . . . . . :     BANKNET      *LIBL         *
        *                                       DDASETLE                     *
        *                                         BANKNET                    *
 

----------------------------------------------------------------------------------------------------------------------

From End :

         85                                       004476M     004545M     004792M   99000002
         86                                       004477M     004546M     004690M     004741M
                                                99000003
         87                                       004695M     004746M   99000004
         90                                       004469M     004538M     004790M   95000007
                                               103000002
         91                                       004470M     004539M     004691M     004742M
                                                95000008   103000003
         92                                       004693M     004744M   95000009   103000004
         95                                       004462M     004531M     004791M   92000008
                                               133000002
         96                                       004463M     004532M     004692M     004743M
                                                92000009   133000003
         97                                       004694M     004745M   92000010   133000004
         LR                                       005310M
         KB                                       005201
         KD                                       005209
         KF                                       004950      005214
         KG                                       004883      004987      005218      526700
         KH                                       005226
         KI                                       005240
         KJ                                       004775      005271
         KL                                       004848      005204      526400      535106
         KM                                       004847      005275      526500
       * * * * *   E N D   O F   C R O S S   R E F E R E N C E   * * * * *
 5722WDS V5R3M0  030905 RN        IBM ILE RPG                  03/28/06 07:24:07        Page    712
                      E x t e r n a l   R e f e r e n c e s
      Statically bound procedures:
         Procedure                            References
         MOD10                                    000744      236200      244700
         unlink                                   535024
         SNDMSGBN                                 000460      229400      231900      233300
                                                  234700      242000      243100      243900
                                                  248400
         DATETOTXT                                000620
         GETCVCVAL                                000736      239200      239800
         GETSYSNAME                               000742      308500
         CHECKWORDS                               000857      004433
         SETTLENOISO                              000748
      Imported fields:
         Field             Attributes         Defined
         No references in the source.
      Exported fields:
         Field             Attributes         Defined
         No references in the source.
   * * * * *   E N D   O F   E X T E R N A L   R E F E R E N C E S   * * * * *
 5722WDS V5R3M0  030905 RN        IBM ILE RPG                       03/28/06 07:24:07        Page    713
                          M e s s a g e   S u m m a r y
 Msg id  Sv Number Message text
*RNF7031 00    826 The name or indicator is not referenced.
*RNF7066 00     42 Record-Format name of Externally-Described file is not used.
*RNF7086 00     12 RPG handles blocking for the file. INFDS is updated only when
                   blocks of data are transferred.
*RNF7114 00      1 The record format specified on a CLEAR or RESET operation has
                   no output fields.
*RNF5277 10     40 Operation Extender N is ignored if the file is not an update
                   file.
       * * * * *   E N D   O F   M E S S A G E   S U M M A R Y   * * * * *
 5722WDS V5R3M0  030905 RN        IBM ILE RPG                03/28/06 07:24:07        Page    714
                            F i n a l   S u m m a r y
  Message Totals:
    Information  (00) . . . . . . . :      881
    Warning      (10) . . . . . . . :       40
    Error        (20) . . . . . . . :        0
    Severe Error (30+)  . . . . . . :        0
    ---------------------------------  -------
    Total . . . . . . . . . . . . . :      921
  Source Totals:
    Records . . . . . . . . . . . . :    21734
    Specifications  . . . . . . . . :    19950
    Data records  . . . . . . . . . :        0
    Comments  . . . . . . . . . . . :     1274
         * * * * *   E N D   O F   F I N A L   S U M M A R Y   * * * * *
 10 highest severity. Created on 03/28/06 at 07:24:18.
          * * * * *   E N D   O F   C O M P I L A T I O N * * * * *
0

Featured Post

[Webinar] Cloud and Mobile-First Strategy

Maybe you’ve fully adopted the cloud since the beginning. Or maybe you started with on-prem resources but are pursuing a “cloud and mobile first” strategy. Getting to that end state has its challenges. Discover how to build out a 100% cloud and mobile IT strategy in this webinar.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Last month Marc Laliberte, WatchGuard’s Senior Threat Analyst, contributed reviewed the three major email authentication anti-phishing technology standards: SPF, DKIM, and DMARC. Learn more in part 2 of the series originally posted in Cyber Defense …
Exchange administrators are always vigilant about Exchange crashes and disasters that are possible any time. It is quite essential to identify the symptoms of a possible Exchange issue and be prepared with a proper recovery plan. There are multiple…
this video summaries big data hadoop online training demo (http://onlineitguru.com/big-data-hadoop-online-training-placement.html) , and covers basics in big data hadoop .
Despite its rising prevalence in the business world, "the cloud" is still misunderstood. Some companies still believe common misconceptions about lack of security in cloud solutions and many misuses of cloud storage options still occur every day. …
Suggested Courses
Course of the Month18 days, 11 hours left to enroll

834 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question