TLD# Type Skeleton  Rec#   IM IF DO TB  Cd RC Data
---- ---- -------- ------  -- -- -- --  -- -- ----------------------------- … -->
TLD1 Svc                                      FTOPEN  TEMP
--------------------------------------------- DD=ISP14484  DSN=LSACKV1.SPFTEMP1.CNTL
TLD1 SvcR                                   0 FTOPEN  TEMP
TLD1 Svc                                      FTINCL  SKREX1A  EXT
--------------------------------------------- DD=ISPSLIB   DSN=LSACKV2.ISPSLIB
TLD1 Read SKREX1A       1                     >>1A>>START>> REXX >>
TLD1 Read SKREX1A       2                     )SET VARLIST = &STR(VAR1  VAR2,VAR3 )
TLD1 Read SKREX1A       3                     )SET VAR1 = SAY
TLD1 Read SKREX1A       4                     )SET VAR2 = HI
TLD1 Read SKREX1A       5                     )SET VAR3 = &STR(TO REXX  )
TLD1 Read SKREX1A       6                     )SET VAR4 = &STR(:)
TLD1 Read SKREX1A       7                     )REXX &VARLIST VAR4
TLD1 Read SKREX1A       8                      SAY VAR1 VAR2 VAR3 VAR4
TLD1 Read SKREX1A       9                      VAR3 = 'from rexx to you'
TLD1 Read SKREX1A      10                     )ENDREXX
TLD1 Read SKREX1A      11                     >>1A>>-END-<< &VAR1 &VAR2 &VAR3
TLD1 Read SKREX1A  -------------------------- Total Records=11
TLD1 Src  SKREX1A       1   1                 >>1A>>START>> REXX >>
TLD1 DatR SKREX1A       1   1               0 >1A>START> REXX >
TLD1 Src  SKREX1A       2   1                 )SET VARLIST = &STR(VAR1  VAR2,VAR3 )
TLD1 FncI SKREX1A       2   1                 &STR(VAR1  VAR2,VAR3 )
TLD1 FncR SKREX1A       2   1               0 = VAR1  VAR2,VAR3
TLD1 FncR SKREX1A                              +000060  0000000B 00000003 800000…
     ⋮

TLD1 CtlR SKREX1A      10   1               0 )ENDREXX
TLD1 RexR SKREX1A                             ZFTXRC(2)=0
TLD1 RexR SKREX1A                             ZFTXMSG(8)=
TLD1 RexR SKREX1A                             VAR1(3)=SAY
TLD1 RexR SKREX1A                             VAR2(2)=HI
TLD1 RexR SKREX1A                             VAR3(9)=from rexx
TLD1 RexR SKREX1A                             VAR4(1)=:
TLD1 Src  SKREX1A      11   1                 >>1A>>-END-<< &VAR1 &VAR2 &VAR3
TLD1 DatR SKREX1A       2   1               0 >1A>-END-< SAY HI from rexx
TLD1 SvcR                                   0 FTINCL  SKREX1A  EXT
TLD1 Svc                                      FTCLOSE
--------------------------------------------- DD=ISP09474  DSN=LSACKV1.SPFTEMP1.CNTL
TLD1 SvcR                                   0 FTCLOSE
TLD1 SvcR          -------------------------- Total Records=2