It provides a way for which more than one program in the same job to share same file status information, file pointer positions and storage area.It increase performance, reduce amount of main storage, reduce number of file open or close. We can share the ODP in CRTPF and OVRDBF commands.

A “shadow network” (IPv6 or IPv4) is just two or more devices talking with each other using addresses that you aren’t monitoring.

For IPv6, it’s a lot easier to miss because most networks are currently ignoring IPv6 even though many devices have had it available for the past decade. Windows XP began the wide availability in most networks.

For IPv4, you might have an assigned subnet for a network segment; but that doesn’t prevent devices from using a different subnet.

In both cases, the communication may be isolated if routers/firewalls limit traffic only to your approved address ranges. Such devices might not pass, or might be configured explicitly to block, IPv6 or out-of-range IPv4 communications.

In either case, you stop it primarily by looking for it. If you don’t monitor, you can miss a number of things — not just IPv6.

Tom

Can we rename QSECOFR user id.

No. Nor can you remove any of its authorities.

(Auditors requirement)

You need new auditors. They don’t know how to audit your system if that’s a “requirement”.

Tom

Sorry … “M25″ is probably the hardware model. Never mind that part, though the OS version may still be helpful.

Tom

First, the question is tagged with “OS/400 M25″. Can you explain what that means? What version is your OS?

Second, is there a reason not to use the standard CPYTOIMPF command to create .CSV output? If CPYTOIMPF is out of the question for some reason, it can often be possible to use the Qshell db2 utility to manufacture .CSV output as desired. Do you have a reasonably current version of Qshell installed? (Should be at least V5R2 with decent PTFs.)

Finally, I don’t have source for ZEXECSQL, but a replacement should be fairly easy to create. Can you prompt the command and show its parms?

Tom

…does the job date from the original CL carry thru as the job date to the CL called in the SBMJOB command?

Generally, no. A submitted job’s JobDate is normally the value from the QDATE system value at the time that the submitted job starts.

But technically, it’s not possible to be certain just from your example SBMJOB command.

Any number of commands before or after the SBMJOB command could have modified the QDATE system value temporarily. Or the SBMJOB DATE() parameter might have either *JOBD or some valid date set as a default. For *JOBD, the DATE() parameter on it could be set to some unexpected value.

Or there could be exit programs registered on your system that affect how SBMJOB parms are handled. Or there could be a routing program that modifies a JobDate. Or…

In short, it will probably be the system date when the job starts. It just can’t be guaranteed without more details being checked.

Tom

…it return the list of calling program like SP1, SP2 ,SP3. but requirement is vise versa.

That’s right.

But the idea is that you put the output from DSPPGMREF into an outfile. Then you run DSPPGMREF over another program, and you add its output to the same outfile. You run DSPPGMREF over all of the programs in your library.

When that is done, you have a file that lists every program that is called by all of the programs in your library.

Then you can run a query to see where TESTR shows up in the file.

In fact, you can run DSPPGMREF mylib/*ALL OUTFILE(QTEMP/MYPGMREF) to get all program references from library MYLIB all at once. Wherever TESTR is referenced by one of the programs in that library, a record will show up in QTEMP/MYPGMREF.

One command is all it takes.

Just be aware that it’s not guaranteed to have every possible reference.

There can be programs that don’t call TESTR by name. Or TESTR might be called by a menu or it might be invoked by a command, or various other kinds references might exist.

Tom

I don’t understand the printfile associated with the program. It doesn’t have any fields.

It sounds like a QSYSPRT or QPRINT printer file or one created as a duplicate of those. That would make sense if the bar codes are created by the program inserting instructions into the records (or by calling a program to do that, e.g., PRTBAR).

That kind of programming made sense on a S/36 when externally-described printer files couldn’t be used. On an AS/400, it makes as much sense as generating screens by program instructions instead of using a formatted display file or operating on database files created as CRTPF RCDLEN(100).

But for the moment, that’s what you have.

Can you show the original CALL to PRTBAR and describe (1) the parameter values and (2) the result of the CALL? That is, exactly what did PRTBAR accomplish? Did it actually do printing? Or did it return a value that COBOL put into an output record? If you don’t understand the COBOL that called it, that might not be possible; but even a general description might allow the creation of a replacement.

Tom

What was the message you responded to?

And the answer should include the message identifier. Also, if any related messages can be found immediately before it in the joblog, those might be the actual messages that tell the error condition.

Tom

I’m changing the cobol program to have an external print file and omit the call to prtbar.

Are the Excel spreadsheets in the same format as the target BPCS files (number of columns, column attributes, &c.)?

It sounds as though the drive determined there was no space available on the tape.

What was the message you responded to? That should give you a starting point, at the least, to resolving the problem.

HE is correct better yet, check first your service provider for the information about the setting of your router they will walk you through that so it will be easier for you.Or i may suggest this site this is where I get helpfull tips about networking issues.

interesting

Install Wind 7 1st and then install Linux os. Linux has strong GRUB utility that can easily handle multiple os. Yes, it is ur choice which os loads 1st, that can be done thru editing bootloader / grub….

OL doesn’t have this feature itself. Probably, u have any zip utility / 3rd party zip tool that makes this probs. Might be some kind of add-in been installed in OL without ur knowledge / notification. If the probs persists, ask to client dnld peazip (totally free) and open ur messages with this utility.

If you could post the O spec’s we might be able to identify likely issues.

In the original application, PRTBAR (licensed IBM pgm) existed in the application library. I can only assume that it was copied from QSSP. This version would not convert. After the upgrade, I copied the new licensed IBM pgm to the application libray. It tries to run but gets the pointer exception error. I’ve tried to create a program dump, but only get the dump of the calling program.

The application is written in Cobol (1996). I am not a Cobol programmer. I don’t understand the printfile associated with the program. It doesn’t have any fields. Maybe it’s internal. I can make adjustments to call my RPG program for the barcode, but that’s a separate printfile with just the barcode. If I could get the call to prtbar to work, I wouldn’t have to struggle to rewrite a program that I don’t understand.

Thanks for you help!

Make sure you have ID vault in place before you turn this on because it will help if a password is forgotten and allow ID recovery.

how to connect database to the Visual C++