Hi, we have two tapes to be used for daily backup. and we have scheduled jobs to run the daily backups at night. previously, we only need 1 tape but now, it asks for 2nd tape. we have a program to initialize single tape, but not for 2 tapes. can anyone helps on how to intialize more than 1 tape  for daily backup   (1 week rotation basis). 2 tape cartridges per day, 14 tapes/week. os version: v6r1. thanks.
      PGM                                                                
      DCL VAR(&DAY) TYPE(*CHAR) LEN(4)                                  
      DCL VAR(&DLYVOL) TYPE(*CHAR) LEN(6)                                
      RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&DAY)                          
      CHGVAR VAR(&DLYVOL) VALUE('DLY' *CAT %SST(&DAY 2 3))              
      INZTAP DEV(tapxx) NEWVOL(&DLYVOL) NEWOWNID(xxxx) CHECK(*NO) -
 ENDOPT(*REWIND)                                                        
      ENDPGM

Hi Experts,

We are getting the error message CPF5033 during READ operation in batch program and error message says the below.
"I/O error CPF5033 was detected in file B1PBILH (C G D F)."

When I check the log it says
" Select or omit error on field B1PBILH_1.BTCAR member B1PBILH.  
 Select/omit error on member B1PBILH.                            "

"I/O error CPF5033 was detected in file B1PBILH.                          
Function check. RNX1299 unmonitored by BLR573R1A at statement 0000048100,
  instruction X'0000'.                                                    "

I have checked the record lock and object lock on the file. No locks exist.
I have checked the data for the particular record where to check the junk value. No junk value exist.
And we are getting this error randomly for different records.

Program flow:
Cl program does the OVRDBF and then opnqry on the file and we read the same file in RPGLE with out key.
and we are getting CPF5033 error while performing the read operation on the file.

Please help me to fix the issue. I have attached the screen shot for your reference.


Thanks in advance.

Regards,
Sri

Hi,

I need to make a couple iSeries green screens available on the Web (asap). They need to be mobile friendly as well.  I have experience with SQL, but no web development. Can anyone recommend best book/articles as a starting point. Any direction or tips would be greatly appreciated!

As we will be moving forward with other screens, I need to acquire the skills instead of outsourcing.

Thank You,
Lynn

I need a clp that will execute an FTP from 1 iseries to another iseries.  They are both on the same network with unique IP addresses.

I had this question after viewing Display file Overlay problem.

I have the same problem but with window formats, three of them. Each is in its own program and display file. When program A is called from the menu, it displays its window leaving the original menu screen intact. From activity performed on that window, another program is called, program B, which also displays a window but now, everything behind it is black. This behavior continues for the next program which also displays a window and a black background eliminating everything  previously displayed up to this point.

I have a dummy format in each program with the ASSUME keyword and the one character field at 1,2 and even added the KEEP keyword but it made no difference.

I have not set row and column positions but have selected the default positioning option expecting the OS to position each screen to avoid any issues but obviously, this isn't happening.

Any suggestions?
Mike.

I have been tasked with creating a list of possible combinations for standard parts.  

I have a list of standard parts that look something like this:

10.200.12??.000
15.234.1324.0??
81.43234.??00

I also have a list of color codes that are all two digits:
11
QQ
AH

I am wondering if it is possible in SQL and ultimately in a CL program on our i series to generate a list of all possible final part combinations and put them in a table?

In this example:
10.200.1211.000
15.234.1324.011
81.43234.1100
10.200.12QQ.000
15.234.1324.0QQ
81.43234.QQ00
10.200.12AH.000
15.234.1324.0AH
81.43234.AH00

I don't have any experience with loops in SQL and am having trouble making sense of the examples I have found.

I can do this in Visual Basic or other languages but the goal is to have it on a schedule and automated on our job scheduler.  

Any guidance is appreciated.

Hi All,

I'm assisting a friend in changing the field length in an existing physical file on an AS/400,iSeries.  We are trying to understand two things:

1. What is the best way of going about this.

2. What is the best way of updating all supporting programs which use the PF or LF.  

Attached is a document we received from a guy who responded to our post on an IBM website.  This has been helpful; however, there are hundreds of programs that reference that PF that we are changing.  

If anyone can shed some light on a more effective way of making these changes, it would be greatly appreciated.

Thank you.

-Anthony

Hi All,

I would like to include the PNG file or EPS file via AFPRSC to generate the PDF.
Is it possible. If it possible, please send me the sample command with PNG JPG.

Or do you have any other way to include the PNG or EPS file in Printer file to generate the PDF?
Note: I'm using *IPDS printer configuration to print the JPEG via AFPRSC to generate the PDF and it's working fine.

AFPRSC('IMG1.JPG' *JFIF 0.0 0.0 (*PATH '/FOLDER1/IMG/'))

I have My data in  IBM AS400 server in data base file format I try to fetch my data from my windows Excel via ODBC but most of the fields are not converted to columns and even not presented in any format . (some numeric fields only we able to see in that excel sheet)

Hi All,

I am very new in PCOMM VB script and facing the below issue  which is creating obstacle to promote my code in  production...

I am invoking the below program(logcapture.mac) in a AS400 system after logging in to the main screen. It is running properly approx 36 Hrs and after that suddenly
getting stopped. Getting below error if trying to re-initiate from the same screen/session.

"PCSWS041 - The system has insufficient resources or the Script Engine is not properly installed"

But able  to re-initiate if I run with a fresh session by closing the previous.

	[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=  ** TLPV - Log Capture v1.0 **
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT



Dim Logger, Domain_Id, atm_LoginID, atm_LoginPassword
Logger="ON"

'Domaid_ID =============>

Domain_Id = "xxxxxxx.xxxx_xxx"
atm_LoginID = "xxxxxxx"
atm_LoginPassword = "xxxxxxxxx"

'========================================================================================================================:


autECLSession.SetConnectionByName(ThisSessionName)

Dim Record_Low, Previous_Record_High, Record_High, Nw_Record_Low, Sub_System, Library, Current_ZNL, Pre_Library, Product, path, Node_Name, Nw_Node_Name, Iteration, s,nw_entry, filename,workpath, objFSO, RecordsFile, outFile, objFile,rAwdaTaU, rAwdaTaL,mystring,string_loop_count, k, Remaining_len, count, Logout_indicator
Logout_indicator="N"
Set objFSO=CreateObject("Scripting.FileSystemObject")
Main

Private sub Main()
	

Select all Open in new window

…