Code:
- ------------------------------------------------------------------------------
- Output from RPG program when using valid item number:
-
- 275
-
- ------------------------------------------------------------------------------
- Output from RPG program with invalid item branch (returned value from Java method is truncated):
-
- 0|Plant 972 is not configured
-
- ------------------------------------------------------------------------------
- Output from Eclipse Java console when using valid item number:
-
- 275
-
- ------------------------------------------------------------------------------
- Output from Eclipse Java console when using an invalid branch (shows complete message):
-
- SAP_Inv_RPG_Z8CCx
- 0|Plant 972 is not configured in SAP ECC constant table
-
- ====================================================
- ====================================================
-
-
- RPG prototypes:
-
- D mthcheckInvRPG...
- D PR
- D extproc( *JAVA
- D : 'com.jde.SAP.SAP_Inv_RPG'
- d : 'checkInvRPG'
- d )
- d like(jstring)
- d static
- d APItoCall like(jstring)
- d Destination like(jstring)
- d Hostname like(jstring)
- d Sysnbr like(jstring)
- d Clientno like(jstring)
- d LangID like(jstring)
- d UserID like(jstring)
- d Password like(jstring)
- d Branch like(jstring)
- d ItemNbr like(jstring)
- d UOM like(jstring)
- d DebugFlag like(jstring)
-
- d cvtToBytes PR 30A EXTPROC(*JAVA:
- d 'java.lang.String':
- d 'getBytes')
- d Varying
-
- [...]
-
- d $ReturnedValue s 200A
- d VC0001...
- d s 198A
-
- // All fields ending with underscore ('_') character are defined as:
-
- d Returnval_...
- d s o Class(*JAVA:'java.lang.String')
-
- [...]
-
- Returnval_ =
- mthcheckInvZ8CCx( APItoCall_
- : Destination_
- : Host_
- : SysNbr_
- : ClientNo_
- : LangID_
- : UserID_
- : Pwd_
- : Branch_
- : ItemNbr_
- : UOM_
- : DebugFlag_
- );
-
- $ReturnedValue = cvtToBytes( ReturnVal_ );
-
- // VC0001 is defined as 198 long, printed on report ending in position 198
-
- VC0001 = $ReturnedValue;
- Except Detail2;
-
- ============================================================
- ============================================================
-
- Java code:
-
- package com.jde.SAP;
-
- import com.sap.conn.jco.JCoException;
-
- public class SAP_Inv_RPG_Z8CCx {
- /**
- * Retrieve Item from SAP
- * @return
- */
-
- public static String checkInvZ8CC( String APItocall
- , String destname
- , String hostname
- , String sysnbr
- , String clientno
- , String langid
- , String UserID
- , String Pwd
- , String Plant
- , String ItemNbr
- , String UoM
- , String debugflag
- )
- {
- String returnVal;
- String message;
- returnVal = null;
-
- SAP_Inventory Inv = new SAP_Inventory();
-
- returnVal = Inv.SAP_Login( destname
- , UserID
- , Pwd
- , hostname
- , sysnbr
- , clientno
- , langid
- ).trim();
-
- try {
- returnVal = Inv.Z_8CC_MATERIAL_AVAIL( destname
- , Plant
- , ItemNbr
- , UoM
- , debugflag
- );
- } catch (JCoException e) {
- // TODO Auto-generated catch block
- //e.printStackTrace();
- message = " Method (SAP_Inv_RPG_Z8CC): System Unavailable";
- return message ;
- }
-
- if (returnVal == null) {
- returnVal = " ";
- }
- System.out.println("SAP_Inv_RPG_Z8CCx" + "\n");
- System.out.println(returnVal + "\n");
-
- Inv = null;
- return returnVal ;
- }
- }
-
-
|
|