Forum: COBOL

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 all, I have a CBL program that converts a save file (*SAVF) to a database file. the program works fine. I just need to make a few modifications, unfortunately I do not have the source code. So I decided to write a new program. But I haven't found out (Technically) how the old program is...

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

I am trying to perform a substring function in Cobol: I am trying to get the first character of a variable i.e. account number = 900XXXXXXX. I want to pick up the first character of 9. Is there a simple way of doing this in Cobol? Thanks, DAC

Hello all... Wondering if there is a command in COBOL that functions similar to LIKE when you run queries? I know if I run a query on a file and have a 30 character field...if I want to know if a certain sequence or word is there but am unsure the exact position, I can say LIKE '%word%' and...

Does anyone know what items i put in a compile to put the Cobol program to debug. I have tried *source & *gen etc and it doesn't seem to go into debug mode. Thanks, DAC Can you believe I am doing Cobol!

Dear all, How can I know that a program is being used by another user? I need to write a restriction if someone is using a certain program, the other user who is attempting to access the same option(program) will have a blocking message and he won't be able to access this program/option unless...

Hi , In a CL, open query has been done with the key feilds(more than 1) other the actual key fields defined in the PF .. now in the COBOL (which is called from the CL ) Externally described key has been defined in the select clause of the file.. we want do the dynamic read based keys listed...

Has someone got some good documentation on COBOL pointers. I went thru IBMs material but what i want is the application of pointers. I have been coding in cobol for the past three years and have not encountered a compelling need to use pointers. So I just wanted to know what are all the...

I divide my cobol programs in 3 parts(3 cobol program). I dont want to define definitions such as variables. Can i have another cobol program that includes all variables and i call that program from all other my programs for use same variable names and definitions?. I hope i could explain!

Hi , is ther any function to get the trailing spaces in the cobol.. i tried with inspect reverse but the reverse functionality is not supported with my version .. pls let me know is ther any other functionality for this thanks ..

i have read ebook COBOL400 user guide, then i write cobol program from an example at this book on page 98-101. after i compile there are many error like this .... i don't know why? error message from spool file use cannot be determined. Default item assumed. ...

hi, I need to list my records for example; Name surname john smith ian clerance james hetfield I want to list them on screen but I dont want to use subfiles. Do I have any alternative solution about that. Thanks for all help