IBM Mainframe Forum

//SYSIN DD*
12 34
56
/*
.....................
now cobol program i have three items
01 ABC PIC 99.
01 DEF PIC 99.
01 GHI PIC 99.

PROCEDURE DIVISION.
ACCEPT ABC.
ACCEPT DEF.
ACCEPT GHI.

wat will be the contents in these variables.
plz help as presently m not having mainframe acess

Hello,

If the intent is to have values in all 3 variables, the code will not work.

As the 3rd variable is not initialized, it will have an unpredictable value (if the 3rd accept does not cause an abend).

yes as per dick if the third varible does not gives an abend the first variable wil have 12 and second variable 56
and the value of third variable is unpridictable.

Should these variables be defined in linkage or working storage section?

Hello,

Keep in mind that the posted example will not work correctly.

If the code is to ACCEPT values from SYSIN, the variables should be in working-storage.

Many organizations no longer permit use of ACCEPT to read multiple variables into a program. If more than one variable is needed, the code must have a SELECT, an FD, OPEN, READ, etc.