Search results for query: *

As a programmer I'm always challenged to know what the best method out there. It would be a disservice if I cannot at least give a try to prove that I can do it. Sure time for me is never an excuse. I used to labor night and days just to understand what's out there. When certain challenges comes...

Could not understand what you tried to accomplished. There are so many ways you can skin a cat(pardon me). If you are trying to print 8 copies of the same invoice but with different vendor, then why not put the printing routine as a subroutine. This way you can call the subroutine x number of...

Are you trying to create 8 copies or printing 8 different reports. Both ways are doable. For 8 copies you can override printer attribute in CL to have any number of copies. For reports you will need to output into different print devices and still override each device attributes in a CL.

In the old days I used to create DATETIME routines which get the differences between two dates(for aging-trial balances), get days of the week or months, etc. The routines are basically used for cobol machines that does not have intrinsic functions like Tandem. It's just a simple trick of...

Looks like your file is one whole continuous record. One possible way is to UNSTRING your file delimited by "MD" and this will create a sequential file that you can use for your tree. Or is there a way that you could use "MD" as your terminator?

I used to be a member of PeopleSoft-fans at groups.yahoo.com. This is the biggest PS forums I have been into. I just don't know if it still active.

You may also look at the source of your logical file. There could have been a hard coded value in your key when it was compiled. Sorry but I have not been doing programming with AS400 since 2007. This is the first place I would look.

Usually you set a criteria for a key, START once and loop to READ NEXT until end of file. If you can post that part where you set the KEY, the START routine and the routine for the READing of records.

Cant you post the START statement and the initial value of your key? Also include the block where it READs the record.

If your file is purely with PCL control characters check with SwiftView. They have pretty good applications that converts PCL files into printable objects. They have a lot of converter programs that you can use. If you are trying to create checks, forms complete with graphics then I would...

I used SQR language (long time ago) to print forms, checks,micr etc using PCL and or postcript. PCL 6 should handle all lower version. You have to be familiar with the many PCL commands in order to accomplish this. Any laserjet/Epson printer is able to interpret PCL/Postcripts commands. You can...

It is hard to give assistance when you don't give enough information to work with. You have not responded to a simple questions to clarify your purpose, I can only assume you have no idea what PeopleSoft is all about. Here's some tips that you can ponder: 1. For reports or query you use either...

Kahush, You are trying to compare age vs year. It should be something this: If (CURRENT DATE) - (BIRTHDATE >= 65

The bad old days??? Today's RPG goes to it's roots in the bad old days.... I have taught RPG (in IBM) since the beginning of S/3 to S/34, S/36 & AS400 but never been the bad old days. Language evolved even with the primitive man and they behold how they went forward. When you write single step...

Sorry my finger is fast.. RESULT PIC 9(10).99 << 13 Char MOVE ZEROES TO I1. MOVE ZEROES TO I2. PERFORM VARYING I1 FROM 1 BY 1 UNTIL (I1 >= 13) OR (I2 = 999) IF (RESULT(I1:1) >= 1) AND (RESULT(I1:1) <= 9) OR (RESULT(I1:1) =...

A better method is to search for the occurrence of blanks in a numeric variable. This way you only need one working storage. This also eliminates leading zeroes. 01 RESULT PIC 9(10)V99 VALUE ZEROES. ..RESULT above has 12 digits so in your logic do this MOVE ZEROES TO I1. MOVE...

Pic zzz99.99 is still treated as character and you will get the blank fill if you use it in a string statements. Here's what I usually do to eliminate blanks: Create several numeric working storage ranging from 1 to n number of digits depending on the maximum length of your variables. i.e...

We used to have Mercator do the talking with EDI until we found out it is costing us a lot of money because not all clients or vendors are using the same ANSI standard(version). There is no single bullet for EDI. Your recourse is to create a separate tree/map for an exceptional clients. Since...

If you have a signed numeric you have to tell the compiler where the location of the sign character. If the sign is after the numeric value then use: example below. 02 BAM PIC S9(12)V99 SIGN IS TRAILING VALUE ZEROES. If before the numeric value I believe you will use SIGN IS HEADING.

I usually do after START: READ FILE4 NEXT RECORD AT END GO TO XXX-END IF FILE-STAT = "00" OR "02" OR "04" NEXT SENTENCE ELSE MOVE "X" TO ERR-FLAG GO TO XXX-END.