IBM Mainframe Forum

Yea, what he said......
And, you will find that most of the programming will use less than a dozen verbs, that is good, simple is always good, but keep the reference manual handy and actually read the guide (a lot of interesting tips are there)......

hi dick,

I have already started working 2 weeks ago..yet to start programming at the moment. Incase i have problems in my work..i will definitely refer to you... hope that you can guide me through again...


Thanks again..bye

Breentha

hi all.......
im having the same assignment as breentha.........
im stuck on how to printing the 4 payslip into 1 page.
can some1 kindly please help to give ideas?

Hello and welcome to the forum,

im stuck on how to printing the 4 payslip into 1 page.

Where are you stuck? You need to provide more information about where you are having problems.

Can you print one payslip? If you can print one, use a counter and each time you print 4 advance the page to a new page.

hi dick thank u for the quick reply.

if you refer the assignment question (uploaded by breentha on the 1st page of this topic)
it stated that we need to print 4 payslip to 1 page.. (2 payslip in a line)
(2 rows and 2 column).
i dont know how to print when the column (usually the length is 132) into 2.
do we have to load into table?

i want to load the code but im using the mainframe in linux so dont know how to upload it.
maybe when i get home i'll copy from mainframe in xp.

one more, i have coded the unstring statement for the name.
but, i only need to unstring if there is a '/' or '*' or '-' in the name.
but it still unstring the name without it.
below is my code.

inspect s-name tallying fn-ctr for all '/'
mn-ctr for all '*'
ln-ctr for for all '-'.
if mn-ctr > 0 or ln-ctr > 0 or fn-ctr > 0
perform 1225-unstring-name
end-if.

it is suppose to skip the name without the symbol but in my program it still unstring all the name even without * / -

i think my ctr is not correct.
is it? can u pls help?

thank u in advanced.

sorry for the duplicate id..
zaleha_mnoor & complicated is me..
same person..
having problem during the registration.
sory

Dear all,
I already fixed the string statement i ask just now..
the only problem left is on how to print the 4 payslip into 1 page?
(2 payslip in a row, 2 row in one page)..
Please help..
the printer spacing chart are same as what breentha uploaded in the 1st page..
im tthinking to do table handling.. but how to start? do i have to do 4 dimensional table?

help is really appreciate..
just fyi, i started learn cobol only 3 weeks ago..
so totally new environment for me..

thank u

Hello,

do i have to do 4 dimensional table?

No. You can probably use a 1-dimensional array of 2 entries (the number in a row) to store the payslip info. You could also define the print area to be another array of 2 entries. Please ignore my previous suggestion about the "counter to 4" - i didn't realize/recall that the payslips needed to be printed 2-up.

As i asked earlier, can you print 1 payslip successfully? Once you can print a payslip successfully, change the code to move the payslip info to the array instead of printing directly. Add code to check if both entries have payslip data and if they do, move the data from to the payslip array to the print array and print.

Once 2 sets of payslips have been printed, advance the paper to a new page.

dear dick, thank you for ur ideas,
i ll try to do it,
thanks a lot

You're welcome

If there are questions or problems, someone will be here to work with you.

If you need to post some code or data, please use the "Code" tag for readability and to preserve alignment. There is a Preview feature that lets you see your post the way it will appear to the forum rather than how it appears in the Reply editor.

Good luck

d