Recent content by NinaToo

Please write some pseudo-code to let us know exactly what you want the program to do. Analyze the processing carefully and let us know what you want to do. What sort of file, your imput, your output? Is this batch or online? Nina Too

I've done 2-dimensional tables fairly frequently because I am a CICS online programmer who has to sometimes display data in rows and columns on the screen. When you are using a 2 dimensional table, you have to code the field as BRANCH (BR-IDX1, BR-IDX2). The first index (or subscript) tells...

upset wrote: ----------------------- Hi I am astudent of MIS so I have to take COBOL. I have to do a program for validation of department and also the displaying of month from from the tables. I can't figure it out can anyone help me ----------------------- Can you be more specific? What kinds...

Don't worry, WinZip, I was thinking of Dynamic Access when doing a READ-NEXT. I'm not always very schooled in writing English (just got through taking an agency Technical Writing course) so I jumped into saying "Random Access" and then forgot to clarify it when I suggested some code...

Just thought of something else. If you hit "Person-A" with "Code-A" and "Status-1". And read the record into a WS field. If you were to then move "Code-B" into the field previously occupied by "Code-A," you will still have...

It seems like, if "Person-A" is your key, then when you do a dynamic access, and you hit the first "Person-A," then you'll get the first record with "Person-A." Which will be the one with "Code-A." Though if you do a READ-NEXT after that, you should...

You wrote: ------------------ If I have the following code and the WS-WORK-1-ND is pic 9(2) and contains 1 what is the value of WS-WORK3-ND? DIVIDE WS-WORK-1-ND BY 2 GIVING WS-WORK-2-ND REMAINDER WS-WORK-3-ND I what I am assuming is that everytime I have an...

In an IEBCOPY step, a SOC 4 wouldn't likely be a result of a programming problem in IEBCOPY. It's probably some sort of system thing. Though I wonder still if it's possible that a programming problem could occur in an earlier step of a job using IEBCOPY, and somehow doesn't become apparent...

Sometimes JCL problems, such as SOC 4 and SOC 7 abends, can be a result of faulty coding in a program. Such as having a table which doesn't have enough OCCURS for the actual file, or else trying to put in an alpha character into a PIC 9 COMP field. So sometimes these definitely are programming...

SOC 4, as I recall, is a "protection exception" abend. Which means that some quantity is out of bounds, usually a table which has gone over its max. I would look at the programs involved to see if anywhere, there is a table being loaded which exceeds the number of OCCURS. Also, I...

Here is an obvious one. Unless there is some sort of COBOL which I've never heard of. The coding: IF IN-CODE = W-TABLE (W-INDEX) THEN MOVE 'T' TO OUT-TYPE DISPLAY W-INDEX (3) DISPLAY W-TABLE-ITEM (200) END-IF The first line has a glaring error...

Let me add to the other answers here. Both shops that I have worked at, my present shop and my previous shop, have had utility programs to call for checking date validity. I believe that such utility programs are commercially available. However, as RonaldB said, you could construct your own...

Yes, I did notice that the site worked perfectly. Cool! :-) Nina Too

I need to tell this funny COBOL story which a fellow co-worker passed on to me. Here it goes: A successful Cobol programmer who had the good fortune to be quite wealthy chose to be cryogenically frozen before the year 2000 and left instructions to be awakened in the year 2020. He knew the...

I would need more information. What sort of file is the poem written on -- sequential or random-access? Or has it been entered online? How is the input formatted? Let me know and maybe I can help you. Nina Too