Hi

I am trying to configure a Xerox Phaser 6180 MFP to work on an IBM AS400. the configuration is accepted but I keep getting the message "remote device rejected an attempt by the writer to open a connection"
I have it configured as a
Device Type:  3812
Model: 1
Port: 9100
Manufacturer Type and Model:   *HP5SI
Remote Location:  192.168.5.50
System Driver Program:  *HPPJLDRV

Can anyone advise.

Regards
Gerald

Our ERP system runs on an IBM AS/400 (or whatever IBM is calling it currently), accessed via TN5250. With our previous 400 users could choose to alternatively use JDE WorldVision to connect to the 400. WorldVision scraped the screen and provided a point and click interface for the users. A lot of people chose to use it.

However, with our latest upgrade WorldVision is no longer supported. Does anyone know of a comparable product? We looked at zScope Express, but it frequently made the wrong things into clickable buttons.

Does anyone know how I would be able to output all users in an Authorization List to an IFS file - programmatically?

Any help is much appreciated.

My issue is two fold, why can I PING an IP of a device that isn't on the network and I can't print.

I have a Datamax label printer that I just created a device description for and assigned it a new IP address, this printer is plugged into a switch, the switch is plugged into a firewall that goes through to another firewall before it gets to the IBM i.  We have two partitions, PROD and TEST.  I copied the device description and out queue from TEST to PROD to ensure they were identical on both sides.  

This printer works perfectly in TEST.  When plugged into the network I am able to print to it, I can PING its IP, TELNET to it and the trace route returns the three expected entries.  When I vary off the device and unplug it from the network I cannot PING it from the IBM i nor the network, I cannot TELNET to it and the trace route only returns the two expected entries.  All as it should be.  

However, in PROD I am unable to print to the device.  When I release a spool file it goes right to RDY status and the writer gets error CPD337F .  I have verified that the port and IP are correct, I have verified that the remote device is not busy, I have verified that the printer is on line.  I can PING its IP from both the IBM i and the network but I cannot TELNET to it and the trace route returns only two of the three expected entries.  When I vary off the device and unplug it from the network I can still PING it from the IBM i but not from the network, I …

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.

I have a CL program that adds a library (WHMSDTA) to the user library list. The command is ADDLIBLE LIB(WHMSDTA)
at the end of the job the library is removed from the user library list.

However if the job ends abnormally, and the user restarts the job, the library WHMSDTA is still on the library list and the user must sign off the log in again in order to rerun the program.

how can I check if the library WHMSDTA already exists on the user library list so that I can condition execution of the ADDLIBLE command?

Team,  I need to convert End of line Hex Character in a IFS file from  x0A to x0D0A . Please help me

Thank you In advance.

Have a pc attempting to log on to a AS400 but gets no response after entering userid & password.  Makes connection to AS400 and gets log on screen with no problem.  I even entered a wrong password to see if I received an error message but I did not.  Any suggestions?

I am attempting to receive data from a data quue that is attached to an outq.

From there I take some of that information and use QUSLSPL API to get the List of Spool files that meet the criteria of what was found from the RCVDTAQ API.

I then create the pointer using QUSPTRUS API  to a user space that I created previous and attempt to run the spool list.  when I do this is not working as expected.  Basically the follow IF fails on NUMBER-LIST-ENTRIES being equal to 0.

           IF (INFORMATION-STATUS OF QUS-GENERIC-HEADER-0100 = "C"  (14)
              OR INFORMATION-STATUS OF QUS-GENERIC-HEADER-0100 = "P")
              AND NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-0100 > 0  (16)
      *
      * address current list entry
      *

              SET ADDRESS OF STRING-SPACE TO SPCPTR,

              SET ADDRESS OF QUS-SPLF0200 TO
                  ADDRESS OF STRING-SPACE((OFFSET-LIST-DATA
                  OF QUS-GENERIC-HEADER-0100 + 1):1),     (18)
      *
      * and process all of the entries
      *
              PERFORM PROCES
                 NUMBER-LIST-ENTRIES OF QUS-GENERIC-HEADER-0100 TIMES,  (20)

           ELSE
              DISPLAY "List data not valid.  **** THIS IS WHAT EXECUTES!!!!" 

Select all Open in new window

I have referenced this link with a COBOL example.
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/apiref/cmnKeysCOBOL.htmhttps://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/apiref/cmnKeysCOBOL.htm

I can provide more code if necessary.

**************************************************************
        *                                                            *
        *            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 …

Can someone help with below requirement.....

I have a physical file with one of the field with variable length and it has contents as given below. My requirement is to substring the the IFS links just before the *OMIT for all occurrence .

For example, the i should get  /QSYS.LIB , /QDLS, /TMP/BRMS , /QIBM/ProdData ....from first record.

From second record, nothing, as the *OMIT is not present

From third record, i should get /QIBM/UserData/OS400/TCPIP/QTOCHOSTS

From fourth record, i should get /QSYS.LIB, /QDLS

Once i get these substrings, i will right it them to another file in one column field.

Sample records in the file are ....

OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT) ('/TMP/BRMS' *OMIT) ('/QIBM/ProdData' *OMIT))
OBJ(('/home/cdimage'))
OBJ(('/QIBM/UserData/OS400/TCPIP/QTOCHOSTS' *OMIT))
OBJ(('/*' *INCLUDE) ('/QSYS.LIB' *OMIT) ('/QDLS' *OMIT))
OBJ(('/fixes'))

Thanks in advance !!