mainframe - initialize an index variable in cobol -

-

we have cobol program in populate values cobol internal table , search table find out value. prior search, initialize tables index variable.

set paf-idx                  1.

could clarify, if allowed in cobol initialize index variable loke this.

initialize                   paf-idx.

no. , why want "initialize" it?

this ibm enterprise cobol manual:

identifier-1 receiving areas. identifier-1 must reference 1 of following: v alphanumeric group item v national group item v elementary data item of 1 of following categories: alphabetic alphanumeric alphanumeric-edited dbcs external floating-point internal floating-point national national-edited numeric numeric-edited v special register valid receiving operand in move statement identifer-2 or literal-1 sending operand. when identifier-1 re

edit:

the opencobol programmer's guide documents specifically:

the list of data items eligible set new values statement is: every elementary item specified identifier-1 ..., plus... every elementary item defined subordinate every group item specified dentifier-1  ..., following exceptions: usage index items excluded. items redefines part of definition excluded; means tems subordinate them excluded well.

the draft cobol standard less explicit, these items when used in initialize processed generating set rather move: data-pointer, function-pointer, object-reference, or program-pointer.

edit:

seeing opencobol reference not "specific" thought: in ibm cobol, currently, nothing cannot manipulated being target of move can initialized. same current opencobol. draft cobol has exceptions, listed, including neither indexed (which not part of table itself, separate items compiler defines storage) nor usage index.


Comments

Post a Comment

Popular posts from this blog

Hatching array of circles in AutoCAD using c# -

-
i beginner in autocad plugins .i have created array of circle using following code. now, have hatch circles in array .how that??how hatch circles @ once? moreover, how can return hatch method , use hatch objects.sorry language.thanks in advance. [assembly: commandclass(typeof(beamsection.class1))] namespace beamsection { public class class1 { //class1 obj = new class1(); [commandmethod("beamatsupport")] public void addlightweightpolyline() { // current document , database document acdoc = application.documentmanager.mdiactivedocument; database accurdb = acdoc.database; promptpointresult ppr = acdoc.editor.getpoint("\nselect starting point "); var ucs = acdoc.editor.currentusercoordinatesystem; point3d startingpt = ppr.value.transformby(ucs); list<double> radius = new list<double>(); radius.add(0.5);
Read more

ios - UITEXTFIELD InputView Uipicker not working in swift -

-
hello trying pop uipickerview view programmatically when user clicks on textfield. have tried doesn't doing anything. isn't working. nothing happening when click textfield class userprofiletableviewcontroller: uitableviewcontroller,uitextfielddelegate,uipickerviewdelegate,uipickerviewdatasource { var itempicker: uipickerview! = uipickerview() @iboutlet weak var gendertxtfield: uitextfield! var gender = ["male","female"] override func viewdidload() { super.viewdidload() gendertxtfield.delegate = self itempicker!.delegate = self itempicker!.datasource = self itempicker!.backgroundcolor = uicolor.blackcolor() self.gendertxtfield.inputview = itempicker } func numberofcomponentsinpickerview(pickerview: uipickerview) -> int{ return 1 } // returns # of rows in each component.. func pickerview(pickerview: uipickerview, numberofrowsincomponent component:
Read more

Python Pig Latin Translator -

-
so have been working on @ codecademy.com while trying learn python. don't know if blind , can't see why won't work or what. here's code won't let me use. function print variable if had typed in , print "empty" if didn't type anything. print "welcome english pig latin translator!" original = raw_input("what's name?") if len(original) > 0 print original else print "empty" if len(original) > 0 else the above lines contains syntax errors. try: if len(original) > 0: else: note added colons, ( : ).
Read more