Forums >> Programming >> RPG Programming

Jump to:




pizzaguy

Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

Posted:

Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

I'm still kinda new to the RPG space, and have frequented this forum many times for information. I guess it's time I actually post a question as my research has not led me to a working result yet.

My shop has a strict 20 minute timeout setting for the workstations. Workstations (which have static, unique names) are being kicked (the job is ended, not disconnected) and users are losing input data. The system kicks out a CPI1127 when this happens. They are typing lengthy entries and/or get distracted by phone calls, co-workers, etc. Since they do not press any function keys, rollup/down, or Enter during the time limit, their entries are lost when the system kicks them. (Note: they are being given ten 70 length fields to type data in.)

I was hoping the PSSR can trap the error was have the input field written out to a work file. A CL program will be needed to check in there is any data out in the workfile when the resume the program. This workfile could be cleared each night after hours to avoid left over data. The problem I'm running into is that even after coding a PSSR routine in the program, it isn't executed when the system ends the job. The CPI1127 message can be found in the QSYSOPR queue, but the PSSR doesn't seem to catch this. 

Here is a sample program I wrote to test that theory. The program should write to the XT90 file unless an error occured, then it will write to XT91 instead. 

     H OPTION(*NODEBUGIO: *SRCSTMT)
     H DFTACTGRP(*NO)
     H*======================================================================*
     H* DATA LOSS INACTIVITY TEST PROGRAM                                    *
     H*======================================================================*
     F* FILE SPECS
     F*======================================================================*
     FXT90      UF A E             DISK    INFSR(*PSSR)
     FXT91      UF A E             DISK
     FXT90DF    CF   E             WORKSTN INFSR(*PSSR)
     D*======================================================================*
     D* DEFINITION SPECS
     D*======================================================================*
     ** Program Status Data Structure
     D                SDS
     D PGMMSGID               40     46a
     D pgmruntime                     6s 0
     D PSSRDone        S               N
     C*======================================================================*
     C* CALC SPECS
     C*======================================================================*
     C*
      /FREE
        //FREE FORMAT CODE BELOW
        DOU *IN03;
          INPUT = *BLANKS;
          IF *IN03;
            LEAVE;
          ENDIF;
          MONITOR;
          WRITE RECORD1;
          //DO STUFF WITH RECORD
          READ RECORD1;
          INTXT = INPUT;
          WRITE XT90R;
          ON-ERROR;
            //IF PGMMSGID = 'CPI1127';
              INTX2 = INPUT;
              WRITE XT91R;
            //ENDIF;
          ENDMON;
        ENDDO;
       *INLR = *ON;

       BEGSR *PSSR;
         IF PSSRDONE;
           *INH1 = *ON;
           RETURN;
         ELSE;
           //IF PGMMSGID = 'CPI1127';
             INTX2 = INPUT;
             WRITE XT91R;
           //ENDIF;
         ENDIF;
       ENDSR;

      /END-FREE


     C*
     O*======================================================================*
     O* OUTPUT SPECS
     O*======================================================================*
     **
     ***END OF PROGRAM*** 


Display Source:

     A          R RECORD1                   CF03(03)
     A                                  1  2SYSNAME
     A                                  2 71TIME
     A                                  1 71DATE
     A                                  2  2'XT90DF'
     A                                  1 35'TEST DISPLAY'
     A                                      DSPATR(RI)
     A                                      COLOR(TRQ)
     A            INPUT         50   B  6 16
 
Am I barking up the wrong tree with PSSR and MONITOR? Thanks in advance.




Latest Posts:

MAILTOOL Updated to Allow Failed Message on Invalid Recipient MAILTOOL Updated to Allow Failed Message on Invalid Recipient
Posted by May 20, 2018
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G) Non HTTPS Callbacks Removed from GreenTools for G Suite (G4G)
Posted by April 15, 2018
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
IBM i Related Survey Available IBM i Related Survey Available
Posted by April 7, 2018
IBM Power Systems >> (QGPL) IBM i
BVSTools Releases Braintree Webhook Open Source Application - Node.js BVSTools Releases Braintree Webhook Open Source Application - Node.js
Posted by April 5, 2018
Programming >> Open Source
BVSTools Now Offering Web Services (BETA) BVSTools Now Offering Web Services (BETA)
Posted by April 3, 2018
BVSTools >> BVSTools Announcements
Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2 Creating a Reverse SSL Proxy Using RPG on the IBM i - Part 2
Posted by March 29, 2018
Programming >> Web Programming
Still on V7R1 or Earlier?  Here's Why You Should Upgrade NOW! Still on V7R1 or Earlier? Here's Why You Should Upgrade NOW!
Posted by February 21, 2018
IBM Power Systems >> (QGPL) IBM i
Converting a MMDDYY date format to YYMMDD for Sorting Using SQL Converting a MMDDYY date format to YYMMDD for Sorting Using SQL
Posted by February 16, 2018
Programming >> RPG Programming
Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G) Moving All Files from a Google Drive Folder to the Trash Using GreenTools for Google Apps (G4G)
Posted by February 3, 2018
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion
Removing Unwanted Characters from a String with RPG Removing Unwanted Characters from a String with RPG
Posted by February 2, 2018
Programming >> RPG Programming
GETURI Version 8.10 Released GETURI Version 8.10 Released
Posted by January 23, 2018
BVSTools >> BVSTools Announcements >> Get URI (GETURI) Specific Announcements
BVSTools is Now a Sponsor of ALLAS400S.com BVSTools is Now a Sponsor of ALLAS400S.com
Posted by January 17, 2018
BVSTools >> BVSTools Announcements
Service Pack SP171219 Released for G4PP v3.10 Service Pack SP171219 Released for G4PP v3.10
Posted by December 20, 2017
BVSTools >> BVSTools Announcements >> GreenTools for PayPal (G4PP) Specific Announcements
GETURI Now Requires Minimum OS of V7R1 or Higher GETURI Now Requires Minimum OS of V7R1 or Higher
Posted by December 12, 2017
BVSTools >> BVSTools Software Discussion >> Get URI (GETURI) Specific Discussion
Need Help Updating Your Software Versions?  We Can Help. Need Help Updating Your Software Versions? We Can Help.
Posted by December 8, 2017
BVSTools >> BVSTools Announcements
bvstone

RE: Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

Posted:

RE: Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

Hi,

I'm not sure of the best way to handle this and I understand the problem.  What I would look into doing is some sort of information saving during the screen entry.  Every few seconds save the info from it.  Either that or change the timeout to something over 20 minutes.  I don't think you're going to be able to trap the timeout message for the workstation.

If you want to expand your question to many more eyes, I would post it at Midrange.com in the Midrange-L mailing list.  I'm sure you'll get quite a few other ideas from there.

Sorry I couldn't be of more help.  This one just isn't my forte these days.  :)


Last edited 12/27/2016 at 16:27:15



pizzaguy

RE: RE: Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

Posted:

RE: RE: Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

The problem lies with one particular program that gives the user a large field for entry. They typically type long, verbose entries into this field (or set of 10 fields I should say) on a screen. The user doesn't do anything to reset the inactivity timer during this period of time and then the system ends their session for inactivity. all the data typed in the fields on that screen is lost.

Changing the timeout length is not an option unfortunately.

I shall also post this on Midrange, and have been trying to post to Code400 as well.

Hope that helps clear up any ambiguity about the issue at hand. Thanks.

 

 


Last edited 12/27/2016 at 16:36:34



bvstone

RE: Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

Posted:

RE: Retain input buffer from fields when QINACTITV kicks user from session. CPI1127&PSSR

Here's the link to the Midrange.com discussion in case anyone needs this info:

http://archive.midrange.com/rpg400-l/201612/msg00190.html


Last edited 12/28/2016 at 11:49:24




Reply




Copyright 1983-2018 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).