midrange.com code scratchpad
Name:
TNAPI Testing sampl
Scriptlanguage:
Plain Text
Tabwidth:
4
Date:
08/08/2018 02:19:20 pm
IP:
Logged
Description:
Testing TNAPI
Code:
  1. Testing program first
  2.  
  3.      H DEBUG
  4.      H DFTACTGRP(*NO) ACTGRP(*NEW)
  5.      H BNDDIR('TNAPIFUNC')
  6.      H option(*srcstmt:*nodebugio)
  7.  
  8.       /COPY QRPGSRC,#TNAPIFUNC
  9.  
  10.      D JobName         s             10
  11.      D UserID          s             10
  12.      D Jobno           s              6
  13.       /free
  14.  
  15.        monitor;
  16.          TNAPIPtr = Logon('KEVIN':'abc123:'TESTLOG');
  17.          if GetScrnDta(1:28:15) = 'Display Program';
  18.            SendKey(ENTER);
  19.          endif;
  20.            SendScrn('CALL TESTTNAPIR');
  21.            SendScrn('0041');
  22.            SendScrn('SIGNOFF');
  23.          SendKey('EOJ');
  24.        on-error;
  25.        endmon;
  26.        *inlr = *on;                                   
  27.  
  28.  
  29.  
  30. Here is the display screen.
  31.      A          R TEST1                     
  32.      A            COUNT          4Y 0B 10 10
  33.  
  34. And here is TESTTNAPIR
  35. /Free                      
  36.   Dcl-F TestTnapi WorkStn; 
  37.   Dcl-S ScreenOut Char(10);
  38.   exfmt Test1;             
  39.   ScreenOut = %Char(Count);
  40.   Dsply ScreenOut;         
  41.   *InLr = *On;             
  42.   Return;                  
  43.  
  44. This is the relevent parts of the log.
  45. ################################################################################
  46. 2018-08-08-09.17.20.278 SENT: CALL TESTTNAPIR                                   
  47. 2018-08-08-09.17.20.278 SENT: <ENTER>                                           
  48. 2018-08-08-09.17.20.281 RECV: 10,10   0 785030/KEVIN/MN207A          192.168.2. 
  49.                                 
  50.                                 
  51.                                 
  52.                                 
  53.                                 
  54.                                 
  55.          0000                   
  56.                                 
  57.                                 
  58.                                 
  59.                                 
  60.                                 
  61.                                 
  62.                                 
  63.                                 
  64.                                 
  65.                                 
  66.                                 
  67.                                 
  68.                                                                                  
  69.                                                                                  
  70. ################################################################################ 
  71. 2018-08-08-09.17.20.291 SENT: 0041                                               
  72. 2018-08-08-09.17.20.291 SENT: <ENTER>                                            
  73. 2018-08-08-09.17.20.295 RECV: 23,33   0 785030/KEVIN/MN207A          192.168.2.  
  74.                            Display Program Messages                              
  75.                                                                                  
  76.  Job 400613/KEVIN/QPADEV0005 started on 08/08/18 at 09:17:20 in subsystem QIN    
  77.  Message queue KEVIN is allocated to another job.                                
  78.  DSPLY  41                                                                       
  79.                                                                                                                                                                  
  80.                                                                                 
  81.  
© 2004-2019 by midrange.com generated in 0.003s valid xhtml & css