IBM System i

3K

Solutions

2K

Contributors

IBM i, formerly known as AS/400, is a proprietary, midrange, object-based operating and application system. It includes a relational database, a menu-driven interface, support for multiple users, block-oriented terminal support and printers, and supports security, communications, and web-based application servers including Websphere, Apache and Tomcat.

Share tech news, updates, or what's on your mind.

Sign up to Post

Greetings AS/400 Gurus...

I'm attempting to tackle the upgrade from V7R1 to V7R2...
I've downloaded and loaded my keys on WRKLIC...
I've downloaded the zipped files for my Entitled Software for the V7R2 update.
I used Dowload Director and I have all of the files on my PC...
They are all still zipped...

I need to know what to do next...
I want to use Image Catalogs to perform the install of the update to V7R2...
It's been so long since I've done this, I am struggling to remember the process of moving the objects into the image catalogs on the iSeries disk... I seem to recall that I need to get the stuff from my PC onto the IFS... I'm just not sure of the process...

Do I need to unzip the files...?
Do I need to put them in a specific place on the IFS...?

I have this link:
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_71/rzahc/scenarioprepareimagecatalog.htm
But I need to move the files to the IFS before I get to this step...

Any input will be appreciated...
0
[Webinar] Cloud and Mobile-First Strategy
LVL 11
[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.

Hi All,
The below is the requirement.
I have multiple queues  as below and i want to retrieve only specific output queues . These specific queue represent each day e.g
MON1,TUE1,WED1,THU1,FRI1 .These output queues are placed in random order and are in 'RDY' status in the queue.
Every day when the spool file comes into a specific queue , it should be copied into a physical file.
For Eg. On Monday, once the spool file SPOOLF1 is present in the output queue MON1, it should be immediately written to the physical file even if it is empty.There are many  other spool files present in MON1, however, the copy should be performed only to the specific file SPOOLF1 for MON1.

On similar lines, once the spool file SPOOLF1 comes to TUE1 queue , it should immediately be copied to another physical file and so on and so forth for queues WED1,THU1 and FRI1.

Work with all output queues:

Queue          Library
A                    XYZ
MON1           XYZ
C                    XYZ
D                   XYZ
TUE1             XYZ
F                    XYZ
H                    
I
WED1          XYZ
J
THU1           XYZ
K
L
FRI1                XYZ

After selecting output queue TUE1, i am in the below screen:
Work with output queue:
File                 User                    User Data       Sts
SPOOLX        user1                    ud1                 RDY
SPOOLY        user1                     ud2                RDY
SPOOLZ        user1                     ud3         …
0
Hi experts,

Trying to create the DS below, but get a compile error on subfield "Select", when I change it in e.g. iSelect it's ok.
I understand that Select is probably a reserved word, but I need this for my WSDL generation.

Dcl-Ds InDs Qualified;       
   Select Char(10);          
   Info Char(10);            
   Dcl-Ds Details;           
      Detail_LENGTH Int(5);  
      Dcl-Ds Detail Dim(10); 
         DetailText Char(25);
         DetailCode Char(10);
      End-Ds;                
   End-Ds;                   
End-Ds;                      

Open in new window

0
I have a call program...example: CALL PGM (DELTE/RECV)...that I want to run in two different environments...Production (PROD2) and Test (TEST2).  My question is...how can I specifically run the program separately in both environments.  In other words, I want to run it in test, then run it in production.  Thank you in advance for your assistance!
0
Error details : CWBLM0031 - failure, a data conversion error was returned by the host server. rc1=2 rc2=21,I am using PC EMULATOR 5250 PERSONAL COMMUNICATION ,I am accessing it via remote ,Now whenever I am logging in to it ,I am having this error.I amnot able to log in.
Please help.
0
I want to create user who is going to see all the user profile and group profiles but should not having access to changes or delete any thing on AS400 machine.

To achieve this i have created User having following permissions-

User class           - *USER
Special authority - *ALLOBJ
 
With this user, we can read all user profiles from IBMi machine, but due to *ALLOBJ, this user profile may have access to few other commands -

Perform Read only operations.
Add or Remove User to an Authorization List.
Revoke Object Authority.
Change own password i.e. Self password change.
I want restrict all these command to execute on IBMi machine.

My main requirement is to create a user having very minimum permissions means who can only read data from IBMi machine and do not have capability to change any thing.

If any one is having any idea about this please share.
0
I research the official document about commands RCVJRNE and QSNDDTAQ in the IBM knowledge center. But I just find the introduce about the parameter.
The example is just simple and doesn't contain that send data to data queue using RCVJRNE. So please help me.
The follow is the RPG file.
     DDQNAME           S             10A   INZ('DTAQTEST')
     DDQLIB            S             10A   INZ('xxxxxxxxx')
     DDQSNDLEN         S              5  0 INZ(100)
     DDATLEN           S              3  0 INZ(0)
     DDATKEY           S             10A
     DASYREQ           S             10A   INZ('*NO')
     DDATJRN           S             10A   INZ('*YES')
     DDQSNDDATA        S            100A
     D*
     DDQLEN            S              5  0
     DDQTYPE           S              1A
     D*
     C*************************************
     C* Main Logic
     C*************************************
     C*
     C     *ENTRY        PLIST
     C                   PARM                    DQSNDDATA
     C                   PARM                    DQTYPE
     C
     C                   CALL      'QSNDDTAQ'
     C                   PARM                    DQNAME
     C                   PARM                    DQLIB
     C                   PARM                    DQSNDLEN
     C                   PARM                    DQSNDDATA
     C                   PARM                    DATLEN
     C                   PARM                    DATKEY
     C                   PARM         

Open in new window

0
I am trying to login. I am using correct information.
0
I am working on a program in the CAPS (claim medical processing system) software.  It allows the user to enter claim information.  In the program claim information is written to files.  Before the claims entry screen is displayed, the program creates a backup of all the information for the patient.  This involves making copies of data in 5 different files in qtemp.  

If the user decides not to continue with the claim and backs out, the program removes all of the information in the 5 files for the patient being processed.  It then copies back the data that had been saved.  The problem with this is that on more than one occasion the claim entry screen ended before the information was copied back.

My manager has selected that we try commitment control.  But from what I have read this may not be the best choice.   Can anyone tell me if I am correct or can this be used?

Thank you
0
Hi All,

I want to know what my pool memory contains of and did DMPMEMINF.
I do that to know what can be improve in my program/file.
And here is the result (top nine) :
COUNT ( * ) POOL OBJNAME LIBNAME
7,492     5               ACTVTN PROC REF TBL
6,351     5               HSD
3,052     5               IWA
3,042     5               TERASPACE ADDRESS
2,199     5               SEIZE LOCK RANGE
1,103     5               QJOBMSGQ
803        5               WMHQ Data Queue Cache Temp Spc QTEMP
732        5               BPCA SPACE CREATED BY QDBOPEN
310        5               MAHANDLEMAPPER SEG

What is the meaning of that values in OBJNAME? I tried to google it but found nothing.


Thanks and Regards.
0
Get free NFR key for Veeam Availability Suite 9.5
LVL 1
Get free NFR key for Veeam Availability Suite 9.5

Veeam is happy to provide a free NFR license (1 year, 2 sockets) to all certified IT Pros. The license allows for the non-production use of Veeam Availability Suite v9.5 in your home lab, without any feature limitations. It works for both VMware and Hyper-V environments

Hi all,

I would like to know if exists the possibility to make as a search in the screen of AS400 (all the screen, included AvPag (+)) and locate the cursor in the word searched.

I know that in HALC exist the option of SearchText and also the option of create a msgbox, and I would like to know if with that two options it possible create a tool/macro script for imitate the searcher of Excel (Ctrl+F)

Also, I would like to know the code for create a macro that find massively a lot of data and make an action with them, for example just copy.

Thank you in advance and kindest regards.
0
The users at our warehouse are telling me that when they print a "pick ticket" they get duplicates of some but not others. in the dspmsq qsysopr I can see the duplicate job number

 Writer 541275/QSPLJOB/SHIP2F started.          
 Writer 541275/QSPLJOB/SHIP2F ended normally.    

---JOB STARTS---
                                                                               
 Message ID . . . . . . :   CPF3382       Severity . . . . . . . :   00        
 Date sent  . . . . . . :   08/09/17      Time sent  . . . . . . :   05:32:28  
 Message type . . . . . :   Information                                        
 From . . . . . . . . . :   QSPLJOB       CCSID  . . . . . . . . :   65535      
                                                                               
 From job . . . . . . . . . . . :   SHIP2F                                      
   User . . . . . . . . . . . . :     QSPLJOB                                  
   Number . . . . . . . . . . . :     541275                                    
                                                                               
 From program . . . . . . . . . :   QSPWTRM1                                    
                                                                               
 To message queue . . . . . . . :   QSYSOPR                                    
   Library  . . . . . . . . . . :     QSYS                                      
                                              …
0
Hi all,

I created a macro script for AS400, basically with the comand "autECLSession.autECLPS.SendKeys "word" / "right" / etc...

This macro script runs at perfection but the error comes when there is a variance in the screen, because sometimes depending of the value introduced, it jumps a box with information (that I have to introduce Y/N (yes/no)), or just, sometimes, the values introduced are incorrected (because exceed the limit of characters available for a string), and the macro starts to fall and collapse the console.

My question is the following: there is any method that when occur an error in the macro, and appears the X in the status bar, the macro stops at that point?)

Kindest regards.
0
What do you find is the best solution to mask data for both SQL server and iseries DB2?
0
**************************************************************
        *                                                            *
        *            Licensed Materials - Property of IBM            *
        *                                                            *
        *     IBM(R) Sterling Connect:Direct(R) for UNIX 4.1.0.3     *
        *                   Build date: 20Jun2012                    *
        *                                                            *
        *  (C) Copyright IBM Corp. 1992, 2011 All Rights Reserved.   *
        *                                                            *
        **************************************************************

Direct>
XPAE003I  Return Code: 8  Feedback: 0
          :&KEYWD==:

XPAM001I  Return Code: 8  Feedback: 0
          Errors Parsing

Direct> Enter a ';' at the end of a command to submit it. Type 'quit;' to exit CLI.

       submit CAPM2AMS process SNODE=PQS1S
 step01 copy from (
                   file=/tmp/2017173.j4.01701.cctpepay
                   pnode
                   )
               to (
                   file=TEST.2017173.j4.01701.cctpepay
                   disp=new
                   snode
                   )
 step02 if (step01 == 0) then
           run task snode
           sysopts="TEST.PQS 2017173.j4.01701.cctpepay "
           run task (PGM=UNIX)
           sysopts="rm /tmp/2017173.j4.01701.cctpepay"
        else
 step03 run task …
0
Hi,

I have problem to create a loop,
I need a loop which a check of corectly of insertion label, if not back to start a loop and again show inputbox.

Can i detect in AS400  for specific row, col, presence of any sign?

my script:

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)

REM This line calls the macro subroutine
subSub1_

sub subSub1_()

' etap 2 - deklaracja 21-10-9

   WaitInputApp
   autECLSession.autECLPS.SendKeys "[pf3]"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[pf3]"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[pf3]"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "21"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[enter]"  
   WaitInputApp
   autECLSession.autECLPS.SendKeys "10"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[enter]"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "9"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[enter]"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "whhb777"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[enter]"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "1"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[field+]"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "40"
   WaitInputApp
   autECLSession.autECLPS.SendKeys "[field+]"

   Dim copy
   copy = gety (5,32,3)
   WaitInputApp
   puttext 11,29,copy
0
Currently, we have version 5.2 of AS/400 which is no longer supported by IBM. Upgrading the system would be a lot of unwanted validation. I am looking into how to code a GS1-128 barcode in our current AS/400 system.

Our current barcode has the start function, text of numbers, mod-10 check digit, and a stop function and is in the code-128 font.

For a GS1-128 barcode I am trying to code (17)180801 . or some version of those six digits for YYMMDD. I know I need the start function, then FNC1, text, some check digit and then stop. For FNC1 I was using "8F" which I found in a table. Not sure if I can use the same start, stop, and check digits. When I did this I got a weird check digit and my barcode did not turn out correct.

Any insight or help with this problem would be greatly appreciated!

Thank you,

David
0
Hello ,
I an trying to convert my MFP 7.1 hybrid app to MFP v8 Cordova app .However, I am getting an error with the statement 'WL.init.connect'.

What is strange is that I am able to deploy the app in MobileFirst version 8 and run it my device. I see the device ID in the operation console. So, it is connecting to MobileFirst with the current code

Can you please take a look at the code snippet and give me some hint on how to make the necessary changes.

Information Cordova version 6.3.1 MFP- 8.0.0-2016080322

(function () {
  'use strict';

  angular
    .module('my-worklight', [])
    .run(WorklightRun)
  WorklightRun.$inject = ['$rootScope', '$q'];

  /**
   * Load worklight
   */
  function WorklightRun($rootScope, $q) {
    // Worklight statuss
    var initDeferred = $q.defer();
    $rootScope.worklightInitPromise = initDeferred.promise;
    $rootScope.worklightLoaded = false;
    var connectionDeferred = $q.defer();
    $rootScope.worklightConnectionPromise = connectionDeferred.promise;
    $rootScope.worklightConnected = false;
    // Listen for load / onload and start worklight init
    if (window.addEventListener) {
      //alert('calling LOAD window.addEventListener');
      window.addEventListener('load', loadHandler, false);
    } else if (window.attachEvent) {
        //alert('calling LOAD window.attachEvent');
      window.attachEvent('onload', loadHandler);
    }

    // Worklight connect options
    var wlConnectOptions = {
      timeout: 10000,

Open in new window

0
i would like to know on how to transfer a PF from AS400 to PC, this files are EDI
0

IBM System i

3K

Solutions

2K

Contributors

IBM i, formerly known as AS/400, is a proprietary, midrange, object-based operating and application system. It includes a relational database, a menu-driven interface, support for multiple users, block-oriented terminal support and printers, and supports security, communications, and web-based application servers including Websphere, Apache and Tomcat.

Top Experts In
IBM System i
<
Monthly
>