public class CobolVarHelper extends Object implements CobolVarHelperConst
01 VAR-1.
03 VAR-2 PIC X(30) JUSTIFIED RIGHT.
03 VAR-3.
05 VAR-4 PIC S9(5)V9(2) LEADING SEPARATE.
03 VAR-5 PIC 9(5)V9(2) COMP-3 OCCURS 3.
can be expressed in Java the following way:
CobolVarHelper myVar = new CobolVarHelper ("VAR-1", CobolVarHelper._DCA)
.picX ("VAR-2", 30).justRight(true)
.group ("VAR-3")
.picS9 ("VAR-4", 5, 2).signSeparate(true).signLeading(true)
.endGroup ()
.pic9Comp3 ("VAR-5", 5, 2).occurs (3)
;
The created object it is not the COBOL variable to use in the call to
a COBOL subroutine; those variables are created automatically inside the
object and they can be extracted using the get methods.
For example:
ICobolVar var2 = myVar.get ("VAR-2");
ICobolVar var4 = myVar.get ("VAR-4");
ICobolVar var5 = myVar.get ("VAR-5");
ICobolVar is an interface that allows setting/getting values to/from
the variables, for example
var2.set ("set in java");
var4.set (12345.67);
var5.intIAt(2).set (23456.78);
System.out.println (var2);
System.out.println (var4);
System.out.println (var5.intIAt(2));
In order to call a COBOL subroutine one of this variable, elementary or
structured, can be used with the IsCobol class. For example
int rc = IsCobol.call("COBPROG", new Object[] { myVar.get() });
This class can be used also in accessing data from a standard Java class
called by a standard isCOBOL program as if it were a COBOL subroutine,
using the method link of the class ICobolVar, e.g.:
myVar.get().link((ICobolVar) argv[0]);
| Modifier and Type | Class and Description |
|---|---|
static class |
CobolVarHelper.Occurs |
static class |
CobolVarHelper.OccursDynamic |
static class |
CobolVarHelper.XmlAttrs |
| Modifier and Type | Field and Description |
|---|---|
boolean |
decimalPointIsComma |
static String |
LINKAGE_SECTION_NAME |
String |
name |
int |
opts |
_CP, _CV, _D64, _DC_MASK, _DCA, _DCB, _DCD, _DCDM, _DCI, _DCII, _DCM, _DCMI, _DCN, _DCR, _DCV, _DPNTCO, _DZ, T_DOUBLE, T_FLOAT, T_GROUP, T_INT, T_LONG, T_NATIVEINT, T_NATIVELONG, T_NATIVESHORT, T_OBJECTVAR, T_PIC1, T_PIC1BIT, T_PIC9COMP1, T_PIC9COMP2, T_PIC9COMP3, T_PIC9COMP4, T_PIC9COMP5, T_PIC9COMP6, T_PIC9COMP9, T_PIC9COMPN, T_PIC9COMPX, T_PIC9DISPLAY, T_PICALPEDIT, T_PICG, T_PICGANYLEN, T_PICN, T_PICNANYLEN, T_PICNUMEDIT, T_PICX, T_PICXANYLEN, T_POINTER, T_SHORT| Constructor and Description |
|---|
CobolVarHelper(String name,
int opts)
Constructs an helper variable that allows to declare a COBOL structured
variable.
|
| Modifier and Type | Method and Description |
|---|---|
Enumeration<CobolVarHelper> |
childrenElements() |
CobolVarHelper |
condName(String name,
ICobolVar falseVal,
ICobolVar[]... intervals) |
CobolVarHelper |
endGroup()
Closes a structured variable.
|
ICobolVar |
get()
Returns the global ICobolVar created by this object.
|
ICobolVar |
get(String n)
Returns the ICobolVar whose name is specified as argument.
|
ICobolVar[] |
getAllElementary()
Returns an array of ICobolVar that are elementary items.
|
int |
getBitLength() |
int |
getBitOffset() |
CondName |
getCondName(String n) |
int |
getDecimals() |
CobolVarHelper.OccursDynamic |
getDynamicData() |
CobolVarExternalHelper |
getExternalHelper() |
CobolVarHelper |
getHelper(String n) |
int |
getLength() |
INumericVar |
getNum(String n)
Returns the INumericVar whose name is specified as argument.
|
int[] |
getNumDimension() |
CobolVarHelper.Occurs |
getOccurs() |
int |
getOffset() |
CobolVarHelper |
getParent() |
String |
getPicture() |
String |
getRedefines() |
String[] |
getRenames() |
static CobolVarHelper |
getSectionHelper(String sectionName,
int opts) |
int[] |
getSizeDimension() |
int |
getSizeInBytes() |
int |
getType() |
ICobolVar |
getValue() |
CobolVarHelper.XmlAttrs |
getXmlAttributes() |
CobolVarHelper |
group(String name)
Declares a structured variable without any PICTURE.
|
boolean |
isInDynamic() |
boolean |
isJustified() |
boolean |
isLinkage() |
boolean |
isSection() |
boolean |
isSigned() |
boolean |
isSignLeading() |
boolean |
isSignSeparate() |
CobolVarHelper |
justRight(boolean b)
Add/remove the attribute of JUSTIFIED RIGHT to the last declared variable.
|
CobolVarHelper |
objectVar(String name) |
CobolVarHelper |
occurs(int n)
Add the attribute of OCCURS to the last declared variable.
|
CobolVarHelper |
occurs(int n,
String depOn,
String[] indexed) |
CobolVarHelper |
occursDynamic(ICobolVar capacity,
int uLimit,
boolean init)
Add the attribute of OCCURS DYNAMIC to the last declared variable.
|
CobolVarHelper |
occursDynamic(String capacity,
int uLimit,
boolean init) |
CobolVarHelper |
pic1(String name,
int len)
Declares a variable whose picture is made by all '1'.
|
CobolVarHelper |
pic1Bit(String name,
int len,
int bitOffset,
int bitLen)
Declares a variable whose picture is made by all '1' and has usage BIT.
|
CobolVarHelper |
pic9(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is DISPLAY.
|
CobolVarHelper |
pic9Comp(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is COMP.
|
CobolVarHelper |
pic9Comp1(String name)
Declares an unsigned numeric variable whose usage is COMP-1.
|
CobolVarHelper |
pic9Comp2(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is COMP-2.
|
CobolVarHelper |
pic9Comp3(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is COMP-3.
|
CobolVarHelper |
pic9Comp4(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is COMP-4.
|
CobolVarHelper |
pic9Comp5(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is COMP-5.
|
CobolVarHelper |
pic9Comp6(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is COMP-6.
|
CobolVarHelper |
pic9Comp9(String name,
int intPart,
int decPart)
Declares an unsigned numeric variable whose usage is COMP-9.
|
CobolVarHelper |
pic9CompN(String name,
int size)
Declares an unsigned numeric variable whose usage is COMP-N.
|
CobolVarHelper |
pic9CompX(String name,
int size)
Declares an unsigned numeric variable whose usage is COMP-X.
|
CobolVarHelper |
picAlphaEdit(String name,
int len,
String pic) |
CobolVarHelper |
picBinary(String name,
int intPart,
int decPart,
int size) |
CobolVarHelper |
picDouble(String name)
Declares a signed numeric variable whose usage is DOUBLE.
|
CobolVarHelper |
picFloat(String name)
Declares a signed numeric variable whose usage is FLOAT.
|
CobolVarHelper |
picG(String name,
int len)
Declares a variable whose picture is made by all 'G'.
|
CobolVarHelper |
picGAnyLength(String name)
Declares a variable whose picture is G ANY LENGTH.
|
CobolVarHelper |
picInt(String name)
Declares a signed numeric variable whose usage is INT.
|
CobolVarHelper |
picLong(String name)
Declares a signed numeric variable whose usage is LONG.
|
CobolVarHelper |
picN(String name,
int len)
Declares a variable whose picture is made by all 'N'.
|
CobolVarHelper |
picNAnyLength(String name)
Declares a variable whose picture is N ANY LENGTH.
|
CobolVarHelper |
picNativeInt(String name) |
CobolVarHelper |
picNativeLong(String name) |
CobolVarHelper |
picNativeShort(String name) |
CobolVarHelper |
picNumEdit(String name,
int len,
String pic) |
CobolVarHelper |
picS9(String name,
int intPart,
int decPart)
Declares a signed numeric variable whose usage is DISPLAY.
|
CobolVarHelper |
picS9Comp(String name,
int intPart,
int decPart)
Declares a signed numeric variable whose usage is COMP.
|
CobolVarHelper |
picS9Comp2(String name,
int intPart,
int decPart)
Declares a signed numeric variable whose usage is COMP-2.
|
CobolVarHelper |
picS9Comp3(String name,
int intPart,
int decPart)
Declares a signed numeric variable whose usage is COMP-3.
|
CobolVarHelper |
picS9Comp4(String name,
int intPart,
int decPart)
Declares a signed numeric variable whose usage is COMP-4.
|
CobolVarHelper |
picS9Comp5(String name,
int intPart,
int decPart)
Declares a signed numeric variable whose usage is COMP-5.
|
CobolVarHelper |
picS9Comp9(String name,
int intPart,
int decPart)
Declares a signed numeric variable whose usage is COMP-9.
|
CobolVarHelper |
picSBinary(String name,
int intPart,
int decPart,
int size) |
CobolVarHelper |
picShort(String name)
Declares a signed numeric variable whose usage is SHORT.
|
CobolVarHelper |
picSNativeInt(String name) |
CobolVarHelper |
picSNativeLong(String name) |
CobolVarHelper |
picSNativeShort(String name) |
CobolVarHelper |
picX(String name,
int len)
Declares a variable whose picture is made by all 'X'.
|
CobolVarHelper |
picXAnyLength(String name)
Declares a variable whose picture is X ANY LENGTH.
|
CobolVarHelper |
pointer(String name) |
CobolVarHelper |
redefines(String name) |
CobolVarHelper |
renames(String name,
String rename,
String thru) |
void |
setOffset(int offs) |
void |
setVariable(ICobolVar v) |
CobolVarHelper |
signLeading(boolean b)
Add/remove the attribute of SIGN IS LEADING to the last declared variable.
|
CobolVarHelper |
signSeparate(boolean b)
Add/remove the attribute of SIGN IS SEPARATE to the last declared variable.
|
CobolVarHelper |
value(ICobolVar v) |
CobolVarHelper |
xmlAttribute(boolean v) |
CobolVarHelper |
xmlBase64Binary(boolean v) |
CobolVarHelper |
xmlBoolean(boolean v) |
CobolVarHelper |
xmlCdata(boolean v) |
CobolVarHelper |
xmlCount(ICobolVar v) |
CobolVarHelper |
xmlCount(String v) |
CobolVarHelper |
xmlHexBinary(boolean v) |
CobolVarHelper |
xmlIdentifier(ICobolVar v) |
CobolVarHelper |
xmlIdentifier(String v) |
CobolVarHelper |
xmlNamespace(ICobolVar v) |
CobolVarHelper |
xmlNamespace(String v) |
CobolVarHelper |
xmlNullable(boolean v) |
CobolVarHelper |
xmlProcessingInstruction(boolean v) |
CobolVarHelper |
xmlRaw(boolean v) |
public static final String LINKAGE_SECTION_NAME
public final int opts
public final String name
public final boolean decimalPointIsComma
public CobolVarHelper(String name, int opts)
:
CobolVarHelper._DCA
CobolVarHelper._DCI
CobolVarHelper._DCM
CobolVarHelper._DCMI
CobolVarHelper._DCII
CobolVarHelper._DCD
CobolVarHelper._DCN
CobolVarHelper._DCDM
CobolVarHelper._DCB
CobolVarHelper._DCR
CobolVarHelper._DCV
to this value, one or more of the following values can be 'ored':
CobolVarHelper._CP
CobolVarHelper._CV
CobolVarHelper._DZ
CobolVarHelper._DPNTCO
The last one doesn't correspond to a compiler option, it means that
the COBOL program to call uses the clause DECIMAL POINT IS COMMA and
it is useful only for displaying purposes.name - variable name, can be nullopts - options used in compiling the program to callpublic static CobolVarHelper getSectionHelper(String sectionName, int opts)
public CobolVarHelper group(String name)
name - variable name, can be nullpublic CobolVarHelper endGroup()
public CobolVarHelper picX(String name, int len)
name - variable name, can be nulllen - the len of the alphanumeric variablepublic CobolVarHelper pic1(String name, int len)
name - variable name, can be nulllen - the len of the variablepublic CobolVarHelper pic1Bit(String name, int len, int bitOffset, int bitLen)
name - variable name, can be nulllen - the len of the variablebitOffset - the bit offset of the variablebitLen - the bit len of the variablepublic CobolVarHelper picXAnyLength(String name)
name - variable name, can be nullpublic CobolVarHelper picN(String name, int len)
name - variable name, can be nulllen - the len of the alphanumeric variablepublic CobolVarHelper picNAnyLength(String name)
name - variable name, can be nullpublic CobolVarHelper picG(String name, int len)
name - variable name, can be nulllen - the len of the alphanumeric variablepublic CobolVarHelper picGAnyLength(String name)
name - variable name, can be nullpublic CobolVarHelper pic9(String name, int intPart, int decPart)
name - variable name, can be nullintPart - number of digit of the integer partdecPart - number of digit of the decimal partpublic CobolVarHelper objectVar(String name)
public CobolVarHelper pointer(String name)
public CobolVarHelper picS9(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9Comp1(String name)
name - variable name, can be nullpublic CobolVarHelper pic9Comp2(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper picS9Comp2(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9Comp3(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper picS9Comp3(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9Comp4(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper picSBinary(String name, int intPart, int decPart, int size)
public CobolVarHelper picBinary(String name, int intPart, int decPart, int size)
public CobolVarHelper picS9Comp4(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9Comp(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper picS9Comp(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9Comp5(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper picS9Comp5(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9Comp6(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9Comp9(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper picS9Comp9(String name, int intPart, int decPart)
pic9(java.lang.String, int, int)public CobolVarHelper pic9CompN(String name, int size)
name - variable name, can be nullsize - dimension of the variable expressed in bytespublic CobolVarHelper pic9CompX(String name, int size)
name - variable name, can be nullsize - dimension of the variable expressed in bytespublic CobolVarHelper picFloat(String name)
name - variable name, can be nullpublic CobolVarHelper picDouble(String name)
name - variable name, can be nullpublic CobolVarHelper picShort(String name)
name - variable name, can be nullpublic CobolVarHelper picInt(String name)
name - variable name, can be nullpublic CobolVarHelper picLong(String name)
name - variable name, can be nullpublic CobolVarHelper picSNativeShort(String name)
public CobolVarHelper picNativeShort(String name)
public CobolVarHelper picSNativeInt(String name)
public CobolVarHelper picNativeInt(String name)
public CobolVarHelper picSNativeLong(String name)
public CobolVarHelper picNativeLong(String name)
public CobolVarHelper occurs(int n)
n - the occurence countoccursDynamic(ICobolVar capacity, int uLimit, boolean init)public CobolVarHelper occurs(int n, String depOn, String[] indexed)
public CobolVarHelper occursDynamic(ICobolVar capacity, int uLimit, boolean init)
capacity - an ICobolVar that contains the capacity, it can be nulluLimit - the upper limint of the table, 0 = no limitinit - if true the table is initializedoccurs(int n)public CobolVarHelper occursDynamic(String capacity, int uLimit, boolean init)
public CobolVarHelper justRight(boolean b)
b - if the attribute must be set or resetpublic CobolVarHelper signSeparate(boolean b)
b - if the attribute must be set or resetpublic CobolVarHelper signLeading(boolean b)
b - if the attribute must be set or resetpublic int getSizeInBytes()
public int getOffset()
public void setOffset(int offs)
public int[] getSizeDimension()
public int[] getNumDimension()
public boolean isJustified()
public boolean isSigned()
public boolean isSignSeparate()
public boolean isSignLeading()
public boolean isInDynamic()
public int getLength()
public int getDecimals()
public CobolVarHelper getParent()
public Enumeration<CobolVarHelper> childrenElements()
public void setVariable(ICobolVar v)
public ICobolVar get()
public ICobolVar get(String n)
n - the name of the variable to getpublic CobolVarHelper getHelper(String n)
public INumericVar getNum(String n)
n - the name of the variable to getpublic CobolVarHelper.OccursDynamic getDynamicData()
public CobolVarHelper.Occurs getOccurs()
public ICobolVar[] getAllElementary()
public CobolVarHelper picNumEdit(String name, int len, String pic)
public CobolVarHelper picAlphaEdit(String name, int len, String pic)
public CobolVarHelper condName(String name, ICobolVar falseVal, ICobolVar[]... intervals)
public CobolVarHelper redefines(String name)
public CobolVarHelper renames(String name, String rename, String thru)
public CobolVarHelper value(ICobolVar v)
public CobolVarHelper xmlIdentifier(ICobolVar v)
public CobolVarHelper xmlIdentifier(String v)
public CobolVarHelper xmlNamespace(ICobolVar v)
public CobolVarHelper xmlNamespace(String v)
public CobolVarHelper xmlCount(ICobolVar v)
public CobolVarHelper xmlCount(String v)
public CobolVarHelper xmlAttribute(boolean v)
public CobolVarHelper xmlProcessingInstruction(boolean v)
public CobolVarHelper xmlRaw(boolean v)
public CobolVarHelper xmlBase64Binary(boolean v)
public CobolVarHelper xmlHexBinary(boolean v)
public CobolVarHelper xmlNullable(boolean v)
public CobolVarHelper xmlBoolean(boolean v)
public CobolVarHelper xmlCdata(boolean v)
public ICobolVar getValue()
public CobolVarHelper.XmlAttrs getXmlAttributes()
public String getPicture()
public String getRedefines()
public String[] getRenames()
public boolean isLinkage()
public boolean isSection()
public int getType()
public CobolVarExternalHelper getExternalHelper()
public int getBitOffset()
public int getBitLength()