|
 |
|
|
|
|
|
|
|
|
|
|
|
|
|
//* �i�d�s�T���v���i�b�k�o�͏����i�l�r�o�j
//SAMPLJCL JOB 'D.SAMPLEJCL',MSGCLASS=X,CLASS=C
//* �s�`�o�d���b�`�l�s�T���v���P
//STEP0010 EXEC PGM=SAMPLE01,PARM='DATE=93.07.28'
//* �I�[�v�����C�e�[�v
//INPUT01 DD UNIT=TAPE,DSN=SAMPLE01,DISP=SHR,
//�@�@�@�@�@VOL=SER=012345,LABEL=(1,SL)
//* �J�[�g���b�W���C�e�[�v
//INPUT02 DD UNIT=CAMT,DSN=SAMPLE11,DISP=SHR,
//�@�@�@�@�@VOL=SER=012346,LABEL=(1,SL)
//* �s�`�o�d���b�`�l�s�T���v���Q
//STEP0020 EXEC PGM=SAMPLE02,PARM='DATE=93.07.28',
//�@�@�@�@�@COND=(0,NE,STEP0010)
//OUTPUT1 DD UNIT=TAPE,DSN=SAMPLE02,DISP=(NEW,KEEP),
//�@�@�@�@�@VOL=SER=012345,LABEL=(2,SL)
//OUTPUT2 DD UNIT=CAMT,DSN=SAMPLE12,DISP=(NEW,KEEP),
//�@�@�@�@�@VOL=SER=012346,LABEL=(2,SL)
//* �c�`�r�c���̓T���v���P
//STEP0030 EXEC PGM=SAMPLE03,COND=(0,NE,STEP0020)
//* �c�`�r�c���͂P
//INPUT01 DD UNIT=SYSDA,DSN=SAMPLE03,DISP=SHR
//* �c�`�r�c�o�̓T���v���P
//STEP0040 EXEC PGM=SAMPLE04,COND=(0,NE,STEP0030)
//* �c�`�r�c�o�͂P
//OUTPUT1 DD UNIT=SYSDA,DSN=SAMPLE04,DISP=(NEW,CATLG,DELETE),
//�@�@�@�@�@SPACE=(TRK,(30,10),RLSE)
//* �c�`�r�c�T���v��
�|�|�|�|�|�ȉ����|�|�|�|�| |
|
|
|
|
|
|
|
|
|
|
| �@ |
����15�N6������ |
�@ |
|
\* �i�d�s�T���v���i�b�k�o�͏����i�e�r�o�^�w�r�o�j
\�@�@�@�@JOB�@SAMPLJCL,ACCT='H.SAMPLJCL',PRTY=(2,3),LIST=A
\*�i�b�k��͏���
\STEP0010�@EX�@JETSYS01,COND=10
\�@�@�@�@FD PRGLIB=DA,FILE=SYSPRG
\�@�@�@�@FD�@�@�@�@CF=DA,FILE=C.ALIB
\�@�@�@�@FD SYSDBOUT=DA,VOL=WORK,TRK=(2,1,RLSE),SOUT=A
\*�o�d�c�\��
\�@�@�@�@FD�@AIMPED=SSI,SUBSYS=(AIM,PEDNAME,APGSYS)
\*�J�[�g���b�W�e�[�v�̕\��
\�@�@�@�@FD�@CIMST=CT,VOL=SLMT,FILE=TUIKADAT
\*���C�e�[�v�̕\��
\�@�@�@�@FD�@MIMST=MT,VOL=SLMT,FILE=HIKAEDAT
\*�f�B�X�N���u�̕\��(����̧��)
\�@�@�@�@FD�@DIMST=DA,VOL=DISK01,FILE=CODEMAST
\*�f�B�X�N���u�̕\��(����̧��)
\�@�@�@�@FD�@DOUT1=DA,VOL=WORK02,FILE=TUIKA001,TRK=(10,2,RLSE)
\*�f�B�X�N���u�̕\��(��۸ގ��{̧��)
\�@�@�@�@FD�@DOUT2=DA,VOL=WORK,FILE=TUIKA002,TRK=(10,2,RLSE),DISP=CAT
\*���X�g�̕\��
\�@�@�@�@FD�@LIST=DA,VOL=WORK,TRK=(2,1,RLSE),SOUT=A
\*���X�g�̕\��(FLASH�L)
\�@�@�@�@FD�@LST1=DA,VOL=WORK,TRK=(150,50,RLSE),SOUT=N,FLASH=F000
\*�t�@�C���̃��X�g�\��
\�@�@�@�@FD�@LST2=DA,VOL=WORK02,FILE=KAKUNIN.LIST,TRK=(10,2,RLSE) *L
\*�}�X�^�[�t�@�C���U�蕪��
\STEP0020�@EX�@SORT,COND=10
\�@�@�@�@�@PARA SYSCON
\�@�@�@�@FD�@U01=MT,FILE=MASTERMT(0)
\�@�@�@�@FD�@U05=DA,VOL=WORK01,FILE=MASTERWK,CYL=(3,2,RLSE)
\�@�@�@�@FD�@COIN=*
/�@�@�@�@�@SORT�@FIELDS=(17,8,CH,A,2,9,CH,A)
\�@�@�@�@SYSIN�@UNIT=DA,FILE=SYSINDAT,MEMBER=SORTPAR1
\*�X�V�t�@�C���쐬����
\STEP0030�@EX�@JETSYS02,COND=10
\�@�@�@�@FD�@PRGLIB=DA,FILE=SYSPRG
\�@�@�@�@FD�@�@�@CF=DA,FILE=C.ALIB
\�@�@�@�@FD�@SYSDBOUT=DA,VOL=WORK,TRK=(2,1,RLSE),SOUT=A
\�@�@�@�@FD�@U01=DA,VOL=WORK01,FILE=MASTERWK,DISP=DLT
\�@�@�@�@FD�@U02=DA,VOL=WORK02,FILE=TUIKA001,DISP=DLT
\�@�@�@�@FD�@U03=DA,FILE=TUIKA002,DISP=DLT
\�@�@�@�@FD�@U05=CT,VOL=SLMT,FILE=MASTERMT(+1)
\�@�@�@�@FD�@U10=DA,VOL=WORK,FILE=KOUSINFL,CYL=(3,2,RLSE),DISP=CAT
\�@�@�@�@FD�@LIST=DA,VOL=WORK,TRK=(2,1,RLSE),SOUT=A
�|�|�|�|�|�ȉ����|�|�|�|�| |
|
|
|
|
|
