SMP/E SYSMOD:
Component:
Operating System:
Publish Date:
APAR & Description:
RI34001
SELCOPY
z/OS
2018/01/30
SMP/E SYSMOD:
Component:
Operating System:
Publish Date:
APAR & Description:
RS34001
SELCOPYi
z/OS
2018/01/30
>> CALL SLCIMS -+- XRST -------------------------+->< | | | +- SELC ------------+ | | | +- CHKP ---+-+-------------------+ | | | | +- XCHKP --+ +- chkp_pfx +-------+ +- SYMCHKP + | | + FORCE +
SMP/E SYSMOD:
Component:
Operating System:
Publish Date:
APAR & Description:
RS34002
SELCOPYi
z/OS
2018/01/30
FCOPY \
NBJ.SELCTRN.ZZST2DAT \
USING COBOL NBJ.SELCTRN.SAM1(ZZST2CPC) \
\
NBJ.SELCTRN.ZZST2DAT \
USING SDO NBJ.SDO(ZZSMUSIC) \
\
MapRecord \
( ZARTIST from ARTIST /* Rec-type */ \
(MapField(ZRT from RT ) \
MapField(ZARTIST from ARTIST.ARTIST ) \
) \
ZALBUM from ALBUM /* Rec-type */ \
(MapField(ZRT from RT ) \
MapField(ZALBUM from ALBUM.ALBUM ) \
) \
)
+----------------------------------------------+ | | v | >-+----------------------------------------------+-> | | | +----------+ | | v | | + IGNore (+- pos:len +-+-------------------+-) + | | + WHEN (expression) +
COMPFILE \
JGE.SELCTRN.ZZST2DAT /* New-file */ \
NBJ.SELCTRN.ZZST2DAT /* Old-file */ \
readahead(100) \
ign( 11:8 21:6 131:999 \
when( left(record,1) = '3' \
& ( record << 'blues' \
or record << 'tables' \
or substr(record,209,4) = '1997'\
) \
) \
) \