Forum: COBOL

Welp! It looks as though I need to get back up-to-speed with the COBOL generation... Anyone have any initial sites I can visit to get going with this? I found this site and it has some pretty good information to get going. I need some examples of using Embeded SQL with COBOL though. We...

Hi I am as400 cobol developer could someone explain to me what is the difference of GENSSW and OPTSWCH subroutine? I think both subroutine have the same process which is program switching. Thanks,

i'm having a problem in my screen section in COBOL. the error is redundant clause ignored and i really don't know how to fix it! helpp :( here's part of the code: 01 SCREEN-1. 02 BLANK SCREEN. 02 LINE 4 COLUMN 30 VALUE 'WELCOME'. 02 LINE 5 COLUMN 25 VALUE...

Hi , I am new to AS400 and need of a program which inserts records to a Pf , The input need to be taken from user which is given through a Display file.... That means the input given from a display file need to save in a PF..... Please help me to do this........ Thanking u.........

Hello, I am getting an exception of MCH1210 while compiling my cobol/400 program. I made some simple updates in program, but ever since these new lines oc code have been inserted my program fails to compile. I get EXCEPTION mch1210 RECEIVER VALUE TOO SMALL TO HOLD RESULT there is...

Hi thanks in advance i am doing some enhancement in cobol program.for the enhancement i added some lines in the program.its working perfectly. but after the newly added lines,the cobol program calling some cobol programs,while the control come from the called program to the calling program.its...

Hi, I am just started learning COBOL. I want to form a Username with the Firstletter of First name , firstletter of middle name and full last name. Give me details how I have to handle this Thanks, geetha

I'm trying to do simple sorts and getting a runtime error. I've tried my own program, instructor-supplied programs, and even code straight from the book. I swear it worked a few weeks ago, but now I keep getting this: Message LBE7006 at COBOL statement xxx (C D F). Is this something I need an...

Hi, Is there any certification avalable in IBM or some other organization for COBOL/400?

Hi, I have written a small COBOL program which involves ICF file handling and compiled it successfully. But, during run of this program, the WRITE operation to the ICF file COMICFON2 is ended with error. Even, the recovery operation was also unsuccessful. I could not find the reason for the same....

IF SYSTEM-YY < SYS-CENTURY-CUTOFF (20) (20) MOVE SYS-CENTURY-NEXT TO SYSTEM-CC ELSE (19) (19) MOVE SYS-CENTURY-PREV TO SYSTEM-CC END-IF. in my cobol...

Move ctldt1 of date-control-record to control-date-from.

Hi all, Something strange is occuring and I cannot know why. I have 3 CBL programs X & Y & Z. X calls Y and Call Z in the same way cause Y and Z have the same linkage section (composed of 2 parameters). X calls both programs with only 1 parameter of the 2 filled. When Y is called, I...

HI THIS IS MY CODE 05 FDSFRT-R OCCURS 11. 10 FDSFRT-INI PIC X(08) . 10 FDSFRT-SUF PIC X(01) . 10 FARR-VER PIC X(11) .

The following is the issue, i have faced. I read a file and moved the value of one of its NUMERIC field to a working variable in COBOL. i.e MOVE FLD1 to WFLD1 But, my program has received MCH1202 during the processing of the file. Now, i need to find out the various possibles...

PLEASE ANYBODY GUIDE ME HOW TO RECEIVE PARAMETERS IN COBOL...LIKE * ENTRY IN RPG....:duh

Hi, I have two files A and B. File A has three Keys and the first two keys of file A are keys of file B as well. File B has only two keys. I need to delete a record with key combination as 1, 1, 4 in file A. However, since file B has only two keys, the initial read of file B reads only 1, 1, 1....

I have successfully download a file to the ifs, unzipped it and then ftp'd it to a folder on the PC. It's an excel spreadsheet. When I try and open it on the PC I get this error ' the file you are trying to open is in a different format than specified by the file extension.'

Is it possible to set a rule to move emails from Microsoft exchange server to a folder which is placed outside outlook so that it can be accessed by the AS400 machine

anybody having cobol400 ebooks and pdfs.........please do the needfull

Hi, I'm developing a tool using subfiles in COBOL where I have to show the list of source physical files of a particular library which has the source of the file entered. For eg if there are 3 src-pf in a lib XYZ say.. QLBLSRC, QCLSRC, QDDSSRC and if I search for a source named ABC then it...

Introducing myself...I am new to COBOL/400, I am finding some issues, pls help. when I am displaying the display file, the values are not populated from the database file and a blank record is shown.... IDENTIFICATION DIVISION. PROGRAM-ID. PKM1. DATE-WRITTEN. NOV. 03,...

I have a 16 character account number i.e. 1234567890123456 I am suppose to put *(stars) in the first 10 positions to mask the account number. How do I do this in Cobol? DAC