コード例 #1
0
ファイル: VarLevel.java プロジェクト: rplandgraf/naca
 public VarLevel occursDependingRecord(int nNbOccurs, Var varOccurs) {
   BaseProgramManager pm = getProgramManager();
   if (pm.isFirstInstance()) {
     m_OccursDef = new OccursDefRecordDependingVar(nNbOccurs, varOccurs);
   }
   return this;
 }
コード例 #2
0
ファイル: VarLevel.java プロジェクト: rplandgraf/naca
 public VarLevelGroup valueLowValue() {
   BaseProgramManager pm = getProgramManager();
   if (pm.isFirstInstance())
     m_InitialValue = new CInitialValue(CobolConstant.LowValue.getValue(), true);
   VarLevelGroup varLevelGroup = new VarLevelGroup(this);
   return varLevelGroup;
 }
コード例 #3
0
ファイル: VarLevel.java プロジェクト: rplandgraf/naca
 public VarLevel occursDepending(int nNbOccurs, Var varOccurs) {
   BaseProgramManager pm = getProgramManager();
   if (pm.isFirstInstance()) // || pm.isLinkageSectionCurrent())
   {
     if (varOccurs.isBufferComputed()) occurs(varOccurs);
     else occurs(nNbOccurs);
   }
   m_bVariableLength = true;
   return this;
 }
コード例 #4
0
ファイル: VarDefBase.java プロジェクト: charleso/naca
 public String toString() {
   BaseProgramManager programManager = TempCacheLocator.getTLSTempCache().getProgramManager();
   if (programManager != null) {
     SharedProgramInstanceData s = programManager.getSharedProgramInstanceData();
     if (s != null) {
       return toDump(s);
     }
     return "Unknown SharedProgramInstanceData";
   }
   return "Unknown BaseProgramManager";
 }
コード例 #5
0
ファイル: VarLevel.java プロジェクト: rplandgraf/naca
  public Edit editOccurs(int nNbOccurs, String csName) {
    // remonter au dernier precedent de nivwau >= niveau courant
    // si c'est un edit occurs; il faut completer son tableau d'items
    BaseProgramManager pm = getProgramManager();

    if (pm.isFirstInstance()) m_OccursDef = new OccursDef(nNbOccurs);

    Edit varEdit = edit();

    if (pm.isFirstInstance()) {
      this.getProgramManager()
          .getSharedProgramInstanceData()
          .setVarFullName(varEdit.getVarDef().getId(), csName);
      // varEdit.m_varDef.setFullName(csName);
    }

    return varEdit;
  }
コード例 #6
0
ファイル: VarLevel.java プロジェクト: rplandgraf/naca
 public VarLevelGroup valueAll(String cs) {
   BaseProgramManager pm = getProgramManager();
   if (pm.isFirstInstance()) m_InitialValue = new CInitialValue(cs, true);
   VarLevelGroup varLevelGroup = new VarLevelGroup(this);
   return varLevelGroup;
 }
コード例 #7
0
ファイル: VarLevel.java プロジェクト: rplandgraf/naca
 public VarLevel occurs(Var varOccurs) {
   BaseProgramManager pm = getProgramManager();
   if (pm.isFirstInstance()) // || pm.isLinkageSectionCurrent())		
   m_OccursDef = new OccursDefVar(varOccurs);
   return this;
 }