Having 1 scan program except data from multiple scanners

105 pts.
Tags:
AS/400
Not only want to be able to hook up multiple scanners to one workstation/PC but also want the green screen program that is accepting the input to be able to tell which scanner sent the data. That is I need to be able to tell that data came from scanner 1 or scanner x.

Answer Wiki

Thanks. We'll let you know when a new response is added.

Didn’t have a pgm for this app. so I wrote one.  Not sure how that can help.  The input from the scanner is via a USB Port.  The program doesn’t know the difference between the scanner and the keyboard.  What I need is to be able to assign each scanner a workstation id (@pmwkstn# in the pgm)

DSPF

                            DSPSIZ(24 80 *DS3)  
                            PRINT               
                            CA03(03 ‘Exit’)     
R SCREEN01                                      
                            CLRL(*ALL)          
                            OVERLAY             
                        6 20′Enter Production#:’
  @WSPRD#        6Y 0B  6 40DSPATR(HI)          
                            DSPATR(UL)          
                            EDTCDE(Z)           
                       24  4′F3=Exit’           
                            COLOR(BLU)          

RPG Program

Feot0001d  CF   e             workstn               
 *  Work Fields                                     
D  @pmplt#        s              2                  
D  @pmlin#        s              3                  
D  @pmwkstn#      s              3    inz(’001′)    
 *  Parms and Key List                              
C     *entry        plist                           
C                   parm                    @pmplt# 
C                   parm                    @pmlin# 
 *  Main Program                                    
C                   dou       *inlr = *on           
C                   clear                   @wsprd# 
C                   exfmt     screen01              
C                   select                          
C                   when      *in03 = *on           
C                   eval      *inlr = *on           
C                   when      @wsprd# > *zero       
C                   call      ‘PGMXYZ’              
C                   parm                    @pmplt# 

C                   parm                    @pmlin#  
C                   parm                    @wsprd#  
C                   parm                    @pmwkstn#
C                   endsl                            
C                   enddo                            

 

 

Discuss This Question: 3  Replies

 
There was an error processing your information. Please try again later.
Thanks. We'll let you know when a new response is added.
Send me notifications when members answer or reply to this question.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
  • TomLiotta
    Please show us the program code that currently tells your AS/400 the scanner identifier now. We can help you modify it for multiple scanners if we see the code. -- Tom
    125,585 pointsBadges:
    report
  • philpl1jb
    I don't see how you get to what you want from where you're at.   Client Access doesn't know which input device provided the input.    Generally it's one pc type device, one session and one bar code scanner per person   Perhaps your scanner can send it's identiy as part of the code through some set-up of the scanner. Phil
    49,960 pointsBadges:
    report
  • poorboy01
    I have another app. that is doing so thru a PC program that configures the scanners to a com. port.  Problem is that I have a lack of PC resource right now our parent company has absorbed them to work on one of their projects.  It will be over a year before I get them back.  I was hoping there was some way I could read the com. ports thru an AS/400 program.  Other posibility I hadn't thought of was philpl1jb's idea of getting with the scanner manufactor and seeing how/if I can configure the scanner so that it sends an ID with the scanned data.
    105 pointsBadges:
    report

Forgot Password

No problem! Submit your e-mail address below. We'll send you an e-mail containing your password.

Your password has been sent to:

To follow this tag...

There was an error processing your information. Please try again later.

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy

Thanks! We'll email you when relevant content is added and updated.

Following