Have you tried coding: SET JOBCARD = &STR(&SUBSTR(2:10,&NRSTR(&INPUT)))?
BTW Are you also sure that '//JOBCARD' starts in column 2 (i.e. at offset 1)? Otherwise change your code to something like: A1: GETFILE INPUT SET B = &SYSINDEX(&STR(//JOBCARD),&NRSTR(&INPUT),1) IF &B > 0 THEN DO SET JOBCARD = &STR(&SUBSTR(&B:&B+8,&NRSTR(&INPUT))) If JOBCARD = &STR(//JOBCARD) + Then write got it END /* IF */ ELSE + GOTO A1 <...> Cheers, CP Micheal Butz wrote:
Hi I cann't seem to get equal looking for a character string in the input file I know that the job card is somewhere in the middle of the file So here is the code A1: GETFILE INPUT SET JOBCARD = &STR(&SUBSTR(2:10) If JOBCARD = &STR(//JOBCARD) Then write got it GOTO A1 I do writes and see the character string however I never get an equal condition on the if statement Sent from my iPhone ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
