Forum Post: RE: JFCB in SEP - how do I get a filename(DSN=) from the JCL to a variable within a Cobol program

in W-S copy MFJCTLBC.CPY ----------------------------------------------------------------     OBTAIN JobName ---------------------------------------------------------------- OBTAIN-JOB-NAME.    INITIALIZE                       WS-JCL-DD-AREA                                     WS-JCL-RETCODE.    SET  WS-JCL-FUNC-GET-EXEC     TO  TRUE.    SET  WS-JCL-EXEC-VERS-CUR     TO  TRUE.    CALL  'MFJCTLBP'           USING  WS-JCL-FUNCTION                                      WS-JCL-RETCODE                                      WS-JCL-EXEC-AREA.    DISPLAY ':We run under JobName    = '  WS-JCL-job-jobname . ============================= OBTAIN DDName related to DD     SET WS-JCL-DD-VERS-CUR      TO TRUE.     SET WS-JCL-FUNC-GET-DD      TO TRUE.     MOVE 'BPFJESO' TO WS-JCL-DDNAME.     CALL 'MFJCTLBP' USING       WS-JCL-FUNCTION                                 WS-JCL-RETCODE                                 WS-JCL-DD-AREA.     perform varying JCL-FILENAME-Len from 256 by -1     until WS-JCL-FILENAME(JCL-FILENAME-Len:1)        not = space         continue     end-perform     MOVE WS-JCL-FILENAME(1:JCL-FILENAME-Len)         to JCL-FILENAME-text