.scr file modifications

 17 Replies
 0 Subscribed to this topic
 17 Subscribed to this forum
Sort:
Author
Messages
BrianM
Advanced Member
Posts: 41
Advanced Member
    I have a new program that I am creating and am having a heck of a time with the last line on the screen.  My code looks like this on the .scr file:

    |                  Company:&    ]      ;                              ;
    |
    |               Date Range:&      ] -  &      ]
    |
    |            Process Level:[     ]    ;                              ;
    |       (ALL if left blank)

    I want the "(ALL if left blank)" to show up on the line just below "Process Level".  When I bring the screen up the bottom line of the frame goes through my "(ALL if left blank)" phrase.  Any ideas out there on how I can get this in?  Thanks in advance for your help.
    =========================================================================================
    I HAVE tried using a caret (^) in the first position according to the manual as shown below" but get a
    "Line     32: Colm Phrase Width Not Uniform: Column 0" error

    |                  Company:&    ]      ;                              ;
    |
    |               Date Range:&      ] -  &      ]
    |
    ^            Process Level:[     ]    ;                              ;]
    |        (ALL if left blank)                                            ]
    BTM
    John Henley
    Posts: 3353
      Above those lines, do you have a line that starts
      $DRAW GROUP

      If so, increase the 3rd number by one (that will increase the box height).
      Thanks for using the LawsonGuru.com forums!
      John
      BrianM
      Advanced Member
      Posts: 41
      Advanced Member
        No I do not
        BTM
        BrianM
        Advanced Member
        Posts: 41
        Advanced Member
          If I have no $DRAW GROUP should I put one in or is there another way to do it?   I think the problem is that I have 2 output fields on the first line.  I'm not sure if the ^ works with those being there.  I know it works OK if it is just text though.
          BTM
          John Henley
          Posts: 3353
            Have you tried:
            | Process Level:[ ] ; ;
                   |(ALL if left blank)

            in other words, move the pipe ..
            Thanks for using the LawsonGuru.com forums!
            John
            BrianM
            Advanced Member
            Posts: 41
            Advanced Member
              I moved the pipe and the program does compile.  However, I still have the screen issue.  I've attached a screenshot so you can see what I mean.  Thanks for helping!

              BTM
              John Henley
              Posts: 3353
                I know this probably sounds silly, but did you try adding a blank line under:
                |(ALL if left blank)
                $END-SCR ...
                so that
                |(ALL if left blank)

                $END-SCR ...
                Thanks for using the LawsonGuru.com forums!
                John
                BrianM
                Advanced Member
                Posts: 41
                Advanced Member
                  Believe me NOTHING is silly.  If you have an inkling about something, I'm willing to try it.  Yes, I do have a blank line under it.

                  This is how that section of code looks now.....


                  |                  Company:&    ]      ;                              ;
                  |
                  |               Date Range:&      ] -  &      ]
                  |
                  ^            Process Level:[     ]    ;                              ;]
                     |       (ALL if left blank)                                           ]
                  BTM
                  Woozy
                  Veteran Member
                  Posts: 709
                  Veteran Member
                    Hi Brian - just another shot-in-the-dark. Have you tried removing the parentheses around your text- even temporarily - to see if they are causing an issue?

                    Also, what's with the square bracket to the right of your "(ALL if left blank)" text. I'm surprised it even compiles with that there, since there isn't a matching left bracket. It appears to be in column 75, which is odd in itself.

                    Would you be willing to attach your whole .scr?

                    Kelly
                    Kelly Meade
                    J. R. Simplot Company
                    Boise, ID
                    jaherb
                    Veteran Member
                    Posts: 164
                    Veteran Member
                      Of course this all becomes a moot point in portal. You will not see these lines then.
                      BrianM
                      Advanced Member
                      Posts: 41
                      Advanced Member
                        Sorry, I could not load the file so I just copied and pasted the text.  I hope that will suffice.  The reason the bracket is there is because that is how I saw it in the manual.


                        v$RELEASE   08.0
                        *******************************************************************************
                        *                           SCREEN   ZR201
                        *******************************************************************************
                        $FORM      ZR201    R
                        $MENU      HRMN0
                        $SECURITY  NO
                        $DECIMALS  NO
                        $NOLFCOK
                        $KEYFCS    CD
                        $DATAFCS   AC
                        $LDATAFCS
                        $FCPAIRS
                        *        1    1    2    2    3    3    4    4    5    5    6    6    7    7   7
                        *...5....0....5....0....5....0....5....0....5....0....5....0....5....0....5...9
                        *------------------------------------------------------------------------------
                        $SCREEN    ZR201    R
                        [HRRP[ ]             ?*** Multiple Status Code Changes ***         +N]
                                                     ?;                                        ;
                           Report          [ZR201]     Priority    [ ]     Save Params (Y/N) [ ]
                           User Name  [          ]
                           Job Name   [          ] --- This will be the name on your report
                           Run After  [          ] --- NOW, HOLD, Time (1230 pm), Job Name
                           Frequency           [ ] --- (D)aily, (W)eekly, (M)onthly, (O)n Demand

                        \  Comments   [                                                  ]\

                        |                  Company:&    ]      ;                              ;
                        |
                        |               Date Range:&      ] -  &      ]
                        |
                        ^            Process Level:[     ]    ;                              ;]
                           |       (ALL if left blank)                                        ]

                        $END-SCR   ZR201    R
                        *                            ELEMENT NAME
                        * LEVEL       NAME           TYPE LENGTH    DEC REQ OC KN SC      PICTURE
                        * ----- --------------------- --  ----        - -- -- --- - -----------------------
                        $TRANS     ZR201    R
                          2     TC                    AL    06          SB
                          2     FC                    A     01          SF
                          2     UPDATE-SW             A     01          SB
                          2     SCREEN-MSG            O     40          SB
                          2     TRANCODE              A     05          RP
                          2     HEADER                G     00
                           3    Q-PRIORITY            N     01          SB
                           3    SAVE-PARAMS           A     01          SB
                           3    USER-NAME             A     10          SK
                           3    JOB-NAME              A     10          SK
                           3    RUN-AFTER             A     10          SB
                           3    FREQUENCY             A     01          SB
                           3    COMMENTS              A     50          SB
                          2     RUN-PARAMS            G     00
                           3    COMPANY               N     04          SR    01  C
                           3    PRS-NAME              O     30          SB    CN
                           3    BEG-DATE              F     08          SB
                           3    END-DATE              F     08          SB
                           3    PROCESS-LEVEL         A     05          SB   *H03 P
                           3    PRS1-NAME             A     30          SB   *HH4
                        $END-TRANS ZR201    R
                        *
                        *        NAME               DEFAULT VALUE            EDIT LIST
                        * --------------------  --------------------  -------------------------
                        $EDITS     ZR201    R
                          FC                                          A,C,D,I
                          Q-PRIORITY            2                     1,2,3
                          SAVE-PARAMS           N                     Y,N
                          JOB-NAME                                    R.00000000:R.ZZZZZZZZ
                          RUN-AFTER             HOLD
                          FREQUENCY             O                     D,W,M,O
                        $END-EDITS ZR201    R

                        BTM
                        John Henley
                        Posts: 3353
                          Change to this

                          | Process Level:[ ] ; ;
                          |(ALL if left blank)

                          $END-SCR ZR201 R
                          Thanks for using the LawsonGuru.com forums!
                          John
                          John Henley
                          Posts: 3353
                            Change to this

                            | Process Level:[ ] ; ;
                            |(ALL if left blank)


                            $END-SCR ZR201 R
                            Thanks for using the LawsonGuru.com forums!
                            John
                            BrianM
                            Advanced Member
                            Posts: 41
                            Advanced Member
                              Here's what I got when I tried that:
                              BTM
                              jaherb
                              Veteran Member
                              Posts: 164
                              Veteran Member
                                One thing you could do is to move the Process Level parameter up above the Date Range Parameter. This would permit you to add your comment under the Process Level value. Normally in Lawson, when a field is left blank it is understood that "all" would be selected.
                                jaherb
                                Veteran Member
                                Posts: 164
                                Veteran Member

                                  Here is the solution I think you are looking for.....   In your .scr begin your comment with a single quote and end it with a right bracket....   so your .scr would look as such;

                                              Process Level:[     ]    ;                              ;]
                                                                                  'ALL if left blank]

                                  you would then need to account for this field in the $TRANS section as follows...

                                     3    TO-TR-DATE            F     08          SB
                                     3    COMMENT                A     17          SB
                                  $END-TRANS JH500    R

                                  In this case the length of 17 is the space it takes for your actual comment; All if left blank



                                  BrianM
                                  Advanced Member
                                  Posts: 41
                                  Advanced Member
                                    Thank you very much jaherb!  The option of adding a single quote and ending with a right bracket worked perfectly.  Thanks to everyone for helping.  I really appreciate it!
                                    BTM
                                    jaherb
                                    Veteran Member
                                    Posts: 164
                                    Veteran Member
                                        Super.....