RE: ICF Problem

Check you have a program dev in the ICF file that has the name you're
acquiring and the name of the remote location from the async device. 

TrailBlazer Systems, Inc.
http://www.as400ftp.com
AS/400 Communications & E-Commerce Solutions

Chaos, panic and disorder...my work here is done.

> -----Original Message-----
> From: SHISHIRKSINGH [SMTP:SHISHIRKSINGH@inf.com]
> Sent: Thursday, March 09, 2000 1:04 PM
> To:   'MIDRANGE-L@midrange.com'
> Subject:      RE: ICF  Problem
> Importance:   High
> 
> The ICF file code is 
> 
> A                                      INDARA                     
> A                                      RCVENDGRP(48 'ENDGRP')
> A                                      RCVTRNRND(58 'TRNRND')
> A                                      RCVDETACH(68 'DETACH')
> A          R CMNREC                                               
> A            DATA         350                                     
> A          R DETACH                    DETACH                     
> 
> 
> 
> 
> 
> and the main portion of RPGLE code is 
> 
> 
> FZZZZZZ     IF   E             DISK
> FYYYYYY     O    E             WORKSTN               
> F                                     INFDS(FEEDBK) 
> F                                     MAXDEV(*FILE) 
> F                                     DEVID(PGMDEV) 
> F                                     INFSR(ERROR)  
> C     'XXXXXXX'     ACQ       YYYYYY                               98
> 
> C                   IF        *IN98 = '0'
> 
> C                   MOVEL     'XXXXXXX'     PGMDEV
> 
> 
>  * READ AND SEND UNTIL EOF REACHED
> 
> C     *IN90         DOWEQ     '0'
> 
> C                   READ      ZZZZZ
> 90
> C     *IN90         IFEQ      '0'
> 
> C                   WRITE     CMNREC
> 
> C                   END
> 
> C                   ENDDO
> 
> C                   WRITE     DETACH
> 
> 
> 
> This piece of code was working fine for bysynchronous connection. It
> does
> not for asysnchronous connection. 
>    
> Is it to do with some hardware/configuration problem?
> 
>  
> 
> 
> -----Original Message-----
> From: Carl Galgano [mailto:cgalgano@ediconsulting.com]
> Sent: Thursday, March 09, 2000 9:29 PM
> To: MIDRANGE-L@midrange.com
> Subject: RE: ICF Problem
> 
> 
> Are you acquiring the device in the program with the AQU op code or is
> the
> aquire in the ICF file when you compile it?
> 
> 
> Carl J. Galgano
> EDI Consulting Services, Inc.
> 540 Powder Springs Street, Suite C19
> Marietta, GA  30064
> (770) 422-2995 - voice
> (419) 730-8212 - fax
> mailto:cgalgano@ediconsulting.com
> http://www.ediconsulting.com
> AS400 EDI, Networking, E-Commerce and Communications Consulting and
> Implementation
> 
> -----Original Message-----
> From: owner-midrange-l@midrange.com
> [mailto:owner-midrange-l@midrange.com]On Behalf Of SHISHIRKSINGH
> Sent: Thursday, March 09, 2000 9:24 AM
> To: 'MIDRANGE-L@midrange.com'
> Subject: ICF Problem
> Importance: High
> 
> 
> We had a bisynchronous connection between two AS400. Now we need to
> switch
> over to Asysnchronous connection. I have created the
> line/Conctoller/device
> description for Async connection. The parameters are more or less same
> as
> that for bysync.. connection. But the RPG program fails while
> acquiring the
> device.
> 
> Is there anything that I am missing?
> 
> Thanks
> Shishir
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> 
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
> MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---