SAP Reports / Programs | Basis Components | Database Interface, Database Platforms | DB2 for z/OS(BC-DB-DB2) SAP BC
JCL00F01 SAP ABAP INCLUDE - Include JCL00F01
JCL00F01 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.
If you would like to execute this report or see the full code listing simply enter JCL00F01 into the relevant SAP transactions such as SE38 or SE80
ABAP code to call this SAP report using the submit statement
This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.
SUBMIT JCL00F01. "Basic submit
SUBMIT JCL00F01 AND RETURN. "Return to original report after report execution complete
SUBMIT JCL00F01 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement
Text pool values
Title: Include JCL00F01
INCLUDES used within this REPORT JCL00F01
No INCLUDES are used within this REPORT code!
TABLES used within REPORT and the associated SELECT statement:
No SAP DATABASE tables are accessed within this REPORT code!
Function Modules used within report and the associated call statement:
CCDSNU_JCL_GET_STATUS CALL FUNCTION 'CCDSNU_JCL_GET_STATUS' EXPORTING JOB_ID = JOBNO IMPORTING JOB_STATUS = JOB_STATUS EXCEPTIONS NOT_AUTHORIZED = 1 ERROR_IN_CHECK_VERSION = 2 LESS_THAN_V8 = 3 STOPROC_ABORTED = 4 DSNACCJQ_NOT_INSTALLED = 5 CREATE_DATABASE_FAILED = 6 NO_INPUT_TABLES = 7 SQL_ERROR = 8 JOB_HELD = 9 ENCRYPT_USER_FAILED = 10 DECRYPT_PASSW_FAILED = 11 JOB_ID_UNKNOWN = 12 NO_TSO_USER = 13 OTHERS = 14.
CCDSNU_JCL_GET_RESULT CALL FUNCTION 'CCDSNU_JCL_GET_RESULT' EXPORTING JOB_ID = JOBNO SPOOL_FILE_NUMBER = SY-INDEX SPOOL_FILE = FILE_NAME * IMPORTING * RETCODE = * MESSAGE = EXCEPTIONS NOT_AUTHORIZED = 1 ERROR_IN_CHECK_VERSION = 2 LESS_THAN_V8 = 3 STOPROC_ABORTED = 4 DSNACCJP_NOT_INSTALLED = 5 DSNACCJF_NOT_INSTALLED = 6 CREATE_DATABASE_FAILED = 7 NO_INPUT_TABLES = 8 SQL_ERROR = 9 JOB_HELD = 10 FILE_ERROR = 11 ENCRYPT_USER_FAILED = 12 DECRYPT_PASSW_FAILED = 13 OTHERS = 14.
RSLG_WRITE_SYSLOG_ENTRY CALL FUNCTION 'RSLG_WRITE_SYSLOG_ENTRY' EXPORTING SL_MESSAGE_AREA = 'D3' SL_MESSAGE_SUBID = '2' PRE_PARAM_LONG = MESSAGE_TEXT.
S390_GET_CURRENT_SSID CALL FUNCTION 'S390_GET_CURRENT_SSID' IMPORTING SSID = current_ssid.
STU3_ADMIN_SELECT_SQL_REMOTE CALL FUNCTION 'STU3_ADMIN_SELECT_SQL_REMOTE' EXPORTING CON_NAME = remote_dbcon TABNAME = 'DB2JOB' TABSTRUC = 'DB2JOB' WHERE_CLAUSE = where_clause IMPORTING RESULT = result EXCEPTIONS ADBC_SQL_ERROR = 1 OTHERS = 2.
STU3_ADMIN_SELECT_SQL_REMOTE CALL FUNCTION 'STU3_ADMIN_SELECT_SQL_REMOTE' EXPORTING CON_NAME = remote_dbcon TABNAME = 'DB2JOB' TABSTRUC = 'DB2JOB' WHERE_CLAUSE = where_clause IMPORTING RESULT = result EXCEPTIONS ADBC_SQL_ERROR = 1 OTHERS = 2.
CCDSNU_JCL_SUBMIT_SYNCH CALL FUNCTION 'CCDSNU_JCL_SUBMIT_SYNCH' IMPORTING RETCODE = JCL_RC * MESSAGE = TABLES JS_TBL = JS_IN result = result EXCEPTIONS NOT_AUTHORIZED = 1 ERROR_IN_CHECK_VERSION = 2 LESS_THAN_V8 = 3 STOPROC_ABORTED = 4 DSNACCJS_NOT_INSTALLED = 5 DSNACCJQ_NOT_INSTALLED = 6 DSNACCJP_NOT_INSTALLED = 7 DSNACCJF_NOT_INSTALLED = 8 CREATE_DATABASE_FAILED = 9 NO_INPUT_TABLES = 10 SQL_ERROR = 11 JOB_HELD = 12 ENCRYPT_USER_FAILED = 13 DECRYPT_PASSW_FAILED = 14 NO_TSO_USER = 15 OTHERS = 16 .
READ_JCL_PROFILE CALL FUNCTION 'READ_JCL_PROFILE' EXPORTING SAMPLE_TYPE = SAMPLE_TYPE CON_NAME = con_name TABLES PROFILE_TAB = PROF_VAR_TAB EXCEPTIONS ERROR_READING_PROFILE = 1 OTHERS = 2.
S390_GET_CURRENT_SSID CALL FUNCTION 'S390_GET_CURRENT_SSID' EXPORTING REMOTE_DB_CON = con_name IMPORTING SSID = cur_ssid.
RSLG_WRITE_SYSLOG_ENTRY CALL FUNCTION 'RSLG_WRITE_SYSLOG_ENTRY' EXPORTING SL_MESSAGE_AREA = 'D3' SL_MESSAGE_SUBID = '3' PRE_PARAM_LONG = TEXT-002.
CCDSNU_UPLOAD_JOB CALL FUNCTION 'CCDSNU_UPLOAD_JOB' EXPORTING OS390_DATASET_MEMBER_NAME = MEMBER2 IMPORTING OS390_UPLOAD_TARGET = zos_upload_target TABLES DS_TBL = ds_tbl EXCEPTIONS ERROR_IN_CHECK_VERSION = 1 LESS_THAN_V7 = 2 STOPROC_ABORTED = 3 DSNACCDS_NOT_INSTALLED = 4 CREATE_DATABASE_FAILED = 5 NO_INPUT_TABLES = 6 SQL_ERROR = 7 DATASET_BLOCKED = 8 OTHERS = 9.
TH_GET_OWN_WP_NO CALL FUNCTION 'TH_GET_OWN_WP_NO' IMPORTING SUBRC = RC WP_INDEX = WP_NO EXCEPTIONS OTHERS = 1.
GET_QUALIFYING_NUMBER_DB2 CALL FUNCTION 'GET_QUALIFYING_NUMBER_DB2' EXPORTING CON_NAME = remote_dbcon IMPORTING NUMBER = NUMBER EXCEPTIONS NUMBER_NOT_FOUND = RC_QUALNUM_NOT_FOUND OTHERS = RC_OTHER_ERROR.
S390_GET_UNIQUE_COPY_ID CALL FUNCTION 'S390_GET_UNIQUE_COPY_ID' IMPORTING NUMBER = copy_id EXCEPTIONS NUMBER_NOT_FOUND = 1 OTHERS = 2.
RSLG_WRITE_SYSLOG_ENTRY CALL FUNCTION 'RSLG_WRITE_SYSLOG_ENTRY' EXPORTING SL_MESSAGE_AREA = 'D3' SL_MESSAGE_SUBID = '3' PRE_PARAM_A = 'DB13 COPY: Could not fetch unique ID'(022).
Contribute (Add Comments)
Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.
The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.
This will then be available for everyone to easily find by simply searching on the report name JCL00F01 or its description.