IT Answers » COBOL/400

QTMMSNDM without RPG

tfount — Wed, 08 May 2013 09:46:10 +0000

New Discussion Post by TomLiotta

24 digit number: Arithmetic operations?

gast951 — Thu, 21 Mar 2013 08:03:34 +0000

Question Edited by TomLiotta

How to find the copybook?

mvrkrishna — Fri, 22 Feb 2013 04:05:02 +0000

New Discussion Post by TomLiotta

Validate date in COBOL/400

praveen212 — Thu, 31 Jan 2013 19:22:27 +0000

New Discussion Post by TomLiotta

Debugging in AS/400

mvrkrishna — Sun, 13 Jan 2013 06:37:03 +0000

New Discussion Post by ToddN2000

Writing data into a Flat file using COBOL/400

mvrkrishna — Thu, 16 Feb 2012 17:17:37 +0000

Hi Group,

I have created a flat file (file with just record length) Now i would like to pass data into it through a COBOL/400 pgm.

How to define that flat file in cobol/400 and write data into it?

Regards,

MVRK

AS/400 COBOL

madhuchowdary — Wed, 05 Oct 2011 10:07:46 +0000

one physical file have 6 key fields,now i want to retrive the 10th record

based on one key field,how to retrive in cobol/400 with without using logical file

ex:- emp pf have 6 key fields,and emp have records,now i want to retrive particular record in emp(10 th record only),in my cobol pgm some times use 6 key fields and some time i want use only one key field with out using logical files

pls give replay with small example

AS400 COBOL one pf have one lf but key fields are different

madhuchowdary — Mon, 03 Oct 2011 11:30:39 +0000

i have one physical file,that pf have one logical file,but pf have 4 key fields,logical file have 2 key fields,now both(pf,lf) are using in cobol/400 code

SELECT pf-file ASSIGN TO DATABASE-pf1 [Br _extended=”true” />ACCESS IS dynamic[Br _extended=”true” />ORGANIZATION IS INDEXED [Br _extended=”true” />RECORD KEY IS EXTERNALLY-DESCRIBED-KEY [Br _extended=”true” />FILE STATUS IS pf-STATUS. [Br _extended=”true” />[Br _extended=”true” />SELECT lf-file ASSIGN TO DATABASE-lf1 [Br _extended=”true” />ACCESS IS DYNAMIC [Br _extended=”true” />ORGANIZATION IS INDEXED [Br _extended=”true” />RECORD KEY IS EXTERNALLY-DESCRIBED-KEY [Br _extended=”true” />FILE STATUS IS lf-STATUS. [Br _extended=”true” />[Br _extended=”true” />FD pf-file [Br _extended=”true” />LABEL RECORDS ARE STANDARD. [Br _extended=”true” />01 F4111LD-RECORD-SRC. [Br _extended=”true” />COPY DDS-ALL-FORMATS OF pf1. [Br _extended=”true” />[Br _extended=”true” />FD lf-file [Br _extended=”true” />LABEL RECORDS ARE STANDARD. [Br _extended=”true” />01 F4111LI-RECORD-SRC. [Br _extended=”true” />COPY DDS-ALL-FORMATS OF lf1.

but i got error in cobol/400 those fields are previouly defined

how to solve this

[Br _extended=”true” />[Br _extended=”true” />

Number of copies how to print in printer file

madhuchowdary — Fri, 23 Sep 2011 12:12:07 +0000

New Discussion Post by WoodEngineer

COBOL/400 subfile single page load(page by page load)

AS400Prathap — Tue, 09 Aug 2011 08:10:35 +0000

Hi! can any one give me sample code of cobol/400 program which loads a subfile records page by page. My problem here is I am able to code page by page records loading from a PF but when the Subfile is dispalyed it is not properly displaying the pages. Fro example after loading and displaying the first page(say sflpage=5) I load the second page and display the subfile(sfl rel rec no is say 10 at the end of loading second page) but it is displaying from the first page and when I do Pagedown twice then only teh second page contents are displayd. Can any one help me wehre I went wrong ?