Conversão antecipada — feita uma vez, na migração
O operador abre o script e reconhece o JCL. Nenhum treinamento em Linux necessário.
convertido em 2025-12-18
MVS-convert-jcl.py v10.41.4
MVS-convert-jcl.py v10.41.4
Job principal
Expansão de PROCs
z/OS PGTO9901.jcl — JCL original
1//PGTO9901 JOB (CORP,,000001),MSGCLASS=P,
CLASS=E,COND=(0,NE),TYPRUN=HOLD,REGION=48M
//*
//* ACERTO DA FOLHA - TETO VP 01
//*
2//STEP1 EXEC PIDCUTIL,GRP=99
//*
3//STEP2 EXEC PNATPGTO,CLI=01,GRP=99
4//DDCARD1 DD *
CORP;BATPGTO;SENHA001
PGTOP180
/*
//*
5//STEP3 EXEC PSRTCLAS,CLI=01,GRP=99
//DDCARD1 DD *
CORP;BATPGTO;SENHA001
PGTOH000
FIN
/*
Linux PGTO9901.sh — script gerado
#!/bin/bash
source /opt/mythus/mythus.env
source ${mythus_path}/mythus_customer.sh
${mythus_path}/bin/mythus_control_jobs $0
1# PGTO9901 JOB (CORP,,000001),MSGCLASS=P,
# CLASS=E,COND=(0,NE),TYPRUN=HOLD,REGION=48M
2# STEP: PIDCUTIL
export GRP="99"
mc_save_var GRP
source ${MYTHUS_SCR}/PROCS/PIDCUTIL.sh
mc_restore_var GRP
3# STEP: PNATPGTO
export CLI="01" ; export GRP="99"
4mc_create_instream "DDCARD1" "YES" <<'EOF_DDCARD1_PNATPGTO'
CORP;BATPGTO;SENHA001
PGTOP180
EOF_DDCARD1_PNATPGTO
source ${MYTHUS_SCR}/PROCS/PNATPGTO.sh
5# STEP: PSRTCLAS
export CLI="01" ; export GRP="99"
mc_create_instream "DDCARD1" "YES" <<'EOF_DDCARD1_PSRTCLAS'
CORP;BATPGTO;SENHA001
PGTOH000
FIN
EOF_DDCARD1_PSRTCLAS
source ${MYTHUS_SCR}/PROCS/PSRTCLAS.sh
Selecionar PROC:
PROC z/OS
PROC convertida — Linux
Elemento JCL z/OS
Equivalente Mythus Control (Bash)
1
//JOBNAME JOB (params)
# JOBNAME JOB (params) — preservado como comentário
2
//STEP EXEC PROC,P=V
mc_save_var P + export P=V + source PROCS/PROC.sh
4
//DD DD * <instream> /*
mc_create_instream "DD" <<'EOF_DD' ... EOF
N
//STEP EXEC PGM=NATPGTO1
run_natural < "${CMSYNIN}"