DYL-280 / VISION:RESULTS program in JCL

neelesht · Posted: Fri Feb 06, 2009 3:27 am

Hi All,

I have a JCL which is coded like below, this is like coding kind of COBOL program in the JCL, can anyone explain me what exactly is this and how does it work :

Bill O'Boyle · Posted: Fri Feb 06, 2009 3:39 am

Looks like a procedural/4GL language of some sort, like Easytrieve perhaps?

Have you asked any of your colleagues?

It's certainly not COBOL.

superk · Posted: Fri Feb 06, 2009 3:45 am

Maybe Quikjob or a subsequent similar language? It would be helpful to know the name of the program being invoked.

dick scherrer · Posted: Fri Feb 06, 2009 6:04 am

Hello,

neelesht · Posted: Sat Feb 07, 2009 12:09 am

Here is the complete JCL

JOBCARD
/*XEQ N1
/*JOBPARM S=HOG1
//*
//* DYL TO CREATE BATCH MAINT (220) RECORDS (PERSONAL LIMITS)
//*
//DYL1 EXEC PGM=DYL280
//SYSPRINT DD SYSOUT=M
//SYSCOPY DD DSN=CGN.OPER.COPY,DISP=SHR
// DD DSN=CBN.OPER.COPY,DISP=SHR
//SYS280R DD SYSOUT=T
//SYS004 DD UNIT=DISK,SPACE=(TRK,5)
//FILEIN DD DISP=SHR,DSN=TSCBN.A3A.ACTEXT.D090202
//BM220FIL DD DSN=TSCBN.A3A.BNG5.BM220REC.D090204,
// DISP=(NEW,CATLG,DELETE),MGMTCLAS=DEL01M,
// SPACE=(CYL,(5,5),RLSE),
// DCB=(RECFM=FB,LRECL=1092,BLKSIZE=27300)
//SYSIN DD *
OPTION STRUCTURED2
FILE FILEIN VB 1878 STATUS INEOF
CB_CARD_NUMBER 19 1
CB_FIN_INST_NUMBER 05 22
CB_CARD_PREFIX 11 27
CB_CARD_STATUS 01 340
CB_PERSONAL_LIMS_IND 01 494
CB_MERCH_DB_TOTAL_DLR_LIMIT 03 500 PD
CB_MERCH_DB_NUMBER_LIMIT 02 503 PD
CB_DEBIT_PAD_IND 01 589
CB_DEBIT_PAD_TYPE 01 590

FILE BM220FIL OUTPUT FROM BM220FIL FB 1092
OUT_RECORD 1092 1
OUT_RECID 4 1
OUT_FI 5 5
OUT_CARDNO 19 10
OUT_UP_DATE 8 29
OUT_UP_TIME 6 37
OUT_DEBIT_PAD_IND 1 43
OUT_DEBIT_PAD_TYPE 1 44
OUT_DEBIT_PAD_AMT 5 45
OUT_PERS_LIMS_IND 1 50
; OUT_PERS_LIMS_RESETDT 8 51
OUT_CASH_OUT_AMT_LIM 5 59
OUT_CASH_OUT_TRN_LIM 3 64
OUT_PURCHASE_AMT_LIM 5 67
OUT_PURCHASE_TRN_LIM 3 72
OUT_CASH_ADV_AMT_LIM 5 75
OUT_CASH_ADV_TRN_LIM 3 80
OUT_CRDTPRCH_AMT_LIM 5 83
OUT_CRDTPRCH_TRN_LIM 3 88
OUT_ATM_CSHBK_AMT_LIM 5 91
OUT_A2A_TRAN_AMT_LIM 5 117
OUT_A2A_TRAN_TRN_LIM 3 122
OUT_A2A_PMNT_AMT_LIM 5 125
OUT_A2A_PMNT_TRN_LIM 3 130
WORKAREA
HOLD_DOL_AMT 5 1
HOLD_CNT 3 6
WORKAREA
HOLD_PREFIX 11 1
MOVE ' ' TO OUT_RECORD
READ FILEIN
DOWHILE INEOF NE 'E'
;IF CB_DEBIT_PAD_TYPE EQ ' '
TRANSLATE CB_CARD_PREFIX FROM X'FF' TO X'40'
MOVE ' ' TO OUT_RECORD
MOVE '0220' TO OUT_RECID
MOVE CB_FIN_INST_NUMBER TO OUT_FI
MOVE CB_CARD_NUMBER TO OUT_CARDNO
MOVE '20090204' TO OUT_UP_DATE
MOVE '114444' TO OUT_UP_TIME
MOVE 'Y' TO OUT_PERS_LIMS_IND
IF CB_DEBIT_PAD_IND EQ ' '
MOVE 'N' TO OUT_DEBIT_PAD_IND
ELSE
MOVE CB_DEBIT_PAD_IND TO OUT_DEBIT_PAD_IND
ENDIF
IF CB_DEBIT_PAD_TYPE EQ ' '
MOVE 'N' TO OUT_DEBIT_PAD_TYPE
ELSE
MOVE CB_DEBIT_PAD_TYPE TO OUT_DEBIT_PAD_TYPE
ENDIF
; MOVE CB_MERCH_DB_TOTAL_DLR_LIMIT TO OUT_PURCHASE_AMT_LIM
; MOVE CB_MERCH_DB_NUMBER_LIMIT TO OUT_PURCHASE_TRN_LIM
MOVE '01000' TO OUT_CASH_ADV_AMT_LIM
MOVE ' ' TO OUT_CASH_ADV_TRN_LIM
MOVE '01000' TO OUT_CRDTPRCH_AMT_LIM
MOVE ' ' TO OUT_CRDTPRCH_TRN_LIM
MOVE '01000' TO OUT_ATM_CSHBK_AMT_LIM
MOVE '01000' TO OUT_A2A_TRAN_AMT_LIM
MOVE ' ' TO OUT_A2A_TRAN_TRN_LIM
MOVE '01000' TO OUT_A2A_PMNT_AMT_LIM
MOVE ' ' TO OUT_A2A_PMNT_TRN_LIM
WRITE BM220FIL
READ FILEIN
ENDDO
ON END OF INPUT
STOP

Let me know if this helps.

Robert Sample · Posted: Sat Feb 07, 2009 12:15 am

DYL-280 is the language and there's over 3,500 hits on Google for it.

Terry Heinze · Posted: Sat Feb 07, 2009 10:32 am

DYL-280 is now known as VISION:RESULTS.