Code400 -The Support Alternative - DDS http://www.code400.com/forum/ subfiles,screens, physical files, logicals, print files and menus en Tue, 07 Sep 2010 00:50:18 GMT vBulletin 60 http://www.code400.com/forum/images/misc/rss.png Code400 -The Support Alternative - DDS http://www.code400.com/forum/ Soft warning message on control record. http://www.code400.com/forum/showthread.php/9606-Soft-warning-message-on-control-record.?goto=newpost Sun, 29 Aug 2010 13:04:35 GMT Hi all, I am trying to determine the easiest way to code (COBOL) and hopefully with a DDS keyword, a soft warning message on the control record of my display file, allowing the user to see the message after hitting enter, but then hitting enter again to commit the transaction where nothing has... Hi all,

I am trying to determine the easiest way to code (COBOL) and hopefully with a DDS keyword, a soft warning message on the control record of my display file, allowing the user to see the message after hitting enter, but then hitting enter again to commit the transaction where nothing has changed on the screen between the message display and them hitting enter for the second time.

I can do this on the subfile record no problem setting the SFLNXTCHG keyword and outputting the message on a subfile record. But I've been unable to figure out how to do the same thing on the control record portion of the display without a lot of programming. Thanks for yyour help.

Mike W. ]]> DDS mworkman http://www.code400.com/forum/showthread.php/9606-Soft-warning-message-on-control-record. <![CDATA[LF's maximum record format]]> http://www.code400.com/forum/showthread.php/9603-LF-s-maximum-record-format?goto=newpost Thu, 26 Aug 2010 11:25:16 GMT The maximum record format it's 32, but if i need more how can pass this? ]]> DDS Thunder http://www.code400.com/forum/showthread.php/9603-LF-s-maximum-record-format CNTFLD keyword attributes http://www.code400.com/forum/showthread.php/9596-CNTFLD-keyword-attributes?goto=newpost Wed, 25 Aug 2010 15:30:40 GMT Hello all,
I did a search for this keyword in this forum and although I found a few posts, nothing helped my current issue:

Is it possible to control the underline and protection of a CNTFLD like other fields?

Here's why:
I have a screen (just a plain old screen, no SFL) which uses 2 CNTFLD fields where there is another field that is filled by scanning a bar code. This field has ER specified for auto record advance but when scanned, the cursor goes to the first input capable field on the screen which is one of these CNTFLDs. It does not stay on the scan field, even with an indicator on for PC.

I have tried using indicators but that didn't work. It only caused the fileds to non-display. There are other fields on the screen that I used indicators to control UL and PR but how can I do something similar to these 2 CNTFLD's? ]]> DDS redvan http://www.code400.com/forum/showthread.php/9596-CNTFLD-keyword-attributes Modifying Subfile CONTROL Record http://www.code400.com/forum/showthread.php/9570-Modifying-Subfile-CONTROL-Record?goto=newpost Thu, 19 Aug 2010 14:35:07 GMT I'm trying to modify the subfile CONTROL record. I have defined an input/output field and two output-only fields. If I populate the output-only fields before the first exfmt, it displays the contents of the field. If I change that field, it refused to change on the display -- it just keeps displaying the original contents of the field.

Can this be done? ]]> DDS mariconda http://www.code400.com/forum/showthread.php/9570-Modifying-Subfile-CONTROL-Record Is my file externally defined http://www.code400.com/forum/showthread.php/9545-Is-my-file-externally-defined?goto=newpost Fri, 13 Aug 2010 13:05:28 GMT Hi All:

Is there a method of programmatically determining whether a file is internally defined or externally defined?
I need to know if I need to CPYTOSTMF or CPYTOIMPF.

I thought I read a solution here but I can't find it.

Thanks
GLS ]]> DDS GLS400 http://www.code400.com/forum/showthread.php/9545-Is-my-file-externally-defined Issues with Window subfiles http://www.code400.com/forum/showthread.php/9534-Issues-with-Window-subfiles?goto=newpost Wed, 11 Aug 2010 06:49:27 GMT Hi All,
I am facing two issues with window subfiles:

Issue1:
1. From window subfile screen if I take' F1 = Program help' function key it displays help screen. If I take 'Previous' function key from help screen
control comes backto Window subfile. But does not display window border. Should I need to set on some window keywords to retain border?

2. There is Window1(First window subfile) Select any record from that screen. Displays Window2(second window subfile.This is another program) .In From From Window2 take a function key to search for particular program and filter contents of Window2 .Now Window3(this is a window not subfile.This is Window2 program itself) displays. Take prompt function key from Window3. Displays prompt window - WINDOW4(this is window subfile and a new program). Now select any entry in this prompt window and take enter key. Control comes back to window3 with the value selected(this is correct). but does Issue is it does not display window border.Also irase WINDOW2.and Window 3 is getting displayed in a blank background.

Thanks in Advance,
Harry ]]> DDS Harry http://www.code400.com/forum/showthread.php/9534-Issues-with-Window-subfiles Two subfile windows http://www.code400.com/forum/showthread.php/9528-Two-subfile-windows?goto=newpost Mon, 09 Aug 2010 15:06:34 GMT My first subfiles in years. I have two almost identical subfile windows. First window opens. When user selects a row from the first subfile the second subfile opens up underneath it. User is in second window, hits F12 to return to previous subfile window. The second subfile window remains... My first subfiles in years. I have two almost identical subfile windows. First window opens. When user selects a row from the first subfile the second subfile opens up underneath it.

User is in second window, hits F12 to return to previous subfile window. The second subfile window remains open ... but the cursor goes back to the first.

I've played around with the keywords ASSUME, KEEP and OVERLAY. Anything jump out at anyone?


Code:

    A*
    A                                      DSPSIZ(24 80 *DS3)
    A                                      PRINT
    A                                      CA12
    A*
    A          R AKS                      SFL
    A            @FUND        40A  O  2  1
    A            @START        10A  O  2 43
    A            @FINISH      10A  O  2 55
    A*
    A          R AKC                      SFLCTL(AKS)
    A                                      SFLSIZ(0007)
    A                                      SFLPAG(0006)
    A                                      WINDOW(AKW)
    A                                      OVERLAY
    A                                      SFLCSRRRN(&EFO)
    A  21                                  SFLDSP
    A N22                                  SFLDSPCTL
    A  22                                  SFLCLR
    A  23                                  SFLEND
    A            EFO            5S 0H
    A            ATA            3S 0H      SFLRCDNBR(CURSOR *TOP)
    A                                  1  1'Status                            -
    A                                            '
    A                                      COLOR(TRQ)
    A                                  1 43'Begin    '
    A                                      COLOR(TRQ)
    A                                  1 55'End      '
    A                                      COLOR(TRQ)
    A*
    A          R AKW
    A                                      WINDOW(&SL &SP 8 72 *NOMSGLIN)
    A                                      KEEP
    A                                      OVERLAY
    A                                      WDWBORDER((*COLOR PNK))
    A                                      USRRSTDSP
    A            SL            3S 0P
    A            SP            3S 0P
    A*
]]> DDS mjhaston http://www.code400.com/forum/showthread.php/9528-Two-subfile-windows Looking for text book http://www.code400.com/forum/showthread.php/9514-Looking-for-text-book?goto=newpost Thu, 05 Aug 2010 13:34:31 GMT I am trying to find a copy of "Programming Subfiles in Cobol/400" By Jerry Goldson. Every place I've checked on the NET has it out of stock.
Does anyone know where I can get a copy?
Thanks,
John ]]> DDS johnmauro http://www.code400.com/forum/showthread.php/9514-Looking-for-text-book Using a subfile to get input on display http://www.code400.com/forum/showthread.php/9479-Using-a-subfile-to-get-input-on-display?goto=newpost Tue, 27 Jul 2010 16:51:36 GMT I have adisplay that consists of Claim Header information, followed by 15 Diagnosis codes and currently 11 Procedure codes. The user's want me to expand the procedure codee section of the screen to allow them to input up to 50 Procedure codes. I'm tryning to code a subfile for the expansion of the Procdeeure codes area. I've never Done thisbefore (yes, we've allheard thatline, but I really mean it) I was able to download some DDS & Cobol code from Terry Winchester ( Thanks Terry !) to use as an example of coding a subfile in Cobol and got the subfile piece to sort of work on its own. I am now trying to add the subfile as the bottom piece of my display and cannot get it to work as All I get is the top piece of the displaywith the headerr information.
I've attached my lame attempts for your edification.
Any help would be much appreciated.

Thanks,
John
Attached Files
]]> DDS johnmauro http://www.code400.com/forum/showthread.php/9479-Using-a-subfile-to-get-input-on-display Restricting SFLDROP http://www.code400.com/forum/showthread.php/9464-Restricting-SFLDROP?goto=newpost Thu, 22 Jul 2010 21:44:42 GMT An interesting question came up on one of the LinkedIn Group "RPG/400 Developers."

The person wants to prevent certain users from being able to "drop" the subfile -- not sure why, but I assume it's to restrict certain users from seeing information.

I wrote a quick program out of curiosity to see how it might work, but the Sfl dropped anyway. My method was:
1) Condition CF11 to work only if ind 11 was turned on.
2) Use CF11 with the SFLFOLD word.

Has anybody ever had to do something like this?

I can post code tomm -- need to leave work to get to an appt tonight. ]]> DDS Chipper http://www.code400.com/forum/showthread.php/9464-Restricting-SFLDROP Example of Selection DDS http://www.code400.com/forum/showthread.php/9462-Example-of-Selection-DDS?goto=newpost Thu, 22 Jul 2010 13:43:56 GMT Hi, Does anyone have an example of how I can code picking a choice of options:

Example:

O 3" Cardboard Box
O 4" Cardboard Box
O 5" Cardboard Box

The user can select the cardboad box by mouse or by keyboard.

Thanks,

DAC ]]> DDS dcutaia http://www.code400.com/forum/showthread.php/9462-Example-of-Selection-DDS Logical file key field sequence change http://www.code400.com/forum/showthread.php/9461-Logical-file-key-field-sequence-change?goto=newpost Thu, 22 Jul 2010 10:10:29 GMT How to change the key sequence of logical file during run time? I have used OPNQRYF but with no success. How to change the key sequence of logical file during run time?

I have used OPNQRYF but with no success. ]]> DDS vibs400 http://www.code400.com/forum/showthread.php/9461-Logical-file-key-field-sequence-change Error messages not displaying http://www.code400.com/forum/showthread.php/9456-Error-messages-not-displaying?goto=newpost Wed, 21 Jul 2010 14:18:07 GMT Hi All, I have a display file it is a simple file maintenance with 2 input screens and on screen B it is not displaying any error messages when it should be. I have done the obvious, debugged and ensured error indicator on and it is staying on the errored screen with no msg, display file is... Hi All,

I have a display file it is a simple file maintenance with 2 input screens and on screen B it is not displaying any error messages when it should be.

I have done the obvious, debugged and ensured error indicator on and it is staying on the errored screen with no msg, display file is RSTDSP(*YES) (actually tried yes and no) and format is overlay putovr, field(s) are ovrdta.

screen B displays errors just fine.

Anybody have some othr ideas?

Thnx
Bill ]]> DDS Billw http://www.code400.com/forum/showthread.php/9456-Error-messages-not-displaying