AS/400 Tag Directory

Featured AS/400 Questions

AS/400 system disconnects frequently
Hi all, I am new to AS/400 (RPG Programming), We are facing a problem for last couple of days that our system started disconnecting frequently. We are connected with AS/400 through iSeries access for Windows Version 5.7. While running normally it gets disconnected and when we ping the system it gives timeout while physically machine...

Answer Question   |  April 16, 2014  7:47 AM
AS/400, Client Access 5.7, Iseries disconnect
asked by:
85 pts.

Single record selection out of multiple records by using CPYF command
In my physical file i have multiple records with same data. Now i want to use the CPYF command to copy only single record which was last updated in the file. I searched all the options in CPYF command but i didn’t get anything related to it. Please advice on this. I am using this...

Answer Question   |  April 7, 2014  2:04 PM
AS/400, AS400 CLP, CPYF
asked by:
240 pts.

Field search in AS/400 physical files
In my product, if I have around 1000 physical files, I want to know the number of files and their names that are having a particular field. Is there any command in AS/400 to do this or do I just need to write a program to accomplish my idea? If I need to write a program,...

Answer Question   |  April 4, 2014  11:23 AM
AS/400, as400 rpgl, CLP
asked by:
240 pts.

Calling DB2 batch subprogram from a CICS program
I want to have a COBOL subprogram called from CICS environments. The subprogram is DB2 batch program. I want to pass some parameter to the subprogram and get back those same parameter updated.  How can I code this in the calling CICS program without passing the DFHEIBLK and DFHCOMMAREA into the program? 

Answer Question   |  March 26, 2014  5:52 PM
CICS, COBOL
asked by:
5 pts.

Adding breakpoints to COBOL36 programs
Hi all, Please help me with how to add to compile COBOL36 program in debug mode and add breakpoints. I tried by compiling with source and list option but no luck as source is not displayed to add breakpoints. When trying to debug in batch, I don’t get the source with DSPMODSRC. Please guide me....

Answer Question   |  March 26, 2014  12:30 PM
AS400 - COBOL, COBOL, DSPMODSRC
asked by:
5 pts.

QSYSPRT
Hi , A program generated two reports.There is a job that runs every monday , and these report are generated every week.They are copying the data in the report to a work file in Qtemp by the command CPYSPLF .Then they copy the records from work file to Qsysprt by CPYF. My queries are ,...

Answer Question   |  March 26, 2014  1:49 PM
CPYSPLF, Microsoft Excel, QSYSPRT
asked by:
40 pts.

Is there a simple .cbl open?
How can I simply open a .cbl file?

Answer Question   |  March 14, 2014  11:51 PM
.cbl, COBOL
asked by:
5 pts.

CPYFRMIMPF in CL vs CPYFRMIMPF in command line
If i type: CPYFRMIMPF FROMSTMF(‘/INTRA/STANDARD.CSV’) + TOFILE(INTRA400DM/TESTCSVF00) + MBROPT(*REPLACE) RCDDLM(*CRLF) + FLDDLM(‘;’) DECPNT(*COMMA) FROMRCD(2) + RPLNULLVAL(*FLDDFT) IDCOL(*FROMFLD) in command line all works fine. If i try same command in CL, in the TESTCSVF00 file are copied olny first 20 characters. Example of STANDARD.CSV Document date,Postg Date,Document no.,Reference,Vendor,Business PartnerName,VAT registration no.,Tax base amount,Importo in valuta,Output Tax...

Answer Question   |  March 11, 2014  3:38 PM
AS/400 CSV, CPYFRNIMPF
asked by:
20 pts.

File Pointer in CLLE
Hi, How to set a file pointer using CLLE. My Records are 10,20,30,40,50. I want to set a file pointer at 30 to read records using CL/CLLE. Thanks

Answer Question   |  March 9, 2014  4:37 AM
CLLE
asked by:
210 pts.

How can I find the version of iSeries Client Access on each PC?
How do I find the version of iSeries client Access each PC is running?

Answer Question   |  March 4, 2014  8:45 PM
Client Access, iSeries
asked by:
5 pts.

Create a CLP program script
Hi All, Can anyone help me in resolving the below issue. Requirement: Want a CLP program script in which i can send the user profile objects from one LPAR to another LPAR. We will schedule that in our job schedule entries.  Once initiated the job it should ask for a user profile name to enter...

Answer Question   |  February 24, 2014  2:44 PM
AS/400, CLP, LPAR
asked by:
20 pts.

Migrating DFSMS COMMDS at DASD migration
At DASD migration how to migrate DFSMS COMMDS ?

Answer Question   |  February 21, 2014  9:09 PM
COMMDS, DFSMS, Direct access storage device, Migration
asked by:
Trf
0 pts.

Need to access the SEQUENTIAL FILE in RANDOM manner.
The file has been declared with SEQUENTIAL access, but i need access it RANDOMLY. Please let me know how to do this?

Answer Question   |  February 10, 2014  1:43 PM
AS/400, COBOL/400
asked by:
525 pts.

CPYFRMIMPF – CSV to flat file. Getting all blank records.
All records in the flat file are blank when performing a cpyfrmimpf.  Copy file command is listed below.  DTAFMT is *DLM, FLDDLM is ‘,’  A sample from the file in IFS is listed below.  What am I missing.  CCSID of file in IFS is 1252.  CPYFRMIMPF FROMSTMF(‘/ITG/OGAZIP/districtzip.csv’) TOFILE(DNYWRKDPI/FLAT2) RCDDLM(*CRLF)   “ZIP”,”Start”,”Stop”,”State”,”cd”,”sd”,”hd”,”Shared”,”HasChanged” “927045″,”850″,”850″,”CA”,”46″,”034″,”069″,”False”,”False”        “927045″,”861″,”862″,”CA”,”46″,”034″,”069″,”False”,”False”        “927045″,”898″,”974″,”CA”,”46″,”034″,”069″,”False”,”False”        “927045″,”976″,”976″,”CA”,”46″,”034″,”069″,”False”,”False”        “927045″,”982″,”982″,”CA”,”46″,”034″,”069″,”False”,”False”        “927045″,”985″,”985″,”CA”,”46″,”034″,”069″,”False”,”False”       ...

Answer Question   |  January 17, 2014  2:11 PM
Blank records., CPYFRMIMPF, CSV file format, CSV to AS400
asked by:
5 pts.

RPG: Is it possible to redefine an array in a file?
I’m using RPG III and I need to store a big array in a file. It says the maximum fieldlength is 256 so I defined the file with 16 fields of 250 characters long for each. Can I put the 1000 values of an array into the 16 fields without moving? Just like REDEFINES in...

Answer Question   |  January 7, 2014  2:49 PM
COBOL, RPG III
asked by:
56,495 pts.

How to use QtmmSendMail API
I want to use the API QTMMSENDMAIL for sending multiple attchments in a single email , the description for this API on IBM info centre says that one needs to save a file in IFS folder in the ASCII MIME format . I am not aware about this format and how to convert a file...

Answer Question   |  December 27, 2013  12:14 PM
API, COBOL 400, QtmmSendMail
asked by:
240 pts.

Strange compute function results in AS/400 while using Cobol
Can someone help me solve this problem using the COMPUTE function in AS/400. 01 WSAA-AMOUNT-A PIC S9(15)V9(02) COMP-3. 01 WSAA-AMOUNT-B-01 PIC S9(16)V9(02) VALUE 0. 01 WSAA-AMOUNT-B-02 PIC S9(13)V9(05) VALUE 0. 01 WSAA-AMOUNT-C PIC S9(16)V9(02) VALUE 0. 01 WSAA-RESULT PIC S9(15)V9(02) VALUE 0. MOVE 2500.87 TO WSAA-AMOUNT-A. MOVE 12285 TO WSAA-AMOUNT-B-01. MOVE 12285 TO WSAA-AMOUNT-B-02. MOVE...

Answer Question   |  December 24, 2013  6:14 PM
AS/400, COBOL, Compute
asked by:
56,495 pts.

goldmine version 6.0 single user
Will goldmine 6.0 run single user on 64 bit windows 7 Home Premium? I used goldmine 3, 4,5, & 6 single user and later on a 5 user network until goldmine moved on to their web based versions. I loved the program. I still have version 6.0 disks, and wonder if there is any way...

Answer Question   |  December 18, 2013  11:34 PM
Compatibility, compatibility mode, goldmine 6.0, Windows 7
asked by:
5 pts.

Multiple session on the iSeries
One of our as400 users lost the ability to get multiple session on the iseries. When she tried to get a second session, she is getting a blank screen. I looked at the history log, but I cannot see anything there. Can someone please tell me what the problem could be and where to look,...

Answer Question   |  December 18, 2013  4:13 AM
AS/400 user administration, AS/400 user permissions, Client Access, V5R4
asked by:
15 pts.

Cobol/AS400 – Copy DDS Replacing Fields Names
Language: Cobol Platform: iSeries (AS/400) Is there a way to replace in Cobol the first two characters of all fields from a file by other two characters? What I mean is this: I have a copy-dds from a file that all the fields have TRxxxx (where ‘xxxx’ is different from field to field). What I...

Answer Question   |  December 11, 2013  3:28 PM
AS/400, AS/400 - DDS, COBOL
asked by:
95 pts.

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to: