|
A used copy of Programming in Cobol/400 by James Cooper, Nancy Stern, Robert A. Stern, Nancy B. Stern can be picked up on Amazon for less than $20.00 these days - I agree it is still one of the best books around for learning AS400 COBOL even though it does not go into the nuances of ILE COBOL. John A Arnold (301) 354-2939 jarnold@xxxxxxxxxxxxx -----Original Message----- From: cobol400-l-request@xxxxxxxxxxxx [mailto:cobol400-l-request@xxxxxxxxxxxx] Sent: Monday, April 04, 2005 11:03 AM To: cobol400-l@xxxxxxxxxxxx Subject: COBOL400-L Digest, Vol 3, Issue 28 Send COBOL400-L mailing list submissions to cobol400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/cobol400-l or, via email, send a message with subject or body 'help' to cobol400-l-request@xxxxxxxxxxxx You can reach the person managing the list at cobol400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of COBOL400-L digest..." Today's Topics: 1. how to debug in cobol400 (cobol400-l@xxxxxxxxxxxx) 2. RE: how to debug in cobol400 (cobol400-l@xxxxxxxxxxxx) 3. How to handle function/pageup/pagedown/enter keys in cobol400 (cobol400-l@xxxxxxxxxxxx) 4. Re: suggested readings, source code links etc.. for cobol400 (cobol400-l@xxxxxxxxxxxx) 5. RE: suggested readings, source code links etc.. for cobol400 (cobol400-l@xxxxxxxxxxxx) 6. RE: suggested readings, source code links etc.. for cobol400 (cobol400-l@xxxxxxxxxxxx) 7. RE: COBOL400-L Digest, Vol 3, Issue 27 (cobol400-l@xxxxxxxxxxxx) ---------------------------------------------------------------------- message: 1 date: Mon, 4 Apr 2005 15:28:21 +0800 from: cobol400-l@xxxxxxxxxxxx subject: [COBOL400-L] how to debug in cobol400 hi all, i'm just new to cobol400, but with some background in rpg this is my situation, 1. after i finished compiling the dspf and cbl using option 14 2. then in the command line i enter strcbldbg pgm(my_cblpgm) 3 then nothing happens how do i we use the "strcbldbg" correctly? 1. how to start the debug correctly? 2. how to step 3. how to add breakpoint and jump to that breakpoint 4. how to see the attributes and the current value of a variable MANY THANKS IN ADVANCE!!! GODBLESS!!! ------------------------------ message: 2 date: Mon, 4 Apr 2005 13:16:32 +0530 from: cobol400-l@xxxxxxxxxxxx subject: RE: [COBOL400-L] how to debug in cobol400 Hello, Initially, you have to compile the COBOL code using *SRCDBG option for source listing options. After taking 14 on the source and F4, followed by F10, we get additional parameters. In additional parameters, the first input capable field is source listing option. Then use the command STRISDB PGM (Program name) UPDPROD (*YES) INVPGM (*YES) to start your debug session. For step execution use <F5>. To set a debug point, use <F6> on the program line. To run to the debug point, use <F17> (Shift + F5) You can skip certain perform routines and jump to next execution steps using <F13> (Shift + F1). To watch the variables, use W 'variable name' on the debug command line. To display the variables, use D 'variable name' on the debug command line. Hope the above points help you... Please mail back for further queries. Regards, -----Original Message----- From: cobol400-l-bounces+muthathal_ramasamy=satyam.com@xxxxxxxxxxxx [mailto:cobol400-l-bounces+muthathal_ramasamy=satyam.com@xxxxxxxxxxxx] Sent: Monday, April 04, 2005 12:58 PM To: COBOL Programming on the iSeries/AS400 Subject: [COBOL400-L] how to debug in cobol400 hi all, i'm just new to cobol400, but with some background in rpg this is my situation, 1. after i finished compiling the dspf and cbl using option 14 2. then in the command line i enter strcbldbg pgm(my_cblpgm) 3 then nothing happens how do i we use the "strcbldbg" correctly? 1. how to start the debug correctly? 2. how to step 3. how to add breakpoint and jump to that breakpoint 4. how to see the attributes and the current value of a variable MANY THANKS IN ADVANCE!!! GODBLESS!!! _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. ************************************************************************ ** This email (including any attachments) is intended for the sole use of the intended recipient/s and may contain material that is CONFIDENTIAL AND PRIVATE COMPANY INFORMATION. Any review or reliance by others or copying or distribution or forwarding of any or all of the contents in this message is STRICTLY PROHIBITED. If you are not the intended recipient, please contact the sender by email and delete all copies; your cooperation in this regard is appreciated. ************************************************************************ ** ------------------------------ message: 3 date: Mon, 4 Apr 2005 18:12:06 +0800 from: cobol400-l@xxxxxxxxxxxx subject: [COBOL400-L] How to handle function/pageup/pagedown/enter keys in cobol400 hi all, how do we handle/convert this rpgile statements in cobol400 fScrn07 CF E WorkStn Sfile(Scrsfl1:RecNum2) f infds(info) Dinfo ds D cfkey 369 369 * * Constants and stand alone fields * dExit C const(X'33') dCancel C const(X'3C') dEnter C const(X'F1') D @PAGEUP C X'F4' D @PAGEDWN C X'F5' C Select * * If ENTER key is pressed * * C when (cfkey = enter) c exsr enter_subroutine * C when (cfkey = exit) c exsr exit_subroutine * C when (cfkey = cancel) c exsr enter_subroutine * C when (cfkey = @PAGEUP) c exsr enter_subroutine * C when (cfkey = @PAGEdown) c exsr enter_subroutine * c endsl * any related links, or sample source code links,topics will do MANY THANKS IN ADVANCE!!! GODBLESS!!! ------------------------------ message: 4 date: Mon, 4 Apr 2005 08:42:17 -0400 from: cobol400-l@xxxxxxxxxxxx subject: Re: [COBOL400-L] suggested readings, source code links etc.. for cobol400 The best text I've seen on COBOL/400 is probably "Programming in COBOL/400" by James Cooper, et al ISBN: 0471418463 It retails for around $90, but if you search you should be able to get it for $60-$70. (If you need a decent search engine, try mysimon.com -- I use their Advanced Book Search page and usually find the results quite helpful. I don't have the exact title or ISBN, but there was a book about specifically about programming subfiles using COBOL/400. I don't even know if it's available anymore. (I've never seen that one, but I heard it is, or at least was, pretty good.) You can search the archives here for help and there's also a COBOL forum and some sample code at iSeries Network. Here is the forum's URL: http://www.iseriesnetwork.com/Forums/main.cfm?CFApp=19 Michael Quigley AS/400 Programming Coordinator The Way International www.TheWay.org Original message: ---------------------------------------------------------------------- date: Fri, 1 Apr 2005 09:05:21 +0800 from: cobol400-l@xxxxxxxxxxxx subject: [COBOL400-L] suggested readings, source code links etc.. for cobol400 hi all! I'm new to cobol400, and I want to learn basic programming in cobol like 1. file manipulation or add, logical delete, update and other stuffs 2. subfile programming on different types of subfiles, validation and other stuffs Can you give some suggested readings,source code links etc.. for cobol400, by the way I have some background on rpg Many Thanks in advance!!! GODBLESS!!! wilson ------------------------------ message: 5 date: Mon, 4 Apr 2005 07:49:58 -0500 from: cobol400-l@xxxxxxxxxxxx subject: RE: [COBOL400-L] suggested readings, source code links etc.. for cobol400 The book you mentioned is: "Programming Subfiles in COBOL/400" by Jerry Goldson ISBN 1-884322-12-3 It's an okay book. Kelly -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of cobol400-l@xxxxxxxxxxxx Sent: Monday, April 04, 2005 6:42 AM To: cobol400-l@xxxxxxxxxxxx Subject: Re: [COBOL400-L] suggested readings,source code links etc.. for cobol400 The best text I've seen on COBOL/400 is probably "Programming in COBOL/400" by James Cooper, et al ISBN: 0471418463 It retails for around $90, but if you search you should be able to get it for $60-$70. (If you need a decent search engine, try mysimon.com -- I use their Advanced Book Search page and usually find the results quite helpful. I don't have the exact title or ISBN, but there was a book about specifically about programming subfiles using COBOL/400. I don't even know if it's available anymore. (I've never seen that one, but I heard it is, or at least was, pretty good.) You can search the archives here for help and there's also a COBOL forum and some sample code at iSeries Network. Here is the forum's URL: http://www.iseriesnetwork.com/Forums/main.cfm?CFApp=19 Michael Quigley AS/400 Programming Coordinator The Way International www.TheWay.org Original message: ---------------------------------------------------------------------- date: Fri, 1 Apr 2005 09:05:21 +0800 from: cobol400-l@xxxxxxxxxxxx subject: [COBOL400-L] suggested readings, source code links etc.. for cobol400 hi all! I'm new to cobol400, and I want to learn basic programming in cobol like 1. file manipulation or add, logical delete, update and other stuffs 2. subfile programming on different types of subfiles, validation and other stuffs Can you give some suggested readings,source code links etc.. for cobol400, by the way I have some background on rpg Many Thanks in advance!!! GODBLESS!!! wilson _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. ------------------------------ message: 6 date: Mon, 4 Apr 2005 09:11:20 -0400 from: cobol400-l@xxxxxxxxxxxx subject: RE: [COBOL400-L] suggested readings, source code links etc.. for cobol400 There is another textbook by Shelly Cashman on Programming Cobol on the AS/400 which may be what you are looking for. I believe that Mr. Cashman only spent 3 or 4 chapters out of the 25 or so chapters of the book mentioning Subfiles, DDS and all the other goodies that one would need to know in running COBOL programs in an AS400 environment. I didn't buy the book, because of its simplicity. When I went to the original bookstore where I saw this text, it was NO longer on the shelf. The staff told me that due to the unpopularity of COBOL, sales were sluggish and that's why it has to be discontinued. If you can get hold of this text, it may be well worth perusing that specific chapters which I was talking about. I will get let you know once I get the exact title, ISBN etc. Keep your fingers crossed Armando G. Dias Systems Analyst University of Maryland Baltimore (410) 706-1664 -----Original Message----- From: cobol400-l@xxxxxxxxxxxx [mailto:cobol400-l@xxxxxxxxxxxx] Sent: Monday, April 04, 2005 8:50 AM To: COBOL Programming on the iSeries/AS400 Subject: RE: [COBOL400-L] suggested readings,source code links etc.. for cobol400 The book you mentioned is: "Programming Subfiles in COBOL/400" by Jerry Goldson ISBN 1-884322-12-3 It's an okay book. Kelly -----Original Message----- From: cobol400-l-bounces@xxxxxxxxxxxx [mailto:cobol400-l-bounces@xxxxxxxxxxxx]On Behalf Of cobol400-l@xxxxxxxxxxxx Sent: Monday, April 04, 2005 6:42 AM To: cobol400-l@xxxxxxxxxxxx Subject: Re: [COBOL400-L] suggested readings,source code links etc.. for cobol400 The best text I've seen on COBOL/400 is probably "Programming in COBOL/400" by James Cooper, et al ISBN: 0471418463 It retails for around $90, but if you search you should be able to get it for $60-$70. (If you need a decent search engine, try mysimon.com -- I use their Advanced Book Search page and usually find the results quite helpful. I don't have the exact title or ISBN, but there was a book about specifically about programming subfiles using COBOL/400. I don't even know if it's available anymore. (I've never seen that one, but I heard it is, or at least was, pretty good.) You can search the archives here for help and there's also a COBOL forum and some sample code at iSeries Network. Here is the forum's URL: http://www.iseriesnetwork.com/Forums/main.cfm?CFApp=19 Michael Quigley AS/400 Programming Coordinator The Way International www.TheWay.org Original message: ---------------------------------------------------------------------- date: Fri, 1 Apr 2005 09:05:21 +0800 from: cobol400-l@xxxxxxxxxxxx subject: [COBOL400-L] suggested readings, source code links etc.. for cobol400 hi all! I'm new to cobol400, and I want to learn basic programming in cobol like 1. file manipulation or add, logical delete, update and other stuffs 2. subfile programming on different types of subfiles, validation and other stuffs Can you give some suggested readings,source code links etc.. for cobol400, by the way I have some background on rpg Many Thanks in advance!!! GODBLESS!!! wilson _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. ------------------------------ message: 7 date: Mon, 4 Apr 2005 11:02:18 -0400 from: cobol400-l@xxxxxxxxxxxx subject: [COBOL400-L] RE: COBOL400-L Digest, Vol 3, Issue 27 This is not something you can solve in COBOL - The DDS must be set up properly. If you place the OVERLAY keyword in the record, the window will appear overtop of the original screen. To control the Window size and location - look into the DDS WINDOW keyword. You can find the DDS reference for display files at http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm John A Arnold (301) 354-2939 jarnold@xxxxxxxxxxxxx -----Original Message----- From: cobol400-l-request@xxxxxxxxxxxx [mailto:cobol400-l-request@xxxxxxxxxxxx] Sent: Saturday, April 02, 2005 1:01 PM To: cobol400-l@xxxxxxxxxxxx Subject: COBOL400-L Digest, Vol 3, Issue 27 Send COBOL400-L mailing list submissions to cobol400-l@xxxxxxxxxxxx To subscribe or unsubscribe via the World Wide Web, visit http://lists.midrange.com/mailman/listinfo/cobol400-l or, via email, send a message with subject or body 'help' to cobol400-l-request@xxxxxxxxxxxx You can reach the person managing the list at cobol400-l-owner@xxxxxxxxxxxx When replying, please edit your Subject line so it is more specific than "Re: Contents of COBOL400-L digest..." Today's Topics: 1. "windows" using separate display files (cobol400-l@xxxxxxxxxxxx) 2. Re: "windows" using separate display files (cobol400-l@xxxxxxxxxxxx) 3. Re: "windows" using separate display files (cobol400-l@xxxxxxxxxxxx) ---------------------------------------------------------------------- message: 1 date: Fri, 1 Apr 2005 15:19:47 -0500 from: cobol400-l@xxxxxxxxxxxx subject: [COBOL400-L] "windows" using separate display files Hi all, Is it possible to have a separate display file "window" overtop of another. I've built a separate PGM / DSPF (window) to be called from various applications. I would like it to "overlay" the existing screen without clearing the entire screen. Can someone point me in the right direction Screen a date Time ++++++++++++++++ + Screen b + ++++++++++++++++ Where Screen b is a different PGM / DSPF. BUY. HOLD. AND PROSPER Daniel Mielke Business Systems Analyst AIC Limited 1-888-710-4242 x4614 dmielke@xxxxxxx <mailto:dmielke@xxxxxxx> www.aic.com <http://www.aic.com> Man darf nur die Tasten zur richtigen Zeit treffen, so spielt das Instrument von selber. Johann Sebastian Bach (1685-1750) ------------------------------ message: 2 date: Fri, 01 Apr 2005 16:37:26 -0500 from: cobol400-l@xxxxxxxxxxxx subject: Re: [COBOL400-L] "windows" using separate display files This display file DDS works for me. A DSPSIZ(24 80 *DS3 - A 27 132 *DS4) A INDARA A PRINT A CA03(03) A* WDWBORDER((*COLOR GRN) + A* (*DSPATR RI) + A* (*CHAR ' ')) A R SCREEN1 A *DS3 WINDOW(1 42 18 34) A *DS4 WINDOW(1 42 18 34) A KEEP A USRRSTDSP A 17 26'F3=Exit' A DSPATR(HI) A COLOR(BLU) A 17 1'1=Select' A DSPATR(HI) A COLOR(BLU) A R SUBFL1 SFL A SFLRQS 1A B 6 1VALUES(' ' '1') A COLOR(TRQ) A EMPLNMBR 4Y 0O 6 3EDTCDE(Z) A EMPLNAME 25A O 6 8 A R SUBFLCNTL1 SFLCTL(SUBFL1) A *DS3 SFLSIZ(0010) A *DS4 SFLSIZ(0010) A *DS3 SFLPAG(0010) A *DS4 SFLPAG(0010) A *DS3 WINDOW(SCREEN1) A *DS4 WINDOW(SCREEN1) A 99 SFLDSP A 99 SFLDSPCTL A N99 SFLCLR A ROLLUP(50) A ROLLDOWN(51) A OVERLAY A 1 12' EMPLOYEES ' A DSPATR(RI) A COLOR(PNK) A 4 1'Position to:' A EMPLNAME 15A B 4 15COLOR(TRQ) A 5 3'NMBR' A DSPATR(HI) A 5 8'NAME' A DSPATR(HI) A 1 1'TBLDFM20' A COLOR(YLW) A 1 27DATE A EDTCDE(Y) A COLOR(YLW) A 2 27TIME A COLOR(YLW) A R DUMMY A ASSUME A 2 1' ' Thanx, PLA cobol400-l@xxxxxxxxxxxx wrote: > > >Hi all, > >Is it possible to have a separate display file "window" overtop of another. >I've built a separate PGM / DSPF (window) to be called from various >applications. I would like it to "overlay" the existing screen without >clearing the entire screen. > >Can someone point me in the right direction > > > >Screen a date > > Time > > ++++++++++++++++ > > + Screen b + > > ++++++++++++++++ > > > >Where Screen b is a different PGM / DSPF. > > > >BUY. HOLD. AND PROSPER > >Daniel Mielke > >Business Systems Analyst > >AIC Limited > >1-888-710-4242 x4614 > >dmielke@xxxxxxx <mailto:dmielke@xxxxxxx> > >www.aic.com <http://www.aic.com> > > > > >Man darf nur die Tasten zur richtigen Zeit treffen, >so spielt das Instrument von selber. >Johann Sebastian Bach (1685-1750) > > > > > > > >----------------------------------------------------------------------- - > >_______________________________________________ >This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list >To post a message email: COBOL400-L@xxxxxxxxxxxx >To subscribe, unsubscribe, or change list options, >visit: http://lists.midrange.com/mailman/listinfo/cobol400-l >or email: COBOL400-L-request@xxxxxxxxxxxx >Before posting, please take a moment to review the archives >at http://archive.midrange.com/cobol400-l. > > > ------------------------------ message: 3 date: Sat, 2 Apr 2005 11:22:55 +1000 from: cobol400-l@xxxxxxxxxxxx subject: Re: [COBOL400-L] "windows" using separate display files On 02/04/2005, at 6:19 AM, cobol400-l@xxxxxxxxxxxx wrote: > Is it possible to have a separate display file "window" overtop of > another. > I've built a separate PGM / DSPF (window) to be called from various > applications. I would like it to "overlay" the existing screen without > clearing the entire screen. > > Can someone point me in the right direction Add this piece of magic to your display file DDS: A R DUMMY A ASSUME A 1 2'Nosferatu' Your application does not read or write this record format. Its mere presence changes the behaviour of the display file and tells OS/400 to assume (more properly presume but I digress) that the record is already on the display when the file is opened thus has the effect of not clearing the screen. Note that the screen can still be cleared when a record format is written. To stop that you must also specify OVERLAY on the record format you are writing. If you are using the WINDOW keyword then it effectively behaves as if OVERLAY was specified. ASSUME is normally used with KEEP (in another display file) but it has the pleasing side-effect of making windows display smoothly. Regards, Simon Coulter. -------------------------------------------------------------------- FlyByNight Software AS/400 Technical Specialists http://www.flybynight.com.au/ Phone: +61 3 9419 0175 Mobile: +61 0411 091 400 /"\ Fax: +61 3 9419 0175 \ / X ASCII Ribbon campaign against HTML E-Mail / \ -------------------------------------------------------------------- ------------------------------ _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. End of COBOL400-L Digest, Vol 3, Issue 27 ***************************************** ------------------------------ _______________________________________________ This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) digest list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options, visit: http://lists.midrange.com/mailman/listinfo/cobol400-l or email: COBOL400-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at http://archive.midrange.com/cobol400-l. End of COBOL400-L Digest, Vol 3, Issue 28 *****************************************
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
midrange.com
