|
On the SEU (that I'm on) if you press F20 (shift + F8) it will show you the right half of the screen. There you can modify dates for modification history. -----Original Message----- From: cobol400-l-request@xxxxxxxxxxxx [mailto:cobol400-l-request@xxxxxxxxxxxx] Sent: Wednesday, August 13, 2003 12:01 PM To: cobol400-l@xxxxxxxxxxxx Subject: COBOL400-L Digest, Vol 1, Issue 264 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. Editing a COBOL Program on AS400 (D Meza) 2. Re: Editing a COBOL Program on AS400 (Kelly Cookson) 3. S/36 to AS/400 Logical File Problem (Phil Campbell) 4. Re: S/36 to AS/400 Logical File Problem (DNieswiadomy@xxxxxxxxxxxxxxxxxxx) 5. Postioning Cursor with AS/400 COBOL (Phil Campbell) 6. Re: Postioning Cursor with AS/400 COBOL (Patrick L Archibald) 7. Re: Postioning Cursor with AS/400 COBOL (Patrick L Archibald) ---------------------------------------------------------------------- message: 1 date: Tue, 12 Aug 2003 13:09:07 -0500 from: "D Meza" <mezazerlin@xxxxxxxxxxx> subject: Editing a COBOL Program on AS400 Is it possible to update the documentation date that appears on the right most side of a AS400 Program and reset all of these dates to zero? I would like to be able to do this on a COBOL program that I have copied and want to enhance my version to do more processing, is there a way to reset these dates? Example, if I updated a line of code today I would see "030813" on the right most side of my line of code. I'm just getting started on the AS400. Thanks for any help you could give me. New AS400 COBOL User ---------------------------------------------------------------------- MSN 8 helps ELIMINATE E-MAIL VIRUSES. Get 2 months FREE*. ------------------------------ message: 2 date: Tue, 12 Aug 2003 11:24:35 -0700 (PDT) from: Kelly Cookson <kc62301@xxxxxxxxx> subject: Re: Editing a COBOL Program on AS400 Yes. While editing the COBOL code in SEU, press function key 13 (F13 or shift+F1) to get the Change Session Defaults screen. Toward the bottom of the screen you will see a line labeled "Set records to date...". Enter zeros in the date field and the dates will be reset to zero. You may want to do this only for new programs. Having the dates of modifications available can come in handy for long-term maintenance. Good luck. Kelly --- D Meza <mezazerlin@xxxxxxxxxxx> wrote: > Is it possible to update the documentation date > that appears on the right > most side of a AS400 Program and reset all of > these dates to zero? > > I would like to be able to do this on a COBOL > program that I have copied > and want to enhance my version to do more > processing, is there a way to > reset these dates? Example, > if I updated a line of code today I would see > "030813" on the right most > side of my line of code. > > I'm just getting started on the AS400. > > Thanks for any help you could give me. > > New AS400 COBOL User > > > > ---------------------------------------------------------------------- > > MSN 8 helps ELIMINATE E-MAIL VIRUSES. Get 2 > months FREE*. > _______________________________________________ > 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. > __________________________________ Do you Yahoo!? Yahoo! SiteBuilder - Free, easy-to-use web site design software http://sitebuilder.yahoo.com ------------------------------ message: 3 date: Tue, 12 Aug 2003 14:02:22 -0500 from: "Phil Campbell" <pcampbell@xxxxxxxxxxxx> subject: S/36 to AS/400 Logical File Problem I am working on converting programs from a S/36 (CBL36) mode to a AS400 (CBL) mode. I've run into something that I have not been able to figure out. Hopefully someone can help me. On the S/36 I have got logical files but off the physical file with multiple keys. I cannot compile these on the AS400. I am REALLY stumped on this one. What do you do to convert logical files (COBOL wise) from the System/36 to the AS400. Start Len CUST-NUMBER 1 6 (Key to the Physical File) CUST-TYPE 7 1 CUST-NAME 8 30 I have a logical file set up by name, type and then number. My file definition in COBOL looks like this. SELECT CUSTOMER-FILE ASSIGN DATABASE-CUSTFILE ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY IS CUST-NAME CUST-TYPE CUST-NUMBER This will not compile using COBOL 400. It tells me that I've got too many keys. Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx Phil Campbell :) ------------------------------ message: 4 date: Tue, 12 Aug 2003 15:14:43 -0400 from: DNieswiadomy@xxxxxxxxxxxxxxxxxxx subject: Re: S/36 to AS/400 Logical File Problem You want to create the logical file in DDS over the physical file. Then, in the COBOL code, just reference the file like: SELECT Customer-FILE ASSIGN TO DATABASE-(logical file name) ORGANIZATION IS INDEXED ACCESS MODE IS DYNAMIC RECORD KEY IS EXTERNALLY-DESCRIBED-KEY FILE STATUS IS filsta. Dale Nieswiadomy Livingston County Information & Technology Services (585) 243-7191 dnieswiadomy@xxxxxxxxxxxxxxxxxxx "Phil Campbell" <pcampbell@xxxxxx nv.com> To Sent by: <cobol400-l@xxxxxxxxxxxx> cobol400-l-bounce cc s@xxxxxxxxxxxx Subject S/36 to AS/400 Logical File Problem 08/12/2003 03:02 PM Please respond to COBOL Programming on the iSeries/AS400 <cobol400-l@xxxxx nge.com> I am working on converting programs from a S/36 (CBL36) mode to a AS400 (CBL) mode. I've run into something that I have not been able to figure out. Hopefully someone can help me. On the S/36 I have got logical files but off the physical file with multiple keys. I cannot compile these on the AS400. I am REALLY stumped on this one. What do you do to convert logical files (COBOL wise) from the System/36 to the AS400. Start Len CUST-NUMBER 1 6 (Key to the Physical File) CUST-TYPE 7 1 CUST-NAME 8 30 I have a logical file set up by name, type and then number. My file definition in COBOL looks like this. SELECT CUSTOMER-FILE ASSIGN DATABASE-CUSTFILE ORGANIZATION INDEXED ACCESS DYNAMIC RECORD KEY IS CUST-NAME CUST-TYPE CUST-NUMBER This will not compile using COBOL 400. It tells me that I've got too many keys. Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx Phil Campbell :) _______________________________________________ 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: 5 date: Tue, 12 Aug 2003 15:00:18 -0500 from: "Phil Campbell" <pcampbell@xxxxxxxxxxxx> subject: Postioning Cursor with AS/400 COBOL I am working on converting programs from a S/36 (CBL36) mode to AS400 (CBL) mode. I've run into something that I have not been able to figure out. Hopefully someone can help me. How do you get the position the cursor is at when the enter or a function key is pressed. This is how I have it set up on the S/36. SELECT SCREEN-FILE ASSIGN TO WORKSTATION-OR001FM ORGANIZATION TRANSACTION CONTROL-AREA IS SCREEN-CONTROL-AREA. 01 SCREEN-CONTROL-AREA. 05 KEY-FUNCTION PIC 99. 88 ENTER-KEY VALUE 0. 88 CMD-KEY1 VALUE 1. 88 CMD-KEY2 VALUE 2. 88 CMD-KEY3 VALUE 3. 05 TERMINAL-ID PIC X(2). 05 RESERVED PIC X(8). 05 CURSOR-ROW PIC 999. 05 CURSOR-COL PIC 999. Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx Phil Campbell :) ------------------------------ message: 6 date: Tue, 12 Aug 2003 16:51:01 -0400 from: Patrick L Archibald <Patrick.Archibald@xxxxxxxxxxxxx> subject: Re: Postioning Cursor with AS/400 COBOL Hi Phil It is not easy. It has been a while but here goes. In the CONFIGURATION SECTION. of the COBOL program I have the following: SPECIAL-NAMES. I-O-FEEDBACK IS FEEDBACK-DISPLAY. In the WORKING-STORAGE SECTION. I have the following: 01 WS-SCREEN-FEEDBACK. 05 FILLER PIC X(147). 05 CSRLOC PIC 9(04) BINARY. 05 DTALEN PIC 9(09) BINARY. 05 SFLRCDNBR PIC 9(04) BINARY. 05 LOWRCDNBR PIC 9(04) BINARY. 05 SFLRCDQTY PIC 9(04) BINARY. 01 WS-COL PIC S9(05). 01 WS-ROW PIC S9(05). Before the WRITE to the screen I move WS-ROW & WS-COL to my display file's ROW1 and COL1 fields. Make sure the first time in you initialize WS-ROW AND WS-COL to some valid value. After the READ of the screen I do the following: ACCEPT WS-SCREEN-FEEDBACK FROM FEEDBACK-DISPLAY FOR IOF-SCREEN. DIVIDE 256 INTO CSRLOC OF WS-SCREEN-FEEDBACK GIVING WS-ROW REMAINDER WS-COL. In the display file I have the following record level keyword: CSRLOC(ROW1 COL1) Also in the display file I have the following hidden fields defined: A ROW1 3S 0H A COL1 3S 0H I hope that helps. Thanx, PLA Phil Campbell wrote: >I am working on converting programs from a S/36 (CBL36) mode to AS400 (CBL) >mode. I've run into something that I have not been able to figure out. >Hopefully someone can help me. > >How do you get the position the cursor is at when the enter or a function key >is pressed. This is how I have it set up on the S/36. > > > SELECT SCREEN-FILE ASSIGN TO WORKSTATION-OR001FM > ORGANIZATION TRANSACTION > CONTROL-AREA IS SCREEN-CONTROL-AREA. > > 01 SCREEN-CONTROL-AREA. > 05 KEY-FUNCTION PIC 99. > 88 ENTER-KEY VALUE 0. > 88 CMD-KEY1 VALUE 1. > 88 CMD-KEY2 VALUE 2. > 88 CMD-KEY3 VALUE 3. > > 05 TERMINAL-ID PIC X(2). > 05 RESERVED PIC X(8). > 05 CURSOR-ROW PIC 999. > 05 CURSOR-COL PIC 999. > >Thanks so very much. Please send any responses to pcampbell@xxxxxxxxxxxx > >Phil Campbell :) > > >_______________________________________________ >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: Tue, 12 Aug 2003 17:05:02 -0400 from: Patrick L Archibald <Patrick.Archibald@xxxxxxxxxxxxx> subject: Re: Postioning Cursor with AS/400 COBOL Well, that didn't format very well. Try this: http://www.patrickarchibald.com/COBOL400PositionCursor.html Thanx, PLA Patrick L Archibald wrote: > Hi Phil > > It is not easy. It has been a while but here goes. > > In the CONFIGURATION SECTION. of the COBOL program I have the following: > > SPECIAL-NAMES. I-O-FEEDBACK IS FEEDBACK-DISPLAY. > > In the WORKING-STORAGE SECTION. I have the following: > > 01 WS-SCREEN-FEEDBACK. 05 > FILLER PIC X(147). 05 > CSRLOC PIC 9(04) BINARY. 05 > DTALEN PIC 9(09) BINARY. 05 > SFLRCDNBR PIC 9(04) BINARY. 05 > LOWRCDNBR PIC 9(04) BINARY. 05 > SFLRCDQTY PIC 9(04) BINARY. > 01 WS-COL PIC S9(05). > 01 > WS-ROW PIC S9(05). > Before the WRITE to the screen I move WS-ROW & WS-COL to my display > file's ROW1 and COL1 fields. Make sure the first time in you > initialize WS-ROW AND WS-COL to some valid value. > > After the READ of the screen I do the following: > > ACCEPT WS-SCREEN-FEEDBACK FROM > FEEDBACK-DISPLAY FOR > IOF-SCREEN. DIVIDE 256 INTO CSRLOC OF > WS-SCREEN-FEEDBACK GIVING WS-ROW > REMAINDER WS-COL. > In the display file I have the following record level keyword: > > CSRLOC(ROW1 COL1) > Also in the display file I have the following hidden fields defined: > > A ROW1 3S 0H A COL1 3S 0H > I hope that helps. > > Thanx, PLA > > Phil Campbell wrote: > >> I am working on converting programs from a S/36 (CBL36) mode to AS400 >> (CBL) mode. I've run into something that I have not been able to >> figure out. Hopefully someone can help me. >> How do you get the position the cursor is at when the enter or a >> function key is pressed. This is how I have it set up on the S/36. >> >> SELECT SCREEN-FILE ASSIGN TO WORKSTATION-OR001FM >> ORGANIZATION TRANSACTION >> CONTROL-AREA IS SCREEN-CONTROL-AREA. >> >> 01 SCREEN-CONTROL-AREA. >> 05 KEY-FUNCTION PIC 99. >> 88 ENTER-KEY VALUE 0. >> 88 CMD-KEY1 VALUE 1. >> 88 CMD-KEY2 VALUE 2. >> 88 CMD-KEY3 VALUE >> 3. 05 >> TERMINAL-ID PIC X(2). 05 >> RESERVED PIC X(8). 05 >> CURSOR-ROW PIC 999. 05 >> CURSOR-COL PIC 999. Thanks so very much. >> Please send any responses to pcampbell@xxxxxxxxxxxx >> >> Phil Campbell :) >> >> _______________________________________________ >> 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. > > > ------------------------------ _______________________________________________ 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 1, Issue 264 ******************************************
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
