Calling local routines in VOC

Can anyone let me know how to call the local routines in my VOC..
I tried like this...

jsh bala ~ -->CT VOC B1
B1
001 PA
002 EX
003 DATA MOKAN1
004 DATA 123123
005 CALL CHECK

jsh bala ~ -->CT BALA.BP CHECK
CHECK
001 SUBROUTINE CHECK
002 $INSERT I_COMMON
003 $INSERT I_EQUATE
004 PRINT 'BALA'
005 END

But the system throws as shown below when i tried to login using voc B1.

CALL: No such file or directory

Use DATA instead of CALL...


jsh bala ~ -->CT VOC B1
B1
001 PA
002 EX
003 DATA MOKAN1
004 DATA 123123
005 DATA CHECK

How to use to the DECRYPT command?

I tried like this.but its not working.
PROGRAM RIGHT
$INSERT I_COMMON
$INSERT I_EQUATE

PASS = '��µµé�'
PRINT 'PASSWORD BEFORE DECRYPTING IS':PASS

PASS1 = DECRYPT(PASS,'',1)
PRINT 'PASSWORD AFTER DECRYPTING IS':PASS1
END

Wrong Output:

PASSWORD BEFORE DECRYPTING IS��µµé�
PASSWORD AFTER DECRYPTING IS��µµé�

The decrypted value for ��µµé� is 123456.but the command not working.

Specify the decrytion method in the function & include JBC.h

PASS1 = DECRYPT(PASS,'', JBASE_CRYPT_GENERAL)

Use DATA instead of CALL...

create pgm.file as type M.

revinath