Use Accept in procedure division.

Example :

WORKING-STORAGE SECTION.

01 empno. Pic x(05).

01 empname pic x(15).

01 empsal pic 9(10).

PROCEDURE DIVISION.

................

PERFORM ACCEPT-PARA.

..............

ACCEPT-PARA.

ACCEPT EMPNO.

ACCEPT EMPNAME.

ACCEPT EMPSAL.

In JCL :

...........

............

//sysin dd *

001

aaaa

330000

/*